nildglan

eu to entrando em contato com o gerente da caixa, e mandei pra homologar e estou esperando a resposa ele faou que é 6 dias

no meu caso carteira sem registro cobrança simples, me fala uma coisa para caixa precisa ter número do convênio?

Cardilo mais como eu ir colocar dessa forma no procedimento do envia boleto do acbr?

como resolveu mateuspenha?

Joao eu também preciso homogar os meus na caixa também, vc poderia me passar tudo que eles te pediram para eu também providenciar? esse digito vc tem que calcular? meu e-mail é esse [email protected]

Pessoal para enviar o boleto por email eu coloco o meu e-mail de boa e envia, agora para enviar com cópia como é Tstring não passa porque o email é string como faço essa conversão dentro desse procedimento do boleto?

pessoal acho que resolvir era o clientDataSet que tinha do DataModulo do boleto no xe7 eu declarei MidasLib na uses do projeto e resolveu

Juliana é que em nenhum dos post tem resposta, e eu tava em post de um colega a muito tem esse post foi criado

Pessoal estou implantando um boleto da caixa de cara gostaria de sabe se os padrão do boleto ja está atualizado com padrão da caixa SIGCB ? outra existe alguma forma de enviar a remessa para caixa e pegar o retorno de volta, porque um dos cara da caixa me falo que a propria aplicação enviar e receber o arquivo, isso é possível pessoal? porque sem registro não tem como entrar no gerenciador e da baixa manual. gostaria de saber se é possivel?

pessoal eu peguei um boleto formatado de uma amigo e não deu erro na debugação na minha máquina ai fui levar ao cliente e deu erro de violação de memória e descobrir que foi nessas classes aqui do acbr ACBrNFeDANFEClass ou ACBrBoletoFCFR, porque fui removendo para teste e passou, agora aonde mora o problema porque e como resolver

pessoal eu peguei um boleto formatado de uma amigo e não deu erro na debugação na minha máquina ai fui levar ao cliente e deu erro de violação de memória e descobrir que foi nessas classes aqui do acbr ACBrNFeDANFEClass ou ACBrBoletoFCFR, porque fui removendo para teste e passou, agora aonde mora o problema porque e como resolver

pessoal eu peguei um boleto formatado de uma amigo e não deu erro na debugação na minha máquina ai fui levar ao cliente e deu erro de violação de memória e descobrir que foi nessas classes aqui do acbr ACBrNFeDANFEClass ou ACBrBoletoFCFR, porque fui removendo para teste e passou, agora aonde mora o problema porque e como resolver

pessoal eu peguei um boleto formatado de uma amigo e não deu erro na debugação na minha máquina ai fui levar ao cliente e deu erro de violação de memória e descobrir que foi nessas classes aqui do acbr ACBrNFeDANFEClass ou ACBrBoletoFCFR, porque fui removendo para teste e passou, agora aonde mora o problema porque e como resolver

alguém pode me ajudar?

alguém pode me ajudar?

alguém pode me ajudar?

esse mesmo erro está acontecendo com o Boleto do fast e ja atulizei e nada alguém passou por isso no boleto?

eu coloquei a carteira 'SR' e passou agora estou com seguinte problema no boleto do acbr com fastReport sempre que executo com o delphi na hora de gerar os boletos aparece essa mensagem 'Could not convert variant of type (String) into type (Double)'. uso ACBrBoletoFCFR estou usando esse arquivo BoletoCarne.fr3 e descobrir que o erro está nessa linha Código: if PrepareBoletos(DmBoleto) then begin Result := DmBoleto.frxReport.PrepareReport; end; exatamente nessa Código: Result := DmBoleto.frxReport.PrepareReport; alguém ja passou por isso?

cara esse problema alguem resolver com o boleto fastreport? até o exemplo ta com o mesmo erro alguém ai resolveu esse problema?

resolvir era porque tinha um try e ele oculta

To fazendo no meu projeto o módulo de enviar NFe baseado no exemplo do ACBr e está enviando e recebendo, só que meu certificado não é habilitado a emitir a nfe aparece a raise ou seja Exception informando que não etá habilitado, blz tudo certinho só que isso aparece no exemplo do acbr e no meu projeto envia e recebe só que não está emitindo a Exception informando a mesma coisa, fica oculto o erro, gostaria de saber porque? porque o certo é aparecer pra poder o usuário ver caso apareça ourto erro quem já passou por isso?

Could not convert variant of type (String) into type (Double) eu sei que é algum problema de formato double para string mais eu não to passando nenhum valor do tipo errado

sim está atualizado, ja compilei comentarizei linhas mais nada da solução veja meu código var Titulo : TACBrTitulo; I : Integer; NrTitulos : Integer; NrTitulosStr :String; Convertido: Boolean; sLocalPgto:string; begin if DMRelatorio1.dtBoleto.RecordCount = 0 then begin ShowMessage('Não existe boletos a ser mostrados!!!'); exit; end; DMRelatorio1.dtBoleto.Last; NrTitulos := DMRelatorio1.dtBoleto.RecordCount; NrTitulosStr := IntToStr(NrTitulos); Convertido := true; if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Padrao' then ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Carne' then ACBrBoleto1.ACBrBoletoFC.LayOut := lCarne else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Fatura' then ACBrBoleto1.ACBrBoletoFC.LayOut := lFatura else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='PadraoEntrega' then ACBrBoleto1.ACBrBoletoFC.LayOut := lPadraoEntrega; if dm.dtConfigBoletoBANCO.AsString='Banco do Brasil' then ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoBrasil else if dm.dtConfigBoletoBANCO.AsString='Bradesco' then ACBrBoleto1.Banco.TipoCobranca:= cobBradesco else if dm.dtConfigBoletoBANCO.AsString='Caixa' then ACBrBoleto1.Banco.TipoCobranca:= cobCaixaEconomica else if dm.dtConfigBoletoBANCO.AsString='Banco do Nodeste' then ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoNordeste else if dm.dtConfigBoletoBANCO.AsString='Banco HSBC' then ACBrBoleto1.Banco.TipoCobranca:= cobHSBC else if dm.dtConfigBoletoBANCO.AsString='Banco Itaú' then ACBrBoleto1.Banco.TipoCobranca:= cobItau else if dm.dtConfigBoletoBANCO.AsString='Banco Santander' then ACBrBoleto1.Banco.TipoCobranca:= cobSantander; sLocalPgto := dm.dtConfigBoletoBANCO.AsString; if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Caucionada' then ACBrBoleto1.Cedente.CaracTitulo:= tcCaucionada else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Descontada' then ACBrBoleto1.Cedente.CaracTitulo:= tcDescontada else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Simples' then ACBrBoleto1.Cedente.CaracTitulo:= tcSimples else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Vendor' then ACBrBoleto1.Cedente.CaracTitulo:= tcVendor else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Vinculada' then ACBrBoleto1.Cedente.CaracTitulo:= tcVinculada; if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Emite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoEmite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco não Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoNaoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Cliente' then ACBrBoleto1.Cedente.ResponEmissao:= tbCliEmite; ACBrBoleto1.Cedente.Nome:= dm.dtConfigBoletoNOME_EMPRESA.AsString; ACBrBoleto1.Cedente.Agencia:= dm.dtConfigBoletoEMPRESA_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito:= dm.dtConfigBoletoEMPRESA_AGENCIA_DIGITO.AsString; ACBrBoleto1.Cedente.Bairro:= dm.dtConfigBoletoAGENCIA_BAIRRO.AsString; ACBrBoleto1.Cedente.CEP:=dm.dtConfigBoletoEMPRESA_CEP.AsString; ACBrBoleto1.Cedente.Cidade:=dm.dtConfigBoletoEMPRESA_CIDADE.AsString; ACBrBoleto1.Cedente.CNPJCPF:=dm.dtConfigBoletoEMPRESA_CNPJ.AsString; ACBrBoleto1.Cedente.CodigoCedente:=dm.dtConfigBoletoEMPRESA_CODIGO_SEDENTE.AsString; ACBrBoleto1.Cedente.CodigoTransmissao:=dm.dtConfigBoletoEMPRESA_CODIGO_TRANSMISSAO.AsString; ACBrBoleto1.Cedente.Complemento:=dm.dtConfigBoletoEMPRESA_COMPLEMENTO.AsString; ACBrBoleto1.Cedente.Conta:=dm.dtConfigBoletoEMPRESA_CONTA.AsString; ACBrBoleto1.Cedente.ContaDigito:=dm.dtConfigBoletoEMPRESA_CONTA_DIGITO.AsString; ACBrBoleto1.Cedente.Convenio:=dm.dtConfigBoletoEMPRESA_CONVENIO.AsString; ACBrBoleto1.Cedente.Logradouro:=dm.dtConfigBoletoEMPRESA_LOGRADORO.AsString; ACBrBoleto1.Cedente.Modalidade:=''; //tipo carteira if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Emite' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoEmite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco não Reemite' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoNaoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Cliente' then ACBrBoleto1.Cedente.ResponEmissao:= tbCliEmite ; //Tipo inscricao if dm.dtConfigBoletoEMPRESA_TIPO_INSCRICAO.AsString='Jurídica' then ACBrBoleto1.Cedente.TipoInscricao:= pJuridica else if dm.dtConfigBoletoEMPRESA_TIPO_INSCRICAO.AsString='Física' then ACBrBoleto1.Cedente.TipoInscricao:= pFisica ; ACBrBoleto1.Cedente.UF:= dm.dtConfigBoletoEMPRESA_UF.AsString ; DMRelatorio1.dtBoleto.First; for I := 1 to NrTitulos do begin Titulo:= ACBrBoleto1.CriarTituloNaLista; with Titulo do begin LocalPagamento := 'Pagar preferêncialmente nas agências do ' + sLocalPgto; //MEnsagem exigida pelo bradesco if DMRelatorio1.dtBoletoNEGOCIADA.AsString = 'S' then Vencimento := DMRelatorio1.dtBoletoNOVA_DT_VENCIMENTO.AsDateTime else Vencimento := DMRelatorio1.dtBoletoDT_VENCIMENTO.AsDateTime; DataDocumento := date; NumeroDocumento := IntToStr(DMRelatorio1.dtBoletoCODIGO.AsInteger); EspecieDoc := dm.dtConfigBoletoESPECIE_DOCTO.AsString; if dm.dtConfigBoletoACEITE.AsString='Sim' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; if ACBrBoleto1.Banco.TipoCobranca= cobCaixaEconomica then Carteira :='SR' //se for carteira sem registro else Carteira := dm.dtConfigBoletoCARTEIRA.AsString; // Nosso numero é composto pelo numero do convênio e o resto pode ser qualquer numero // para preencher de zero é só colocar no display formate do cliente dataset NossoNumero := IntToStr(DMRelatorio1.dtBoletoCODIGO.AsInteger) ; ValorDocumento := DMRelatorio1.dtBoletoVALOR_DEBITO.AsFloat; ValorRecebido := DMRelatorio1.dtBoletoVALOR_DEBITO.AsFloat; TotalParcelas := DMRelatorio1.dtBoletoQUANTPARCELA.AsInteger; Parcela := DMRelatorio1.dtBoletoN_PARCELA.AsInteger; Sacado.NomeSacado := DMRelatorio1.dtBoletoNOME_CLIENTE.AsString; Sacado.CNPJCPF := DMRelatorio1.dtBoletoCPF_CLIENTE_FORMATADO.AsString; Sacado.Logradouro := DMRelatorio1.dtBoletoNOME_ENDERECO_CLIENTE.AsString; Sacado.Numero := DMRelatorio1.dtBoletoN_RESIDENCIA.AsString; Sacado.Bairro := DMRelatorio1.dtBoletoNOME_BAIRRO_CLIENTE.AsString; Sacado.Cidade := DMRelatorio1.dtBoletoNOME_CIDADE_CLIENTE.AsString; Sacado.UF := DMRelatorio1.dtBoletoNOME_UFS_CLIENTE.AsString; Sacado.CEP := DMRelatorio1.dtBoletoCEP_CLIENTE.AsString; ValorMoraJuros := DMRelatorio1.dtBoletoJUROSDIA.AsFloat; ValorDesconto := dm.dtConfigBoletoVALOR_DESCONTO.AsFloat; ValorAbatimento := dm.dtConfigBoletoVALOR_ABATIMENTO.AsFloat; DataMoraJuros := dm.dtConfigBoletoDATA_MULTA_MORA_JUROS.AsDateTime; DataDesconto := dm.dtConfigBoletoDATA_DESCONTO.AsDateTime; DataAbatimento := dm.dtConfigBoletoDATA_ABATIMENTO.AsDateTime; DataProtesto := dm.dtConfigBoletoDATA_PROTESTO.AsDateTime; // o campo de mensagem da multa deve ser alterar no fonte para ficar assim // if PercentualMulta <> 0 then // AStringList.Add(ACBrStr('Cobrar Multa de ' + // FormatCurr('R$ #,##0.00', PercentualMulta) + // ' após o vencimento.')); PercentualMulta := dm.dtConfigBoletoMULTA_SIOSFTWARE.AsFloat; Mensagem.Text := 'LOCALIZAÇÃO: '+DMRelatorio1.dtBoletoNOME_LOTEAMENTO.AsString+' - '+DMRelatorio1.dtBoletoNOME_QUADRA.AsString+' - '+DMRelatorio1.dtBoletoNOME_LOTE.AsString +#13 + '' + #13 + 'Data de Vencimento base: ' + DateToStr(DMRelatorio1.dtBoletoDT_VENCIMENTO.AsDateTime) ; Instrucao1 := padL(trim(dm.dtConfigBoletoINSTRUCAO_1.AsString),2,'0'); Instrucao2 := padL(trim(dm.dtConfigBoletoINSTRUCAO_2.AsString),2,'0'); OcorrenciaOriginal.Tipo := toRemessaBaixar; ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; DMRelatorio1.dtBoleto.Next; end;

pessoal estou com esse mesmo problema aqui esse erro o corre quando uso os arquivos Boleto.fr3 e BoletoCarne.fr3 mas quando o corre o erro eu clico em continuar e os boletos aparecem certinho, eu não queria mudaer para Fort Report alguém sabe como resolver?

Pessoal eu estou tentando configura o ACBrBoleto para trabalhar com boletos da caixa econômica e estou tendo uma difculdade e gostaria de uma ajuda a carteira do meu cliente é simples não registrada e a responsabilidade da emissão é do cliente então estou tentando configurar e está dando erro Carteira inválida use RG ou SR e queria uma explicação sobre como funciona. Sei que pelo caixa tem dos tipo que é cobCaixaEconomica e cobCaixaSicob mais acredito de como é carteira sem registro posso utilizar cobCaixaEconomica então configurei dessa forma e passei todos os dados mais ta dando esse erro ai vou postar o código para vcs da uma olhada var Titulo : TACBrTitulo; I : Integer; NrTitulos : Integer; NrTitulosStr :String; Convertido: Boolean; sLocalPgto:string; begin if DMRelatorio1.dtBoleto.RecordCount = 0 then begin ShowMessage('Não existe boletos a ser mostrados!!!'); exit; end; DMRelatorio1.dtBoleto.Last; NrTitulos := DMRelatorio1.dtBoleto.RecordCount; NrTitulosStr := IntToStr(NrTitulos); Convertido := true; if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Padrao' then ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Carne' then ACBrBoleto1.ACBrBoletoFC.LayOut := lCarne else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='Fatura' then ACBrBoleto1.ACBrBoletoFC.LayOut := lFatura else if dm.dtConfigBoletoLOYOUT_BOLETO.AsString='PadraoEntrega' then ACBrBoleto1.ACBrBoletoFC.LayOut := lPadraoEntrega; if dm.dtConfigBoletoBANCO.AsString='Banco do Brasil' then ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoBrasil else if dm.dtConfigBoletoBANCO.AsString='Bradesco' then ACBrBoleto1.Banco.TipoCobranca:= cobBradesco else if dm.dtConfigBoletoBANCO.AsString='Caixa' then ACBrBoleto1.Banco.TipoCobranca:= cobCaixaEconomica else if dm.dtConfigBoletoBANCO.AsString='Banco do Nodeste' then ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoNordeste else if dm.dtConfigBoletoBANCO.AsString='Banco HSBC' then ACBrBoleto1.Banco.TipoCobranca:= cobHSBC else if dm.dtConfigBoletoBANCO.AsString='Banco Itaú' then ACBrBoleto1.Banco.TipoCobranca:= cobItau else if dm.dtConfigBoletoBANCO.AsString='Banco Santander' then ACBrBoleto1.Banco.TipoCobranca:= cobSantander; sLocalPgto := dm.dtConfigBoletoBANCO.AsString; ACBrBoleto1.Cedente.Nome:= dm.dtConfigBoletoNOME_EMPRESA.AsString; ACBrBoleto1.Cedente.Agencia:= dm.dtConfigBoletoEMPRESA_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito:= dm.dtConfigBoletoEMPRESA_AGENCIA_DIGITO.AsString; ACBrBoleto1.Cedente.Bairro:= dm.dtConfigBoletoAGENCIA_BAIRRO.AsString; if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Caucionada' then ACBrBoleto1.Cedente.CaracTitulo:= tcCaucionada else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Descontada' then ACBrBoleto1.Cedente.CaracTitulo:= tcDescontada else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Simples' then ACBrBoleto1.Cedente.CaracTitulo:= tcSimples else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Vendor' then ACBrBoleto1.Cedente.CaracTitulo:= tcVendor else if dm.dtConfigBoletoEMPRESA_CARAC_TITULO.AsString='Vinculada' then ACBrBoleto1.Cedente.CaracTitulo:= tcVinculada; if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Emite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoEmite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco não Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoNaoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Cliente' then ACBrBoleto1.Cedente.ResponEmissao:= tbCliEmite; ACBrBoleto1.Cedente.CEP:=dm.dtConfigBoletoEMPRESA_CEP.AsString; ACBrBoleto1.Cedente.Cidade:=dm.dtConfigBoletoEMPRESA_CIDADE.AsString; ACBrBoleto1.Cedente.CNPJCPF:=dm.dtConfigBoletoEMPRESA_CNPJ.AsString; ACBrBoleto1.Cedente.CodigoCedente:=dm.dtConfigBoletoEMPRESA_CODIGO_SEDENTE.AsString; ACBrBoleto1.Cedente.CodigoTransmissao:=dm.dtConfigBoletoEMPRESA_CODIGO_TRANSMISSAO.AsString; ACBrBoleto1.Cedente.Complemento:=dm.dtConfigBoletoEMPRESA_COMPLEMENTO.AsString; ACBrBoleto1.Cedente.Conta:=dm.dtConfigBoletoEMPRESA_CONTA.AsString; ACBrBoleto1.Cedente.ContaDigito:=dm.dtConfigBoletoEMPRESA_CONTA_DIGITO.AsString; ACBrBoleto1.Cedente.Convenio:=dm.dtConfigBoletoEMPRESA_CONVENIO.AsString; ACBrBoleto1.Cedente.Logradouro:=dm.dtConfigBoletoEMPRESA_LOGRADORO.AsString; ACBrBoleto1.Cedente.Modalidade:=''; //tipo carteira if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Emite' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoEmite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco não Reemite' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoNaoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Banco Reemite' then ACBrBoleto1.Cedente.ResponEmissao:= tbBancoReemite else if dm.dtConfigBoletoEMPRESA_RESPONS_EMISSAO.AsString='Cliente' then ACBrBoleto1.Cedente.ResponEmissao:= tbCliEmite ; //Tipo inscricao if dm.dtConfigBoletoEMPRESA_TIPO_INSCRICAO.AsString='Jurídica' then ACBrBoleto1.Cedente.TipoInscricao:= pJuridica else if dm.dtConfigBoletoEMPRESA_TIPO_INSCRICAO.AsString='Física' then ACBrBoleto1.Cedente.TipoInscricao:= pFisica ; ACBrBoleto1.Cedente.UF:= dm.dtConfigBoletoEMPRESA_UF.AsString ; DMRelatorio1.dtBoleto.First; for I := 1 to NrTitulos do begin Titulo:= ACBrBoleto1.CriarTituloNaLista; with Titulo do begin LocalPagamento := 'Pagar preferêncialmente nas agências do ' + sLocalPgto; //MEnsagem exigida pelo bradesco if DMRelatorio1.dtBoletoNEGOCIADA.AsString = 'S' then Vencimento := DMRelatorio1.dtBoletoNOVA_DT_VENCIMENTO.AsDateTime else Vencimento := DMRelatorio1.dtBoletoDT_VENCIMENTO.AsDateTime; DataDocumento := date; NumeroDocumento := IntToStr(DMRelatorio1.dtBoletoCODIGO.AsInteger); EspecieDoc := dm.dtConfigBoletoESPECIE_DOCTO.AsString; if dm.dtConfigBoletoACEITE.AsString='Sim' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := dm.dtConfigBoletoCARTEIRA.AsString; // Nosso numero é composto pelo numero do convênio e o resto pode ser qualquer numero // para preencher de zero é só colocar no display formate do cliente dataset NossoNumero := IntToStr(DMRelatorio1.dtBoletoCODIGO.AsInteger) ; ValorDocumento := DMRelatorio1.dtBoletoVALOR_DEBITO.AsFloat; ValorRecebido := DMRelatorio1.dtBoletoVALOR_DEBITO.AsFloat; TotalParcelas := DMRelatorio1.dtBoletoQUANTPARCELA.AsInteger; Parcela := DMRelatorio1.dtBoletoN_PARCELA.AsInteger; Sacado.NomeSacado := DMRelatorio1.dtBoletoNOME_CLIENTE.AsString; Sacado.CNPJCPF := DMRelatorio1.dtBoletoCPF_CLIENTE.AsString; Sacado.Logradouro := DMRelatorio1.dtBoletoNOME_ENDERECO_CLIENTE.AsString; Sacado.Numero := DMRelatorio1.dtBoletoN_RESIDENCIA.AsString; Sacado.Bairro := DMRelatorio1.dtBoletoNOME_BAIRRO_CLIENTE.AsString; Sacado.Cidade := DMRelatorio1.dtBoletoNOME_CIDADE_CLIENTE.AsString; Sacado.UF := DMRelatorio1.dtBoletoNOME_UFS_CLIENTE.AsString; Sacado.CEP := DMRelatorio1.dtBoletoCEP_CLIENTE.AsString; ValorMoraJuros := DMRelatorio1.dtBoletoJUROSDIA.AsFloat; ValorDesconto := dm.dtConfigBoletoVALOR_DESCONTO.AsFloat; ValorAbatimento := dm.dtConfigBoletoVALOR_ABATIMENTO.AsFloat; DataMoraJuros := dm.dtConfigBoletoDATA_MULTA_MORA_JUROS.AsFloat; DataDesconto := dm.dtConfigBoletoDATA_DESCONTO.AsFloat; DataAbatimento := dm.dtConfigBoletoDATA_ABATIMENTO.AsFloat; DataProtesto := dm.dtConfigBoletoDATA_PROTESTO.AsFloat; // o campo de mensagem da multa deve ser alterar no fonte para ficar assim // if PercentualMulta <> 0 then // AStringList.Add(ACBrStr('Cobrar Multa de ' + // FormatCurr('R$ #,##0.00', PercentualMulta) + // ' após o vencimento.')); PercentualMulta := dm.dtConfigBoletoMULTA_SIOSFTWARE.AsFloat; Mensagem.Text := 'LOCALIZAÇÃO: '+DMRelatorio1.dtBoletoNOME_LOTEAMENTO.AsString+' - '+DMRelatorio1.dtBoletoNOME_QUADRA.AsString+' - '+DMRelatorio1.dtBoletoNOME_LOTE.AsString +#13 + '' + #13 + 'Data de Vencimento base: ' + DateToStr(DMRelatorio1.dtBoletoDT_VENCIMENTO.AsDateTime) ; Instrucao1 := padL(trim(dm.dtConfigBoletoINSTRUCAO_1.AsString),2,'0'); Instrucao2 := padL(trim(dm.dtConfigBoletoINSTRUCAO_2.AsString),2,'0'); OcorrenciaOriginal.Tipo := toRemessaBaixar; ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; DMRelatorio1.dtBoleto.Next; end;