duvida sobre valores na implementação da rotina ACBrTEFD1InfoECF

[DODOBA]

bom dia

estou com duvida qual valor colocar nas operações  

ineSubTotal :
       begin
         ASubTotal := ACBrECF1.Subtotal ;
         ASubTotal := ASubTotal - ACBrECF1.TotalPago +
                      StringToFloatDef(edValorDescAcre.Text, 0);

         RetornoECF := FloatToStr( ASubTotal ) ;
       end;

e 

ineTotalAPagar :
       RetornoECF := FloatToStr( CalculaTotalPago );

da procedure TForm1.ACBrTEFD1InfoECF, a primeira é o total da venda e a segunda é o tal dos pagamentos incluindo dinheiro também, e porque o subtotal subtrai o total pago.

aguardo respota.

[EMBarbosa]

Me parece que a primeira, o totalpago são os pagamentos já efetuados no ECF.

A segunda calculaTotalPago porque conta ainda com pagametos que foram alistados mas não efetuados no ECF. Nas modalidades de TEFs que podem dar um desconto extra (Cielo Premia por exemplo), você faz um buffer dos pagamentos e só efetua os pagamentos após toda a confirmação.

[DODOBA]

ok EMBarbosa, mas se não estou usando impressora fiscal, uso somente o componente nfe, coloco o que na segunda opção, zero.

 

[Daniel Simoes]

o Conceito é o mesmo, independente de Impressora Fiscal... Veja as observações nos fontes, de ACBrTEFDClass.pas

  TACBrTEFDInfoECF = ( ineSubTotal,  // Valor do Saldo restante "A Pagar" do Cupom
                       ineEstadoECF, // Estado do ECF "L" Livre, "V" Em Venda de Itens,
                                     //               "P" Em Pagamento,
                                     //               "C" CDC ou Vinculado
                                     //               "G" Relatório Gerencial
                                     //               "N" Não Fiscal (em qq fase, pois é dificil detectar a fase)
                                     //               "O" Outro
                       ineTotalAPagar// Valor Total de Pagamentos registrados, na Aplicação, e não enviados ao ECF
                     ) ;     

 

[DODOBA]

veja como coloquei o evento:

procedure TFormPrincipal.ACBrTEFD1InfoECF(Operacao: TACBrTEFDInfoECF;
  var RetornoECF: string);
  var
   ASubTotal: Double;
begin

    case Operacao of
     ineSubTotal :
       begin
         //ASubTotal := ASubTotal - StringToFloatDef(EditTotalPago.Text, 0){ + Tratar Desconto e Acrescimo aqui: StringToFloatDef(edValorDescAcre.Text, 0)};
         ASubTotal := TOTALp;
        // ASubTotal := ASubTotal - TOTALPAGOp;
         RetornoECF := FloatToStr(ASubTotal);
         if estadoSimuladoEcf = tpsPagamento then
           RetornoECF :=  FloatToStr(TOTALp - TOTALPAGOp);
       end;

     ineTotalAPagar :
       RetornoECF := FloatToStr(TOTALPAGOp);

     ineEstadoECF :
       begin
         Case estadoSimuladoEcf of
           tpsLivre     : RetornoECF := 'L' ;
           tpsVenda     : RetornoECF := 'V' ;
           tpsPagamento : RetornoECF := 'P' ;
           tpsRelatorio : RetornoECF := 'R' ;
         else
           RetornoECF := 'O' ;
         end;
       end;
   end;
end;

onde TOTALp é o total do cupom e TOTALPAGOp é o valor que já foi pago incluindo o valor do tef agora.

no caso do meu teste TOTALp tem o valor de 0,20 e TOTALPAGO de 0,20 também

agora esta mostrando a mensagem "operação tef deve ser limitada ao saldo restante a pagar

 

 

[Daniel Simoes]

5 minutos atrás, DODOBA disse:

agora esta mostrando a mensagem "operação tef deve ser limitada ao saldo restante a pagar

Essa mensagem indica que vc iniciou o CRT, com um valor Superior ao Subtotal que você mesmo está informando em " ineSubTotal"

[DODOBA]

deu certo obrigado a todos pela ajuda !