acbrtefd

[edsonsimoespereira]

Bom dia! Senhores(as)

Estou realizando testes com o exemplo "TEF" da pasta;

"C:\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF\ACBrNFe_demo"

consegui realizar todos os testes perfeitamente, mas, vou precisar 

inicializar o TEF, "ACBrTEFD1.Inicializar( TACBrTEFDTipo( cbxGP.ItemIndex ) )"

num form e realizar as operações de venda em outro, usando os eventos do 

ACBrTEFD que foi inicializado num formulário inicial.

Acontece que quando inicio o processo de venda com cartão, 

o EstadoECF  esta sempre "L" e não "V", mesmo tendo iniciado a venda

com o estadoSimuladoEcf := tpsVenda;

Por favor, como posso resolver esta operação.

Desde ja, agradeço a quem poder me passar, essa informação.

 

 

[EMBarbosa]

 

23 horas atrás, edsonsimoespereira disse:

Acontece que quando inicio o processo de venda com cartão, 

o EstadoECF  esta sempre "L" e não "V", mesmo tendo iniciado a venda 

com o estadoSimuladoEcf := tpsVenda;

Verifique se realmente isso está acontecendo debugando sua aplicação.

Note que no programa de exemplo uma coisa não automaticamente altera a outra. É tudo validado por meio dos eventos. Se seus eventos estiverem validando variáveis diferentes ou em forms diferentes, isso pode explicar o motivo do que você está descrevendo.

[edsonsimoespereira]

Obrigado EMBarbosa pelo retorno.

Bom no exemplo, tudo é feito em um único form.

Eu usei o form na minha aplicação para realizar

as transações TEF, pata testar,

Acontece que a icialização do "ACBRTEFD.Inicializar",

o processo leva 10 segundos, então resolvi passar esse

processo para o form principal da minha aplicação, mas,

quando inicio a venda através do form VendaTEF, o sistema

me retorna a mensagem:

    if not (EstadoECF in ['V','P','N']) then
       raise EACBrTEFDErro.Create(
          ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') );
 

só não exibe a mensagem se eu executar os códigos abaixo, 

no form principal onde FOI inicializado o componente ACBERTEFD1.

procedure TForm1.ButtonIniciaVendaClick(Sender: TObject);
begin
  if StrToIntDef(EditNumNFCe.Text, 0) = 0 then
    raise Exception.Create('Informe o número NFce');

  if StrToIntDef(edValorVenda.Text, 0) = 0 then
    raise Exception.Create('Informe o valor total da venda');

  MemoCupomTEF.Lines.Add('#################### NFCE:' + EditNumNFCe.Text + ' ####################');

  pgRespostas.ActivePage := TabSheetCupomTef;
  estadoSimuladoEcf := tpsVenda;
  EditTotalPago.Text := '0';
  EditSaldoRestante.Text := edValorVenda.Text;
  IndiceTransacaoTef     := -1;
  MemoCupomTEF.Lines.Add('Inicia Venda [Valor:' + edValorVenda.Text + ']');
  travarComponentesTEF(True);
end;
 

 

[EMBarbosa]

Em 18/06/2019 at 15:21, edsonsimoespereira disse:

quando inicio a venda através do form VendaTEF, o sistema

me retorna a mensagem:

    if not (EstadoECF in ['V','P','N']) then
       raise EACBrTEFDErro.Create(
          ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') );
 

só não exibe a mensagem se eu executar os códigos abaixo,  

no form principal onde FOI inicializado o componente ACBERTEFD1. 

Veja que a mensagem só vai ser mostrada caso a variável "EstadoECF" não for nem 'V', nem 'P' e nem 'N'.

Então, se pergunte, de onde vem o valor dessa variável "EstadoECF"?

Faça o debug pra responder essa pergunta.