Example of Classic ASP SOAP ProcessJournal

Modified on Fri, 24 Dec, 2021 at 10:28 AM

Introduction


Below you will find an example of an application that allows you to submit general journal entries in Yuki by using Classic ASP via the Accounting-ProcessJournal(sessionID, administrationID, xmlDoc) method. 


Example


<%
Dim objXmlHttp
Dim objXmlHttp2
Dim strSessionId
Dim strXml
Dim strAccessKey
Dim strAdministrationId
Dim strWebserviceUrl
Dim strJournalXml

strAccessKey = "VERVANGEN MET WEBSERVICEACCESSKEY"
strAdministrationId = "VERVANGEN MET ADMINISTRATIONID"
strWebserviceUrl = "https://api.yukiworks.nl/ws/Accounting.asmx"

' Build SOAP XML message for WebServiceMethod "http://www.theyukicompany.com/Authenticate".
strXml = "<?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>" & _

                "<Authenticate xmlns=""http://www.theyukicompany.com/"">" & _

                "<accessKey>" & strAccessKey & "</accessKey>" & _

                "</Authenticate>" & _

                "</soap12:Body>" & _

                "</soap12:Envelope>"

' Create ServerXMLHTTP object.
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "POST", strWebserviceUrl, False
objXmlHttp.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
objXmlHttp.setRequestHeader "SOAPAction", "http://www.theyukicompany.com/Authenticate"
objXmlHttp.setRequestHeader "Content-Length", Len(strXml)

' Send SOAP message.
objXmlHttp.send strXml

' Print out the request status.
Response.Write "WebServiceMethod ""Authenticate"" request status: <b>" & objXmlHttp.status & " " & objXmlHttp.statusText & "</b><br /><br />"

' Print out the SOAP XML response.
Response.Write "<div style=""border: solid 1px black;"">" & Server.HTMLEncode(objXmlHttp.responseText) & "</div><br /><br />"

' Parse sessionKey from SOAP XML response with ActiveXObject. If the ActiveXObject "MSXML2.DomDocument.X.X" cannot be found try to find
' another version on MSDN.
Set objXML = Server.CreateObject("MSXML2.DomDocument.3.0")
objXML.loadXML(objXmlHttp.responseText)
strSessionId = objXML.selectNodes("/").item(0).text

Set objXML = Nothing
Set objXmlHttp = Nothing

strJournalXml = "<Journal xmlns=""urn:xmlns:http://www.theyukicompany.com:journal""" & _

                        " xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">" & _

                        "    <AdministrationID>" & strAdministrationId & "</AdministrationID>" & _

                        "    <AdministrationCoCNumber>12345672</AdministrationCoCNumber>" & _

                        "    <DocumentSubject>Trx import april</DocumentSubject>" & _

                        "    <JournalType>EndOfYearCorrection</EndOfYearCorrection>" & _

                        "    <JournalEntry>" & _

                        "        <ContactName>Apple Sales International</ContactName>" & _

                        "        <ContactCode>9921</ContactCode>" & _

                        "        <EntryDate>2012-12-31</EntryDate>" & _

                        "        <GLAccount>20000</GLAccount>" & _

                        "        <Amount>22.22</Amount>" & _

                        "        <Description>Inkopen hardware</Description>" & _

                        "    </JournalEntry>" & _

                        "    <JournalEntry>" & _

                        "        <ContactName>Apple Sales International</ContactName>" & _

                        "        <ContactCode>9921</ContactCode>" & _

                        "        <EntryDate>2012-12-31</EntryDate>" & _

                        "        <GLAccount>20000</GLAccount>" & _

                        "        <Amount>-22.22</Amount>" & _

                        "        <Description>Retour hardware</Description>" & _

                        "    </JournalEntry>" & _

                        "</Journal>"

' Build SOAP XML message for WebServiceMethod "http://www.theyukicompany.com/ProcessJournal".
strXml = "<?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>" & _

                "<ProcessJournal xmlns=""http://www.theyukicompany.com/"">" & _

                "<sessionID>" & strSessionId & "</sessionID>" & _

                "<administrationID>" & strAdministrationId & "</administrationID>" & _

                "<xmlDoc>" & strJournalXml & "</xmlDoc>" & _

                "</ProcessJournal>" & _

                "</soap12:Body>" & _

                "</soap12:Envelope>"

' Create ServerXMLHTTP object.
Set objXmlHttp2 = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp2.open "POST", strWebserviceUrl, False
objXmlHttp2.setRequestHeader "SOAPAction", "http://www.theyukicompany.com/ProcessJournal"
objXmlHttp2.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
objXmlHttp2.setRequestHeader "Content-Length", Len(strXml)

' Send SOAP message.
objXmlHttp2.send strXml

' Print out the request status.
Response.Write "WebServiceMethod ""ProcessJournal"" request status: <b>" & objXmlHttp2.status & " " & objXmlHttp2.statusText & "</b><br /><br />"

' Print out the SOAP XML response.
Response.Write "<div style=""border: solid 1px black;"">" & Server.HTMLEncode(objXmlHttp2.responseText) & "</div>"

Set objXmlHttp2 = Nothing
%>


Was this article helpful?

That’s Great!

Thank you for your feedback

Sorry! We couldn't be helpful

Thank you for your feedback

Let us know how can we improve this article!

Select at least one of the reasons
CAPTCHA verification is required.

Feedback sent

We appreciate your effort and will try to fix the article