PC Toledo

Boa Noite !

Estou com o seguinte problema:
Preciso enviar um arquivo xml para um webservice criado pela administradora do nosso ERP.

o xml é pequeno:
<FichaAnalise>
<U_DataIns>2015-10-18</U_DataIns>
<U_Data>2015-10-18</U_Data>
<U_Item>PG01012</U_Item>
<U_R_OP>OP</U_R_OP>
<U_Quantidade>10000</U_Quantidade>
<U_BatchNum>023/15</U_BatchNum>
<U_Ficha>2</U_Ficha>
<U_TipoAnal>3</U_TipoAnal>
<U_FormAnal>2</U_FormAnal>
<U_Aprovador>6</U_Aprovador>
<U_NumPN></U_NumPN>
<U_Safra>14/15</U_Safra>
<U_NumDoc>0</U_NumDoc>
</FichaAnalise>

o caminho do webservice:
http://localhost:9292/WebService1.asmx ... chaAnalise

Em um programa interno é coletado as informações do xml acima que será transmitido para o webservice que fará a inclusão dos dados no banco.

Já fiz vários testes com base nos exemplos de NFe, não deu muito certo, então....não tenho ideia de como montar o programa.

Alguém teria um exemplo (Sem ser exemplo de NFe..rsrs) pra ajudar ?

* Usando atualmente HMG 3.1.1 com SqlServer / Oracle

******
acessando o endereço pela rede tenho o seguinte retorno:

SOAP 1.1

O exemplo a seguir mostra uma solicitação e uma resposta SOAP 1.1. Os espaços reservados mostrados devem ser substituídos por valores reais.

POST /WebService1.asmx HTTP/1.1
Host: 187.72.11.129
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://tempuri.org/InsereFichaAnalise"

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<InsereFichaAnalise xmlns="http://tempuri.org/">
<CaminhoXML>string</CaminhoXML>
</InsereFichaAnalise>
</soap:Body>
</soap:Envelope>
HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<InsereFichaAnaliseResponse xmlns="http://tempuri.org/">
<InsereFichaAnaliseResult />
</InsereFichaAnaliseResponse>
</soap:Body>
</soap:Envelope>
SOAP 1.2

O exemplo a seguir mostra uma solicitação e uma resposta SOAP 1.2. Os espaços reservados mostrados devem ser substituídos por valores reais.

POST /WebService1.asmx HTTP/1.1
Host: 187.72.11.129
Content-Type: application/soap+xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<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>
<InsereFichaAnalise xmlns="http://tempuri.org/">
<CaminhoXML>string</CaminhoXML>
</InsereFichaAnalise>
</soap12:Body>
</soap12:Envelope>
HTTP/1.1 200 OK
Content-Type: application/soap+xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<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>
<InsereFichaAnaliseResponse xmlns="http://tempuri.org/">
<InsereFichaAnaliseResult />
</InsereFichaAnaliseResponse>
</soap12:Body>
</soap12:Envelope>

Grato.
Luiz.

Amigo, sem fazer teste fica complicado tentar ajudar, mas segue um exemplo:
Obs: mensagem editada para declarar a variável cMsgRet:="" no início da função.

Chame a função, passando o arquivo xML para envio, por exemplo: cRetorno:=EnviaXML("c:\pasta\arquivo.xml")

Abraços,

Bom dia !

Exatamente (rs), não sabia por onde iniciar.

Obrigado Toledo, vou iniciar os testes.

Abraço.
Luiz.

Só comentário: Como todo exemplo de transmissão é assim, acaba parecendo que o DomDocument é obrigatório.
Poderia ser transmitido assim:
Se quiser tirar a prova, é só fazer a comparação antes de transmitir

Quais o requisitos Toledo ?

**o programa em questão vai usar adodb.ch (para pegar dados do banco local)


tá dando erro: winole/1007 (0x80072ee6): msxml5.dll

aparentemente tá normal aqui...alguma sugestão ?

Grato.
Luiz.

Amigo, incluir a LIB hbwin na compilação.

Abraços,

Altere igual acima, senão vai precisar instalar o XML 5.0, que não faz parte do Windows.

Obrigado Toledo e José Quintas.

Fiz as inclusões e alterações passadas, o erro agora mudou de msxml5.dll para msxml3.dll (rsrs...tá diminuindo...rs).

"ERROR WINOLE/1007 Erro de sistema: -2147012890 (0x80072EE6): msxml3.dll (DOS Error -2147352567).

reinstalei o XML 3 e nada, li em algum lugar que precisa de um ODBC (Driver para algo...mas o que ? a mens. não descreve o uso do ODBC)

Alguma Luz ?.

Grato.
Luiz.

Mas olhou em qual linha acontece isso?
Se na comunicação ou no DomDocument?

Outro detalhe....

Tem o pocketsoap para x64? (win 8.1) ?, procurei na net mas não encontrei ou não soube procurar.

Abraço.
Luiz.

Aqui Windows 7, arquivos originais do Windows.

c:\Windows\System32\msxml3.dll
c:\Windows\System32\msxml3r.dll
c:\Windows\System32\msxml6.dll
c:\Windows\System32\msxml6r.dll

c:\Windows\SysWOW64\msxml3.dll
c:\Windows\SysWOW64\msxml3r.dll
c:\Windows\SysWOW64\msxml6.dll
c:\Windows\SysWOW64\msxml6r.dll

Se o Windows já tem isso, não imagino porque instalar o PocketSoap.

Boa tarde novamente José Quintas !

o que colocar em cMsgRet se errorcode = 0 ?, sendo zero vai dar erro no if abaixo não é ?

IF oDOMDoc:parseError:errorCode <> 0
cMsgRet:='Erro: xML nao carregado'
ENDIF

IF Empt(cMsgRet)
TRY
oServerWS:send(oDOMDoc:xml)
CATCH oError
cMsgRet:='Falha no envio do xML'
END
ENDIF

Compilar usando -w3 -es2 já avisaria isso... rs... só comentário...
Pode fazer isso no início.

blz...rsrs

agora só tá dando erro 1005 no exported variable ASYNC, que está definida com valor .F.

Abraço.
Luiz.

luiz antonio da silva escreveu:sendo zero vai dar erro no if abaixo não é ?

Amigo, quando copiei esta função de um dos meus programas, andei retirando algumas linhas de código que era específico do meu programa, então acabei retirando a linha onde era declarado a variável cMsgRet:="". Para corrigir, basta no início da função declarar a variável:
Abraços,