PC Toledo

Código: Selecionar todos

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

FUNCTION main()

LOCAL xmldom, url, xmldoc, Texto, lcErrorMsg
    local cCnpj      := "03541829000190"
    local cTerminal  := "001"
    local cAutentica := "1296019554"
    local cProjeto   := "SAN001"
    local cTimestamp := STRTRAN(DTOC(date()),"/","") + STRTRAN(time(),":","")
    local cNcartao   := "4846230717600087"
    local cCpf       := "0"
    local cNsu       := "01" 
    LOCAL cCanal    :="''" 
    LOCAL nArq:=0                                  //-- numero da transacao


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"
xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
xmldoc:open("POST", url, .F.)
xmldoc:SetRequestHeader( "Host" , "www.conectapdv.com.br" )
xmldoc:SetRequestHeader( "Content-Type" , 'text/xml; charset="windows-1252"' )
xmldoc:SetRequestHeader( "SOAPAction" , "http://tempuri.org/WS_Eleg_Portador" )


   Texto := '<?xml version="1.0" encoding="windows-1252"?>'          +;
               '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">' +;
                ' <soap12:Body>'                                  +;
                ' <WS_Eleg_Portador xmlns="http://tempuri.org/">' +;
                ' <cIdentifica><identifica><cnpj>' + cCnpj + '</cnpj><terminal>' + cTerminal + '</terminal><autentica>' + cAutentica + '</autentica></identifica></cIdentifica>'+;
                ' <cProjeto>'   + cProjeto   + '</cProjeto>'      +;
                ' <cTimestamp>' + cTimestamp + '</cTimestamp>'    +;
                ' <cCartao>'    + cNcartao   + '</cCartao>'       +;
                ' <nCPF>'       + cCpf       + '</nCPF>'          +;
                ' <cCanal>'     + cCanal     + '</cCanal>'        +;
                ' </WS_Eleg_Portador>'                            +;
                ' </soap12:Body>'                                 +;
               '</soap12: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 "+xmldoc:responseText
? "XML "+ xmldoc:responseXML:xml
nArq := fcreate("c:\xml.xml")
fwrite(nArq, xmldoc:responseXML:xml )
fclose(nArq)


return( .t. )