Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Boleto Fatura


Luiz Carlos de Lima
Go to solution Solved by Juliana Tamizou,
  • Este tópico foi criado há 1417 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde,

No modelo  BoletoFatura.Fr3 esta com problema na impressão da Conta Corrente(Código do Beneficiário) . Quando o aplicativo chama    ACBrBoleto.GerarPDF ou   ACBrBoleto.Imprimir, na primeira chamada da impressão é impresso errado   2218-7/000000080773-  , sem fechar o aplicativo chama novamente a impressão e então sai correto 2218-7/0080773-7.  

Uma outra dúvida, alguns clientes querem imprimir o código do convenio e não a conta corrente no Código do Beneficiário. No modelo Boleto.Fr3 consegui mas no BoletoFatura.Fr3 não deu certo.

Agradeço um ajuda.

Luiz Carlos

FERROGIL ALUMINIO INDUSTRIA E COM LTDA_46179_CE2.pdf

FERROGIL ALUMINIO INDUSTRIA E COM LTDA_46179 1.pdf

Link to comment
Share on other sites

  • Membros Pro
Citar

 

Já verifiquei, não encontrei uma resposta para o meu problema do porque uma primeira chamada retorna o Código cedente 000000080773- e na segunda retorna o correto 0080773-7 sendo que os parâmetros passados são os mesmos? Conta 0080773 Digito 7, no manual do bradesco que é o caso, a conta é com 7 caracteres e o digito com 1

Link to comment
Share on other sites

  • Consultores

Irei fazer alguns testes e retorno com maiores informações.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Membros Pro

Não sei se é a forma correta mas resolvi da seguinte forma:

na unit ACBrBancoBradesco

function TACBrBancoBradesco.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
   Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             PadLeft(RightStr(ACBrTitulo.ACBrBoleto.Cedente.Conta,7),7,'0')+'-'+     >  Alterei aqui
 //            ACBrTitulo.ACBrBoleto.Cedente.Conta +'-'+
             ACBrTitulo.ACBrBoleto.Cedente.ContaDigito;
end;
 

Link to comment
Share on other sites

  • Administradores

Bom dia.

Em seu código como você passa os dados de configuração do componente ACBrBoleto? Está antes de tudo setando o banco?

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

Bom dia Juliana, primeiro passo as configurações:

    ArquivoDeImpressao  := ExtractFilePath(Application.ExeName);

    ArquivoDeImpressao  := ArquivoDeImpressao + 'Modelo_Impressão\BoletoPadraoConta.fr3'
    vPatchPadrao := ExtractFilePath(Application.ExeName);

    vPatchPadrao :=  vPatchPadrao + 'Boletos\';
    if not DirectoryExists(vPatchPadrao) then
       CreateDir(vPatchPadrao);

    if not DirectoryExists(vPatchPadrao) then
       raise Exception.Create('Não foi possivel criar o diretório "' + vPatchPadrao + '"');

      ACBrBoletoFCFR.MostrarPreview   := False;
      ACBrBoletoFCFR.MostrarSetup     := False; // Imprimir na printer padrão.

Depois passo os títulos nesta ordem:

  NossoNumeroBanco := StrToIntDef(DMBACad.CDSConta_Banco.FieldByName('ProximoNumero_Conta_Banco').AsString, 0);

  ACBrBoleto.Cedente.Conta          := DMBACad.CDSConta_Banco.FieldByName('Conta_Conta_Banco').AsString;

  ACBrBoleto.Cedente.ContaDigito    := DMBACad.CDSConta_Banco.FieldByName('DigitoConta_Conta_Banco').AsString;
  ACBrBoleto.Cedente.Nome           := DMBACad.CDSConta_Banco.FieldByName('Cedente_Conta_Banco').AsString;
  ACBrBoleto.Cedente.Logradouro     := vLogradouroFilial;
  ACBrBoleto.Cedente.NumeroRes      := vNumeroFilial;
  ACBrBoleto.Cedente.Bairro         := vBairroFilial;
  ACBrBoleto.Cedente.Cidade         := vCidadeFilial;
  ACBrBoleto.Cedente.UF             := vUFFilial;
  ACBrBoleto.Cedente.CEP            := vCEPFilial;
  ACBrBoleto.Cedente.CNPJCPF        := DMBACad.CDSConta_Banco.FieldByName('NroInscricao_Conta_Banco').AsString;
  ACBrBoleto.Cedente.Agencia        := DMBACad.CDSConta_Banco.FieldByName('Agencia_Conta_Banco').AsString;
  ACBrBoleto.Cedente.AgenciaDigito  := DMBACad.CDSConta_Banco.FieldByName('DigitoAgencia_Conta_Banco').AsString;
  ACBrBoleto.Cedente.Convenio       := SomenteNumerico(DMBACad.CDSConta_Banco.FieldByName('Convenio_Conta_Banco').AsString);
  ACBrBoleto.Banco.TipoCobranca := cobNenhum;

   ACBrBoleto.Banco.TipoCobranca := cobBradesco;

with Titulo do

begin


    //Banco bradesco
      if DMBACad.CDSConta_Banco.FieldByName('Numero_Conta_Banco').AsString = '237' then
      begin
          EspecieDoc        := DMBACad.CDSConta_Banco.FieldByName('Especie_Conta_Banco').AsString;
          EspecieMod        := 'R$';
          Carteira          := DMBACad.CDSConta_Banco.FieldByName('Carteira_Conta_Banco').AsString;
          Aceite := atNao;
          if Tag = 1 then
             NossoNumero  := IntToStr(NossoNumeroBanco)
          else
             NossoNumero  := CDSTitulos.FieldByName('NroBoleto_Titulo_Receber').AsString;

          Aceite := atSim;
          ACBrBoleto.Cedente.Modalidade  := '101';
      end;

      DataProcessamento := Now;

      NumeroDocumento   := Format('%s-%s', [Trim(CDSTitulos.FieldByName('Codigo_Titulo_Receber').AsString), Trim(CDSTitulos.FieldByName('Codigo_Serie_Receber').AsString)]);
      Vencimento        := CDSTitulos.FieldByName('DataVencto_Titulo_Receber').AsDateTime;
      DataDocumento     := CDSTitulos.FieldByName('DataEmissao_Titulo_Receber').AsDateTime;
      Sacado.NomeSacado := Format('%s - %s', [CDSTitulos.FieldByName('Codigo_Cliente_Receber').AsString, CDSTitulos.FieldByName('RazaoSocial_Cliente_Receber').AsString]);
      Sacado.CNPJCPF    := CDSTitulos.FieldByName('CNPJ_Cliente_Receber').AsString;
      Sacado.Logradouro := CDSTitulos.FieldByName('Endereco').AsString;
      Sacado.Numero     := CDSTitulos.FieldByName('Numero').AsString;
      Sacado.Bairro     := CDSTitulos.FieldByName('Bairro').AsString;
      Sacado.Cidade     := CDSTitulos.FieldByName('Nome_Cidade_Nucleo').AsString;
      Sacado.UF         := CDSTitulos.FieldByName('Codigo_Estado_Nucleo').AsString;
      Sacado.CEP        := CDSTitulos.FieldByName('CEP').AsString;
      LocalPagamento    := CDSTitulos.FieldByName('Nome_Cidade_Nucleo').AsString;
      ValorDocumento    := CDSTitulos.FieldByName('ValorTitulo').AsCurrency;
      ValorMoraJuros    := CDSTitulos.FieldByName('Juros_Titulo_Receber').AsCurrency;
      ValorDesconto     := CDSTitulos.FieldByName('Desconto_Titulo_Receber').AsCurrency;
      ValorAbatimento   := 0.0;

      titulo.TextoLivre := titulo.TextoLivre + vTextoLivre;

    end;

    ACBrBoletoFCFR.FastReportFile := ArquivoDeImpressao;
    ACBrBoleto.ACBrBoletoFC           := ACBrBoletoFCFR;
    ACBrBoletoFCFR.MostrarProgresso := False;
    vNomeArquivo := CDSTitulos.FieldByName('RazaoSocial_Cliente_Receber').AsString + '_' +
                    CDSTitulos.FieldByName('Codigo_Titulo_Receber').AsString + '_' +
                    CDSTitulos.FieldByName('Codigo_Serie_Receber').AsString + '.pdf';
    ACBrBoletoFCFR.NomeArquivo := vPatchPadrao + vNomeArquivo;

    ACBrBoleto.GerarPDF;
    ACBrBoleto.Imprimir;

 

 

Link to comment
Share on other sites

  • Administradores
  • Solution

Boa tarde.

4 horas atrás, Luiz Carlos de Lima disse:

ACBrBoleto.Banco.TipoCobranca := cobBradesco;

Esta deve ser a primeira configuração realizada no componente ACBrBoleto.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Administradores

Obrigado pelo retorno

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1417 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.