Bom dia pessoal
estou implementando no menu fiscal o meios de pagamento com o componente do ACBr ACBrECF.PafMF_RelMeiosPagamento.
estou passando como parametro a lista de meios de pagamento com seus respectivos dados
procedure TKorpECFACBr.MeiosPagamento(P1, P2: String);
var
Gerenciador : TObjectManager;
FormasPagamento: TACBrECFFormasPagamento;
ListaCaixa : TObjectList<TPdvCaixa>;
i : integer;
caixa : TPdvCaixa;
totalizadorPgto : TPdvCaixaTotalizadorPagamento;
DtInicial, DtFinal : TDateTime;
begin
inherited;
DtInicial := FFuncoesPAF.CodificaDataConsultaSQLLite(StrToDateTime(P1), false);
DtFinal := FFuncoesPAF.CodificaDataConsultaSQLLite(StrToDateTime(P2), True);
Gerenciador := TObjectManager.Create(TGerenciadorConexao.getinstancia.Connection);
FormasPagamento := TACBrECFFormasPagamento.Create;
ListaCaixa := Gerenciador.Find<TPdvCaixa>
.CreateAlias('IdPdvIdentificaPafEcf', 'ECF')
.Add(TExpression.GreaterOrEqual('DtHrAbertura', DtInicial))
.Add(TExpression.LessOrEqual('DtHrAbertura', DtFinal))
.List;
try
for caixa in ListaCaixa do
begin
for totalizadorPgto in caixa.PdvCaixaTotalizadorPagamentoList do
begin
with FormasPagamento.New do
begin
Descricao := totalizadorPgto.IdPdvIdentPafEcfFormaPgto.Descri;
Data := caixa.DtHrAbertura;
Total := totalizadorPgto.ValorAcumulado;
TipoDoc := 'CUPOM FISCAL';
end;
end;
end;
FInstancia.ACBrECF.PafMF_RelMeiosPagamento(FormasPagamento, 'PERÍODO DE ' + P1 + ' À ' + P2, 0);
finally
FreeAndNil(FormasPagamento);
end;
end;
Só que na hora da impressão ele imprimi os valores zerados. alguém pode me ajudar?