Venda TEF com Acrescimo

[dorivansousa]

Como faço uma venda com acrescimo no cartao, sempre retorna a mensagem "operacao tef deve ser limitada ao saldo restante a pagar"

so passa quando no ineSubTotal eu informo o acrescimo, mas, assim ele nao finaliza o cupom.

[Daniel Simoes]

O ineSubTotal deve conter o Acréscimo...

Qual o problema no Fechamento ? (Anexe o Log)

[dorivansousa]

o problema é q nao fecha o cupom, ele imprime o subtotal, o acrescimo, o total e a forma de pagamento dinheiro e para por ai

[dorivansousa]

  case Operacao of

    ineSubTotal:

      begin

        RetornoECF := FormatFloat('0.00', ((FDataModule.ACBrECF.Subtotal) - FDataModule.ACBrECF.TotalPago) + Acrescimo);

      end;


    ineTotalAPagar:

      begin

        VerificaSaldoRestante;

        RetornoECF := FormatFloat('0.00', ((SaldoRestante - EditValorPago.Value)));

      end;


    ineEstadoECF:

      begin

        Case FDataModule.ACBrECF.Estado of

          estLivre:

            RetornoECF := 'L';

          estVenda:

            RetornoECF := 'V';

          estPagamento:

            RetornoECF := 'P';

          estRelatorio:

            RetornoECF := 'R';

        else

          RetornoECF := 'O';

        end;

      end;

  end;

LOG

-- 18/10 10:10:23:958 - TEF_DIAL Inicializado

-- 18/10 10:10:23:960 - TEF_DIAL CancelarTransacoesPendentesClass

-- 18/10 10:10:23:962 - TEF_DIAL IniciarRequisicao: ATV

-- 18/10 10:10:23:965 - TEF_DIAL FinalizarRequisicao: ATV, Fechando arquivo: C:\TEF_DIAL\req\intpos.tmp

-- 18/10 10:10:23:973 - TEF_DIAL FinalizarRequisicao: ATV, Renomeando: C:\TEF_DIAL\req\intpos.tmp para: C:\TEF_DIAL\req\intpos.001

-- 18/10 10:10:23:974 - TEF_DIAL FinalizarRequisicao: ATV, Aguardando: C:\TEF_DIAL\resp\intpos.sts

-- 18/10 10:10:24:987 - TEF_DIAL FinalizarRequisicao: ATV, Fim da Espera de: C:\TEF_DIAL\resp\intpos.sts Recebido

-- 18/10 10:10:24:991 - TEF_DIAL FinalizarRequisicao: ATV, Verificando conteudo de: C:\TEF_DIAL\resp\intpos.sts

-- 18/10 10:10:45:450 - FinalizarCupom

-- 18/10 10:10:45:451 - BloquearMouseTeclado: SIM

-- 18/10 10:10:45:452 - InfoECF: ineEstadoECF

-- 18/10 10:10:45:476 - Ret: V

-- 18/10 10:10:45:476 - TEF_DIAL ECFSubtotaliza: DescAcres: 0,00

-- 18/10 10:10:45:540 - TEF_DIAL ComandarECF: Oper: opeImprimePagamentos

-- 18/10 10:10:45:827 - InfoECF: ineEstadoECF

-- 18/10 10:10:45:923 - Ret: P

-- 18/10 10:10:45:923 - InfoECF: ineSubTotal

-- 18/10 10:10:46:023 - Ret: 0,50

-- 18/10 10:10:46:024 - InfoECF: ineTotalAPagar

-- 18/10 10:10:46:026 - Ret: 0,00

-- 18/10 10:10:46:026 - BloquearMouseTeclado: NAO

[Daniel Simoes]

Você programou o evento OnComandaECFSubtotaliza ?

Se SIM, nele você deve somar o seu acréscimo quando for efetuar a SubTotalização.

    if Est = estNaoFiscal then

       ACBrECF1.SubtotalizaNaoFiscal( DescAcre +  SeuAcrescimo, 'Projeto ACBr|http://acbr.sf.net' )

    else

       ACBrECF1.SubtotalizaCupom( DescAcre + SeuAcrescimo, 'Projeto ACBr|http://acbr.sf.net' );

[/code]

[dorivansousa]

ta configurado, como eu disse acima, ta imprimindo o acrescimo no cupom e para depois de imprimir a o Total e a forma de pagamento...

  try

    if Desconto > 0 then

      FDataModule.ACBrECF.SubTotalizaCupom((Desconto * -1) + DescAcre)

    else if Acrescimo > 0 then

      FDataModule.ACBrECF.SubTotalizaCupom(Acrescimo + DescAcre)

    else

      FDataModule.ACBrECF.SubTotalizaCupom(DescAcre);


    RetornoECF := 1;

  except

    RetornoECF := 0;

  end;

eu olhei o fonte do acbr e vi no finalizacupom faz a verificacao do ineSubTotal pra vc se ainda tem algo pra ser pago e para a execucao. so que nao ta desconsiderando o valor do acrescimo pq a ineSubTotal fica exatamente com o valor do acrescimo. eu passei linha a linha e executa SubTotalizaCupom com o Acrescimo

FDataModule.ACBrECF.SubTotalizaCupom(Acrescimo + DescAcre)

[Daniel Simoes]

Não estou compreendo... os pagamentos registrados no ECF tb tem que contemplar o Acréscimo... e um mata o outro...

É possível reproduzir o problema usando o Demo do TEFD ? pode me fornecer um passo a passo ?

[dorivansousa]

eu modifiquei no demo o ComandaECFSubtotaliza, pra informar o acrescimo como eu to fazendo

ACBrECF1.SubtotalizaCupom( DescAcre + 1, 'Projeto ACBr|http://acbr.sf.net' );

BloqueiaMouseTeclado = NAO

BloqueiaMouseTeclado = NAO

ACBrECF.AbreCupom

ACBrECF.VendeItem

ACBrECF.VendeItem

BloqueiaMouseTeclado = SIM

ComandaECFSubtotaliza: DescAcre: 0,00

ComandaECF: opeImprimePagamentos

BloqueiaMouseTeclado = NAO

fiz nessa sequencia ai, abrir o cupom, vendi dois item e mandei finalizar pelo FinalizaCupom do TEFD

isso é a do jeito q eu to fazendo no aplicativo, agora se usar a opcao subtotalizacupom informando o acrescimo ele fecha normal, mas desse jeito o cielo premia nao funciona (no discado q eu to testando) pq ja vai subtotalizado e vai dar erro ECF nao está Livre.

[Daniel Simoes]

Acho que consegui reproduzir o problema... estou analisando...

[Daniel Simoes]

Enviei para o SVN modificações para o projeto Demo...

Agora é possível informar Desconto ou Acréscimo do usuário no painel de pagamentos...

Acho que o segredo era "zerar" o DescontoAcrescimo do usuário após a execução do evento OnComandaECFSubtotaliza, conforme descrevi nos fontes do Demo