Ecfsubtotaliza Da Unit Acbrtefd

[Marcos Gerene]

Boa tarde,

 

 

Na função FinalizarCupom do acbrtefd, neste trecho de código:

 

 try

     while not ImpressaoOk do

     begin

        try

           BloquearMouseTeclado( True );

 

           try

              EstNaoFiscal := 'N';

              Est          := EstadoECF;

              while Est <> 'L' do

              begin

                 // É não fiscal ? Se SIM, vamos passar por todas as fases...

                 if Est = 'N' then

                 begin

                    case EstNaoFiscal of

                      'N' : EstNaoFiscal := 'V' ;

                      'V' : EstNaoFiscal := 'P' ;

                      'P' : EstNaoFiscal := 'N' ;

                    end ;

 

                    Est := EstNaoFiscal ;

                 end ;

 

                 try

                    Case Est of

                      'V' : ECFSubtotaliza( RespostasPendentes.TotalDesconto );

 

                      'P' :

                        begin

...

 

 

Quando chama a função que está em negrito o sistema lança o pagamento em dinheiro com o total

da minha venda na impressora fiscal e isso faz com que o pagamento quando o estado fica P dê problema

para ser lançado...

 

 

Segue abaixo o meu InfoECF e o meu ECFSubtotaliza

 

 

procedure TFrmTef.TefInfoECF(Operacao: TACBrTEFDInfoECF;

  var RetornoECF: String);

var

aux:Double;

begin

try

   if not FrmPDV.ECF.Ativo then

      FrmPDV.ECF.Ativar ;

except

   RetornoECF := 'O' ;

   exit;

   raise ;

end;

 

case Operacao of

   ineSubTotal    : RetornoECF := FloatToStr( FrmPDV.ECF.Subtotal );

   ineTotalAPagar : RetornoECF := FloatToStr( FrmPDV.ECF.TotalPago );

   ineEstadoECF   :

      begin

      Case FrmPDV.ECF.Estado of

         estLivre     : RetornoECF := 'L' ;

         estVenda     : RetornoECF := 'V' ;

         estPagamento : RetornoECF := 'P' ;

         estRelatorio : RetornoECF := 'R' ;

         estNaoFiscal : RetornoECF := 'N' ;

      else

         RetornoECF := 'O' ;

      end;

      end;

   end;

end;

 

 

 

procedure TFrmTef.TefComandaECFSubtotaliza(DescAcre: Double;

  var RetornoECF: Integer);

begin

try

if FrmPDV.ECF.Estado = estNaoFiscal then

   FrmPDV.ECF.SubtotalizaNaoFiscal(DescAcre, Tef.Identificacao.NomeAplicacao)

else

   FrmPDV.ECF.SubtotalizaCupom(DescAcre, Tef.Identificacao.NomeAplicacao);

   RetornoECF := 1 ;

except

   RetornoECF := 0 ;

end;

end;

 

 

[EMBarbosa]

Quando chama a função que está em negrito o sistema lança o pagamento em dinheiro com o total

da minha venda na impressora fiscal e isso faz com que o pagamento quando o estado fica P dê problema

para ser lançado...

 

Acho que não entendi o problema. Acho que o subtotaliza não era pra lançar o pagamento, apenas a subtotalização.

Você também não disse qual é o problema que acontece quando o estado fica P.

[Marcos Gerene]

EMBarbosa

 

Desculpa, na correria eu acabei não concluindo...

 

No P ele iria lançar de novo o pagamento mas como já tinha lançado a impressora iria retornar que não consegue imprimir

o meu problema era que eu parei de usar a função de auto lançar os pagamentos então ia controlar na mão...

 

Eu solucionei o problema agora de pouco, vim para postar e vi sua resposta, o problema era que meu status estava V e deveria estar

P, eu esqueci de subtotalizar e além disso o meu ineTotalAPagar e o ineSubTotal estava errado também...

 

Obrigado pela ajuda