renato.pavan

Segundo manual anexo, página 9, campo 9 do registro de transação 400 bytes, no ACBr havia um campo com 30 espaçoes, alteramos esse campo para 14 espaços, incluímos um novo campo para data mora juros, se informado combrança de juros diário no boleto, é obrigatório informar a data inicio da cobrança do juros no formato DDMMYY que tem que ser maior que a data do vencimento e incluímos mais um campo com 10 espaços para fechar a conta com os 30 espaços que havia ali. Deixo anexo a unit alterada e o manual do banco. Layout_de_Arquivo_Cobranca_400.pdf ACBrBancoSafra.pas

Bom dia! Arquivos enviado!

Bom dia! Segue a unit corrigida para leitura do arquivo retorno. Obrigado. ACBrBancoOriginal.pas

Bom dia! Você só altera o tamanho máximo do nosso número para 10, 11 é com o DV eu tinha alterado pra testar e acabei me esquecendo de voltar, com 11 da erro no calculo do nosso número. Obrigado.

Implementei os motivos da rejeição no retorno em caso de algum título ser rejeitado, gravar o motivo e a descrição da rejeição. Esqueci de mencionar, unit implementada e testada em Delphi 7. Anexo a unit alterada. ACBrBancoOriginal.pas

Bom dia! Acabamos de homologar o CNAB 400 do Banco Original para um cliente nosso. Anexo as units que escrfevi e alterei e também os manuais utilizados no processo. 212-Original.zip

Bom dia Italo, Obrigado!

Encontrei um ponto de memory leak, fiz a correção, segue a unit para avaliação. ACBrPagForConfiguracoes.pas

Bom dia! Me surgiu a necessidade de salvar o PDF do DANFE FR em strem, eu implementei essa funcionalidade para meu uso, se acharem pertinente e quiserem adicionoar ao projeto oficial, em anexo segue as units que alterei. ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

Daniel, Me enganei, ele apagou a primeira nota do lote, desta forma não da certo, preciso daquela propriedade que criei, justamente porque não tenho o N que você passou como sugestão. No validar eu atribuo o valor de I pra esta nova propriedade, Obrigado.

Obrigado Daniel, Eu fiz como você disse: dmPrincipal.NFe.NotasFiscais.Delete(dmPrincipal.NFe.NotasFiscais.Items[0].Index); Eu imaginava que desta forma iria apagar a primeira nota do lote, devido ao Items[0], mas não, apagou exatamente a Nfe que simulei o erro. Daniel, Me enganei, ele apagou a primeira nota do lote, desta forma não da certo, preciso daquela propriedade que criei, justamente porque não tenho o N que você passou como sugestão. No validar eu atribuo o valor de I pra esta nova propriedade, Obrigado.

Boa tarde a todos! Gero um lote com várias NFe no componente ACBRNFe, após carregar todas as propriedades do componente com várias notas, chamo os métodos conforme abaixo: dmPrincipal.NFe.NotasFiscais.GerarNFe; try dmPrincipal.NFe.NotasFiscais.Assinar; except end; try dmPrincipal.NFe.NotasFiscais.Validar; except //dmPrincipal.NFe.NotasFiscais.ItemIndex propriedade nova que eu criei dmPrincipal.NFe.NotasFiscais.Delete(dmPrincipal.NFe.NotasFiscais.ItemIndex); end; Criei esta propriedade ItemIndex porque se alguma nota do lote esta com problema, removo ela do lote e prossigo com as que estão corretas. Vocês acham viável a inclusão dessa propriedade no componente oficial, talvez com outro nome, uma vez que uso ela apenas no método validar. Em anexo a unit alterada. ACBrNFeNotasFiscais.pas

Obrigado Daniel, Tudo certo! []'s

Bom dia, Fiz a correção no código a ACBrMAil, segue anexo. Além dessa alteração, alterei também o código para salvar o MIMe do email, pois da forma que estava, estava sendo executado depois do clear e o savtofile original salvava o arquivo vazio. Outra alteração que fiz foi pra salvar o nome de quem estava enviando email, pois na exibição aparecia assim: Renato Pavan <[email protected]> ao invés de aparecer apenas Renato Pavan Para corrigir isto, apenas alterei a ordem da aps dupla no fonte conforme abaixo: De: fMIMEMess.Header.From := '"' + fFromName + ' <' + From + '>"' Para: fMIMEMess.Header.From := '"' + fFromName + '" <' + From + '>' []'s ACBrMail.pas

Bom dia, Descobri quando ocorre de não aparecer a imagem que o email contem anexo, se você enviar apenas o XML anexado por stream, não aparece, se enviar o XMl anexado por Stream e o Danfe, ai aparece o clip. Vou tentar ver no código fonte se consigo ver porque isto ocorre, se conseguir corrigir posto aqui.