Meios De Pagamento Em Branco

[murilo_camargo]

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?

Editado 28 Fevereiro, 2013 por Rafael Dias
Arrumado a Tag Code

[murilo_camargo]

 

Essa é a imagem quando tento gerar o relatório.

[Juliomar Marchetti]

Confere o número de colunas do emulador e se está com o mesmo no ACBrECF

[murilo_camargo]

Então testei no emulador da Bematech e deu certo, agora não sei pq não deu no da sweda.

[Juliomar Marchetti]

as colunas, veja que no componente é setado essa informação e senão me engano é utilizado para criar o relatório impresso acima na ecf

tendo colunas a mais ele vai montar o txt diferente para exibir na tela ou na bobina

[Daniel Simoes]

O protocolo ESC ponto só suporta 40 colunas... use o modelo ecfSwedaSTX