Ir para conteúdo
  • Cadastre-se

dev botao

Acesso a "OrdemPagamento" no TACBrTEFDRespostasPendentes


tdpsistemas
Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 1122 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

×
×
  • 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.