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á.