Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

PafMF_RelMeiosPagamento

CleitonMaciel

Por CleitonMaciel
em ACBrSerial

 Compartilhar
  • Este tópico foi criado há 3382 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

CleitonMaciel Enthusiast

CleitonMaciel

Postado
Postado

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.

  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

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]

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
CleitonMaciel Enthusiast

CleitonMaciel

Postado
  • Autor
Postado

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??

  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
CleitonMaciel Enthusiast

CleitonMaciel

Postado
  • Autor
Postado

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 Enthusiast

CleitonMaciel

Postado
  • Autor
Postado

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.

  • 2 anos depois...
Poliany Tabosa Enthusiast

Poliany Tabosa

Postado
Postado

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!

Poliany Tabosa Enthusiast

Poliany Tabosa

Postado
Postado

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?

 

  • Consultores
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
Postado

 

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/

 

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Poliany Tabosa Enthusiast

Poliany Tabosa

Postado
Postado (editado)

 

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 por Poliany Tabosa
  • 3 semanas depois ...
Poliany Tabosa Enthusiast

Poliany Tabosa

Postado
Postado

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.

 

  • Este tópico foi criado há 3382 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.

The popup will be closed in 10 segundos...