Index: zTryout/JWI/Transmart/DumpZpl.cls.xml
===================================================================
diff -u
--- zTryout/JWI/Transmart/DumpZpl.cls.xml	(revision 0)
+++ zTryout/JWI/Transmart/DumpZpl.cls.xml	(revision 61226)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.Transmart.DumpZpl">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="x">
+<Implementation><![CDATA[
+	;set t = ##class(WS.Transsmart.impl.LoggingTboxServicePort).%New()
+	
+	set t = ##class(WS.Transsmart.impl.TboxServicePort).%New()
+
+	Do t.ZetLocationVoorOmgeving("DEV")
+	set t.SSLConfiguration = "Galimberti"
+	
+	
+	Do t.HeadersOut.SetAt(t.GeefAuthenticationHeader(),1)
+	
+	w !,"count "_ t.HeadersOut.Count()
+	
+	Set it = ##class(TECH.ListIterator).%New(t.HeadersOut)
+	#dim Header As WS.Transsmart.tns.authentication
+	While(it.HasNext()){
+		Set Header = it.Next()
+		w !,Header.password
+	}
+	
+	
+	set r = ##class(WS.Transsmart.tns.getDocs).%New()
+	set r.shipmentInfo.reference = "tralala"
+	Set r.actionInfo.action = "getLabel"
+	Set r.actionInfo.version = "2.0"
+	#dim response as WS.Transsmart.tns.getDocsResponse
+	try {
+		set response = t.getDocs(r)	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do ##class(vhLib.Logger).LogExceptie(Exception)
+	}
+	
+	/*
+	;#dim Device as %String = "|PRN|Intermec PM43 (203 dpi)v2017"
+	;#dim Device as %String = "|PRN|\\jwi-w10\SharedLabelPrinter"
+	#dim Device as %String = "|PRN|CutePDF Writer"
+	Open Device:(/DATATYPE="TEXT"):5
+	Use Device
+	w response.packages.GetAt(1).labelData
+	Close Device
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JWI/TboxServicePort.cls.xml
===================================================================
diff -u
--- zTryout/JWI/TboxServicePort.cls.xml	(revision 0)
+++ zTryout/JWI/TboxServicePort.cls.xml	(revision 61226)
@@ -0,0 +1,214 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.TboxServicePort">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
+
+<Method name="doBooking">
+<Final>1</Final>
+<FormalSpec>doBooking:WS.Transsmart.tns.doBooking</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("doBooking").Invoke($this,"",.doBooking)
+]]></Implementation>
+</Method>
+
+<Method name="doDelete">
+<Final>1</Final>
+<FormalSpec>doDelete:WS.Transsmart.tns.doDelete</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("doDelete").Invoke($this,"",.doDelete)
+]]></Implementation>
+</Method>
+
+<Method name="doManifest">
+<Final>1</Final>
+<FormalSpec>doManifest:WS.Transsmart.tns.doManifest</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.doManifestResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="doManifestResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("doManifest").Invoke($this,"",.doManifest)
+]]></Implementation>
+</Method>
+
+<Method name="getDocs">
+<Final>1</Final>
+<FormalSpec>getDocs:WS.Transsmart.tns.getDocs</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getDocsResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getDocsResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getDocs").Invoke($this,"",.getDocs)
+]]></Implementation>
+</Method>
+
+<Method name="getLabel">
+<Final>1</Final>
+<FormalSpec>getLabel:WS.Transsmart.tns.getLabel</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getLabelResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getLabelResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getLabel").Invoke($this,"",.getLabel)
+]]></Implementation>
+</Method>
+
+<Method name="getRates">
+<Final>1</Final>
+<FormalSpec>getRates:WS.Transsmart.tns.getRates</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getRates").Invoke($this,"",.getRates)
+]]></Implementation>
+</Method>
+
+<Method name="getShipments">
+<Final>1</Final>
+<FormalSpec>getShipments:WS.Transsmart.tns.getShipments</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getShipmentsResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getShipmentsResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getShipments").Invoke($this,"",.getShipments)
+]]></Implementation>
+</Method>
+
+<Method name="getStatus">
+<Final>1</Final>
+<FormalSpec>getStatus:WS.Transsmart.tns.getStatus</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getStatus").Invoke($this,"",.getStatus)
+]]></Implementation>
+</Method>
+
+<Method name="getStatusHistory">
+<Final>1</Final>
+<FormalSpec>getStatusHistory:WS.Transsmart.tns.getStatusHistory</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusHistoryResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusHistoryResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getStatusHistory").Invoke($this,"",.getStatusHistory)
+]]></Implementation>
+</Method>
+
+<Method name="getStatusHistoryByQuery">
+<Final>1</Final>
+<FormalSpec>getStatusHistoryByQuery:WS.Transsmart.tns.getStatusHistoryByQuery</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusHistoryByQueryResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusHistoryByQueryResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("getStatusHistoryByQuery").Invoke($this,"",.getStatusHistoryByQuery)
+]]></Implementation>
+</Method>
+
+<Method name="prepareShipment">
+<Final>1</Final>
+<FormalSpec>prepareShipment:WS.Transsmart.tns.prepareShipment</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.prepareShipmentResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="prepareShipmentResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("prepareShipment").Invoke($this,"",.prepareShipment)
+]]></Implementation>
+</Method>
+
+<Method name="setStatus">
+<Final>1</Final>
+<FormalSpec>setStatus:WS.Transsmart.tns.setStatus</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.setStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="setStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("setStatus").Invoke($this,"",.setStatus)
+]]></Implementation>
+</Method>
+
+<Method name="updateShipment">
+<Final>1</Final>
+<FormalSpec>updateShipment:WS.Transsmart.tns.updateShipment</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
+<Implementation><![CDATA[ Quit ..WebMethod("updateShipment").Invoke($this,"",.updateShipment)
+]]></Implementation>
+</Method>
+
+<Parameter name="ARGUMENTSTYLE">
+<Description>
+Use unwrapped message style for document binding style.</Description>
+<Default>message</Default>
+</Parameter>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>https://connect.accept.transwise.eu/TboxService/2_0</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://connect1.transwise.eu/TboxService/</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>TboxServiceService</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+This is the SOAP version supported by the service.</Description>
+<Default>1.1</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: zTryout/JWI/Transmart/Tryout.cls.xml
===================================================================
diff -u -r59489 -r61226
--- zTryout/JWI/Transmart/Tryout.cls.xml	(.../Tryout.cls.xml)	(revision 59489)
+++ zTryout/JWI/Transmart/Tryout.cls.xml	(.../Tryout.cls.xml)	(revision 61226)
@@ -6,12 +6,16 @@
 <Method name="x">
 <Implementation><![CDATA[
 	;set t = ##class(WS.Transsmart.impl.LoggingTboxServicePort).%New()
+
+	#dim reference as %String = ""
+	
 	set t = ##class(WS.Transsmart.impl.TboxServicePort).%New()
 
+	Do t.ZetLocationVoorOmgeving("DEV")
 	set t.SSLConfiguration = "Galimberti"
 	
 	
-	Do t.HeadersOut.SetAt(t.GeefAuthenticationHeaderDemo(),1)
+	Do t.HeadersOut.SetAt(t.GeefAuthenticationHeader(),1)
 	
 	w !,"count "_ t.HeadersOut.Count()
 	
@@ -25,30 +29,46 @@
 	
 	set r = ##class(WS.Transsmart.tns.doBooking).%New()
 	set r.bookingInfo.carrier = "DHP"
+	;Set r.bookingInfo.carrier = "VRD"
+	
 	set r.bookingInfo.origin = "WEB"
 	set r.bookingInfo.mailType = "0"
 	set r.bookingInfo.language = "EN"
 	set r.bookingInfo.action= "doBooking"
 	set r.bookingInfo.version = "2.0"
 	
-	set r.shipmentInfo.reference = "ref " _ $h
-	set r.shipmentInfo.pickupDate = "2020-01-26"
+	set reference = "ref " _ $h
+	set r.shipmentInfo.reference = reference
+	set r.shipmentInfo.pickupDate = "2020-01-31"
 	set r.shipmentInfo.serviceLevelTime= "EUROPLUS"
+	;set r.shipmentInfo.serviceLevelTime= "STANDARD"
 	set r.shipmentInfo.inbound = 0
 	set r.shipmentInfo.loadmeter = 0
-	set r.shipmentInfo.noOfPackages = 1
+	set r.shipmentInfo.noOfPackages = 2
+	set r.shipmentInfo.description = "JWI description"
+	set r.shipmentInfo.instruction = "JWI instruction"
+	set addref = ##class(WS.Transsmart.tns.additionalReference).%New()
+	Set addref.type = "OTHER"
+	Set addref.value = "de kamion"
+	do r.shipmentInfo.additionalReferences.Insert(addref)
 	
+	
 	set sl = ##class(WS.Transsmart.tns.DoBookingShipmentLine).%New()
 	set sl.lineNo = 1
 	set sl.packageType = "BOX"
-	set sl.quantity = 1
+	;set sl.packageType = "Europallet"
+	set sl.quantity = 2
 	set sl.measurements = ##class(WS.Transsmart.tns.DoBookingMeasurements).%New()
 	set sl.measurements.length = 0
 	set sl.measurements.width = 0
 	set sl.measurements.height = 0
-	set sl.measurements.weight = 0.5
+	set sl.measurements.weight = 40
 	set sl.measurements.sizeUom = "CM"
 	set sl.measurements.weightUom = "KG"
+	set sl.description = "shipmentline description"
+	;Set addref = ##class(WS.Transsmart.tns.additionalReference).%New()
+	;set addref.type = 
+	;do sl.additionalReferences
 
 	do r.shipmentInfo.shipmentLines.Insert(sl)
 	
@@ -70,9 +90,27 @@
 	set bestemmeling.houseNo = "9"
 	set bestemmeling.zipCode = "9100"
 	set bestemmeling.countryCode = "BE"
+	;Set bestemmeling.contact 
+	
 	Do r.shipmentInfo.addresses.Insert(bestemmeling)
 	
 	Do t.doBooking(r)
+
+	hang 5
+	
+	set rd = ##class(WS.Transsmart.tns.getDocs).%New()
+	set rd.shipmentInfo.reference = reference
+	Set rd.actionInfo.action = "getLabel"
+	Set rd.actionInfo.version = "2.0"
+	#dim response as WS.Transsmart.tns.getDocsResponse
+	set response = t.getDocs(rd)
+	
+	;#dim Device as %String = "|PRN|Intermec PM43 (203 dpi)v2017"
+	#dim Device as %String = "|PRN|\\jwi-w10\SharedLabelPrinter"
+	Open Device:(/DATATYPE="RAW"):5
+	Use Device
+	w response.packages.GetAt(1).labelData
+	Close Device
 ]]></Implementation>
 </Method>
 </Class>