Pesquisar na Comunidade
Showing results for tags 'dapbe'.
Encontrado 1 registro
-
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
