PafMF_RelMeiosPagamento

[CleitonMaciel]

Galera blz?

To aqui na peleja pra homologar meu sistema.

To com dificuldade no PafMF_RelMeiosPagamento.

Estou fazendo como no ECFTeste

      

      FormasPagamento := TACBrECFFormasPagamento.Create;

      while not Q2.Eof do

      begin

         with AcbrECF.FormasPagamento.New do

         begin

            Descricao := Q2.FieldByName('descricao').AsString;

            Data      := Q2.FieldByName('data').AsDateTime;

            Total     := Q2.FieldByName('valor').AsCurrency;

            TipoDoc   := Q2.FieldByName('tipodoc').AsString;


            ShowMessage(Descricao+#13+

            DateToStr(Data)+#13+

            FloatToStr(Total)+#13+

            TipoDoc);

         end;

         Q2.Next;

      end;


      AcbrECF.PafMF_RelMeiosPagamento(

      FormasPagamento,

      'Período Solicitado de '+DateToStr(dtIni)+' a '+DateToStr(dtFin),

      0

      );

coloquei o showmessage pra ver se realmente os valores estão sendo enviado para o comando e os valores estão sendo retornado mas não sai nada no ecf sai da seguinte forma

========================================================

                   MEIOS DE PAGAMENTO                   

========================================================


     Período Solicitado de 28/08/2012 a 28/08/2012      

--------------------------------------------------------

Sub-Total                                   0,00

                 NÃO É DOCUMENTO FISCAL                 




                      TOTAL GERAL                       

     Período Solicitado de 28/08/2012 a 28/08/2012      


Identificação                           Valor R$

--------------------------- --------------------

--------------------------------------------------------

TOTAL                                       0,00

Estranho que no próprio DEMO também não sai nada...

Galera da uma força ai...

Outra coisa tem dados no período selecionado...

abraço.

[EMBarbosa]

Não implementei essa parte, então posso estar enganado, mas você criou uma variável do tipo TACBrECFFormasPagamento e não usou ela.

Veja a modificação que eu fiz no seu código, veja se entende:

     

      FormasPagamento := TACBrECFFormasPagamento.Create;

      while not Q2.Eof do

      begin

         with FormasPagamento.New do  //
         begin

            Descricao := Q2.FieldByName('descricao').AsString;

            Data      := Q2.FieldByName('data').AsDateTime;

            Total     := Q2.FieldByName('valor').AsCurrency;

            TipoDoc   := Q2.FieldByName('tipodoc').AsString;


            ShowMessage(Descricao+#13+

            DateToStr(Data)+#13+

            FloatToStr(Total)+#13+

            TipoDoc);

         end;

         Q2.Next;

      end;


      AcbrECF.PafMF_RelMeiosPagamento(

      FormasPagamento,

      'Período Solicitado de '+DateToStr(dtIni)+' a '+DateToStr(dtFin),

      0

      );[/code]

[CleitonMaciel]

Não implementei essa parte, então posso estar enganado, mas você criou uma variável do tipo TACBrECFFormasPagamento e não usou ela.

Veja a modificação que eu fiz no seu código, veja se entende:

     

      FormasPagamento := TACBrECFFormasPagamento.Create;

      while not Q2.Eof do

      begin

         with FormasPagamento.New do  //<----------------------- AQUI!!!!

         begin

            Descricao := Q2.FieldByName('descricao').AsString;   [b]<<<<< PLANO DE PAGAMENTO[/b]

            Data      := Q2.FieldByName('data').AsDateTime;

            Total     := Q2.FieldByName('valor').AsCurrency;

            TipoDoc   := Q2.FieldByName('tipodoc').AsString;


            ShowMessage(Descricao+#13+

            DateToStr(Data)+#13+

            FloatToStr(Total)+#13+

            TipoDoc);

         end;

         Q2.Next;

      end;


      AcbrECF.PafMF_RelMeiosPagamento(

      FormasPagamento,

      'Período Solicitado de '+DateToStr(dtIni)+' a '+DateToStr(dtFin),

      0

      );

Fiz a mudança que você passou mas mesmo assim não funcionou...

Li que alguns colegas imprimiram sem problemas.. agora não to entendo o motivo de não funcionar...

será que tem algum problema quanto ao PLANO DE PAGAMENTO??

[EMBarbosa]

Acredito que seja melhor você debugar o ACBrECF.PafMF_RelMeiosPagamento e verificar o porquê dele não estar imprimindo.

[CleitonMaciel]

Acredito que seja melhor você debugar o ACBrECF.PafMF_RelMeiosPagamento e verificar o porquê dele não estar imprimindo.

Pelo menos esta imprimindo o arquivo... o problema vai ser o comando para impressão do

relatório gerencial

MEIOS DE PAGAMENTO



     Período Solicitado de 28/08/2012 a 28/08/2012      

DATA DE ACUMULAÇÃO: 28/08/2012

Identificação   Tipo                    Valor R$

--------------- ------------------- ------------

CARTAO CREDITO  CUPOM FISCAL              306,70

CARTAO DEBITO   CUPOM FISCAL              212,57

CREDIARIO       CUPOM FISCAL            1.584,43

CREDIARIO       NOTA FISCAL               940,03

DINHEIRO        CUPOM FISCAL              427,63

DINHEIRO        NOTA FISCAL               392,75


Sub-Total                               3.864,11




                      TOTAL GERAL                       

     Período Solicitado de 28/08/2012 a 28/08/2012      


Identificação                           Valor R$

--------------------------- --------------------

CARTAO CREDITO                            306,70

CARTAO DEBITO                             212,57

CREDIARIO                               2.524,46

DINHEIRO                                  820,38


TOTAL                                   3.864,11

[CleitonMaciel]

Acredito que seja melhor você debugar o ACBrECF.PafMF_RelMeiosPagamento e verificar o porquê dele não estar imprimindo.

Consegui resolver valeu mesmo.

Esqueci de dizer que estava usando emulador..

Mas obrigado de qualquer forma pela ajuda...

grande abraço.

[CleitonMaciel]

Eita se eu consegui modificar os fontes do acbr onde imprimi o meio de pagamento para o novo ER PAF 1.12 libero aqui pro pessoal avaliar...

se alguém já fez por favor da um sinal de fumaça...

[Régys Silveira]

Já foi arrumado a um bom tempo o relatório de meios de pagamento, logo quando saiu a ER 01.12.

[CleitonMaciel]

Já foi arrumado a um bom tempo o relatório de meios de pagamento, logo quando saiu a ER 01.12.

Eu vi não havia atualizado o componente ainda....

obrigado

[Poliany Tabosa]

Boa tarde cabeças pensantes do ACBR, antes de mais nada, quero que saibam que sou extremamente grata por desenvolverem um componente tão maravilhoso quando o ACBr e em segundo lugar gostaria que vcs me ajudassem... :/

Eh o seguinte: quando tento executar o método PafMF_RelMeiosPagamento, mais precisamente a linha "Self.RelatorioGerencial(Relatorio, 1, AIndiceRelatorio)" ele nao retorna meu relatório de meios de pagamento completo, apenas o título do intervalo de datas e mais uma linha de DATA DE ACUMULAÇÃO.

Eu uso Epson  TM-T81 FBII. o que estou fazendo de errado?

dá uma olhadinha por favor no meu código. Li os posts acima, mas não entendi como CleitonMaciel resolveu

 

FormasPagamento := TACBrECFFormasPagamento.Create;
  
  listaMeiosPagto;
  try
    cdsMeiosPagto.First;
    while not cdsMeiosPagto.Eof do
    begin
      with FormasPagamento.New do
      begin
        Descricao := cdsMeiosPagto.FieldByName('finalizadora').AsString;
        Data      := StrToDate(cdsMeiosPagto.FieldByName('data').AsString);
        Total     := cdsMeiosPagto.FieldByName('valor').AsCurrency;
        TipoDoc   := cdsMeiosPagto.FieldByName('tipo').AsString;// Cupom Fiscal, Compr. Não Fiscal, Nota Fiscal
      end;
      cdsMeiosPagto.Next;
    end;
  
    FDataModule.ACBrECF.PafMF_RelMeiosPagamento(FormasPagamento,'PERIODO DE '+ mkeDataIni.Text +
                                                ' A '+ mkeDataFim.Text,indexRece);
  finally
    FormasPagamento.Free;
  end;

Grata pela atenção!

[Juliomar Marchetti]

Boa tarde

está usando o trunk2?

caso positivo existe um problema com a parte das TAGs e que não foi resolvido ainda!

outra situação é conferir se está usando um índice de relatório válido pra ECF!

[Poliany Tabosa]

Boa tarde

está usando o trunk2?

caso positivo existe um problema com a parte das TAGs e que não foi resolvido ainda!

outra situação é conferir se está usando um índice de relatório válido pra ECF!

Boa Tarde Juliomar, obrigada por responder, então, com relação ao trunk2, estou sem saber te responder, pq ainda nao vi isso pelo código e quanto ao índice, ele é válido sim, o da ECF, no meu caso ele tá alimentando a variável indexRece com 3, que é o índice de relatorio gerencial da minha ECF.

Por favor, vc poderia me explicar do que se trata o trunk2?

 

[EMBarbosa]

 

Por favor, vc poderia me explicar do que se trata o trunk2?

É um refactoring amplo no código. Visto que haveria quebra de compatibilidade, foi criada uma outra linha de controle de versão.

Veja mais em: http://www.projetoacbr.com.br/forum/topic/22410-bem-vindo-ao-trunk2/

 

[Poliany Tabosa]

 

Por favor, vc poderia me explicar do que se trata o trunk2?

É um refactoring amplo no código. Visto que haveria quebra de compatibilidade, foi criada uma outra linha de controle de versão.

Veja mais em: http://www.projetoacbr.com.br/forum/topic/22410-bem-vindo-ao-trunk2/

 

Grata EMBarbosa...

Entao, agora que li e compreendi (rsrsrsrsrs) eu nao estou usando o trunk2. achei um comentário em ACBrEcfEpson, dentro dessa procedure "procedure TACBrECFEpson.LinhaRelatorioGerencial(Linha: AnsiString; IndiceBMP: Integer);" tem o seguinte comentário:

"// Epson não consegue imprimir Caracteres abaixo de 32 em Linha de Gerencial ou CCD, retorna Erro.
        // Isso deve ser tratado pela rotina chamadora... filtrar esses caracteres aqui, afeta a rotina de
        // TAGS de formatação (que usa caracteres de controle) "

será que tem alguma coisa a ver do porquê não está emitindo corretamente?

Editado 4 Agosto, 2015 por Poliany Tabosa

[Juliomar Marchetti]

Boa tarde

Conforme já mencionei existe um problema  na tradução das tags para a Epson!

o comando enviado para o  </n> não está correto e fecha simplesmente o relatório gerencial!

[Daniel Simoes]

Qual é a exata mensagem de erro ?

Por favor anexe o Log gerado pelo ACBrECF.

[Poliany Tabosa]

Gente, perdoem-me a demora, tive uns problemas pessoais e só agora pude acessar para responder, quero agradecer a ajuda de todos, consegui resolver o problema do Relatório por meios de pagto.

Apenas atualizei a dll interfaceEpson.dll.