سلام جناب آقای مهندس Mazoolagh
من بعد مدتها و با استفاده از راهنماییهای شما توانستم ارسال اطلاعات را در اکسس به وب سرویس تامین را انجام دهم ولی نتونستم پیغامهای ارسالی و ارروها را دریافت کنم
یعنی قسمتهای آخر دستورات شما را نتونستم اجرا کنم ( طبق فرموده شما یه استرینق درست کردم و با دستوراتی که نوشته بودید ارسال کردم مراحال هیچ خطایی نمیده فقط چون جواب را نمیتونم بگیرم نمیتونم اشمالات را رفع نمایم در خود سایت اگه بفرستیم پیغام خطای مربوطه را میاره و یا اگه ثبت بشه کد رهگیری میده)
PUBLIC FUNCTION SAVE_REQUEST(ID AS LONG) AS REQUEST_RESPONSE
DIM RR AS REQUEST_RESPONSE
....
'عملیات ارسال و دریافت
....
RR.REQUEST_RESULT=....بجای نقاط .... چی باید بزاریم اگه لطف کنید راهنمایی کنید ممنون میشم
RR.ERROR_MESSAGE=....
RR.REQUEST_ID=....
SAVE_REQUEST=RR
البته من به شکل زیر نوشتم اررور 500 را یمده
Dim XM As String
XM = "<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/""><P1></P1><P2></P2><sBletSerial>137684953428001104</sBletSerial><sPrescDate>1396/01/23</sPrescDate><sDOCID>95274</sDOCID><sDOC_FNAME></sDOC_FNAME><sParType>04</sParType><sCust_Service_type>4020</sCust_Service_type><sBastari>0</sBastari><sParList></sParList><sParListJson>[{""TAREFCODE"":701655,""Num"":1""}]</sParListJson></Save_Request></soap12:Body></soap12:Envelope>"
Const WSURL As String = "https://darman.tamin.ir/Webservice/ApplyParNoteWebService.asmx"
Dim XML_HTTP As New MSXML2.XMLHTTP60
XML_HTTP.Open "POST", WSURL, False
XML_HTTP.setRequestHeader "HOST", "DARMAN.TAMIN.IR"
XML_HTTP.setRequestHeader "CONTENT-TYPE", "application/soap+xml; charset=utf-8"
XML_HTTP.setRequestHeader "SOAPACTION", "https://tempuri.org/Save_Request"
XML_HTTP.send XM
Dim XML_DOC As New MSXML2.DOMDocument60
If XML_HTTP.Status = 200 Then
XML_DOC.loadXML XML_HTTP.responseText
'
Else
'
'
End If
پاسخ با نقل قول