DABPe - Erro no preenchimento dos dados da agencia emitente

[prismars]

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

[Italo Giurizzato Junior]

Bom dia Moacir,

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