Versão da DLL 2.16..2.3

Exemplo do segmento P:

001300001P 01030980646838000000000001400000000000068811220688 2501201600000000008790000000 01N07122015126012016000000000000000000000000000000000000000000000000000000000000000000000688 3001039090000000000

posição 118 com código 1
posição 119 a 126 data dos juros
posição 127 a 141 está zerado

Código usado:

 if (codigoBanco == "104")
 {
          boleto.SetRegEnumValue(CNAB240SegmentoPCaixa.ProtestoPrazo, 15);
          boleto.SetRegEnumValue(CNAB240SegmentoPCaixa.Juros, 1);
          boleto.SetRegEnumValue(CNAB240SegmentoPCaixa.JurosMora, 0.26); 

           if (boleto.Instrucao1 == 6)
                    boleto.DiasBaixa = 0;

            if (oConfig.BaixaDevolucao != 0)
            {
                     boleto.SetRegEnumValue(CNAB240SegmentoPCaixa.BaixaDevolucaoCodigo, 0);
boleto.SetRegEnumValue(CNAB240SegmentoPCaixa.BaixaDevolucaoPrazo, 15);
          }
 }

Manual do banco: http://prntscr.com/a6n8mu

Fábio

Apos a geração do arquivo de imagem, ao ser passado pelo código de barras, ocorre que o leitor, em qualquer boleto, retorna apenas o valor de R$ 10,00.

Para a geração da imagem estou utilizando a função abaixo, que foi passada anteriormente por você:

    Dim cCodBar As String
    cCodBar = CodigoBarras
    Dim img As Bitmap = CobUtil.BarCodeImage(cCodBar)
    img.Save(rota_arquivo & NossoNumero & ".jpg", Imaging.ImageFormat.Jpeg)

Quando eu processo o boleto as informações retornadas são:

Código de Barras: 00191686100000050000000002880310000000117717
Linha Digitavel: 00190.00009 02880.310004 00001.177179 1 68610000005000
Nosso Número: 28803100000001177-0

Em CodigoBarras estou passando o valor retornado pela dll através da função 'Boleto.CodigoBarras'.

O valor passado é 00191686100000050000000002880310000000117717

Observe que estou passando um valor de R$ 50,00 e o código de barras me retorna uma valor diferente disso.

Os dados que estão sendo passados para a composição da Linha Digitavel e Código do Boleto são:

Debug.Print cedente.cedente
Debug.Print cedente.CNPJ
Debug.Print cedente.Banco
Debug.Print cedente.Agencia
Debug.Print cedente.Conta
Debug.Print cedente.Carteira
Debug.Print cedente.Convenio
Debug.Print cedente.Modalidade
Debug.Print Boleto.Aceite
Debug.Print BoletoInfo.Especie
Debug.Print BoletoInfo.NossoNumero
Debug.Print BoletoInfo.NumeroDocumento
Debug.Print BoletoInfo.DataDocumento
Debug.Print BoletoInfo.DataVencimento
Debug.Print BoletoInfo.Quantidade
Debug.Print BoletoInfo.ValorUnitario
Debug.Print BoletoInfo.ValorDocumento
Debug.Print BoletoInfo.ParcelaNumero
Debug.Print BoletoInfo.ParcelaTotal
Debug.Print BoletoInfo.ValorDesconto
Debug.Print BoletoInfo.ValorOutras

Debug.Print nCD
Debug.Print nLinha
Debug.Print NNF

PALOMA ABRAO SILVA - ME
09226878000114
001
2426-0
9406-4
17
2880310
21
N
1
1177
00001
11/07/2016
20/07/2016
1
50
50
1
1
0
0
00191686100000050000000002880310000000117717
00190.00009 02880.310004 00001.177179 1 68610000005000
#28803100000001177-0

Em anexo o PDF e o arquivo de imagem.

Aguardo instruções.
Boleto 50.pdf
Valores Debug.txt

valida_E0800001REM.pdf
Layout ITAU.pdf

DANILO Cliente 17/06/2016 09:51
BOM DIA.

O BANCO RETORNOU INFORMANDO QUE O LAYOUT ESTA ERRADO.

SEGUE ABAIXO O ERRO:

LAYOUT: ITAU - COB. COM REGISTRO - CNAB 400
REGISTRO: DETALHE
LINHA: 2
POSICAO 077 - CAMPO: N DO BANCO NA CAMARA DE COMPENSACAO - CONTEUDO FIXO DIFERE DO ESPERADO. (000)

Método usado para corrigir o problema:

if (codigoBanco == "341") { boleto.SetRegEnumValue(CNAB400Remessa1Itau.Banco, 341); }

O código acima não surgiu efeito, exemplo: http://prntscr.com/bhlsmr.
O que preciso fazer?

O cliente enviou a documentação que está em anexo.

Fábio.

Encaminhei um boleto e o banco informou que a linha digitável do mesmo está errado.

Na dll verifique que há informação de modalidade, porem o banco informou que não há essa informação. Assim a mesma está sendo passada em branco. O que devo informar para o banco nesse campo?

ENVIADO 0339000069 76253000004 03200033086 8 68960000008100
ESPERADO 0339967622 53053000005 03200601015 1 68960000008100

Na imagem tem os dados de cliente e da carteira.

No aguardo.

Att

Posições 101 a 107: Preencher com o sequencial da remessa (ALINHAR À DIREITA E PREENCHER COM ZEROS À ESQUERDA)

01REMESSA01COBRANCA       08427000223751000000EDIFICIO ALAMO 21.853.654/0001001BANCODOBRASIL  16042811                           2723548                                                                                                                                                                                                                                                                  000001
70221853654000138084270002237512723548                         272354800000003340000       0190000000     1701334       06051600000000000020010000 01N040416000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB                                 RUA MARILIA - ATE 1199/1200             LUTHER KING 85605140FRANCISCO BELTRPR                                           000002
70221853654000138084270002237512723548                         272354800000003350000       0190000000     1701335       29041600000000000020010000 01N040416000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB                                 RUA MARILIA - ATE 1199/1200             LUTHER KING 85605140FRANCISCO BELTRPR                                           000003
70221853654000138084270002237512723548                         272354800000003360000       0190000000     1701336       22041600000000000020010000 01N040416000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB                                 RUA MARILIA - ATE 1199/1200             LUTHER KING 85605140FRANCISCO BELTRPR                                           000004
70221853654000138084270002237512723548                         272354800000003370000       0190000000     1701337       15041600000000000020010000 01N040416000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB                                 RUA MARILIA - ATE 1199/1200             LUTHER KING 85605140FRANCISCO BELTRPR                                           000005
70221853654000138084270002237512723548                         272354800000003380000       0190000000     1701338       08041600000000000020010000 01N040416000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB                                 RUA MARILIA - ATE 1199/1200             LUTHER KING 85605140FRANCISCO BELTRPR                                           000006
9                                                                                                                                                                                                                                                                                                                                                                                                         000007

OBS: tentei usar o mesmo esquema do Sicredi. Exemplo:

boleto.SetRegEnumValue(RegType.P9, 7);

Sabe me informar qual é a configuração para o Banco do Brasil?

Value, abraço!

Estou com problema na parte de retorno da caixa Economica.
Pelo que percebi no segmento U. preciso pegar essas duas data.

16.3U Data da Ocorrência
17.3U Data do Crédito

segue em anexo o arquivo de retorno
RETORNOCEF170916.txt

Remessa Bradesco CNAB400.

Linha exemplo:
100000000000000000000009012300040510800000000000000000009614130002000200000001204400000000002S 0 01000000120431011600000000888730000000001N301215061000000000000302001160000000008000000000000000000000000000000100000268216487TESTE, QUADRA 14 - LOTE 13 RUA DA AMIZADE, 203/402 52011260 000002

A condição abaixo não está alterando o item "Condição para Emissão da
Papeleta de Cobrança" posição 93

boleto.SetRegEnumValue(CNAB400Remessa1Bradesco.Condicao, 1);

Exemplo remessa: http://prntscr.com/aaa8y1
Exemplo documento: http://prntscr.com/aaabaj

Conforme o exemplo acima deveria mudar para "1"S, entretanto, continua o código "2"S

Versão da DLL: 2.16.2.24

Efetuei a alteração necessária, entretanto, não sofreu efeito.
Veja exemplo--> http://prntscr.com/b4s8rn e http://prntscr.com/b4scsa

------------------------------------------------------ // ------------------------------

Também tentei forçar a sequencia, exemplo: var seq = $"{lote + totalRemessa:D7}";

boleto.SetRegEnumValue(RegType.P9, 7);
var seq = $"{lote + totalRemessa:D7}";
boleto.SetRegEnumValue(CNAB400HeaderSicredi.NumeroRemessa, seq); OU
boleto.SetRegEnumValue(CNAB400HeaderSicredi.Sequencia, seq);

Arquivo remessa, ajustar:

Estrutura do Arquivo

Linha 0001: Erro no sequencial do registro. informado '000000'. Correto '000001'

Header do Arquivo

Posições 130 a 136: Preencher com o número do convênio. Ou seja: 2723548

Detalhe tipo 7

Posições 064 a 080: Preencher o nosso número da seguinte forma: '2723548NNNNNNNNNN' onde 'N' = numeração livre a cargo da empresa
Posições 140 a 142: Preencher com número do Banco do Brasil: '001'
Posições 392 a 393: Preencher com brancos

Remessa gerada:

01REMESSA01COBRANCA 08427000223751000000EDIFICIO AAAAA 21.853.654/0001001BANCODOBRASIL 1604012723548 0000000 000000
70221853654000138084270002237512723548 000000000000003340000 0190000000 1701334 26051600000000000020000000 01N240316000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB RUA MARILIA - ATE 1199/1200 LUTHER KING 85605140FRANCISCO BELTRPR 0 000002
70221853654000138084270002237512723548 000000000000003350000 0190000000 1701335 19051600000000000020000000 01N240316000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB RUA MARILIA - ATE 1199/1200 LUTHER KING 85605140FRANCISCO BELTRPR 0 000003
70221853654000138084270002237512723548 000000000000003360000 0190000000 1701336 12051600000000000020000000 01N240316000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB RUA MARILIA - ATE 1199/1200 LUTHER KING 85605140FRANCISCO BELTRPR 0 000004
70221853654000138084270002237512723548 000000000000003370000 0190000000 1701337 05051600000000000020000000 01N240316000000000000000000000000000000000000000000000000000000000000000100032946287300ACOLWEB RUA MARILIA - ATE 1199/1200 LUTHER KING 85605140FRANCISCO BELTRPR 0 000005
9

Boletos

Verifique na diagramação do boleto:

NOSSO NÚMERO: Informar sem DV e sem espaço entre os números: 27235480000000330. Caso deseje manter o dígito, verificar a forma de cálculo pois está incorreto. Para este número, o dv correto seria 2.

Exemplo: http://prntscr.com/amwlau

Boa noite Fábio

Estou compilando a nova versão da dll versão Fontes-2016-04-08 e estou observando que não está gerando o arquivo Impactro.Cobranca.dll.config, e no projeto VB6, o mesmo está dando falta do mesmo, apresentado o erro da imagem em anexo.

Seria possível encaminhar a dll compilada?

Aguardo instruções.

Att

Prezado

Esse é o código utilizado:

' SANTANDER

ced.Banco = "033"
ced.Agencia = "1234-1"
ced.Conta = "1234567896"
ced.CodCedente = "1231230"
ced.Carteira = "101" ' Código 5 na remessa ???
ced.CedenteCOD = "33333334892001304444" ' 20 digitos (note que o final, é o numero da conta, sem os ultios 2 digitos)
ced.Convenio = "0000000000000000002222220" ' 25 digitos
ced.useSantander = True 'importante para gerar o código de barras correto (por questão de compatibilidade o padrão é false)

Resolvi colocando tipo de carteira 1, mas quais são os tipos aceitáveis e quando é utilizando cada um deles?

Apresenta o ero

Resolvi

Boa tarde Fábio

Preciso de informações pra passar informações da variação da carteira. Não encontrei essa opção na dll.

Há outros erros apresentados e as informações estão sendo passadas corretamente.

Segue informação passada pelo banco:

Conforme análise, verificamos:

Detalhe tipo 7

Posições 004 a 017: Preencher com o número de inscrição correto para o convênio: 09226878000114
Posições 092 a 094: Preencher com a variação da carteira de cobrança. Ou seja: 019
Posições 221 a 234: Preencher com número de inscrição do sacado
Posições 235 a 271: Preencher com o nome do sacado

Se puder disponibilizar um exemplo em VB6 fico agradecido.
1506201641.txt

Att

cb280401.txt

Esse é o remessa gerado.

O banco está retornando o seguinte:

Considerando o seguinte convênio:
------------------------ Detalhamento do Convenio ----------------------------
Agencia : 2426 0 - PEDREGULHO
Beneficiario : 9406 4 - PALOMA ABRAO SILVA - ME
Cart/Variacao : 17/019 SIMPLES COM REGISTRO
Tipo Convenio : 4 Cliente: Numera, emite e expede
Situacao : 1 Normal com retorno
Nr.Convenio : 2880310 Nr.Conv.Lider : 2880310

Tipo Ret.Lider: 6 CNAB240 - Ger.Financ./Mainf-Mainf

Segue Arquivo "cb280401.rem" analisado:
*************** Análise do Arquivo Remessa *************

Foram detectadas as seguintes inconsistências:

Header de Arquivo > Lote 0000

Posições 033 a 052: Preencher com o código do convênio: '002880310001417019 '

Header de Lote > Lote 0001

Posições 034 a 053: Preencher com o código do convênio: '002880310001417019 '

Segmento P > Lote 0001

Posições 106 a 106: Preencher com branco

Após promover as alterações, favor gerar um novo arquivo e enviar-nos para continuidade do atendimento.

Atenciosamente,

Unidade de Apoio

BANCO DO BRASIL S/A
CENOP Serviços - Recife
0800 729 0500 - Demais localidades
3003 0500 - Capitais
[email protected]

Na geração da remessa estou passando como abaixo:

    'Informações do ceente
    Dim ced As Impactro.Cobranca.CedenteInfo
    ced = New CedenteInfo()

    ced.Banco = "001" 'Banco Brasil
    ced.Cedente = CedenteNome 'Recebe o nome do Cedente
    ced.CNPJ = CedenteCNPJ 'Recebe o CNPJ do Cedente
    ced.Agencia = BcoAgencia 'Número da agencia
    ced.Conta = BcoCC 'Número da Conta Corrente
    ced.Carteira = BcoNCarteira 'Número da Carteira
    ced.CedenteCOD = BcoNCedente 'Número do Cedente
    ced.Convenio = BcoConvenio

    'Informações do Layous tem que ficar fora do laço (While)
    'LayoutBancos
    Dim sac As Impactro.Cobranca.SacadoInfo
    sac = New SacadoInfo

    Dim ret As Impactro.Layout.LayoutBancos
    ret = New Impactro.Layout.LayoutBancos

no banco convênio,está chegando a informação do convênio 2880310

Uma observação. se eu passar 002880310001417019 o campo informa que o convênio é invalido.

Estou utilizando a ultima versão disponibilizada no google driver.

No aguardo.

Atencipados agradecimentos.

Verifique na diagramação do boleto: http://prntscr.com/axxb7h

Recibo do pagador: Informar endereço completo do beneficiário (rua, bairro, cep, uf, cidade)
Exemplo: http://prntscr.com/axxj3r

NOSSO NÚMERO: Informar sem DV. Caso deseje mantê-lo, verificar forma de cálculo, pois está incorreto.

Att.
ARTHUR BORGES
Unidade de Apoio

BANCO DO BRASIL S/A
CENOP Serviços - Recife
0800 729 0500 - Demais localidades
3003 0500 - Capitais
[email protected]

Boa tarde Fábio

Preciso de informações pra passar informações da variação da carteira. Não encontrei essa opção na dll.

Há outros erros apresentados e as informações estão sendo passadas corretamente.

Segue informação passada pelo banco:

Conforme análise, verificamos:

Detalhe tipo 7

Posições 004 a 017: Preencher com o número de inscrição correto para o convênio: 09226878000114
Posições 092 a 094: Preencher com a variação da carteira de cobrança. Ou seja: 019
Posições 221 a 234: Preencher com número de inscrição do sacado
Posições 235 a 271: Preencher com o nome do sacado

Se puder disponibilizar um exemplo em VB6 fico agradecido.

1506201641.txt

Bom dia Fábio. Não esse arquivo foi gerado através da sua dll. Eu não tenho outra dll que não seja a sua.

O comando que está gerando o arquivo e remessa é o comando abaixo:

Dim ced As New CedenteInfo
Set ced = New CedenteInfo

ced.cedente = DLookup("[CedenteNome]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0))
ced.CNPJ = DLookup("[CedenteCNPJ]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0))

ced.Banco = DLookup("[BcoNun]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0))
ced.Agencia = DLookup("[CDAgencia]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0))
ced.Conta = Format$(DLookup("[CtaCorente]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0)), "0000000000")
ced.Carteira = DLookup("[NCarteira]", "boletos_confg", "[ID]=" & Me.Carteira.Column(0))
Dim ssql As String
Dim rst As Recordset

ssql = ""
ssql = "Select * From Processamentos_Parcelas where ID=" & Me.Carteira.Column(0) & " and DataProcessamento=#" & Format$(Me.DTP, "mm/dd/yyyy") & "#"
Set rst = CurrentDb.OpenRecordset(ssql) 'abre o recordeset

Dim sac As New SacadoInfo

Dim nct
nct = 1

'Informações do Layous tem que ficar fora do laço (While)
Dim ret As New LayoutBancos
ret.Init ced
ret.ShowDumpLine = False 'Exibe informações de posição / valor
ret.Lote = 1

While (Not rst.EOF)

sac.Sacado = rst("SacadoNome").Value
sac.Endereco = rst("SacadoEnd").Value & "," & rst("SacadoNun").Value
sac.Bairro = rst("SacadoBairro").Value
sac.Cidade = rst("SacadoMunicipio").Value
sac.UF = rst("SacadoUF").Value
sac.Cep = rst("SacadoCEP").Value

Dim bol As New BoletoInfo
bol.NossoNumero = rst("NossoNumero").Value
bol.ValorDocumento = rst("VrBoleto").Value
bol.DataDocumento = rst("DataProcessamento").Value
bol.DataVencimento = rst("DataVencimento").Value
bol.Especie = Especies_DM

bol.Ocorrencia = Ocorrencias_Remessa
bol.Comando = 1

ret.Add bol, sac
rst.MoveNext
Wend

'Gera o arquivo de remessa
ret.RemessaTo (fileRemessa)

Então não tem como ser gerado através de outro recurso que não seja o seu.

Nessa instrução não sei o que falta para colocar a variação da carteira.

Basta me passar um exemplo preciso de como gerar a remessa para o BB, pois há falta de informação.

No aguardo.

Att

Alguém teria um arquivo de retorno do Santander CNAB 400 como exemplo? Algo simples mesmo, poucas linhas pra que eu possa fazer testes e continuar co a aplicação. Já procurei por todos os lugares, inclusive, já pedi diversas vezes pro próprio Santander, mas eles ainda não me enviaram.

Obrigado

Fábio, o boleto gerado para o banco SICOB não está sendo validado pelo aplicativo

Estou passando a parametrização da seguinte forma:

Dim ced As New Kartoffel.Cobranca.CedenteInfo
Dim sac As New Kartoffel.Cobranca.SacadoInfo
Dim bol As New Kartoffel.Cobranca.BoletoInfo
Dim blt As New Kartoffel.Cobranca.Boleto

    ced.Cedente = "Cliente SICOB"
    ced.Banco = "756"
    ced.Agencia = "3009"
    ced.Conta = "145823"
    ced.Carteira = "001"
    ced.CNPJ = "12.345.678/0001-12"
    ced.CodCedente = "19889"
    ced.Convenio = "19889"
    ced.Modalidade = "1"


    'Definição dos dados do sacado
    sac.Sacado = "Seu nome"

    'Definição dos dados do boleto basicos
    bol.NossoNumero = "1007"
    bol.DataDocumento = Now
    bol.DataVencimento = CDate("11/05/2016")

    'Os demais campos abaixo são opcionais, mas uteis e obrigatórios de acordo com o banco
    bol.NumeroDocumento = "0001"
    bol.Quantidade = 1
    bol.ValorUnitario = 10
    bol.ValorDocumento = 10
    ' Mostra no recibo do pagador
    bol.Demonstrativo = "Exemplo de texto sobre o demostrativo"
    bol.LocalPagamento = "Pagavel em qualquer lugar possivel"
    bol.Instrucoes = "Instruções para o caixa"
    'Tipo de boleto
    bol.Aceite = "N"
    bol.Especie = "1"
    ' Apenas para geração de remessa
    bol.Ocorrencia = 1
    bol.Comando = 1
    bol.Instrucao1 = 2
    bol.Instrucao1 = 3

    bol.DataDesconto = CDate("11/05/2016") 'Data Limite para a aparecer o desconto, sem o limite sempre mostra
    bol.ValorDesconto = 0
    bol.ValorOutras = 0
    bol.ValorAcrescimo = 0
    bol.ValorMora = 0  'Valor de mora por dia: R$ 0,10 (dez centavos)
    bol.PercentualMulta = 0 '2 / 100 '2% de multa
    bol.CalculaMultaMora = 0
    'Só em carne ou layout customizado
    bol.ParcelaNumero = 1
    bol.ParcelaTotal = 1

    'Executa os calculos de geraçào de boleto
    blt.MakeBoleto(ced, sac, bol)
    'blt.Save("teste.bmp")
    blt.CalculaBoleto()

A linha digitavel que está sendo retornada é a abaixo:

75691.98893 01001.988904 00100.700012 5 67910000001000

O banco está retornando inconsistência,conforme imagem

me certifique que os dados estavam sendo chegados corretamente na dll (ver vídeo em anexo)

Video_2016-05-11_170650.pdf

Deverá alterar de pdf para wmv

O que me chama a atenção é o primeiro bloco

Desenvolvedor 7569198893 01001988904 00100700012 5 67910000001000
Sistema 7569130094 01019888906 00100780014 7 67910000001000

Observe que a linha gerado pela dll informa o número do convenio e não a agencia.

No aguardo.

As remessas estão indo com o valor em centavos, exemplo. Boleto de 5,00 vai como 0,05 na remessa.

Exemplo em anexo. É urgente!

Fábio,
Por alguma razão que ainda não consegui detectar, estou recebendo uma exception na hora de gerar remessa do santander..

Segue mensagem:

Exception.Message : Erro ao gerar linha por causa do campo: MultaPercentual (PV) 4 - Inner: Tamanho 5 ultrapassa o espaço necessario para o número: '20000' PV(4)

Sabe me informar qual é o problema? ou o que está ultrapassando este tamanho, sabendo que o campo multapercentual é "2.0"

Abraço!

Fábio, o que ocorre é que o banco informa quer o arquivo fornecido é CNAB 400.

Fiz a contagem de ambas as linhas e eles tem 400 caracteres como manda o manual, contudo, a dll não está lendo o mesmo.

Gentileza verificar, pois estou sem argumento com o banco. Preciso saber porque esse arquivo não é um CANAB400.

No aguardo.

Att
CBR6433402511201614714.txt

Olá Fábio,

Solicitaram a alteração neste item do boleto "4342/0000630" para "4342/00/0000630"
No manual eu não encontrei nada a respeito desse tipo de informação.

Exemplo: http://prntscr.com/ame0o6 e http://prntscr.com/ame0wh

Esta solicitação veio do pessoal do banco.

Existe alguma configuração ou motivo para ser desta maneira?
OBS: este boleto é do tipo sem registro

Para o banco 756, a dll não está lendo o arquivo de retorno.

Dim x As Integer
x = ret.BoletoCount ' Numero de itens lidos

'Text2.Text = ""
For n = 0 To x - 1
    MsgBox ret.BoletoItem(n).NossoNumero & " - "
    MsgBox ret.BoletoItem(n).DataVencimento & " - "
    MsgBox ret.BoletoItem(n).ValorDocumento & vbCrLf
Next

no BoletoCount, ele está fazendo a contagem 0

O arquivo de retorno utilizado é o abaixo:

02RETORNO01COBRANÇA 30090000198889145823ELTON JOHN GOMES DA SILVA ME 756 - BANCOOB S/A 1603160000691 000001
1020569299500011230090000145823000000 000000056899010000000OU00000000000000000000 0205150316 150316000000000750000104340991503160000160000000000000000000000000000000000000000000000000000000000000000000000000007500000000000000000000000000000000000000000000000000000010000000000000 0000000000000000000000000000000000000000000000000000000002
1020569299500011230090000145823000000 000000054143010000000OU00000000000000000000 0205150316 150316000000003080075630270991503160000160000000000000000000000000000000000000000000000000000000000000000000000000030800000000000000000000000000000000000000000000000000000010000000000000 0000000000000000000000000000000000000000000000000000000003
1020569299500011230090000145823000000 000000054025010000000OU00000000000000000000 0205150316 150316000000002640010407190991503160000160000000000000000000000000000000000000000000000000000000000000000000000000026400000000000000000000000000000000000000000000000000000010000000000000 0000000000000000000000000000000000000000000000000000000004
9027563009SICOOB NORTE AV. JONES DOS SANTOS NEVES CENTRO 29800000Barra de São Francisco ES160320160000000300001969859 000005

Para o banco 756 há alguma consideração no código a ser feita?

No aguardo.

Att

Está implementado o retorno do SICRED?

Estou usando seu exemplo alterei a linha

r.Init(new CedenteInfo { Banco = "748" });

Mas quando vou ler aparece

O método ou a operação não está implementada.
em Impactro.Layout.CNAB400Sicredi.Retorno(String cData)
em Impactro.Layout.LayoutBancos.Retorno(String cData)
em BoletoForm2.frmRetorno.btnRetorno_Click(Object sender, EventArgs e) na C:\Users\korelio\Desktop\desss\Boleto-Windows-Form-master\frmRetorno.cs:linha 61

Fábio, estou com dois padrões de arquivo aqui CB260 e CB400.

A função ret.BoletoCount não está identificando nenhum dos registros.

IEDCBR243212201625151.txt
IEDCBR2476212201625044.txt

Aguardos instruções.

Att

Fábio, qual o comando utilizando para receber os dados da 'data do credito' no arquivo de retorno?

Não encontrei essa função na aplicação.

Att

Prezados

Observei no código (vb6) no exemplo é processado a remessa para um único casaco.

Como poderia processar a remessa quando o sacado é diferente para cada boleto?

Att

Uma homologação foi reprovada por não existir as informações de "SAC" no boleto.
Tentei achar alguma configuração referente ms não encontrei... existe algo do gênero?

--------------------------------------------------- // -------------------------------------------

A4706RJ - AG Vila Kosmos/RJ

C/C RERET4706RJ - RERET VILA KOSMOS/RJ

Sr. Gerente,

1. Informamos que as informações do SAC não foram inseridas no recibo do pagador e as margens do código de barras não foram regularizadas.

Exemplo na documentação:
http://www.caixa.gov.br/downloads/cobranca-caixa-manuais/ESP_COD_BARRAS_SIGCB_COBRANCA_CAIXA.pdf

Incio na página 6 item 3.2.2 do link acima.

SEGUE RETORNO DO SETOR RESPONSAVEL:

Exemplo: http://prntscr.com/b3nko1

ORIENTACAO E PARA QUE O SEU PROGRAMADOR REVISITE O MANUAL ... DOIS ERROS BASICOS QUE FORAM CORRIGIDOS.

OS CAMPOS 111 A 117 SAO O SEQUENCIAL DA REMESSA, ELES ESTAVAM MANDANDO COMO 24, QUANDO O CORRETO E 0000001, 0000002 ASSIM POR DIANTE

DENTRO DO ARQUIVO ESTAO COLOCANDO UMA DATA NO CABECALHO, ESSA DEVE SER A DATA DO NOME DO ARQUIVO ... DENTRO ESTAVA 04/05 ENQUANTO FORA ESTA 06/05

SE NAO CORRIGIREM ISSO, CONTINUARA TENDO PROBLEMAS PARA MANDAR A REMESSA.

CID:[email protected]

Fábio

Tive que formatar minha máquina e comecei do zero. Estou utilizando o VS 2012.

O que ocorre.

Eu estou compilando a dll original, sem fazer alteração alguma na estrutura da mesma.

A unica coisa que fiz, foi habilitar 'Register for COM interop' que cria os .tlb automaticamente.

Dentro do VB6, ocorrem os erros da seguinte forma.

Se eu crio a variável da seguinte forma:

dim ced as new CedenteInfo, gera o erro do arquivo 2016-03-24_121948

Se eu crio a variável da seguinte forma

dim ced as CedenteInfo, gera o erro do arquivo 2016-03-24_122009

Se eu declaro dessa forma:

Dim ced As New Impactro_Cobranca.CedenteInfo
Set ced = New Impactro_Cobranca.CedenteInfo

da esse erro:

Isso vale para todas as variáveis da dll.

O que pode estar ocorrendo? Pode me dar uma luz?

No aguardo.

Att