PC Toledo

Código: Selecionar todos

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

url := "http://189.1.164.238:8080/issonline/servlet/anfse"  //webservice de Penápolis
xmldoc = win_oleCREATEOBJECT("MSXML2.XMLHTTP.6.0")
xmldoc:open("POST", url, .F.)
xmldoc:setrequestheader("Content-Type","application/x-www-form-urlencoded")
xmldoc:setRequestHeader("SOAPAction", "nfseaction/ANFSE.Execute" )

  Texto := '<?xml version="1.0" encoding="ISO-8859-1"?>'
  Texto += '<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"';
                                   + ' xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tns="nfse" xmlns:wsdlns="nfse" xmlns:tns1="ISS">'
  Texto += '<SOAP-ENV:Body>'
  Texto +=  '<wsdlns:Nfse.Execute xmlns:wsdlns="nfse">'
  Texto +=    '<wsdlns:Operacao>'+cOperacao+'</wsdlns:Operacao>'
  Texto +=    '<wsdlns:Usuario>'+cCNPJ+'</wsdlns:Usuario>'           
  Texto +=    '<wsdlns:Senha>'+cSenha+'</wsdlns:Senha>'
  Texto +=    '<wsdlns:Webxml>'
  Texto +=       '<NFSE>'                                       // para quem não sabe usa-se < para < e > para >, pois é um xml dentro de outro 
  Texto +=          '<IDENTIFICACAO>                     // então usa-se dessa maneira para não terminar a tag prematuramente
  Texto +=             '<INSCRICAO>76337</INSCRICAO>'
  Texto +=             '<LOTE>18</LOTE>'
  Texto +=             '<SEQUENCIA>9</SEQUENCIA>'
  Texto +=          '</IDENTIFICACAO>'
  Texto +=       '</NFSE>'
  Texto +=    '</wsdlns:Webxml>'
  Texto +=  '</wsdlns:Nfse.Execute>'
  Texto += '</SOAP-ENV:Body>'
  Texto += '</SOAP-ENV:Envelope>'

xmldom:LoadXML(Texto)
IF xmldom:parseError:errorCode = 0
   ? "XML Carregado"
ELSE
  lcErrorMsg = "Não foi possível carregar o documento pois ele não corresponde ao seu Schema"
  lcErrorMsg = lcErrorMsg + " Linha: " + STR(xmldom:parseError:line)
  lcErrorMsg = lcErrorMsg + " Caractere na linha: " + STR(xmldom:parseError:linepos)
  lcErrorMsg = lcErrorMsg + " Causa do erro: " + xmldom:parseError:reason;
               +"code: "+STR(xmldom:parseError:errorCode)
  ? lcErrorMsg
ENDIF
? "text "+xmldom:text
? "XML1 "+xmldom:xml
xmldoc:send(xmldom:xml)
?
do while xmldoc:readyState <> 4
  ?? ALLTRIM(STR(xmldoc:readyState))
  millisec(50)
enddo
? "Resposta"
? "TEXT "+xmldoc:responseText
? "XML "+ xmldoc:responseXML:xml

Código: Selecionar todos

d:\bcc55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT' referenced from D:\TESTEXHB\TESTHTTPS.OBJ

Código: Selecionar todos

#include "common.ch"
#include "hbclass.ch"
#include "hbwin.ch"
#include "hbcompat.ch"