virtualsistemas

Boa tarde... Utilizo o componente do ACBrBoleto já algum tempo pra vários bancos. Porém agora estou desenvolvendo o layout do Santander CNAB 240. Alguém poderia me dizer se consigo utilizar o componente ACBr ainda?? Pois verifiquei nos fontes e não encontrei o arquivo CNAB 240 apenas o 400 para o Sandanter ?

Como o Acbr chama a função da dll para montar o arquivo? A função BemaGeraRegistrosTipoE?

Obrigada pela resposta. Mas devo alterar o quê no .ini?

Bom dia! Estou gerando a LMFC no formato do ATO COTEPE 17/04: ModuloECF.ACBrECF1.PafMF_LMFC_Cotepe1704(Date1.Date, Date2.Date, PathArquivo) Gera o arquivo, porém no registro E02, nos campos 07 e 08, Nome do Contribuinte e Endereço traz espaços em branco. Já atualizei as DLLs, estão na última versão. Impressora BEMATECH 2100 THFI Pesquisando eu vi que para chamar a função da DLL, existe um parâmetro Razão Social e Endereço, mas não acho dentro do componente onde pôr esses parâmetros. Como tenho que fazer? Obrigada

Gostaria de saber como eu faço para carregar a NFe direto do site do governo, para o componente do ACBrNFe utilizando a chave do danfe.

Para homologar o boleto no Padrão FEBRABAN/CNAB SIGCB 240 Posições versão SETEMBRO/2007, carteira RG, tive que fazer algumas mudanças e gostaria de divulgar. Att. ACBrCaixaEconomica.pas

Alteração feita para carteira 102 - Santander. ACBrBancoSantander.pas

Inclui a carteira 102 no Layout de Cobrança do Banco Santader.... as alterações são feitas em 2 funções: function TACBrBancoSantander.MontarCampoNossoNumero ( const ACBrTitulo: TACBrTitulo ) : String; begin with ACBrTitulo do begin case StrToInt(Carteira) of 5: Carteira := '101'; 6: Carteira := '201'; 4: Carteira := '102'; end; end; Result:= padR(ACBrTitulo.NossoNumero,12,'0')+ ' '+ CalcularDigitoVerificador(ACBrTitulo); end; ------------------- function TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo): String; var DigitoNossoNumero, Ocorrencia,aEspecie, Protesto, aAgencia, TipoSacado: String; TipoBoleto: Char; MensagemCedente: String; I: Integer; aCarteira: Integer; begin aCarteira := StrToInt(ACBrTitulo.Carteira ); if aCarteira = 101 then aCarteira:= 5 else if aCarteira = 201 then aCarteira:= 6 else if aCarteira = 102 then aCarteira:= 4; if aCarteira = 5 then aAgencia := padR(ACBrTitulo.ACBrBoleto.Cedente.Agencia + ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0') else aAgencia:= '00000'; [...Continua...]