PC Toledo

Código: Selecionar todos

 FUNCTION Pbm_PharmaLink_Elegibilidade_Portador_WS()

 LOCAL aRetorno:={}, aTela

   xmldom = CREATEOBJECT("MSXML2.DOMDocument")
   xmldom:async = .T.
   xmldom:validateOnParse = .T.
   xmldom:resolveExternals := .T.
   xmldom:preserveWhiteSpace = .T.

   url :=  'http://www.conectapdv.com.br/concentrador/concentrador.asmx?wsdl'
   xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
   xmldoc:open("POST", url, .F.)
   xmldoc:SetRequestHeader( "Host" , "www.conectapdv.com.br" )
   xmldoc:SetRequestHeader( "Content-Type" , "text/xml; charset=utf-8" )
   xmldoc:SetRequestHeader( "SOAPAction" , "http://tempuri.org/WS_Eleg_Portador" )

   cCnpj      := '2876311800190'
   cTerminal  := '000001'
   cAutentica := '51131212'

   cProjeto   := 'SAN001'
   cTimestamp := STRTRAN(DTOC(DATE()),"/","") + STRTRAN(TIME(),":","")
   cCPF       := '0'
   cCartao    := '4116680730400158'
   cCanal     := ''

   Texto := '<?xml version="1.0" encoding="utf-8"?>'
   Texto +=  '<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://tempuri.org/">'
   Texto +=   '<SOAP-ENV:Body>'
   Texto +=   '<ns1:WS_Eleg_Portador xmlns:ns1="http://tempuri.org/">'

   Texto +=   '<ns1:cIdentifica>'

   Texto +=   '<identifica>'
   Texto +=   '<cnpj>'       + cCnpj      + '</cnpj>'
   Texto +=   '<terminal>'   + cTerminal  + '</terminal>'
   Texto +=   '<autentica>'  + cAutentica + '</autentica>'
   Texto +=   '</identifica>'

   Texto +=   '</ns1:cIdentifica>'

   Texto +=   '<cProjeto>'   + cProjeto   + '</cProjeto>'
   Texto +=   '<cTimestamp>' + cTimestamp + '</cTimestamp>'
   Texto +=   '<cCartao>'    + cCartao    + '</cCartao>'
   Texto +=   '<nCPF>'       + cCPF       + '</nCPF>'
   Texto +=   '<cCanal>'     + cCanal     + '</cCanal>'

   Texto +=   '</ns1:WS_Eleg_Portador>'
   Texto +=   '</SOAP-ENV:Body>'
   Texto +=   '</SOAP-ENV:Envelope>'

	xmldom:LoadXML(Texto)
	
	IF xmldom:parseError:errorCode = 0
      *MSG_BOX("XML Carregado")
	 ELSE
      cErrorMsg = "Não foi possível carregar o documento pois ele não corresponde ao seu Schema"
      cErrorMsg += cErrorMsg + " Linha: " + STR(xmldom:parseError:line) + cCRLF
      cErrorMsg += cErrorMsg + " Caractere na linha: " + STR(xmldom:parseError:linepos) + cCRLF
      cErrorMsg += cErrorMsg + " Causa do erro: " + xmldom:parseError:reason + cCRLF
      cErrorMsg += "code: "+STR(xmldom:parseError:errorCode)
	   MSG_BOX(cErrorMsg)
	ENDIF
	
	xmldoc:send(xmldom:xml)
	
   aTela:=MENSAGEM('Comunicando com o WebService...',2)

	DO WHILE xmldoc:readyState <> 4
      MILLISEC(50)
	ENDDO

   FECHAJANELA(aTela)

   *
   Linha:=HtmlToAnsi(xmldoc:responseText)
   Linha2:=HtmlToAnsi(xmldoc:responseXML:xml)
   *
   MSG_BOX(Linha)
   MSG_BOX(Linha2)
   *
 RETURN(aRetorno)