nildglan

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;

Pessoal estou precisando gerar boleto do tipo carnê no ACBrBoletoFCFR e estou querendo utilizar esse arquivo BoletoCarne.fr3 pra ver se consigo colocar da forma que quero mais ta dando um erro "the following erros(s) have occured invalid file format" informa que o tipo de arquivo é inválido, ja tentei abrir ele pelo fasta mesmo mais da a mesma coisa, alguém tem algo desse tipo que ta configurado que possa me mandar?

Tentei instalar o pacote ACBr_BoletoFC_Fortes e também da erro e porque no delphi xe7 ja vem nativo o Fast Report 5 não to conseguindo instalar nem um boleto

Juliana é que to migrando do delphi 7 e delphi xe7 por isso que quero usar esse ACBr_BoletoFC_Quick Juliomar vc está se referindo ao componente do QuickReport sem ter vinculo com acbr não é? vc quer dizer que pode ter outros componentes QuickReport para delphi xe7 é? eu instalei o QuickReport5.0.6

o nome do pacote é o ACBr_BoletoFC_Quick e eu ja tentei pelo ACBrinstall e da erro também

Pessoal tem o quickreport intalado no delphi xe7 e estou tentando instalar o boleto do acbr no delphi xe7 e está dando o seguinte erro Unable to load projec c:\Programas files\embarcadeiro\studio....\ACBR_BoletoFC_Quick.dproj error in module : REQUIRES clauses in is incorret ja atualizei a pasta do acbr mais da o mesmo erro. alguém ja instalou?

jericsson eu fiz o meu Dimob sem o acbr, vc ja fez o sped se vc fez podemos fazer uma parceria

vc ja fez o DIMOB eu fiz novato, se for o caso agente troca esses fontes

cara estou com o mesmo proplema a imobiliária que trabalho tem que exportar o sped, vc poderia me mandar um exemplo cara de como vc fez um pequeno fonte com as base ja era o suficiente

Isaque onde encontro essas guias? esse link http://www.projetoac.../forum/37-acbr/ vai para a página anterior onde tem várias categorias em qual dela está?