Roteiro Multiplas Formas De Pagamento

[Werner_Marques]

Ola Pessoal

 

Tenho o seguinte problema com relacao a um roteiro de homologacao de TEF.

 

Tanto a forma de pagamento DINHEIRO quanto CARTAO podem ocorrer em qualquer ordem.

 

Por exemplo, a venda foi de R$ 1000

 

As formas de pagamento irao ocorrer nesta ordem

 

R$ 100,00 no cartao 1

R$ 500,00 no cartao 2

R$ 200,00 em dinheiro

R$ 100,00 no cartao 3

R$ 200,00 em dinheiro

Havera troco de R$ 100,00

 

Observar que a ordem das finalizadoras devera ser exatamente como foi demonstrado acima, alternando-se entre dinheiro e cartao.

 

Na impressora devem ser mostrados os 5 valores das finalizadoras e o troco. E logo em seguida devem ser impressos 3 comprovantes vinculados referentes as operacoes de cartao de credito.

 

Alguem poderia me dizer como resolver essa situacao usando ACBR?

 

Fico no aguardo.

 

 

 

 

[Juliomar Marchetti]

Simples, digamos que use um clientdataset pra armazenar em buffer, seria o caso de ordem esses recebimentos em ordem decrescente, pois será registrado um a um na ecf!

[Werner_Marques]

Juliomar, obrigado por responder!

 

Acabei de realizar esse procedimento que você falou acima, mas não não obtive sucesso.

 

Realizei uma venda de R$ 5.00, e tentei finalizá-la com as seguinte formas de pagamento: 

R$ 1.50 no cartão 1

R$ 1.60 no cartão 2

R$ 2.00 em dinheiro

Troco de R$ 1.10

 

O código abaixo realizar o buffer dos valores que tiveram forma de pagamento em dinheiro:

        qrPagamentos.first;

        while (not qrPagamentos.eof) do begin

            TpPag := qrPagamentos.fieldbyname('cd_finalizadora').asString;

            impfiscal.ACBr1.LerTotaisFormaPagamento ;

            FormaPagto  :=  impfiscal.ACBr1.AchaFPGIndice(TpPag);

            TpPag:= FormaPagto.Indice;

            if (qrPagamentos.fieldbyname('cd_finalizadora').asString<>'03') then

                   impfiscal.ACBr1.EfetuaPagamento( tpPag, qrPagamentos.fieldbyname('vl_finalizadora').asFloat );

            qrPagamentos.next;

        end;

 

Já este trecho de código realizar o buffer dos valores que tiveram forma de pagamento no cartão

        qrPagamentos.first;

        while (not qrPagamentos.eof) do begin

            TpPag := qrPagamentos.fieldbyname('cd_finalizadora').asString;

            impfiscal.ACBr1.LerTotaisFormaPagamento ;

            FormaPagto  :=  impfiscal.ACBr1.AchaFPGIndice(TpPag);

            TpPag:= FormaPagto.Indice;

            if (qrPagamentos.fieldbyname('cd_finalizadora').asString='03') then begin

              try

                InicializaTefDial;

                impfiscal.ACBrTEFD.CRT( qrPagamentos.fieldbyname('vl_finalizadora').asFloat , tpPag, impfiscal.acbr1.NumCOO );

              finally

              end;

            end;

            qrPagamentos.next;

        end;

 

O problema acontece quando o primeiro valor da forma de pagamento em cartão é finalizado pelo client sifet modular. A seguinte mensagem de erro aparece: "Operação TEF deve ser limitada ao Saldo restante a Pagar".

 

Alguém tem um posicionamento a respeito disso?

 

Obrigado!

 

 

[Juliomar Marchetti]

Sim está faltando algum código para informar os valores

conferiu os eventos do ACBrTEFD veja que no oninfoECF tem insubtotal, intotal etc

[Werner_Marques]

Não entendi muito bem. Você poderia ser mais específico, por favor? Obrigado!

[Werner_Marques]

O meu problema ainda não foi resolvido.

 

Consegui perceber que a mensagem "Operação TEF deve ser limitada ao Saldo restante a Pagar" só aparece quando existe troco, lembrando que existiram várias formas de pagamento em qualquer ordem para a tal venda. (Cartão, dinheiro...)

 

Já realizei vários testes e tudo funciona perfeitamente quando não acontece troco.

[Juliomar Marchetti]

Abre o exemplo do tef e veja os eventos do ACBrTEFD veja o oninfoecf

você tem que programar lá os valores tem que passar os descontos

[Daniel Simoes]

Algumas dicas... se você utilizar ACBrTEFD.FinalizarCupom

 

O ACBrTEFD pode controlar as formas de pagamento Cartão... agrupando-as...

O Evento OnComandaPagamentos deve ser programado corretamente...

O Evento OnComandaECF tem uma nova opção chamada: opeImprimePagamentos : que permite que você a utilize para efetuar os pagamentos em dinheiro ou demais... (não TEF)

 

O TEFDDemo procura demonstrar o funcionamento desse mecanismo...
 

[Werner_Marques]

Muito obrigado pela ajuda de todos vocês!