PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - TEF (Transferencia Eletrônica de Fundos com cartão de Crédito ou Debito) com troca de arquivos.
WX - TEF (Transferencia Eletrônica de Fundos com cartão de Crédito ou Debito) com troca de arquivos.
Débuté par BOLLER, 23 avr. 2018 14:41 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 23 avril 2018 - 14:41
Procedure PRIVATE TEF_Cancelamento(p_identificacao,p_valor,p_operadora,p_numero_transacao,p_data_transacao,p_hora_transacao)

TEF_Verifica_Gerenciador_Ativo(False,"TEF - Cancelamento")

rM_sequencia_randomica is int = 0
sM_sequencia_randomica_str is string = ""

WHILE Length(NoSpace(sM_sequencia_randomica_str)) < 10
rM_sequencia_randomica = TimeToInteger(TimeSys) + Random(1000000000,9999999999)
sM_sequencia_randomica_str = NumToString(rM_sequencia_randomica, "10,0f")
END

nM_handle is int = fCreate("C:\CLIENT\REQ\INTPOS.TMP")
fWriteLine(nM_handle,"000-000 = " + "CNC")
fWriteLine(nM_handle,"001-000 = " + sM_sequencia_randomica_str)
fWriteLine(nM_handle,"003-000 = " + p_valor)
fWriteLine(nM_handle,"010-000 = " + p_operadora)
fWriteLine(nM_handle,"012-000 = " + p_numero_transacao)
fWriteLine(nM_handle,"022-000 = " + p_data_transacao)
fWriteLine(nM_handle,"023-000 = " + p_hora_transacao)
fWriteLine(nM_handle,"999-999 = " + "0")
fClose(nM_handle)
Wait(10)
fCopyFile("C:\CLIENT\REQ\INTPOS.TMP","C:\CLIENT\REQ\INTPOS.001")

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END


----------------------

Procedure PRIVATE TEF_Confirmacao(p_identificacao,p_numero_comprovante,p_operadora,p_numero_transacao,p_finalizacao)

TEF_Verifica_Gerenciador_Ativo(False,"TEF - CONFIRMAÇÃO")

rM_sequencia_randomica is int = 0
sM_sequencia_randomica_str is string = ""

WHILE Length(NoSpace(sM_sequencia_randomica_str)) < 10
rM_sequencia_randomica = TimeToInteger(TimeSys) + Random(1000000000,9999999999)
sM_sequencia_randomica_str = NumToString(rM_sequencia_randomica, "10,0f")
END

nM_handle is int = fCreate("C:\CLIENT\REQ\INTPOS.TMP")
fWriteLine(nM_handle,"000-000 = " + "CNF")
fWriteLine(nM_handle,"001-000 = " + sM_sequencia_randomica_str)
fWriteLine(nM_handle,"002-000 = " + p_numero_comprovante)
fWriteLine(nM_handle,"010-000 = " + p_operadora)
fWriteLine(nM_handle,"012-000 = " + p_numero_transacao)
fWriteLine(nM_handle,"027-000 = " + p_finalizacao)
fWriteLine(nM_handle,"999-999 = " + "0")
fClose(nM_handle)
Wait(10)
fCopyFile("C:\CLIENT\REQ\INTPOS.TMP","C:\CLIENT\REQ\INTPOS.001")

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END


---------------------------------

Procedure PRIVATE TEF_Gera_Solicitacao(p_000,p_001,p_002,p_003,p_999)

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END

IF vazio(p_001) = False THEN
rM_sequencia_randomica is int = 0
sM_sequencia_randomica_str is string = ""

WHILE Length(NoSpace(sM_sequencia_randomica_str)) < 10
rM_sequencia_randomica = TimeToInteger(TimeSys) + Random(1000000000,9999999999)
sM_sequencia_randomica_str = NumToString(rM_sequencia_randomica, "10,0f")
END

p_001 = sM_sequencia_randomica_str
END

nM_handle is int = fCreate("C:\CLIENT\REQ\INTPOS.TMP")
fWriteLine(nM_handle,"000-000 = " + p_000)
fWriteLine(nM_handle,"001-000 = " + p_001)
IF vazio(p_002) = False THEN
fWriteLine(nM_handle,"002-000 = " + p_002)
END
IF vazio(p_003) = False THEN
fWriteLine(nM_handle,"003-000 = " + p_003)
END
fWriteLine(nM_handle,"999-999 = " + p_999)
fClose(nM_handle)
Wait(10)
fCopyFile("C:\CLIENT\REQ\INTPOS.TMP","C:\CLIENT\REQ\INTPOS.001")

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END


---------------------------------------

Procedure PRIVATE TEF_Nao_Confirmacao(p_identificacao,p_operadora,p_numero_transacao,p_finalizacao)

TEF_Verifica_Gerenciador_Ativo(False,"TEF - NÃO CONFIRMAÇÃO")

rM_sequencia_randomica is int = 0
sM_sequencia_randomica_str is string = ""

WHILE Length(NoSpace(sM_sequencia_randomica_str)) < 10
rM_sequencia_randomica = TimeToInteger(TimeSys) + Random(1000000000,9999999999)
sM_sequencia_randomica_str = NumToString(rM_sequencia_randomica, "10,0f")
END

nM_handle is int = fCreate("C:\CLIENT\REQ\INTPOS.TMP")
fWriteLine(nM_handle,"000-000 = " + "CNF")
fWriteLine(nM_handle,"001-000 = " + sM_sequencia_randomica_str)
fWriteLine(nM_handle,"010-000 = " + p_operadora)
fWriteLine(nM_handle,"012-000 = " + p_numero_transacao)
fWriteLine(nM_handle,"027-000 = " + p_finalizacao)
fWriteLine(nM_handle,"999-999 = " + "0")
fClose(nM_handle)
Wait(10)
fCopyFile("C:\CLIENT\REQ\INTPOS.TMP","C:\CLIENT\REQ\INTPOS.001")

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
IF fDelete("C:\CLIENT\REQ\INTPOS.TMP") = True THEN BREAK
Wait(10)
END
WHILE fFileExist("C:\CONFIG\TEF\INTPOS.001") = True
fDelete("C:\CONFIG\TEF\INTPOS.001")
Wait(10)
END


------------------------------------

Procedure PRIVATE TEF_Processa_Recebimento(p_tipo,p_sequencia,p_cupom,p_valor)

Win_PDV_1_Recebimento.STC_Tef_mensagem = "Consultando TEF..."
Win_PDV_1_Recebimento.STC_Tef_mensagem..Visible = True

TEF_Gera_Solicitacao("CRT","",p_cupom,p_valor,0)

sM_tef_retorno_req is string = ""
sM_tef_retorno_resp is string = ""
sM_tef_transacao_ok is string = ""
bM_tef_transacao_ok_boolean is boolean = False
sM_tef_operadora is string = ""
sM_tef_numero_transacao is string = ""
sM_tef_finalizacao is string = ""
sM_tef_mensagem is string = ""
nM_tef_mensagem_028_000 is int = 0

//

TEF_INICIO:

Win_PDV_1_Recebimento.STC_Tef_mensagem = "Aguardando Processamento TEF..."
//Iconize(Win_PDV_1)

WHILE True
Wait(100)
IF fFileExist("C:\CLIENT\RESP\INTPOS.001") THEN
sM_tef_retorno_req = TEF_Retorno_Requisicao("001-000",1,7,11)
sM_tef_retorno_resp = TEF_Retorno_Resposta("001-000",1,7,11)
IF sM_tef_retorno_req = sM_tef_retorno_resp THEN
BREAK
END
fCopyFile("C:\CLIENT\RESP\INTPOS.001","C:\CONFIG\TEF\INTPOS.001")
BREAK
END
END

MGP_Teclado_Trava_Destrava(0)

sM_tef_transacao_ok = TEF_Retorno_Resposta("009-000",1,7,11)
IF sM_tef_transacao_ok = "0" THEN bM_tef_transacao_ok_boolean = True

sM_tef_operadora = TEF_Retorno_Resposta("010-000",1,7,11)
sM_tef_numero_transacao = TEF_Retorno_Resposta("012-000",1,7,11)
sM_tef_finalizacao = TEF_Retorno_Resposta("027-000",1,7,11)
sM_tef_mensagem = TEF_Retorno_Resposta("030-000",1,7,11)
nM_tef_mensagem_028_000 = Val(TEF_Retorno_Resposta("028-000",1,7,11))

Win_PDV_1_Recebimento.STC_Tef_mensagem..Visible = False

IF bM_tef_transacao_ok_boolean = False THEN
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END

Win_PDV_1_Recebimento.STC_Tef_mensagem = "OPERAÇÃO TEF NÃO REALIZADA!!!"

MGP_Teclado_Trava_Destrava(0)
Restore(Win_PDV_1)

NextTitle("Problema na Transação TEF")
nM_opcao is int
nM_opcao = YesNo(Yes,"Problema na Transação TEF." +CR+CR + "Tentar novamente?")
IF nM_opcao = Yes THEN
GOTO TEF_INICIO
END

sM_tef_transacao_ok = ""

Win_PDV_1_Recebimento.STC_Tef_mensagem = "A Transação TEF não será realizada!"
Win_PDV_1_Recebimento.STC_Tef_mensagem..Visible = True

Open(WIN_PDV_1_TEF_Mensagem,False,sM_tef_mensagem,"","","")

fCopyFile("C:\CLIENT\RESP\INTPOS.001","C:\CONFIG\TEF\" + p_tipo + p_sequencia + "_INTPOS.001")

// if p_tipo = "DEBITO" then
// fCopyFile("C:\CLIENT\RESP\INTPOS.001","C:\CONFIG\TEF\DEBITO_" + p_sequencia + "_INTPOS.001")
// end
// if p_tipo = "DEBITO" then
// fCopyFile("C:\CLIENT\RESP\INTPOS.001","C:\CONFIG\TEF\CREDITO_" + p_sequencia + "_INTPOS.001")
// end
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END
ELSE
Win_PDV_1_Recebimento.STC_Tef_mensagem = "Transação TEF realizada"

MGP_Teclado_Trava_Destrava(0)
Restore(Win_PDV_1)

Open(WIN_PDV_1_TEF_Mensagem,False,sM_tef_mensagem,"","Número da Transação: " + sM_tef_numero_transacao,"")

//

nM_vias is int = 1
bM_identifica_via is boolean = True
nM_ecf_dll_retorno_chamada is int = 0

sM_resposta_tef_txt is UNICODE string = ""
sM_resposta_tef_retorno is string = ""
bM_resposta_tef_imprimir_linha is boolean = False

//

COMPROVANTE_ABRE_VINCULADO:
WHILE True
nM_ecf_dll_retorno_chamada = MGP_ECF_NaoFiscal_Vinculado_Abertura("TEF",p_valor,p_cupom)
IF nM_ecf_dll_retorno_chamada = 0 THEN
NextTitle("Problema no ECF")
IF YesNo(Yes,"Abertura do Comprovante Não Fiscal Vinculado" + CR+CR + "Problemas com o ECF. Tentar novamente?") = No THEN
sM_tef_transacao_ok = False
GOTO FIM
END
ELSE
BREAK
END
END

// via comprovante TEF
nM_handle is int = fOpen("C:\CLIENT\RESP\INTPOS.001")
IF nM_handle > 0 THEN
WHILE sM_resposta_tef_txt <> EOT
IF bM_identifica_via = True THEN
bM_identifica_via = False
bM_resposta_tef_imprimir_linha = True

IF nM_vias = 1 THEN
sM_resposta_tef_retorno = RepeatString(" ",14) + "*** VIA CLIENTE ***" + CR+CR
END
IF nM_vias = 2 THEN
sM_resposta_tef_retorno = RepeatString(" ",11) + "*** VIA ESTABELECIMENTO ***" + CR+CR
END
ELSE
sM_resposta_tef_txt = fReadLine(nM_handle)
IF Middle(sM_resposta_tef_txt,1,4) = "029-" THEN
bM_resposta_tef_imprimir_linha = True

sM_resposta_tef_retorno = Replace(Middle(sM_resposta_tef_txt,11),Charact(34),"")
END
END

IF bM_resposta_tef_imprimir_linha = True THEN
bM_resposta_tef_imprimir_linha = False
WHILE True
nM_ecf_dll_retorno_chamada = MGP_ECF_NaoFiscal_Vinculado_Impressao(sM_resposta_tef_retorno)
IF nM_ecf_dll_retorno_chamada = 0 THEN
NextTitle("Problema no ECF")
IF YesNo(Yes,"Impressão do Comprovante TEF" + CR+CR + "Problemas com o ECF. Tentar novamente?") = No THEN
sM_tef_transacao_ok = False
GOTO FIM
END
ELSE
BREAK
END
END
END
IF Right(sM_resposta_tef_retorno,7) = "(SiTef)" THEN
BREAK
END
END
END
fClose(nM_handle)

sM_resposta_tef_txt = "" // retira a constante EOT para a segunda via
// via comprovante TEF

//

// espaço comprovantes entre 1a e 2a via
IF nM_vias = 1 THEN
FOR nM_linhas = 1 TO 2
WHILE True
nM_ecf_dll_retorno_chamada = MGP_ECF_NaoFiscal_Vinculado_Impressao(" ")
IF nM_ecf_dll_retorno_chamada = 0 THEN
NextTitle("Problema no ECF")
IF YesNo(Yes,"Espaçamento entre vias Cliente e Estabelecimento" + CR+CR + "Problemas com o ECF. Tentar novamente?") = No THEN
sM_tef_transacao_ok = False
GOTO FIM
END
ELSE
BREAK
END
END
END
MGP_ECF_Aciona_Guilhotina(1)
END
// espaço comprovantes entre 1a e 2a via

//

WHILE True
bM_identifica_via = True

nM_ecf_dll_retorno_chamada = MGP_ECF_NaoFiscal_Vinculado_Encerra()
IF nM_ecf_dll_retorno_chamada = 0 THEN
NextTitle("Problema no ECF")
IF YesNo(Yes,"Encerramento do Comprovante Não Fiscal Vinculado" + CR+CR + "Problemas com o ECF. Tentar novamente?") = No THEN
sM_tef_transacao_ok = False
GOTO FIM
END
ELSE
BREAK
END
END

//

IF nM_vias = 1 THEN
nM_vias++

GOTO COMPROVANTE_ABRE_VINCULADO
END

//

WHILE fFileExist("C:\CONFIG\TEF\INTPOS_" + p_tipo + "_" + p_cupom + "_" + p_sequencia + ".001") = False
fRename("C:\CONFIG\TEF\INTPOS.001","C:\CONFIG\TEF\INTPOS_" + p_tipo + "_" + p_cupom + "_" + p_sequencia + ".001")
Wait(10)
END

WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END
END

MGP_Teclado_Trava_Destrava(0)
Restore(Win_PDV_1)

FIM:
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END

RESULT bM_tef_transacao_ok_boolean


----------------------------

Procedure PRIVATE TEF_Retorno_Requisicao(p_qual_resposta,p_qual_resposta_posicao_inicial,p_qual_resposta_posicao_final,p_resposta_posicao_inicial_retorno)

p_qual_resposta = NoSpace(p_qual_resposta)

IF vazio(p_qual_resposta) = True THEN
NextTitle("Consulta TEF")
Warning("É esperado um parâmetro para pesquisa de retorno TEF.")
RESULT ""
END

IF fFileExist("C:\CLIENT\REQ\INTPOS.001") = False AND fFileExist("C:\CONFIG\REQ\INTPOS.001") = False THEN
RESULT ""
END

sM_resposta_tef_txt is UNICODE string = ""
sM_resposta_tef_retorno is string = ""

IF fFileExist("C:\CLIENT\REQ\INTPOS.001") = True THEN
nM_handle is int = fOpen("C:\CLIENT\REQ\INTPOS.001")
IF nM_handle > 0 THEN
WHILE sM_resposta_tef_txt <> EOT
sM_resposta_tef_txt = fReadLine(nM_handle)
IF Middle(sM_resposta_tef_txt,p_qual_resposta_posicao_inicial,p_qual_resposta_posicao_final) = p_qual_resposta THEN
sM_resposta_tef_retorno = Middle(sM_resposta_tef_txt,p_resposta_posicao_inicial_retorno)
END
END
END
fClose(nM_handle)
END

RESULT NoSpace(sM_resposta_tef_retorno)


---------------------------

Procedure PRIVATE TEF_Retorno_Resposta(p_qual_resposta,p_qual_resposta_posicao_inicial,p_qual_resposta_posicao_final,p_resposta_posicao_inicial_retorno)

p_qual_resposta = NoSpace(p_qual_resposta)

IF vazio(p_qual_resposta) = True THEN
NextTitle("Consulta TEF")
Warning("É esperado um parâmetro para pesquisa de retorno TEF.")
RESULT ""
END

IF fFileExist("C:\CLIENT\RESP\INTPOS.001") = False AND fFileExist("C:\CONFIG\TEF\INTPOS.001") = False THEN
RESULT ""
END

sM_resposta_tef_txt is UNICODE string = ""
sM_resposta_tef_retorno is string = ""

IF fFileExist("C:\CLIENT\RESP\INTPOS.001") = True THEN
nM_handle is int = fOpen("C:\CLIENT\RESP\INTPOS.001")
IF nM_handle > 0 THEN
WHILE sM_resposta_tef_txt <> EOT
sM_resposta_tef_txt = fReadLine(nM_handle)
IF Middle(sM_resposta_tef_txt,p_qual_resposta_posicao_inicial,p_qual_resposta_posicao_final) = p_qual_resposta THEN
sM_resposta_tef_retorno = Middle(sM_resposta_tef_txt,p_resposta_posicao_inicial_retorno)
END
END
END
fClose(nM_handle)
END

RESULT NoSpace(sM_resposta_tef_retorno)


----------------------------------

Procedure PRIVATE TEF_Verifica_Gerenciador_Ativo(p_minimiza_tela,p_modulo_chamada)

WHILE fFileExist("C:\CLIENT\RESP\INTPOS.FIM") = True
fDelete("C:\CLIENT\RESP\INTPOS.FIM")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.STS") = True
fDelete("C:\CLIENT\RESP\INTPOS.STS")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.001") = True
fDelete("C:\CLIENT\REQ\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END

IF p_minimiza_tela = True THEN
//Iconize(Win_PDV_1_Recebimento)
END

//

bM_gerenciador_tef_ativo is boolean = True
nM_espera_arquivo_retorno is int = 1

WHILE True
nM_espera_arquivo_retorno++

Verifica_Gerenciador:
IF ExeRunning("ClientSiTef.exe") = False OR nM_espera_arquivo_retorno >= 28 THEN
nM_espera_arquivo_retorno = 1

Restore(win_pdv_1)

NextTitle("Gerenciador TEF - (" + p_modulo_chamada + ")")
Info("O Gerenciador Padrão não está ativo e será ativado automaticamente.")
IF ExeRun("C:\Client\ClientSiTef.exe",exeActive,exeDontWait,"C:\Client") = False THEN
NextTitle("Gerenciador Padrão")
Warning("Gerenciador Padrão não encontrado para execução!")

bM_gerenciador_tef_ativo = False
ELSE
Wait(1600)
END

IF p_minimiza_tela = True THEN
//Iconize(Win_PDV_1)
ELSE
Restore(Win_PDV_1)
END
END

IF ExeRunning("ClientSiTef.exe") = True THEN
TEF_Gera_Solicitacao("ATV","1","","","0")
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.STS") = False
Wait(100)
nM_espera_arquivo_retorno++
IF nM_espera_arquivo_retorno >= 28 THEN
GOTO Verifica_Gerenciador
END
END
END
IF fFileExist("C:\CLIENT\RESP\INTPOS.STS") = True THEN
bM_gerenciador_tef_ativo = True
BREAK
END
END

WHILE fFileExist("C:\CLIENT\RESP\INTPOS.STS") = True
fDelete("C:\CLIENT\RESP\INTPOS.STS")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\REQ\INTPOS.TMP") = True
fDelete("C:\CLIENT\REQ\INTPOS.TMP")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END

IF p_minimiza_tela = True THEN
//Iconize(Win_PDV_1)
ELSE
Restore(Win_PDV_1)
END

RESULT bM_gerenciador_tef_ativo


-------------------------------------

Procedure PRIVATE TEF_Verifica_Situacao_Transacao()

sM_tef_numero_cupom is string = ""
sM_tef_valor is string = ""
sM_tef_operadora is string = ""
sM_tef_finalizacao is string = ""
sM_tef_transacao is string = ""

//

sM_arquivo_disco_nome is string
sM_arquivo_disco_path is string
sM_arquivo_lista is string

sM_arquivo_lista = fListFile("C:\CONFIG\TEF\*.001") // os arquivos dos comprovantes são apagados logo após a confirmação da transação
FOR EACH STRING sM_arquivo_disco_nome OF sM_arquivo_lista SEPARATED by CR
sM_arquivo_disco_nome = NoSpace(sM_arquivo_disco_nome)

sM_arquivo_disco_path = sM_arquivo_disco_nome
sM_arquivo_disco_nome = Middle(sM_arquivo_disco_nome,PositionOccurrence(sM_arquivo_disco_nome,"\",1,FromEnd) + 1)

fCopyFile(sM_arquivo_disco_path,"C:\CLIENT\RESP\INTPOS.TMP")
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = False
fCopyFile("C:\CLIENT\RESP\INTPOS.TMP","C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.TMP") = True
fDelete("C:\CLIENT\RESP\INTPOS.TMP")
Wait(10)
END

sM_tef_numero_cupom = TEF_Retorno_Resposta("001-000",1,7,11)
sM_tef_valor = TEF_Retorno_Resposta("003-000",1,7,11)
sM_tef_operadora = TEF_Retorno_Resposta("010-000",1,7,11)
sM_tef_transacao = TEF_Retorno_Resposta("012-000",1,7,11)
sM_tef_finalizacao = TEF_Retorno_Resposta("027-000",1,7,11)

TEF_Nao_Confirmacao("",sM_tef_operadora,sM_tef_transacao,sM_tef_finalizacao)

WHILE fFileExist(sM_arquivo_disco_path) = True
fDelete(sM_arquivo_disco_path)
Wait(10)
END
WHILE fFileExist("C:\CLIENT\RESP\INTPOS.001") = True
fDelete("C:\CLIENT\RESP\INTPOS.001")
Wait(10)
END

Open(WIN_PDV_1_TEF_Mensagem,False,"Rede: " + sM_tef_operadora,"NSU: " + sM_tef_transacao,"Valor: " + sM_tef_valor,"")
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/