Ir para conteúdo
  • Cadastre-se

dev botao

DABPe - Erro no preenchimento dos dados da agencia emitente


prismars
  • Este tópico foi criado há 2067 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Tarde senhores,

Ao analisar o arquivo ACBrBPeDABPeESCPOS.pas verifiquei se os dados da Agência estão sendo preenchidos sempre com os dados do emitente.

Procedi com a alteração abaixo para que na falta de informação da agencia seja usado os dados do emitente.

procedure TACBrBPeDABPeESCPOS.GerarCabecalhoAgencia;
begin
  FPosPrinter.Buffer.Add('</zera></ce></logo>');

  if trim(FpBPe.agencia.xNome)<>'' then
  begin
    FPosPrinter.Buffer.Add('</ce><c>'+ FormatarCNPJ(FpBPe.agencia.CNPJ) + ' <n>' + FpBPe.agencia.xNome + '</n>');

    FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Trim(FpBPe.agencia.EnderAgencia.xLgr) + ', ' +
      Trim(FpBPe.agencia.EnderAgencia.nro) + '  ' +
      Trim(FpBPe.agencia.EnderAgencia.xCpl) + '  ' +
      Trim(FpBPe.agencia.EnderAgencia.xBairro) +  ' ' +
      Trim(FpBPe.agencia.EnderAgencia.xMun) + '-' + Trim(FpBPe.agencia.EnderAgencia.UF)
      , FPosPrinter.ColunasFonteCondensada)
    );
  end
  else
  begin
    FPosPrinter.Buffer.Add('</ce><c>'+ FormatarCNPJ(FpBPe.Emit.CNPJ) + ' <n>' + FpBPe.Emit.xNome + '</n>');

    FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Trim(FpBPe.Emit.EnderEmit.xLgr) + ', ' +
      Trim(FpBPe.Emit.EnderEmit.nro) + '  ' +
      Trim(FpBPe.Emit.EnderEmit.xCpl) + '  ' +
      Trim(FpBPe.Emit.EnderEmit.xBairro) +  ' ' +
      Trim(FpBPe.Emit.EnderEmit.xMun) + '-' + Trim(FpBPe.Emit.EnderEmit.UF)
      , FPosPrinter.ColunasFonteCondensada)
    );
  end;
end;
 

Testei e passou a preencher da maneira correta.

 

Abraço,

Moacir

 

ACBrBPeDABPeESCPOS.pas

  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Moacir,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2067 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.