Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Acesso a "OrdemPagamento" no TACBrTEFDRespostasPendentes


Go to solution Solved by Daniel Simoes,

Recommended Posts

  • Usuários SAC

Boa tarde a todos!

   Efetuamos a atualização do ACBr, pois nosso SVN estava bem defasado, com a versão anterior que utilizavamos, no método ACBrTEFDNFDepoisConfirmarTransacoes, utilizamos o parâmetro RespostasPendentes[i].OrdemPagamento para obter a Ordem de Pagamento.
Conforme código abaixo.


procedure TFMovimentoCaixaBalcao.ACBrTEFDNFDepoisConfirmarTransacoes(
  RespostasPendentes: TACBrTEFDRespostasPendentes);
var
  I:Integer;
begin
VgOperadoraCel := '';
VgValorRecarga := 0;
for I := 0 to RespostasPendentes.Count-1  do
   begin
   with RespostasPendentes[I] do
      begin
      FVendaBalcao.VgConfirmado    := Header;
      FVendaBalcao.VgID            := IntToStr(ID);
      FVendaBalcao.VgRede          := Rede;
      FVendaBalcao.VgNsu           := NSU;
      FVendaBalcao.VgVlrTotal      := FormatFloat('###,###,##0.00',ValorTotal);
      FVendaBalcao.VgParcelas      := IntToStr(RespostasPendentes[i].QtdParcelas);
      FVendaBalcao.VgTipoTransacao := IntToStr(RespostasPendentes[i].TipoTransacao);
      FVendaBalcao.VgFormaPagto    := RespostasPendentes[i].ModalidadePagtoDescrita;
      if RespostasPendentes[i].OrdemPagamento <> 0 then
         FVendaBalcao.VgFormaPagto := VgFormaPagamentoSiTEF[RespostasPendentes[i].OrdemPagamento];
      if Trim(RespostasPendentes[i].CodigoRedeAutorizada) <> '' then
         FVendaBalcao.VgAdministradora := VgCodRedAutorizada[StrToInt(RespostasPendentes[i].CodigoRedeAutorizada)];
      FVendaBalcao.VgCampo11  := LeInformacao(11,0).AsString;
      VgValorRecarga := LeInformacao(591,0).AsFloat;
      VgOperadoraCel := LeInformacao(590,0).AsString;
      ACBrTEFDNF.LimparTeclado;
      ACBrTEFDNF.BloquearMouseTeclado(False);
      end;
   PAuxMensagemTEF_NF.Visible := False;
   end;
end;   


   Porém o a classe TACBrTEFDRespostasPendentes sofreu alteração em sua estrutura, e com isso não estamos conseguindo ter acesso a essa property pelo código informado acima. 

   Hoje só conseguimos ter acesso a esta propriedade se utilizarmos ACBRTEFD1.Resp.OrdemPagamento;

   Poderiam nos ajudar? Como devo proceder para adaptar o nosso código da forma correta, e ter acesso a property "OrdemPagamento"?


   Grato desde já.

 

Atenciosamente,

 

 Assinatura.png

Link to post
Share on other sites
×
×
  • Create New...