Cancelamento do TEF utilizando ACBrTEFD1.CNC

[Heriberto Carvalho]

Estou fazendo os testes para homologação do TEF Dedicado Linx utilizando a DLL DPOSDRV

O que ocorre é que estou tentando realizar o cancelamento de um cartão depois da transação finalizada. Para isso utilizo o método ACBrTEFD1.CNC(rede, nsu, datahora, valor), passo os parâmetros normalmente, só que sempre mostra a mensagem 'Transação não efetuada.'

Gostaria de um auxílio para identificar o que posso estar fazendo de errado, pois na aplicação de testes do ACBR consigo cancelar sem problemas usando o menu ADM.

 

[Juliomar Marchetti]

3 horas atrás, Heriberto Carvalho disse:

Estou fazendo os testes para homologação do TEF Dedicado Linx utilizando a DLL DPOSDRV

O que ocorre é que estou tentando realizar o cancelamento de um cartão depois da transação finalizada. Para isso utilizo o método ACBrTEFD1.CNC(rede, nsu, datahora, valor), passo os parâmetros normalmente, só que sempre mostra a mensagem 'Transação não efetuada.'

Gostaria de um auxílio para identificar o que posso estar fazendo de errado, pois na aplicação de testes do ACBR consigo cancelar sem problemas usando o menu ADM.

 

Boa tarde

conferiu se todos os eventos foram programados em sua aplicação?

e as configurações estão iguais?

[Heriberto Carvalho]

Boa tarde Juliomar.

Sim, inclusive é o mesmo componente que chamo no ADM e no método CNC. 

Utilizo como base o fonte do exemplo do ACBR

 

para chamar o menu do ADM:

procedure TForm1.bADMClick(Sender: TObject);
var
  Finalizou: boolean;
begin
  if estadoSimuladoEcf <> tpsLivre then
    raise Exception.Create('Estado do Simulador ECF deve ser Livre');

  Finalizou := ACBrTEFD1.ADM(TACBrTEFDTipo(cbxGP1.ItemIndex ));
  MemoCupomTEF.Lines.Add('Administrativo TEF');

end;

 

Para tentar cancelar usando o método CNC:

procedure TForm1.Button1Click(Sender: TObject);
var
 Cancelou: boolean;
begin
    cancelou := ACBrTEFD1.CNC(edRede.Text, edNSU.Text, edData.Date , edValor.AsFloat);
    if Cancelou then
      ShowMessage('Cancelado com sucesso')
    else
      ShowMessage('Não foi cancelado com sucesso');
end;
 

[Juliomar Marchetti]

Vai ter que fazer um serviço seu e comparar pois tem alguma coisa ainda de diferente.

pois se funciona no exemplo tem que funcionar em sua aplicação.

[Heriberto Carvalho]

Juliomar, acho não me expressei direito.

Ainda estou fazendo o teste na aplicação de exemplo do ACBR, não coloquei nada na minha aplicação. Apenas adicionei um botão e alguns edits na tela para chamar diretamente o método do cancelamento ACBrTEFD1.CNC(edRede.Text, edNSU.Text, edData.Date , edValor.AsFloat); passando os parâmetros, sem chamar a tela do ADM através do ACBrTEFD1.ADM(TACBrTEFDTipo(cbxGP1.ItemIndex ));

Através da tela do ADM eu consigo cancelar normalmente, mas chamando o método CNC não (uso o mesmo componente ACBrTEFD1 nas duas rotinas).

 

[Juliomar Marchetti]

Há sim agora entendi.

qual a solução tef usada? faltou informar

[Heriberto Carvalho]

Bom dia.

Juliomar, estou usando o CliDTEF / Linx.

[Juliomar Marchetti]

3 horas atrás, Heriberto Carvalho disse:

Bom dia.

Juliomar, estou usando o CliDTEF / Linx.

Nunca usei o CliDTEF ! vamos aguardar e ver se alguém pode lhe ajudar e tenha passado por isso.

[Heriberto Carvalho]

Ok Juliomar, vamos aguardar.

Obrigado pela atenção.