FabioMachado

Agora eu estou um pouco preocupado que depois dessa implementação eu emiti uns boletos para uns clientes e esses boletos foram pagos na segunda-feira e até agora eu não consegui visualiza-los na conta e nem no arquivo de retorno que o banco envia.

Eu acabei fazendo desta forma: LocalPagamento := dados.CDS_config_boletosLOCAIS_DE_PAGAMENTO.Value; Vencimento := dados.CDS_receberDATA_VCT.AsDateTime; DataDocumento := dados.CDS_receberDATA_EMI.AsDateTime; NumeroDocumento := dados.CDS_receberCOD_RECEBER.AsString; EspecieDoc := 'DM'; if dados.CDS_bancosACEITE.Value='N' then Aceite := atNao else Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(dados.CDS_receberCOD_RECEBER.Value,8); Carteira := dados.CDS_bancosCARTEIRA.Value; ValorDocumento := dados.CDS_receberVAL_A_RECEBER.AsCurrency; DataMoraJuros := dados.CDS_receberDATA_VCT.AsDateTime; ValorMoraJuros := dados.CDS_receberJUROS_DIA.Value; Juros:=formatfloat('#,##0.00',dados.CDS_receberJUROS_DIA.Value); PercentualMulta := dados.CDS_receberMULTA.Value; multa:=formatfloat('#,##0.00',dados.CDS_receberMULTA.Value); Sacado.NomeSacado := dados.CDS_clientesRAZAO.Value; if dados.CDS_clientesFIS_JUR.Value='F' then Sacado.CNPJCPF := dados.CDS_clientesCPF.AsString else Sacado.CNPJCPF := dados.CDS_clientesCNPJ.AsString; Sacado.Logradouro := dados.CDS_clientesENDERECO.Value; Sacado.Numero := dados.CDS_clientesNUMERO.Value; Sacado.Bairro := dados.CDS_clientesBAIRRO.Value; Sacado.Cidade := dados.CDS_clientesCIDADE.Value; Sacado.UF := dados.CDS_clientesESTADO.Value; Sacado.CEP := dados.CDS_clientesCEP.Value; ValorAbatimento := dados.CDS_receberVALOR_DESCONTO.Value; DataAbatimento := dados.CDS_receberDATA_DESCONTO.AsDateTime; Mensagem.Add('Após o venc. cobrar juros de R$ '+juros+' ao dia'+' e multa de R$ '+multa); if (Trim(dados.CDS_receberDATA_DESCONTO.AsString)<>EmptyStr) and (Trim(dados.CDS_receberVALOR_DESCONTO.AsString)<>EmptyStr) then// or (dados.CDS_receberVALOR_DESCONTO.Value>0 and Trim(dados.CDS_receberDATA_DESCONTO.AsString)) then Mensagem.Add('Conceder desconto de R$ '+formatfloat('#,##0.00',dados.CDS_receberVALOR_DESCONTO.Value)+' até '+datetostr(dados.CDS_receberDATA_DESCONTO.AsDateTime)); Mensagem.Add(dados.CDS_config_boletosINSTRUCOES_L1.Value); Mensagem.Add(dados.CDS_config_boletosINSTRUCOES_L2.Value); Mensagem.Add(dados.CDS_config_boletosINSTRUCOES_L3.Value);

Galera qual a versão do Fortes Report vcs estão usando. o meu aqui que é o 3.7 B ta dando uma mensagem de que a versão não é a correta.

Boa tarde Juliana, só agora estou retomando o desenvolvimento dos boletos bancários e vi sua resposta. Essa semana fiz uns teste com referencia a sua informação e o funcionamento da emissão, aceitação pelo banco, e o credito na conta foi realizada com sucesso. porém reparei que as informações das instruções, juros e multa não foram impressos no boleto será que estou fazendo algo errado? segue o código: Titulo:= ACBrBoleto1.CriarTituloNaLista; with Titulo do begin LocalPagamento := dados.CDS_config_boletosLOCAIS_DE_PAGAMENTO.Value; Vencimento := dados.CDS_receberDATA_VCT.AsDateTime; DataDocumento := dados.CDS_receberDATA_EMI.AsDateTime; NumeroDocumento := dados.CDS_receberCOD_RECEBER.AsString; EspecieDoc := 'DM'; if dados.CDS_bancosACEITE.Value='N' then Aceite := atNao else Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(dados.CDS_receberCOD_RECEBER.Value,8); Carteira := dados.CDS_bancosCARTEIRA.Value; ValorDocumento := dados.CDS_receberVAL_A_RECEBER.AsCurrency; DataMoraJuros := dados.CDS_receberDATA_VCT.AsDateTime; ValorMoraJuros := dados.CDS_receberJUROS_DIA.Value; PercentualMulta := dados.CDS_receberMULTA.Value; Sacado.NomeSacado := dados.CDS_clientesRAZAO.Value; if dados.CDS_clientesFIS_JUR.Value='F' then Sacado.CNPJCPF := dados.CDS_clientesCPF.AsString else Sacado.CNPJCPF := dados.CDS_clientesCNPJ.AsString; Sacado.Logradouro := dados.CDS_clientesENDERECO.Value; Sacado.Numero := dados.CDS_clientesNUMERO.Value; Sacado.Bairro := dados.CDS_clientesBAIRRO.Value; Sacado.Cidade := dados.CDS_clientesCIDADE.Value; Sacado.UF := dados.CDS_clientesESTADO.Value; Sacado.CEP := dados.CDS_clientesCEP.Value; ValorAbatimento := 0; DataAbatimento := 0; Instrucao1 := dados.CDS_config_boletosINSTRUCOES_L1.Value; Instrucao2 := dados.CDS_config_boletosINSTRUCOES_L2.Value; end;

A um mês ou dois atras quando estava tentando fazer o Boleto do itau funcionar, testei o FortesReport e em umas das verificação a Fatura aparece normalmente depois disso não testei mais pq não consegui descobrir qual a versão correta do FortesReport era pra ser usada ai fica dando uma mensagem de erro.

Bom dia, estou tentando utilizar o ACBr Boleto para emitir boletos do Itaú, porem quando tento enviar o arquivo remessa da sempre o mesmo erro tamanho do registro 2 invalido. E tambem qual seria a versão correta do Fortes Report para utilizar o ACBr Boleto?