SOAP WSDL Generate Code

FinaInvoiceB2GBinding / changeB2GIncomingInvoiceStatus

ASP AutoIt C C (Unicode) C++ C++ (Unicode) C# DataFlex Delphi Foxpro Go Java Node.js Objective-C Perl PHP Extension PowerBuilder Powershell PureBasic Python CkPython Ruby SQL Server Swift TCL VB.NET VB6 VBScript Xojo
Min Request Full Request 
integer li_rc
oleobject loo_Xml
string ls_SoapRequestBody
string ls_Endpoint
string ls_SoapAction
string ls_ContentType
oleobject loo_Http
oleobject loo_Resp
oleobject loo_ResponseXml
integer li_StatusCode
string ls_Envelope_xmlns
string ls_MessageID
string ls_MessageAckID
integer li_MessageType
string ls_AckStatus
integer li_AckStatusCode
string ls_AckStatusText
string ls_ErrorCode
string ls_ErrorMessage
string ls_ErrorText

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "soapenv:Envelope"
loo_Xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loo_Xml.AddAttribute("xmlns","http://fina.hr/eracun/b2g/invoicewebservicecomponents/v0.1")
loo_Xml.AddAttribute("xmlns:v0","http://fina.hr/eracun/b2g/ChangeB2GIncomingInvoiceStatus/v0.1")
loo_Xml.AddAttribute("xmlns:b2gEracImpl","http://fina.hr/eracun/b2g/ws/erp/v0.1")
loo_Xml.UpdateChildContent("soapenv:Header","")
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|HeaderBuyer|MessageID","string")
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|HeaderBuyer|BuyerID","string")
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|HeaderBuyer|AdditionalBuyerID","string")
loo_Xml.UpdateChildContentInt("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|HeaderBuyer|MessageType",123)
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|HeaderBuyer|MessageAttributes","string")
loo_Xml.UpdateChildContentInt("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|v0:InvoiceID",123)
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|InvoiceStatus|StatusCode","RECEIVED")
loo_Xml.UpdateChildContentInt("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|InvoiceStatus|CodeReason",1042)
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|InvoiceStatus|Note","string")
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|InvoiceStatus|PartialAmount","99.0")
loo_Xml.UpdateChildContent("soapenv:Body|v0:ChangeB2GIncomingInvoiceStatusMsg|v0:Data|v0:B2GIncomingInvoiceStatus|InvoiceStatus|DocumentCurrencyCode","string")

// In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. 
loo_Xml.EmitXmlDecl = 0
ls_SoapRequestBody = loo_Xml.GetXml()

ls_Endpoint = "https://prez.fina.hr/B2GFinaInvoiceWebService/services/B2GFinaInvoiceWebService"
ls_SoapAction = "http://fina.hr/eracun/b2g/ChangeB2GIncomingInvoiceStatus"
//  For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
ls_ContentType = "text/xml"

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")

loo_Http.ClearHeaders()
loo_Http.SetRequestHeader("Content-Type",ls_ContentType)
loo_Http.SetRequestHeader("SOAPAction",ls_SoapAction)

loo_Resp = loo_Http.PostXml(ls_Endpoint,ls_SoapRequestBody,"utf-8")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    Write-Debug "Failed to send SOAP request."
    destroy loo_Xml
    destroy loo_Http
    return
end if

// Get the XML response body.
loo_ResponseXml = create oleobject
li_rc = loo_ResponseXml.ConnectToNewObject("Chilkat_9_5_0.Xml")

loo_Resp.GetBodyXml(loo_ResponseXml)

li_StatusCode = loo_Resp.StatusCode
Write-Debug "response status code: " + string(li_StatusCode)

destroy loo_Resp

// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.
if li_StatusCode <> 200 then
    Write-Debug loo_ResponseXml.GetXml()
    destroy loo_Xml
    destroy loo_Http
    destroy loo_ResponseXml
    return
end if

Write-Debug loo_ResponseXml.GetXml()

// Parse the successful SOAP response XML.

// This is a sample of the response XML, but the namespace prefixes will be different.
// We can parse the result using "*" for the namespace prefixes (see below).

ls_Envelope_xmlns = loo_ResponseXml.GetAttrValue("xmlns")
ls_MessageID = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|MessageID")
ls_MessageAckID = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|MessageAckID")
li_MessageType = loo_ResponseXml.GetChildIntValue("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|MessageType")
ls_AckStatus = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|AckStatus")
li_AckStatusCode = loo_ResponseXml.GetChildIntValue("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|AckStatusCode")
ls_AckStatusText = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|MessageAck|AckStatusText")
ls_ErrorCode = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|Error|ErrorCode")
ls_ErrorMessage = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|Error|ErrorMessage")
ls_ErrorText = loo_ResponseXml.GetChildContent("*:Body|*:ChangeB2GIncomingInvoiceStatusAckMsg|Error|ErrorText")


destroy loo_Xml
destroy loo_Http
destroy loo_ResponseXml
Request XML
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns="http://fina.hr/eracun/b2g/invoicewebservicecomponents/v0.1" xmlns:v0="http://fina.hr/eracun/b2g/ChangeB2GIncomingInvoiceStatus/v0.1" xmlns:b2gEracImpl="http://fina.hr/eracun/b2g/ws/erp/v0.1">
    <soapenv:Header/>
    <soapenv:Body>
        <v0:ChangeB2GIncomingInvoiceStatusMsg>
            <HeaderBuyer>
                <MessageID>string</MessageID>
                <BuyerID>string</BuyerID>
                <AdditionalBuyerID>string</AdditionalBuyerID>
                <MessageType>123</MessageType>
                <MessageAttributes>string</MessageAttributes>
            </HeaderBuyer>
            <v0:Data>
                <v0:B2GIncomingInvoiceStatus>
                    <v0:InvoiceID>123</v0:InvoiceID>
                    <InvoiceStatus>
                        <StatusCode>RECEIVED</StatusCode>
                        <CodeReason>1042</CodeReason>
                        <Note>string</Note>
                        <PartialAmount>99.0</PartialAmount>
                        <DocumentCurrencyCode>string</DocumentCurrencyCode>
                    </InvoiceStatus>
                </v0:B2GIncomingInvoiceStatus>
            </v0:Data>
        </v0:ChangeB2GIncomingInvoiceStatusMsg>
    </soapenv:Body>
</soapenv:Envelope>
Response XML
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns="http://fina.hr/eracun/b2g/invoicewebservicecomponents/v0.1" xmlns:v0="http://fina.hr/eracun/b2g/ChangeB2GIncomingInvoiceStatus/v0.1" xmlns:b2gEracImpl="http://fina.hr/eracun/b2g/ws/erp/v0.1">
    <soapenv:Header/>
    <soapenv:Body>
        <v0:ChangeB2GIncomingInvoiceStatusAckMsg>
            <MessageAck>
                <MessageID>string</MessageID>
                <MessageAckID>string</MessageAckID>
                <MessageType>123</MessageType>
                <AckStatus>ACCEPTED</AckStatus>
                <AckStatusCode>1042</AckStatusCode>
                <AckStatusText>string</AckStatusText>
            </MessageAck>
            <Error>
                <ErrorCode>string</ErrorCode>
                <ErrorMessage>string</ErrorMessage>
                <ErrorText>string</ErrorText>
            </Error>
        </v0:ChangeB2GIncomingInvoiceStatusAckMsg>
    </soapenv:Body>
</soapenv:Envelope>