Recarga Celular no TEF

[Daniel_FC]

Ola pessoal estou com uma pequeno problema no tef quando faço recarga de celular funçao 300.

''atraves da getnet.''

o que ta acontecendo éo segunte;

Apos o tef dar Transação OK ele começa a imprimir o comprovante normammente,

so que a transação no relatorio do sitef fica pendente. e nao é efetuada a recarga no telefone.

o pior que tava dando tudo certo ate a semana passada.

depois disso fiz algumas atualizaçoes do Acbr e quando atualizei meu cliente parou.

detalhe, nao foi alterado nada no codigo da minha aplicação onde faz a recarga.

Pelo DemoTEF tb, faz o mesmo.

alguma dica dos amigos.

[Daniel Simoes]

Anexe o LOG gerado pelo ACBrECF e ACBrTEFD, além de um roteiro passo a passo de como reproduzir o problema...

Tratando-se de um módulo extra, acho que também é interessante informar o que é necessário instalar além da configuração padrão do SiTEF

[Daniel_FC]

Bom dia pessoal segue os logs e tb a rotina da minha aplicação para efetuar a recarga celular.

{TEF}

fCancelado := False;

Frm_MainP.iTEF.TEFCliSitef.OperacaoADM := 300;

{Pin-Pad Menssagem}

Frm_MainP.iTEF.TEFCliSiTef.DefineMensagemPermanentePinPad(' FOCO SISTEMAS | TEF - 1.0.5');

if (Frm_MainP.iTEF.ADM(TACBrTEFDTipo(gpCliSiTef))) then

begin

if (Frm_MainP.iTEF.TEFCliSiTef.Resp.LeInformacao(591,0).AsFloat > 0 ) then

begin

try

Sleep(500);

{Grava na TB Suprimento tipo [ C ] = Recarga Celular}

ProcMenuFisc.Close;

ProcMenuFisc.SQL.Clear;

ProcMenuFisc.SQL.Add('INSERT INTO TB_RECARGAS (');

ProcMenuFisc.SQL.Add(' DATA,');

ProcMenuFisc.SQL.Add(' NECF,');

ProcMenuFisc.SQL.Add(' NSERIE,');

ProcMenuFisc.SQL.Add(' NCUPOM,');

ProcMenuFisc.SQL.Add(' SEQ,');

ProcMenuFisc.SQL.Add(' HORA,');

ProcMenuFisc.SQL.Add(' VALOR,');

ProcMenuFisc.SQL.Add(' CFISCAL,');

ProcMenuFisc.SQL.Add(' ATUSERV,');

ProcMenuFisc.SQL.Add(' ATUSERV_DATA)');

ProcMenuFisc.SQL.Add('VALUES (');

ProcMenuFisc.SQL.Add(' :DATA,');

ProcMenuFisc.SQL.Add(' :NECF,');

ProcMenuFisc.SQL.Add(' :NSERIE,');

ProcMenuFisc.SQL.Add(' :NCUPOM,');

ProcMenuFisc.SQL.Add(' ( SELECT COALESCE(MAX(SEQ + 1),1) FROM TB_RECARGAS WHERE DATA = CURRENT_DATE),');

ProcMenuFisc.SQL.Add(' :HORA,');

ProcMenuFisc.SQL.Add(' :VALOR,');

ProcMenuFisc.SQL.Add(' :CFISCAL,');

ProcMenuFisc.SQL.Add(' NULL,');

ProcMenuFisc.SQL.Add(' NULL)');

ProcMenuFisc.Params[0].Value := Frm_MainP.EdtDataHoraECF.Text;

ProcMenuFisc.Params[1].Value := Frm_MainP.EdtNumECF.Text;

ProcMenuFisc.Params[2].Value := Frm_MainP.EdtNumSERIE.Text;

ProcMenuFisc.Params[3].Value := Frm_MainP.EdtNumCUPOM.Text;

ProcMenuFisc.Params[4].Value := Frm_MainP.EdtDataHoraECF.Text;

ProcMenuFisc.Params[5].Value := Frm_MainP.iTEF.TEFCliSiTef.Resp.LeInformacao(591,0).AsFloat;

ProcMenuFisc.Params[6].Value := Frm_MainP.LbOperadorP.Caption;

ProcMenuFisc.ExecSQL;

{Commit Transacao - Servidor}

if (TrzMenuFisc.InTransaction ) then TrzMenuFisc.Commit;

except

on E : Exception do

begin

{Menssagem na Tela Opeador}

Message_SIM('Erro ao Gravar Registro no BD!!',True);

{Greavar LogERRO}

GravaLogPDVErro('ERRO: '+ E.ClassName + ' - '+ E.Message +' Rollback ');

{Rollback Transacao - Servidor}

if (TrzMenuFisc.InTransaction ) then TrzMenuFisc.Rollback;

end;

end;

end;

LOGCUPOM.TXT

LOGECF.TXT

LOGTEF.TXT

[Daniel Simoes]

Fiz uma atualização (ontem) que pode ter resolvido o problema... por favor atualize seus fontes e teste novamente...

[Daniel_FC]

Ola. Daniel

Ok, fiz as atualizaçoes que vc solicitou,

tb, fiz novos testes e agora deu certo..

a transação nao ficou pendente e sim confirmou. e tb liberou os creditos para o celular..

Obrigado..

Resolvido.

[Alex Monte]

Pergunta totalmente OFF

1. Eu preciso ter algum contrato ( claro q sim ) com a Gwcel ???

2. Tem como eu transformar isso para outras linguagens ???

3. Qual a margem de lucro do meu cliente q vai vender ???

 

obrigado!

[Juliomar Marchetti]

Pergunta totalmente OFF

1. Eu preciso ter algum contrato ( claro q sim ) com a Gwcel ???

2. Tem como eu transformar isso para outras linguagens ???

3. Qual a margem de lucro do meu cliente q vai vender ???

 

obrigado!

Boa noite!

geralmente eles só liberam mediante um contrato a documentação para implementação!

e com a documentação em mãos e conhecimento da linguagem que deseja pode fazer tranquilamente componentes!

sobre a margem é seu cliente que vai saber pois é eles que irão negociar !

[EMBarbosa]

18 horas atrás, Lau03 disse:

Para aqueles que estão interessados em obter um método de recarga funcional, eles podem usar o RecargaPay, eu o uso há dois anos e funciona muito bem para mim. Existem outros aplicativos e mídias bons, mas ainda não os testei.

Isso não parece relacionado ao TEF que é mencionado nesse tópico.