Página 1 de 1
recarga de celular
Enviado: 26 Jul 2011 14:28
por coutinho
Amigos
alguem ja fez via web
Atc
Nota de Moderação:por
Toledo: A mensagem seguinte foi unida a este tópico pois tratam do mesmo assunto. Por favor, evite postar vários tópicos seguidos um dos outros com o mesmo assunto apenas porque o anterior não foi respondido.
recarga de celular
Enviado: 03 Ago 2011 18:14
por coutinho
Senhores
estou fazendo assim , esta retornando erro , alguem ja fez ou se habilita ajudar
Código: Selecionar todos
#INCLUDE "FiveWin.ch"
#INCLUDE "FileIO.ch"
#INCLUDE "Xml.ch"
Function Main()
set century off
Msgrun("Processando....." ,"Aguarde...",{|| CallWebService() })
Return Nil
****************************************************************************
FUNCTION CallWebService()
****************************************************************************
*
* envia o arquivo xml via https
* Parametros: arquivo xml a ser enviado
*
****************************************************************************
local cxml := Montaxml()
local Texto := MEMOREAD(cxml)
//-- verifica se ha conexão com a internet
IF(!IsInternet())
MsgInfo("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação")
return NIL
ENDIF
//-- instancia objeto http
try
xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
catch
try
xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
catch
Msginfo("Erro na criação do objeto MSXML2.XMLHTTP : " + Ole2TxtError())
return NIL
end
end
xmldoc:open("POST", "https://www.cellcard.com.br/teste/integracao_xml.php/" + Texto , .F.)
xmldoc:send()
//-- aguarda alguns segundos a resposta
While xmldoc:readyState <> 4
?? ALLTRIM(STR(xmldoc:readyState))
millisec(50)
End
MEMOEDIT(xmldoc:responseText)
RETURN(xmldoc:responseText)
****************************************************************************
FUNCTION Montaxml()
****************************************************************************
*
* Gera o arquivo xml
*
****************************************************************************
local oXml
local Timestamp := STRTRAN(DTOC(date()),"/","") + STRTRAN(LEFT(time(),5),":","")
local codcompra := "" , codprod := "" , cvalor := "" , cddd := ""
local cfone := "" , codret := "" , dtconsul := "" , codonline := ""
XML oXml FILE "Cellcard.XML" FORMATED
XML OPEN MARK "cellcard" of oXml
XML OPEN MARK "codigo_transacao" TAG "1" AUTOCLOSE OF oXml
XML OPEN MARK "loja_primaria" TAG "teste" AUTOCLOSE OF oXml
XML OPEN MARK "nome_primario" TAG "teste" AUTOCLOSE OF oXml
XML OPEN MARK "senha_primaria" TAG "teste" AUTOCLOSE OF oXml
XML OPEN MARK "compra" TAG codcompra AUTOCLOSE OF oXml
XML OPEN MARK "produto" TAG codprod AUTOCLOSE OF oXml
XML OPEN MARK "valor" TAG cvalor AUTOCLOSE OF oXml
XML OPEN MARK "ddd" TAG cddd AUTOCLOSE OF oXml
XML OPEN MARK "fone" TAG cfone AUTOCLOSE OF oXml
XML OPEN MARK "id_terminal" TAG "000001" AUTOCLOSE OF oXml
XML OPEN MARK "uf_terminal" TAG "RJ" AUTOCLOSE OF oXml
XML OPEN MARK "dataHoraOperacao" TAG Timestamp AUTOCLOSE OF oXml
XML OPEN MARK "versao" TAG "3.6" AUTOCLOSE OF oXml
XML OPEN MARK "cod_retorno" TAG codret AUTOCLOSE OF oXml
XML OPEN MARK "dataConsulta" TAG dtconsul AUTOCLOSE OF oXml
XML OPEN MARK "cod_online" TAG codonline AUTOCLOSE OF oXml
XML CLOSE MARK of oXml "cellcard"
XML END oXml
RETURN( "Cellcard.XML" )