I don't know how to set this wsdl to my vba program to send request in web service. Please help me.

[jobethflores901]

This is the content of wsdl

<!-- Published by JAX-WS RI at http://jax-ws.dev.java.net. RI's version is Oracle JAX-WS 2.1.5. -->
<!-- Generated by JAX-WS RI at http://jax-ws.dev.java.net. RI's version is Oracle JAX-WS 2.1.5. -->
<definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="http://webservice.amsws.project.com/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/wsdl/" targetNamespace="http://webservice.amsws.project.com/" name="amswsService">
<types>
<xsd:schema>
<xsd:import namespace="http://webservice.amsws.project.com/" schemaLocation="http://wws.sss.gov.ph:80/testamsws/sss/amsws?xsd=1"/>
</xsd:schema>
</types>
<message name="loadEmployerStatus">
<part name="parameters" element="tns:loadEmployerStatus"/>
</message>
<message name="loadEmployerStatusResponse">
<part name="parameters" element="tns:loadEmployerStatusResponse"/>
</message>
<message name="submitPaidBRNum">
<part name="parameters" element="tns:submitPaidBRNum"/>
</message>
<message name="submitPaidBRNumResponse">
<part name="parameters" element="tns:submitPaidBRNumResponse"/>
</message>
<portType name="amsws">
<operation name="loadEmployerStatus">
<input message="tns:loadEmployerStatus"/>
<output message="tns:loadEmployerStatusResponse"/>
</operation>
<operation name="submitPaidBRNum">
<input message="tns:submitPaidBRNum"/>
<output message="tns:submitPaidBRNumResponse"/>
</operation>
</portType>
<binding name="amswsBinding" type="tns:amsws">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
<operation name="loadEmployerStatus">
<soapperation soapAction=""/>
<input>
<soap:body use="literal"/>
</input>
<output>
<soap:body use="literal"/>
</output>
</operation>
<operation name="submitPaidBRNum">
<soapperation soapAction=""/>
<input>
<soap:body use="literal"/>
</input>
<output>
<soap:body use="literal"/>
</output>
</operation>
</binding>
<service name="amswsService">
<port name="amsws" binding="tns:amswsBinding">
<soap:address location="Web Services"/>
</port>
</service>
</definitions>

 

[jobethflores901]

This is my code in VBA. I am a newbie in terms of webservice.
Public Sub GETprnEmployer()

Dim request As XMLHTTP60
Dim myValue As String
Dim doc As DOMDocument60

myValue = "" 'Employer PRN or SSS Number

Set request = New XMLHTTP60
Set doc = New DOMDocument60

With request
.Open "GET", "Web Services" & myValue, False
.send
doc.LoadXML (.responseText)
End With

Debug.Print doc.SelectSingleNode("//string")

End Sub

Public Sub POSTprnEmployer()

Dim request As XMLHTTP60
Dim myValue As String
Dim TokenID As String
Dim doc As DOMDocument60

'myValue = frmEmployerMemberTab1.txtEmployerVerifyingPRN.Value
myValue = "HF210214399251"
TokenID = "B0BB9B0F1F5C30D13A1E0D211DA45A62EA12D5D289611D33F1258A8DE514FFC4BE1E89CF1D4A1F1C0A83313194A9BB1DA01AB295522897395EC1C9C95CD4020FF1719E386D8F2DAAD0FA195DAC5D7C90C15A96C6AC9EA4E5DC27DC4BDF86942631D4630B521E6F7F6327A4D02B88104E2FA037E8896AE19F84D6404E857A8AD918C58CA1A17A9CD40171209238EAC529620D5AD7BF7C521770111DE141734170B3460F26C4CA8FD863B2A7C2CC8BC87FE4CF5B64FD9970196A7D83F2E72CD04F0548D001AD6F1271C6F0D1C2D1E9B1AD4EE80988A38087BCC192DF8E2422287A58C5215D15C89050DDCF00F6B8B98198"

Set request = New XMLHTTP60
Set doc = New DOMDocument60

With request
.Open "POST", "Web Services HTTP/1.1" & myValue, False
.setRequestHeader "Content-Type", "text/xml;charset=UTF-8"
.send "brnum=" & myValue
'.send "TokenID=" & TokenID
doc.LoadXML (.responseText)
End With

Debug.Print doc.SelectSingleNode("//replyCode")

End Sub