[Resolvido]Quebra de arquivo CNAB 240 Santander.

Meus amigos boa tarde,

Preciso importar para conciliação de remessa de boletos arquivos CNAB 240.
O arquivo é o seguinte.

As duas primeiras linhas do TXT não me interessa são o cabeçalho do arquivo.
Apartir dai começa os detalhes da cobraça.
E a primeira linha e a segunda linha de cada registro do boleto são diferentes.
E as duas ultimas linhas não me interessa tambem pois é o rodapé.

Coloquei em anexo o arquivo para vocês verem como é.

O que preciso é de uma luz como faço para ele pegar a primeira linha do detalhe quebrar conforme o padrão e a segunda linha do detalhe quebrar e continuar inserindo no mesmo registro da tabela.

Alguem pode me ajudar?

Forneça mais detalhes sobre "quebrar" por gentileza.

Oi Criquio,

Na verdade eu tenho o Layout de campos já. Quebrar eu Digo separar as qtds de caracteres para seus devidos campos.
Eu tenho a qtd de cada um e os campos jah.

Abaixo segue anexo o campo e o tamanho dos campos da primeira e da segunda linha.

Já tentou usar o "Assistente de importação de texto"?

Com o assistente quebro igual todas as linhas, uma linha é diferente da outra.

Uma linha é diferente da outra?
Você quer dizer, o layout das linhas é diferente, ou o conteúdo das linhas?

O Layout mesmo, no arquivo XLS que coloquei tem os Layout das duas linhas.
Por exemplo a 1 tem os campos ID, NOMESACADO, VALOR. Com a contagem de caracteres 10,15,12 respectivamente.
A linha dois tem os campos NOMERECEBEDOR, VALORREAL, DATAPAGAMENTO. Com a contagem de caracteres 15, 12, 8 respectivamente.

No fórum há exemplos de importação que faz esse serviço utilizando VBA. Você pode utilizar o Mid para contar os caracteres. Eu mesmo ajudei a um membro com isso certa vez. Dê uma pesquisadinha.

Isso acontece para o mesmo tipo de registro, no caso o "3"??
Normal...

Sabe se tem outro campo pra diferenciar as linhas, já que o tipo de registro é o mesmo?
Talvez o Codsegmento.

Uma opção é importar o arquivo duas vezes, para uma tabela temporária.
Após a primeira importação, configurada pelo layout "T", deletaria todos os registros cujo campo 5 fosse diferente de "T", antes de transferir (consulta créscimo) para a sua tabela principal.
Depois repetiria o processo, de acordo com o layout "U".

Criquio

Consegui um cod aqui
http://maximoaccess.forumeiros.com/t9629-resolvidoimportar-txt-com-duas-linha-para-o-mesmo-registro?highlight=importar+txt

Adaptei

Ficou assim

Código:

Private Sub importtxtbtn_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String



Open "C:/CNAB240.TXT" For Input As #1 ' Abre o arquivo a ser importado

Set DB = CurrentDb
Set RS = DB.OpenRecordset("CNAB")


Dim strNome As String, strTel As String, strBairro As String
strAImportar = ""
While Not EOF(1)
Line Input #1, Linha ' Lê uma linha do arquivo texto
If Mid$(Linha, 14) = "U" Then
strCodBcoCompensacao2 = Mid$(Linha, 1, 3)
strNoLoteRetorno2 = Mid$(Linha, 4, 4)
strTipoRegistro2 = Mid$(Linha, 8, 1)
strNoregistrolote2 = Mid$(Linha, 9, 5)
strCodsegmento2 = Mid$(Linha, 14, 1)
strReservado3 = Mid$(Linha, 15, 1)
strCodigodemov2 = Mid$(Linha, 16, 2)
strJurosMultaEncargos = Mid$(Linha, 18, 15)
strValorDesconto = Mid$(Linha, 33, 15)
strValorAbatimento = Mid$(Linha, 48, 15)
strValorIOF = Mid$(Linha, 63, 15)
strValorPago = Mid$(Linha, 78, 15)
strValorLiquido = Mid$(Linha, 93, 15)
strValorDespesas = Mid$(Linha, 108, 15)
strValorCreditos = Mid$(Linha, 123, 15)
strDatadaocorrencia = Mid$(Linha, 138, 8)
strDataefetivacaodocredito = Mid$(Linha, 146, 8)
strCodocorrenciadosacado = Mid$(Linha, 154, 4)
strDatadaocorrenciadoSacado = Mid$(Linha, 158, 8)
strValordaocorrenciadoSacado = Mid$(Linha, 166, 15)
strCompOcorrenciadoSacado = Mid$(Linha, 181, 30)
strCodBcocompens = Mid$(Linha, 211, 3)
strReservado = Mid$(Linha, 214, 27)


ElseIf Mid$(Linha, 14) = "T" Then
With RS
.AddNew
!CodBcoCompensacao2 = strCodBcoCompensacao2
!NoLoteRetorno2 = strNoLoteRetorno2
!TipoRegistro2 = strTipoRegistro2
!Noregistrolote2 = strNoregistrolote2
!Codsegmento2 = strCodsegmento2
!Reservado3 = strReservado3
!Codigodemov2 = strCodigodemov2
!JurosMultaEncargos = strJurosMultaEncargos
!ValorDesconto = strValorDesconto
!ValorAbatimento = strValorAbatimento
!ValorIOF = strValorIOF
!ValorPago = strValorPago
!ValorLiquido = strValorLiquido
!ValorDespesas = strValorDespesas
!ValorCreditos = strValorCreditos
!Datadaocorrencia = strDatadaocorrencia
!Dataefetivacaodocredito = strDataefetivacaodocredito
!Codocorrenciadosacado = strCodocorrenciadosacado
!DatadaocorrenciadoSacado = strDatadaocorrenciadoSacado
!ValordaocorrenciadoSacado = strValordaocorrenciadoSacado
!CompOcorrenciadoSacado = strCompOcorrenciadoSacado
!CodBcocompens = strCodBcocompens
!Reservado = strReservado
!CodBcoCompensacao = Mid$(Linha, 1, 3)
!NoLoteRetorno = Mid$(Linha, 4, 4)
!TipoRegistro = Mid$(Linha, 8, 1)
!Noregistrolote = Mid$(Linha, 9, 5)
!Codsegmento = Mid$(Linha, 14, 1)
!Reservado = Mid$(Linha, 15, 1)
!Codigodemov = Mid$(Linha, 16, 2)
!AgCed = Mid$(Linha, 18, 4)
!DgAgCed = Mid$(Linha, 22, 1)
!NoCC = Mid$(Linha, 23, 9)
!DgCC = Mid$(Linha, 32, 1)
!Reservado1 = Mid$(Linha, 33, 8)
!NossoNumero = Mid$(Linha, 41, 13)
!Codcarteira = Mid$(Linha, 54, 1)
!NoDocCobranca = Mid$(Linha, 55, 15)
!Dtvenctitulo = Mid$(Linha, 70, 8)
!Valortitulo = Mid$(Linha, 78, 15)
!NoBcoCobrador = Mid$(Linha, 93, 3)
!AgCobrador = Mid$(Linha, 96, 4)
!DgAgCobrador = Mid$(Linha, 100, 1)
!IdTituloEmp = Mid$(Linha, 101, 25)
!CodMoeda = Mid$(Linha, 126, 2)
!TipoDoc = Mid$(Linha, 128, 1)
!NumeroDoc = Mid$(Linha, 129, 15)
!NomeSacado = Mid$(Linha, 144, 40)
!CCCobranca = Mid$(Linha, 184, 10)
!VlrTarCustas = Mid$(Linha, 194, 15)
!Ids = Mid$(Linha, 209, 10)
!Reservado2 = Mid$(Linha, 219, 22)

.Update
End With
End If
Wend

Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub

End Sub

Mas ele roda e não inseri o dados na tabela.

Não da erro nem nada.
Segue o bd teste.

Você mencionou que as partes a serem quebradas tem números de caracteres iguais. Uma forma de se fazer utilizando o Mid, seria assim:

Código:

Function PreencheCampos()
'On Error Resume Next
Dim N As Integer, T(3) As String

    N = FreeFile
    Open CarregaTxt For Input As #N

        Line Input #N, T(1)

        Line Input #N, T(2)
            Me.Campo1 = Mid(T(2), 1, 8)
            Me.Campo2 = Mid(T(2), 9, 6)
        Line Input #N, T(3)
            Me.Campo3 = Mid(T(3), 16, 8)
            Me.Campo4 = Mid(T(3), 25, 7)   
    Close #N

End Function

Eu uso isso em alguns momentos. Nesse caso, pegando as linhas 2 e 3.

Oi Criquio,

Mas não temos apenas as linhas 2 e 3, nunca é a mesma quantidade de linhas. O cod conforme postagem anterior que coloquei, o vba roda mas não inseri na tabela, acredito que esteja faltando algo. Como voce pode ver no cod, os campos que necessito puxar o caractere 14 me trás T ou U que é o que diferencia uma linha da outra.
Ou seja se for "t" vai separar jogar cada um no seu campo de registro se for "u" vai quebrar e jogar em outros campos do registro.

Depurei o cod e ele não da nenhum erro.

Nos posts anteriores esteve sempre a falar em importar duas linhas. Por isso pensei que o arquivo texto teria sempre 6 linhas, das quais o amigo dispensaria as duas primeiras e as duas últimas. Mas notei uma falha na função que você adaptou. O Mid requer dois argumentos numéricos, sendo o primeiro deles a posição aonde se iniciará a contagem e o segundo a quantidade de caracteres a serem contados. No seu caso, seria:

If Mid$(Linha, 14, 1) = "U" Then
...

Tente corrigir isso e veja no que dá.

Criquiao....

Vlw meu querido.

FUNFO PERFEITAMENTE.

Código:

Private Sub importtxtbtn_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String



Open "C:/CNAB240.TXT" For Input As #1 ' Abre o arquivo a ser importado

Set DB = CurrentDb
Set RS = DB.OpenRecordset("CNAB")
Dim strNome As String, strTel As String, strBairro As String
strAImportar = ""

Do While Not EOF(1)

Line Input #1, Linha ' Lê uma linha do arquivo texto

If Mid$(Linha, 14, 1) = "U" Then
strCodBcoCompensacao2 = Mid$(Linha, 1, 3)
strNoLoteRetorno2 = Mid$(Linha, 4, 4)
strTipoRegistro2 = Mid$(Linha, 8, 1)
strNoregistrolote2 = Mid$(Linha, 9, 5)
strCodsegmento2 = Mid$(Linha, 14, 1)
strReservado3 = Mid$(Linha, 15, 1)
strCodigodemov2 = Mid$(Linha, 16, 2)
strJurosMultaEncargos = Mid$(Linha, 18, 15)
strValorDesconto = Mid$(Linha, 33, 15)
strValorAbatimento = Mid$(Linha, 48, 15)
strValorIOF = Mid$(Linha, 63, 15)
strValorPago = Mid$(Linha, 78, 15)
strValorLiquido = Mid$(Linha, 93, 15)
strValorDespesas = Mid$(Linha, 108, 15)
strValorCreditos = Mid$(Linha, 123, 15)
strDatadaocorrencia = Mid$(Linha, 138, 8)
strDataefetivacaodocredito = Mid$(Linha, 146, 8)
strCodocorrenciadosacado = Mid$(Linha, 154, 4)
strDatadaocorrenciadoSacado = Mid$(Linha, 158, 8)
strValordaocorrenciadoSacado = Mid$(Linha, 166, 15)
strCompOcorrenciadoSacado = Mid$(Linha, 181, 30)
strCodBcocompens = Mid$(Linha, 211, 3)
strReservado4 = Mid$(Linha, 214, 27)


ElseIf Mid$(Linha, 14, 1) = "T" Then
With RS
.AddNew
!CodBcoCompensacao2 = strCodBcoCompensacao2
!NoLoteRetorno2 = strNoLoteRetorno2
!TipoRegistro2 = strTipoRegistro2
!Noregistrolote2 = strNoregistrolote2
!Codsegmento2 = strCodsegmento2
!Reservado3 = strReservado3
!Codigodemov2 = strCodigodemov2
!JurosMultaEncargos = strJurosMultaEncargos
!ValorDesconto = strValorDesconto
!ValorAbatimento = strValorAbatimento
!ValorIOF = strValorIOF
!ValorPago = strValorPago
!ValorLiquido = strValorLiquido
!ValorDespesas = strValorDespesas
!ValorCreditos = strValorCreditos
!Datadaocorrencia = strDatadaocorrencia
!Dataefetivacaodocredito = strDataefetivacaodocredito
!Codocorrenciadosacado = strCodocorrenciadosacado
!DatadaocorrenciadoSacado = strDatadaocorrenciadoSacado
!ValordaocorrenciadoSacado = strValordaocorrenciadoSacado
!CompOcorrenciadoSacado = strCompOcorrenciadoSacado
!CodBcocompens = strCodBcocompens
!Reservado4 = strReservado4
!CodBcoCompensacao = Mid$(Linha, 1, 3)
!NoLoteRetorno = Mid$(Linha, 4, 4)
!TipoRegistro = Mid$(Linha, 8, 1)
!Noregistrolote = Mid$(Linha, 9, 5)
!Codsegmento = Mid$(Linha, 14, 1)
!Reservado = Mid$(Linha, 15, 1)
!Codigodemov = Mid$(Linha, 16, 2)
!AgCed = Mid$(Linha, 18, 4)
!DgAgCed = Mid$(Linha, 22, 1)
!NoCC = Mid$(Linha, 23, 9)
!DgCC = Mid$(Linha, 32, 1)
!Reservado1 = Mid$(Linha, 33, 8)
!NossoNumero = Mid$(Linha, 41, 13)
!Codcarteira = Mid$(Linha, 54, 1)
!NoDocCobranca = Mid$(Linha, 55, 15)
!Dtvenctitulo = Mid$(Linha, 70, 8)
!Valortitulo = Mid$(Linha, 78, 15)
!NoBcoCobrador = Mid$(Linha, 93, 3)
!AgCobrador = Mid$(Linha, 96, 4)
!DgAgCobrador = Mid$(Linha, 100, 1)
!IdTituloEmp = Mid$(Linha, 101, 25)
!CodMoeda = Mid$(Linha, 126, 2)
!TipoDoc = Mid$(Linha, 128, 1)
!NumeroDoc = Mid$(Linha, 129, 15)
!NomeSacado = Mid$(Linha, 144, 40)
!CCCobranca = Mid$(Linha, 184, 10)
!VlrTarCustas = Mid$(Linha, 194, 15)
!Ids = Mid$(Linha, 209, 10)
!Reservado2 = Mid$(Linha, 219, 22)
   
.Update
End With
End If
MsgBox "OK"
Loop


Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub

End Sub

O cod ta ai pra quem precisar...

Valewwww

O fórum agradece o retorno.

Senhores boa noite,

Resolvido