Filipe Sortica

Olá Juliana! Meu colega é quem está realizando esta homologação. Ele me enviou o pdf de retorno do banco. Contrariando o manual, este pdf pede para enviar o campo com espaços em branco... vai entender Veja a parte destacada no pdf: Ele realizou a alteração para espaços em branco, enviou novamente e o banco aceitou.

Bom dia Juliana! Realmente, dei esta sugestão sem antes olhar no manual. Então, se o manual diz para preencher com 9's, a alteração para os fontes deve ser essa. Muito obrigado, e me desculpa pela sugestão precipitada.

Olá! Em atual homologação da remessa 400, o banco retornou erro. No registro detalhe, o campo "CPF/CNPJ do Sacador avalista", posição 340 a 353, está sendo preenchido com zeros. O erro foi o seguinte: Por isso, gostaria de sugerir a alteração para informar, ao invés de zeros, espaços em branco no campo "CPF/CNPJ do Sacador avalista", posição 340 a 353, do registro detalhe.

Uma das explicações que tu encontras neste site é sobre como definir a estrutura do ClientDataSet utilizando o "FieldDefs". Outra, é sobre como navegar num ClientDataSet e editá-lo. Dá uma olhada... Qualquer dúvida estamos aí.

Se "ListaDeBoletos.Count - 1" é igual a zero, então "ListaDeBoletos.Count" é igual a 1, ou seja, há um boleto.

Olá joaolenosi! Sobre tu nunca teres utilizado o ClientDataSet, tu encontras muito material sobre este componente na Internet. Um material que eu sugiro é: http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm. Espero que te seja útil. Qualquer dúvida estamos aí.

Olá joaolenosi! Isso não é necessário. Quando o ACBrBoleto abre o arquivo, ele vê quantas posições a primeira linha tem. Caso tenha 240, ele lê com o CNAB240; caso tenha 400, com o CNAB400.

Olá dionatan! Verifica a dica do Italo.

Olá marcelinoap! Dá uma lida sobre as alterações de Schema na Nota Técnica 2012/003, mais especificamente no item "02.6". Vê se resolve o problema para ti.

Olá! O tópico não deveria ter sido criado no fórum "ACBrSerial/ACBrMonitor"?

Olá RogerMello! É, realmente, o meu manual também mostra diferenças com relação à função "CodMotivoRejeicaoToDescricao". O manual que possuo, para o BB, é Layout Padrão Febraban 240 posições V08.4. Exatamente o que pode ser baixado do site do BB.

Olá aacircordeiro! E sobre ser facultativo enviar o arquivo XML, olha, acho que seria difícil, pois pela legislação isso é obrigatório.

Olá! Estou testando a leitura dos arquivos de retorno. No CNAB 240, do BB, é preenchido o StringList MotivoRejeicaoComando com a seguinte linha: MotivoRejeicaoComando.Add(copy(Linha, 214, 2)); Porém o outro StringList DescricaoMotivoRejeicaoComando não está sendo preenchido. Gostaria de sugerir a seguinte alteração: IdxMotivo := 214; while (IdxMotivo < 223) do begin if (trim(Copy(Linha, IdxMotivo, 2)) <> '') then begin MotivoRejeicaoComando.Add(Copy(Linha, IdxMotivo, 2)); DescricaoMotivoRejeicaoComando.Add( CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo, StrToIntDef(Copy(Linha, IdxMotivo, 2), 0))); end; Inc(IdxMotivo, 2); end; A variável "IdxMotivo" deve ser declarada como "Integer". Sugiro que realizem esta alteração, caso desejem manter o padrão das leituras de retorno, que é o preenchimento dos dois campos.

Sim.. ou se a Juliana estiver muito ocupada e outro moderador puder subir as correções, ficaríamos muito gratos.

Visualmente parece igual. Porém, o "RegistroC010New" é uma função. Cada vez que chamamos ela, um novo registro C010 é instanciado. Utilizando o "with", apenas uma chamada é feita à função, apenas um registro é instanciado. E, dentro do escopo do "with", acessamos este registro e inserimos todas suas informações.

Era o que eu imaginava... Tu estás instanciando um registro C010: RegistroC010New.CNPJ:= config.Cnpj; e depois instanciando outro: RegistroC010New.IND_ESCRI := IndEscriConsolidado; ou RegistroC010New.IND_ESCRI := IndEscriIndividualizado; Tente fazer assim: with Sped.Bloco_C do begin RegistroC001New.IND_MOV := imComDados; with RegistroC010New do begin CNPJ:= config.Cnpj; // Participante(Entrada.Participante.ID); if TConvertValuesBD.IndEscrNFeECF(config.Ind_ApuNfeEcf)=IndEscrConsolidado then begin IND_ESCRI := IndEscriConsolidado; LancaBlocoC180Saida; LancaBlocoC190Entrada; end else begin IND_ESCRI := IndEscriIndividualizado; ListaEntradas; end; end; end;

Olá Fabrício! Terias como mostrar como tu estás preenchendo este registro?

Olá Juliana! Sim, nós já homologamos os boletos da CEF SIGCB. Como podes ver no arquivo, as alterações que enviei são as seguintes, por exemplo: - No trailler, a quantidade de títulos em cobrança estava igual à quantidade de registros do lote; IntToStrZero((2*ARemessa.Count), 6) Alterado para: IntToStrZero((ARemessa.Count-1), 6) - No header de lote, o nome da empresa estava alinhado à direita; padR(Nome, 30, ' ') Alterado para: padL(Nome, 30, ' ') - No header de arquivo e no header de lote, o CNPJ e o Código Cedente estavam alinhados à esquerda; - No header de arquivo, as posições 172 a 191 (Uso reservado do banco) estavam sendo preenchidas com zeros. padL('', 20, '0') + // 172 a 191 - Uso reservado do banco Alterado para: Space(20) + // 172 a 191 - Uso reservado do banco Basicamente, foram estas alterações que realizei.

Olá Juliana! No outro tópico tu já havias me perguntado. Como te falei, e o outro colega também confirmou, a resposta do banco foi que o protesto até 5 dias deve ser em dias úteis.

Olá! Estive comparando a geração do arquivo de remessa CEF SIGCB CNAB 240 com o manual e encontrei algumas diferenças. Realizei algumas alterações no header, detalhe e trailler. Posto para análise. ACBrCaixaEconomica.pas ACBrCaixaEconomica.pas

Exatamente Roger! Juliana, seria possível então realizar a alteração nos fontes?

Olá mais uma vez! Eu vou implementando e vou postando... Quando puderem analisar e subir para o SVN, ok... As implementações agora são as seguintes: - Alteração na "LerRetorno400"; - Implementação da geração de remessa e leitura do retorno do CNAB 240. ACBrBancoSicredi.pas ACBrBancoSicredi.pas

Olá Allan! Há um tópico onde houve uma sugestão parecida. Também houve uma sugestão a respeito. Vê se te é útil:

Olá! Revisei o código da procedure "LerRetorno400" e realizei algumas modificações. Implementei também as funções: - TipoOcorrenciaToDescricao; - CodOcorrenciaToTipo; - TipoOCorrenciaToCod; - CodMotivoRejeicaoToDescricao. Se possível, por favor, analisem o código para disponibilizá-lo. ACBrBancoSicredi.pas ACBrBancoSicredi.pas

O código está bem comentado, cada informação com sua devida descrição no manual.