Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 1743 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

 

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.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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;
 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1743 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.