recarga de celular

[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.

[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" )