MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Quebra de arquivo CNAB 240 Santander.

    DCR2012
    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 7/2/2013, 18:48

    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?
    Anexos
    [Resolvido]Quebra de arquivo CNAB 240 Santander. AttachmentCNAB240.TXT
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 144 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  criquio em 7/2/2013, 18:51

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 7/2/2013, 19:19

    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.

    Anexos
    [Resolvido]Quebra de arquivo CNAB 240 Santander. Attachmentcnab240.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 88 vez(es)
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    Registrado : 21/01/2012

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  Cláudio Más em 7/2/2013, 19:43

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 7/2/2013, 19:44

    Com o assistente quebro igual todas as linhas, uma linha é diferente da outra.
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    Registrado : 21/01/2012

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  Cláudio Más em 7/2/2013, 19:53

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 7/2/2013, 20:11

    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.

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  criquio em 7/2/2013, 20:32

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    Registrado : 21/01/2012

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  Cláudio Más em 7/2/2013, 20:43

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

    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".
    DCR2012
    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 7/2/2013, 20:54

    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.

    Anexos
    [Resolvido]Quebra de arquivo CNAB 240 Santander. AttachmentCNAB240BOLETO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 81 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  criquio em 7/2/2013, 20:56

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 8/2/2013, 10:40

    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.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  criquio em 8/2/2013, 11:40

    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á.


    Última edição por criquio em 8/2/2013, 12:19, editado 1 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  DCR2012 em 8/2/2013, 12:10

    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
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Quebra de arquivo CNAB 240 Santander. Empty Re: [Resolvido]Quebra de arquivo CNAB 240 Santander.

    Mensagem  criquio em 8/2/2013, 12:26

    O fórum agradece o retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 5/7/2020, 14:09