Hi I can’t set P_TAX_ID so code give error
Sub Initialize
Dim session As New NotesSession
Dim dbThis As NotesDatabase
Dim doc As NotesDocument
Dim y As Xsd_string
Dim TaxQuery As New XXEFA_REGISTERED_USERS_WS_PKG_n0
Dim Value As QueryTAXIDResponse_n0
Dim TaxCode As New QueryTAXIDRequest_n0
TaxCode.P_tax_id.Setvaluefromstring(“7690423575”)
Set Value = TaxQuery.QUERY_TAX_ID(TaxCode)
Set dbThis = session.Currentdatabase
Set doc = dbThis.Createdocument
doc.Form = “Company”
doc.Value = value.Getvalueasstring()
Call doc.Save(True,False)
End Sub
WSDL codes
%INCLUDE “lsxsd.lss”
Class QueryTAXIDResponse_n0 As XSD_ANYTYPE
Public REGISTERED_USER_LIST As XxefaREGISTEREDUSERTBL_n0
Public x_RETCODE As XSD_STRING
Public x_RETMSG As XSD_STRING
Sub NEW
End Sub
End Class
Class QueryTAXIDRequest_n0 As XSD_ANYTYPE
Public p_TAX_ID As XSD_STRING
Sub NEW
End Sub
End Class
Class UdtBASE_n0 As XSD_ANYTYPE
Sub NEW
End Sub
End Class
Class XxefaREGISTEREDUSERT_n0 As UdtBASE_n0
Public ALIAS As XSD_STRING
Public IDENTIFIER As XSD_STRING
Public REGISTERTIME As XSD_DATETIME
Public TITLE As XSD_STRING
Public TYPE As XSD_STRING
Sub NEW
End Sub
End Class
Class XxefaREGISTEREDUSERTBL_n0 As UdtBASE_n0
Public REGISTERED_USER() As XxefaREGISTEREDUSERT_n0
Sub NEW
End Sub
End Class
Const n0 = “http://ws.xxtg/”
Class XXEFA_REGISTERED_USERS_WS_PKG_n0 As PortTypeBase
Sub NEW
Call Service.Initialize (“HttpWsXxtgXXEFA_REGISTERED_USERS_WS_PKG”, _
“XXEFA_REGISTERED_USERS_WS_PKG.XXEFA_REGISTERED_USERS_WS_PKGPort”, “http://10.6.240.60:8080/xxefa_registered_users_ws_pkg/XXEFA_REGISTERED_USERS_WS_PKG”, _
“XXEFA_REGISTERED_USERS_WS_PKG_n0”)
End Sub
Function QUERY_TAX_ID(request As QueryTAXIDRequest_n0) As QueryTAXIDResponse_n0
Set QUERY_TAX_ID = Service.Invoke(“QUERY_TAX_ID”, request)
End Function
End Class