TEF - Transfência Eletrônica Financeira - Transferência de fundos através de cartão de Crédito/Debito |
|
|
TEF - Transfência Eletrônica Financeira - Transferência de fundos através de cartão de Crédito/Debito
TEF - Electronic Financial Transference - Transfer of funds through Credit / Debit Card
|
| |
| |
| Illustrations, screen shots |
|
| |
(To evaluate this resource, click 'Write a review') |
| | | |
No review or comment? Be the first one! |
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 |
| | |
| | | |