Auftrag erstellen (WebService, API)

<ProfilingXYZ>Profilierungswert</ProfilingXYZ>

HTTP-Request

POST http://TASKCENTERSERVER:6460/LCWebServices/LCService/Import/OffersOrders.svc HTTP/1.1
Content-Type: text/xml; charset=utf-8
VsDebuggerCausalityData: uIDPo1w3xz+dzH5OobUkPk2mv0QAAAAAqJ/WnTiIP0qLBWJd0JwVytH9apNpQENGs0ULwpN3I+oACQAA
SOAPAction: "http://tempuri.org/IOffersOrders/ImportOffersOrders"
Host: TASKCENTERSERVER:6460
Content-Length: 2166
Expect: 100-continue
Accept-Encoding: gzip, deflate
Connection: Keep-Alive

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
	<s:Body>
		<ImportOffersOrders xmlns="http://tempuri.org/">
			<request xmlns:a="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import.OffersOrders" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
				<Language i:nil="true" xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import"/>
				<Password xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">samplepass</Password>
				<Target xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">LC5</Target>
				<Username xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">sampleaccess</Username>
				<a:OffersOrders>
					<a:OfferOrder>
						<a:Header>
							<a:CustomerNumber>200162</a:CustomerNumber>
							<a:Order>true</a:Order>
							<a:WebOrder>false</a:WebOrder>
							<a:IsRepairOrder>false</a:IsRepairOrder>
							<a:DeliveryDate>2019-12-24T00:00:00</a:DeliveryDate>
							<a:PurchaseOrderNumber>B20191212</a:PurchaseOrderNumber>
							<a:Agreement>Ihr persönlicher Vereinbarungstext</a:Agreement>
							<a:Category>***</a:Category>
							<a:UID>ATU1234567890</a:UID>
							<a:PaymentMethod>SZK</a:PaymentMethod>
							<a:ShippingMethod>SLK</a:ShippingMethod>
							<a:ShippingType>GLS</a:ShippingType>
							<a:OU>10</a:OU>
							<a:Finished>false</a:Finished>
							<a:PaidDeposit>49.99</a:PaidDeposit>
							<a:HeaderText>Individueller Kopftext für den Auftrag</a:HeaderText>
							<a:DeliveryAddress>
								<a:Name1></a:Name1>
								<a:Name2></a:Name2>
								<a:POBox></a:POBox>
								<a:Street></a:Street>
								<a:PostCode></a:PostCode>
								<a:CityName></a:CityName>
								<a:CountryCode></a:CountryCode>
								<a:Attn></a:Attn>
							</a:DeliveryAddress>
							<a:InvoiceAddress>
								<a:Name1></a:Name1>
								<a:Name2></a:Name2>
								<a:POBox></a:POBox>
								<a:Street></a:Street>
								<a:PostCode></a:PostCode>
								<a:CityName></a:CityName>
								<a:CountryCode></a:CountryCode>
								<a:Attn></a:Attn>
							</a:InvoiceAddress>
							<a:RepairUser1>Test-Text 1</a:RepairUser1>
							<a:RepairUser2>Test-Text 2</a:RepairUser2>
							<a:RepairUser3>Test-Text 3</a:RepairUser3>
							<a:RepairUser4>Test-Text 4</a:RepairUser4>
							<a:RepairUser5>Test-Text 5</a:RepairUser5>
							<a:RepairUser6>Test-Text 6</a:RepairUser6>
							<a:RepairUser7>Test-Text 7</a:RepairUser7>
							<a:RepairUser8>Test-Text 8</a:RepairUser8>
							<a:RepairUser9>Test-Text 9</a:RepairUser9>
							<a:RepairUser10>Test-Text 10</a:RepairUser10>
							<a:RepairTakeoverText>Test-AnnahmeText</a:RepairTakeoverText>
							<a:RepairFinishedText>Test-Erledigt-Text</a:RepairFinishedText>
						</a:Header>
						<a:Items>
							<a:Item>
								<a:ItemNumber>1110444</a:ItemNumber>
								<a:ItemDescription1>Intel Core i7 9777K CPU</a:ItemDescription1>
								<a:ItemDescription2>Sockel 4711</a:ItemDescription2>
								<a:ItemDescription3>Boxed</a:ItemDescription3>
								<a:Quantity>2</a:Quantity>
								<a:QuantityUnit>Stk</a:QuantityUnit>
								<a:ListPrice>159</a:ListPrice>
								<a:SalesPrice>119</a:SalesPrice>
								<a:CustomerItemNumber>A18599</a:CustomerItemNumber>
								<a:LongText>Artikelspezifischer Langtext, individuell</a:LongText>
								<a:User1>Text, der im Feld USER1 der Position gespeichert wird</a:User1>
								<a:Serial>SN171819</a:Serial>
							</a:Item>
							<a:Item>
								<a:ItemNumber>1017193</a:ItemNumber>
								<a:ItemDescription1 i:nil="true"/>
								<a:ItemDescription2 i:nil="true"/>
								<a:ItemDescription3 i:nil="true"/>
								<a:Quantity>1</a:Quantity>
								<a:QuantityUnit i:nil="true"/>
								<a:ListPrice>49</a:ListPrice>
								<a:SalesPrice>19.9</a:SalesPrice>
								<a:CustomerItemNumber i:nil="true"/>
								<a:LongText i:nil="true"/>
								<a:User1 i:nil="true"/>
								<a:Serial i:nil="true"/>
							</a:Item>
						</a:Items>
					</a:OfferOrder>
				</a:OffersOrders>
				<a:XmlDocument i:nil="true"/>
			</request>
		</ImportOffersOrders>
	</s:Body>
</s:Envelope>

XML-Request

POST http://TASKCENTERSERVER:6460/LCWebServices/LCService/Import/OffersOrders.svc HTTP/1.1
SOAPAction: http://tempuri.org/IOffersOrders/ImportOffersOrders
User-Agent: POLLEX-LC Http Post Tool
Content-Type: text/xml; charset=utf-8
Host: TASKCENTERSERVER:6460
Content-Length: 1774
Expect: 100-continue

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
    <s:Body>
        <ImportOffersOrders xmlns="http://tempuri.org/">
            <request xmlns:a="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import.OffersOrders" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
                <Language i:nil="true" xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import"/>
                <Password xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">samplepass</Password>
                <Target xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">LC5</Target>
                <Username xmlns="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import">sampleaccess</Username>
                <a:OffersOrders>
                    <a:OfferOrder>
                        <a:Header>
                            <a:CustomerNumber>200162</a:CustomerNumber>
                            <a:Category>***</a:Category>
                            <a:OU>10</a:OU>
                        </a:Header>
                        <a:Items>
                            <a:Item>
                                <a:ItemNumber>1110444</a:ItemNumber>
                                <a:Quantity>2</a:Quantity>
                            </a:Item>
                            <a:Item>
                                <a:ItemNumber>1017193</a:ItemNumber>
                                <a:Quantity>1</a:Quantity>
                            </a:Item>
                        </a:Items>
                    </a:OfferOrder>
                </a:OffersOrders>
                <a:XmlDocument i:nil="true"/>
            </request>
        </ImportOffersOrders>
    </s:Body>
</s:Envelope>

HTTP-Response

HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Vary: Accept-Encoding
Server: Microsoft-IIS/7.5
X-Powered-By: ASP.NET
Date: Wed, 27 Nov 2019 07:04:46 GMT
Content-Length: 971

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
	<s:Body>
		<ImportOffersOrdersResponse xmlns="http://tempuri.org/">
			<ImportOffersOrdersResult xmlns:a="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import.OffersOrders" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
				<InformationList xmlns="http://schemas.datacontract.org/2004/07/LC.Globals.Web"/>
				<ResultType xmlns="http://schemas.datacontract.org/2004/07/LC.Globals.Web">Success</ResultType>
				<a:ImportedOrders>
					<a:ImportedOrder>
						<a:Items>
							<a:ImportedItem>
								<a:Aposinx>1861526</a:Aposinx>
								<a:ItemNumber>1110444</a:ItemNumber>
								<a:ReferenceNumber/>
								<a:SalesPrice>119</a:SalesPrice>
							</a:ImportedItem>
							<a:ImportedItem>
								<a:Aposinx>1861527</a:Aposinx>
								<a:ItemNumber>1017193</a:ItemNumber>
								<a:ReferenceNumber/>
								<a:SalesPrice>19.90</a:SalesPrice>
							</a:ImportedItem>
						</a:Items>
						<a:OrderNumber>5387</a:OrderNumber>
					</a:ImportedOrder>
				</a:ImportedOrders>
			</ImportOffersOrdersResult>
		</ImportOffersOrdersResponse>
	</s:Body>
</s:Envelope>

Response-Envelope

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
	<s:Body>
		<s:Fault>
			<faultcode xmlns:a="http://schemas.microsoft.com/ws/2005/05/addressing/none">a:ActionNotSupported</faultcode>
			<faultstring xml:lang="de-AT">Die Nachricht mit Action "" kann aufgrund einer fehlenden ContractFilter-Übereinstimmung beim EndpointDispatcher nicht verarbeitet werden. Mögliche Ursachen: Vertragskonflikt (keine Action-Übereinstimmung zwischen Sender und Empfänger) oder ein Bindung/Sicherheit-Konflikt zwischen dem Sender und dem Empfänger.  Stellen Sie sicher, dass Sender und Empfänger über den gleichen Vertrag und die gleiche Bindung verfügen (einschließlich Sicherheitsanforderungen, z. B. "Message", "Transport", "None").</faultstring>
		</s:Fault>
	</s:Body>
</s:Envelope>

Response-Envelope

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
	<s:Body>
		<s:Fault>
			<faultcode xmlns:a="http://schemas.microsoft.com/net/2005/12/windowscommunicationfoundation/dispatcher">a:InternalServiceFault</faultcode>
			<faultstring xml:lang="de-AT">Der Wert darf nicht NULL sein.

Parametername: request.OffersOrders</faultstring>
			<detail>
				<ExceptionDetail xmlns="http://schemas.datacontract.org/2004/07/System.ServiceModel" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
					<HelpLink i:nil="true"/>
					<InnerException i:nil="true"/>
					<Message>Der Wert darf nicht NULL sein.

Parametername: request.OffersOrders</Message>
					<StackTrace>   bei LCService.Import.OffersOrders.ImportOffersOrders(ImportOffersOrdersRequest request) in C:\LC.Web\LCService\LCService\Import\OffersOrders.svc.cs:Zeile 32.

   bei SyncInvokeImportOffersOrders(Object , Object[] , Object[] )

   bei System.ServiceModel.Dispatcher.SyncMethodInvoker.Invoke(Object instance, Object[] inputs, Object[]& outputs)

   bei System.ServiceModel.Dispatcher.DispatchOperationRuntime.InvokeBegin(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.ImmutableDispatchRuntime.ProcessMessage5(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.ImmutableDispatchRuntime.ProcessMessage11(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.MessageRpc.Process(Boolean isOperationContextSet)</StackTrace>
					<Type>System.ArgumentNullException</Type>
				</ExceptionDetail>
			</detail>
		</s:Fault>
	</s:Body>
</s:Envelope>

Response-Envelope

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body><s:Fault><faultcode xmlns:a="http://schemas.microsoft.com/net/2005/12/windowscommunicationfoundation/dispatcher">a:DeserializationFailed</faultcode><faultstring xml:lang="de-AT">Der Formatierer hat beim Deserialisieren der Nachricht eine Ausnahme ausgelöst: Fehler beim Deserialisieren von Parameter http://tempuri.org/:request. Die InnerException-Nachricht war "Fehler beim Deserialisieren des Objekts "vom Typ LC.SharedObjects.Import.OffersOrders.ImportOffersOrdersRequest". Es wurde das Token ">" erwartet, doch gefunden wurde "<". Zeile 9, Position 17.".  Weitere Details finden Sie unter "InnerException".</faultstring><detail><ExceptionDetail xmlns="http://schemas.datacontract.org/2004/07/System.ServiceModel" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><HelpLink i:nil="true"/><InnerException><HelpLink i:nil="true"/><InnerException><HelpLink i:nil="true"/><InnerException i:nil="true"/><Message>Es wurde das Token ">" erwartet, doch gefunden wurde "<". Zeile 9, Position 17.</Message><StackTrace>   bei System.Xml.XmlExceptionHelper.ThrowXmlException(XmlDictionaryReader reader, String res, String arg1, String arg2, String arg3)

   bei System.Xml.XmlExceptionHelper.ThrowTokenExpected(XmlDictionaryReader reader, String expected, Char found)

   bei System.Xml.XmlUTF8TextReader.ReadEndElement()

   bei System.Xml.XmlUTF8TextReader.Read()

   bei System.Xml.XmlBaseReader.ReadContentAsString()

   bei System.Xml.XmlBaseReader.ReadElementContentAsString()

   bei ReadImportOffersOrdersRequestFromXml(XmlReaderDelegator , XmlObjectSerializerReadContext , XmlDictionaryString[] , XmlDictionaryString[] )

   bei System.Runtime.Serialization.ClassDataContract.ReadXmlValue(XmlReaderDelegator xmlReader, XmlObjectSerializerReadContext context)

   bei System.Runtime.Serialization.XmlObjectSerializerReadContext.InternalDeserialize(XmlReaderDelegator reader, String name, String ns, Type declaredType, DataContract& dataContract)

   bei System.Runtime.Serialization.XmlObjectSerializerReadContext.InternalDeserialize(XmlReaderDelegator xmlReader, Type declaredType, DataContract dataContract, String name, String ns)

   bei System.Runtime.Serialization.DataContractSerializer.InternalReadObject(XmlReaderDelegator xmlReader, Boolean verifyObjectName, DataContractResolver dataContractResolver)

   bei System.Runtime.Serialization.XmlObjectSerializer.ReadObjectHandleExceptions(XmlReaderDelegator reader, Boolean verifyObjectName, DataContractResolver dataContractResolver)</StackTrace><Type>System.Xml.XmlException</Type></InnerException><Message>Fehler beim Deserialisieren des Objekts "vom Typ LC.SharedObjects.Import.OffersOrders.ImportOffersOrdersRequest". Es wurde das Token ">" erwartet, doch gefunden wurde "<". Zeile 9, Position 17.</Message><StackTrace>   bei System.Runtime.Serialization.XmlObjectSerializer.ReadObjectHandleExceptions(XmlReaderDelegator reader, Boolean verifyObjectName, DataContractResolver dataContractResolver)

   bei System.Runtime.Serialization.DataContractSerializer.ReadObject(XmlDictionaryReader reader, Boolean verifyObjectName)

   bei System.ServiceModel.Dispatcher.DataContractSerializerOperationFormatter.PartInfo.ReadObject(XmlDictionaryReader reader, XmlObjectSerializer serializer)

   bei System.ServiceModel.Dispatcher.DataContractSerializerOperationFormatter.DeserializeParameterPart(XmlDictionaryReader reader, PartInfo part, Boolean isRequest)</StackTrace><Type>System.Runtime.Serialization.SerializationException</Type></InnerException><Message>Der Formatierer hat beim Deserialisieren der Nachricht eine Ausnahme ausgelöst: Fehler beim Deserialisieren von Parameter http://tempuri.org/:request. Die InnerException-Nachricht war "Fehler beim Deserialisieren des Objekts "vom Typ LC.SharedObjects.Import.OffersOrders.ImportOffersOrdersRequest". Es wurde das Token ">" erwartet, doch gefunden wurde "<". Zeile 9, Position 17.".  Weitere Details finden Sie unter "InnerException".</Message><StackTrace>   bei System.ServiceModel.Dispatcher.DataContractSerializerOperationFormatter.DeserializeParameterPart(XmlDictionaryReader reader, PartInfo part, Boolean isRequest)

   bei System.ServiceModel.Dispatcher.DataContractSerializerOperationFormatter.DeserializeParameters(XmlDictionaryReader reader, PartInfo[] parts, Object[] parameters, Boolean isRequest)

   bei System.ServiceModel.Dispatcher.DataContractSerializerOperationFormatter.DeserializeBody(XmlDictionaryReader reader, MessageVersion version, String action, MessageDescription messageDescription, Object[] parameters, Boolean isRequest)

   bei System.ServiceModel.Dispatcher.OperationFormatter.DeserializeBodyContents(Message message, Object[] parameters, Boolean isRequest)

   bei System.ServiceModel.Dispatcher.OperationFormatter.DeserializeRequest(Message message, Object[] parameters)

   bei System.ServiceModel.Dispatcher.DispatchOperationRuntime.DeserializeInputs(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.DispatchOperationRuntime.InvokeBegin(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.ImmutableDispatchRuntime.ProcessMessage5(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.ImmutableDispatchRuntime.ProcessMessage11(MessageRpc& rpc)

   bei System.ServiceModel.Dispatcher.MessageRpc.Process(Boolean isOperationContextSet)</StackTrace><Type>System.ServiceModel.Dispatcher.NetDispatcherFaultException</Type></ExceptionDetail></detail></s:Fault></s:Body></s:Envelope>

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
	<s:Body>
		<ImportOffersOrdersResponse xmlns="http://tempuri.org/">
			<ImportOffersOrdersResult xmlns:a="http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import.OffersOrders" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
				<InformationList xmlns="http://schemas.datacontract.org/2004/07/LC.Globals.Web">
					<ServiceResponse.Information>
						<DateTime>2020-01-02T10:43:12.2472387+01:00</DateTime>
						<InformationType>Error</InformationType>
						<Text>OE zwingend, jedoch keine OE im Personalstamm des Sachbearbeiters eingetragen!</Text>
						<TranslationText>&lt;dllnr:310&gt;</TranslationText>
					</ServiceResponse.Information>
				</InformationList>
				<ResultType xmlns="http://schemas.datacontract.org/2004/07/LC.Globals.Web">Error</ResultType>
				<a:ImportedOrders i:nil="true"/>
			</ImportOffersOrdersResult>
		</ImportOffersOrdersResponse>
	</s:Body>
</s:Envelope>

CreatePollexOrderSample

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace CreatePollexOrderSample
{
    class Program
    {
        static void Main(string[] args)
        {
            string target = "LC5"; // target-database
            string username = "sampleaccess"; // your EDI account username
            string password = "samplepass"; // your EDI account password

            // create SOAP-service instance
            using (ImportOrderService.OffersOrdersClient client = new ImportOrderService.OffersOrdersClient())
            {
                // create your order, containing header and items
                ImportOrderService.OfferOrder order = new ImportOrderService.OfferOrder()
                {
                    // Header - you have to define at least
                    // customernumber, category and OU (organizational unit)
                    Header = new ImportOrderService.OfferOrderHeader()
                    {
                        CustomerNumber = 200162,
                        Category = "***", // get possible category values from your partner
                        Order = true,
                        OU = 10,
                        ShippingType = "GLS" // get valid shipping types from your partner
                    },
                    // Items - in our sample we add 2 items
                    Items = new ImportOrderService.Item[]
                    {
                        new ImportOrderService.Item() // item 1
                        {
                            ItemNumber = "1110444",
                            Quantity = 2
                        },
                        new ImportOrderService.Item() // item 2
                        {
                            ItemNumber = "1017193",
                            Quantity = 1
                        }
                    }
                };
                var request = new ImportOrderService.ImportOffersOrdersRequest()
                {
                    Target = target,
                    Username = username,
                    Password = password,
                    OffersOrders = new ImportOrderService.OfferOrder[] { order }
                };
                var response = client.ImportOffersOrders(request);
                if (response.ResultType == ImportOrderService.ServiceResponse.ResultTypeEnum.Success)
                {
                    Console.WriteLine("Order " + response.ImportedOrders[0].OrderNumber + " successfully created!");
                }
                else if (response.InformationList != null)
                {
                    Console.WriteLine("Order import failed:");
                    foreach (var info in response.InformationList)
                    {
                        Console.WriteLine(info.Text);
                    }
                }
            }

        }
    }
}

CreatePollexOrderSampleVB

Module Module1

    Sub Main()
        Dim target As String = "LC5" ' target-database
        Dim username As String = "sampleaccess" ' your EDI account username
        Dim password As String = "samplepass" ' your EDI account password

        ' create SOAP-service instance
        Dim client As ImportOrderService.OffersOrdersClient = New ImportOrderService.OffersOrdersClient()

        ' create your order, containing header And items
        Dim order As ImportOrderService.OfferOrder = New ImportOrderService.OfferOrder()
        ' Header - you have to define at least
        ' customernumber, category And OU (organizational unit)
        With order
            .Header = New ImportOrderService.OfferOrderHeader()
            With .Header
                .CustomerNumber = 200162
                .Category = "***" ' Get possible category values from your partner
                .Order = True
                .OU = 10
                .ShippingType = "GLS" ' get valid shipping types from your partner
            End With

            ' Items - in our sample we add 2 items
            Dim items = New List(Of ImportOrderService.Item)
            items.Add(New ImportOrderService.Item() With {.ItemNumber = "1110444", .Quantity = 2})
            items.Add(New ImportOrderService.Item() With {.ItemNumber = "1017193", .Quantity = 1})
            .Items = items.ToArray()
        End With

        Dim request = New ImportOrderService.ImportOffersOrdersRequest() With
                {
                    .Target = target,
                    .Username = username,
                    .Password = password,
                    .OffersOrders = New ImportOrderService.OfferOrder() {order}
                }
        Dim response = client.ImportOffersOrders(request)
        If (response.ResultType = ImportOrderService.ServiceResponse.ResultTypeEnum.Success) Then

            Console.WriteLine("Order " & response.ImportedOrders(0).OrderNumber & " successfully created!")

        ElseIf (response.InformationList IsNot Nothing) Then

            Console.WriteLine("Order import failed:")
            For Each info In response.InformationList
                Console.WriteLine(info.Text)
            Next

        End If


    End Sub

End Module

CreatePollexOrderSampleVB6

Private Sub Form_Load()

' Elemente des XML Headers
' Es wird ein zweidimensionales Feld erzeugt
' Dimension 1 beinhaltet aufsteigend sortiert jeden "XML-Tag"
' Dimension 2 beinhaltet auf Position 0 den "Namen" des XML-Tags und auf Position 1 den "Wert"
Dim strArrHeader(3, 2) As String
strArrHeader(0, 0) = "CustomerNumber"
strArrHeader(0, 1) = "20000"
strArrHeader(1, 0) = "Order"
strArrHeader(1, 1) = "true"
strArrHeader(2, 0) = "OU"
strArrHeader(2, 1) = "10"

' Es wird für jedes Item ein zweidimensionales Feld erzeugt
' Dimension 1 beinhaltet aufsteigend sortiert jeden "XML-Tag"
' Dimension 2 beinhaltet auf Position 0 den "Namen" des XML-Tags und auf Position 1 den "Wert"
Dim strArrItem1(3, 2) As String
strArrItem1(0, 0) = "ItemNumber"
strArrItem1(0, 1) = "4711"
strArrItem1(1, 0) = "Quantity"
strArrItem1(1, 1) = "5"
strArrItem1(2, 0) = "SalesPrice"
strArrItem1(2, 1) = "99.99"

' Aus dem Header Feld wird ein XML String generiert
' Um diesen String generieren zu können, muss BuildHeaderString() mit dem Header Feld aufgerufen werden
Dim strHeader As String
strHeader = BuildHeaderStr(strArrHeader)

' das strArrAllItems Feld muss größenmäßig gleich groß wie die Anzahl aller Items sein
Dim strArrAllItems(1) As String
' dem Feld wird jedes Item als XML String hinzugefügt
' um einen Item XML String zu generieren muss BuildItemString() mit dem jeweiligen Item Feld aufgerufen werden
strArrAllItems(0) = BuildItemStr(strArrItem1)

' Die einzelnen Item Strings werden zu einem einzigen Items-String zusammengefügt
Dim strAllItems As String
strAllItems = Join(strArrAllItems, vbCrLf)

' Aufruf des Webservice
' Bei Open befindet sich als zweiter Parameter die Adresse des zu konsumierenden Webservices
' BuildRequest wird mit Target, Username, Password, dem Headerstring und dem Items-String aufgerufen
With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "POST", "http://cloud.pollex-lc.com:6460/LCWebServices/LCService/Import/OffersOrders.svc", 0
    .SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
    .SetRequestHeader "SOAPAction", "http://tempuri.org/IOffersOrders/ImportOffersOrders"
    .Send BuildRequest("ORLIK", "123456", "abc", strHeader, strAllItems)
    If .Status = 200 Then ParseResponse .ResponseText Else MsgBox .StatusText
  End With
End Sub

' Diese Methode generiert den vollständigen XML Request
' Hier KEINE Änderungen vornehmen!
Private Function BuildRequest(Target, Username, Password, strHeader, strAllItems) As String
Dim S(9) As String
    S(0) = "<s:Envelope xmlns:s='http://schemas.xmlsoap.org/soap/envelope/'><s:Body><ImportOffersOrders xmlns='http://tempuri.org/'><request xmlns:a='http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import.OffersOrders' xmlns:i='http://www.w3.org/2001/XMLSchema-instance'><Language i:nil='true' xmlns='http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import'/>"
    S(1) = "<Password xmlns='http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import'>" & Password & "</Password>"
    S(2) = "<Target xmlns='http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import'>" & Target & "</Target>"
    S(3) = "<Username xmlns='http://schemas.datacontract.org/2004/07/LC.SharedObjects.Import'>" & Username & "</Username>"
    S(4) = "<a:OffersOrders><a:OfferOrder><a:Header>" & strHeader
    S(5) = "</a:Header><a:Items>" & strAllItems
    S(6) = "</a:Items></a:OfferOrder></a:OffersOrders></request></ImportOffersOrders></s:Body></s:Envelope>"
    BuildRequest = Join(S, vbCrLf)
End Function

' Testweise Ausgabe des Response
Private Sub ParseResponse(ByVal sResponse As String)
  MsgBox sResponse
End Sub

' Der Header String wird aus den einzelnen Elementen des übergebenen Stringarrays zu einem XML String zusammengebaut
' Hier KEINE Änderungen vornehmen!
Private Function BuildHeaderStr(strArrHeader) As String
    Dim tempHeaderArr() As String
    ReDim tempHeaderArr(UBound(strArrHeader, 1) - 1)
    For i = 0 To UBound(strArrHeader, 1) - 1
        tempHeaderArr(i) = "<a:" & strArrHeader(i, 0) & ">" & strArrHeader(i, 1) & "</a:" & strArrHeader(i, 0) & ">"
    Next i
    BuildHeaderStr = Join(tempHeaderArr, vbCrLf)
End Function

' Der Item String wird aus den einzelnen Elementen des übergebenen Stringarrays zu einem XML String zusammengebaut
' Hier KEINE Änderungen vornehmen!
Private Function BuildItemStr(strArrItems) As String
    Dim tempItems() As String
    ReDim tempItems(UBound(strArrItems, 1) - 1)
    For i = 0 To UBound(strArrItems, 1) - 1
        tempItems(i) = "<a:" & strArrItems(i, 0) & ">" & strArrItems(i, 1) & "</a:" & strArrItems(i, 0) & ">"
    Next i
    BuildItemStr = "<a:Item>" & Join(tempItems, vbCrLf) & "</a:Item>"
End Function