Index: APPS/TRANSP/Transsmart/RequestDataBouwer.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/RequestDataBouwer.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/RequestDataBouwer.cls.xml	(revision 59642)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.RequestDataBouwer">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="MaakdoBookingRequest">
+<Abstract>1</Abstract>
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<ReturnType>WS.Transsmart.tns.doBooking</ReturnType>
+</Method>
+
+<Method name="MaakdoDeleteRequest">
+<Abstract>1</Abstract>
+<FormalSpec>VerzendData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<ReturnType>WS.Transsmart.tns.doDelete</ReturnType>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method MaakReleaseRequests(LijstVerzendData As APPS.TRANSP.GLS.dto.VerzendDataLijst) As %ListOfObjects(ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest") [ Abstract ]
+{
+}
+
+
+Method MaakRequests(LeveringInfo As APPS.TRANSP.dto.LeveringInfo, VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze) As %ListOfObjects(ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request") [ Abstract ]
+{
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(revision 59642)
@@ -0,0 +1,211 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.RequestDataBouwer">
+<Super>APPS.TRANSP.Transsmart.RequestDataBouwer,TECH.Mockable</Super>
+
+<Method name="MaakdoBookingRequest">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit</FormalSpec>
+<ReturnType>WS.Transsmart.tns.doBooking</ReturnType>
+<Implementation><![CDATA[
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	Set Request = ##class(WS.Transsmart.tns.doBooking).%New()
+
+	Set Request.bookingInfo = ..GeefBookingInfoDoBooking(LeveringInfo,Rit)	
+	Do:($$$Not($Length(Request.bookingInfo.carrier))) ##class(Tools.Wlip).%New(207).String("Geene  transporteur !")
+		
+	Set Request.shipmentInfo = ..GeefShipmentInfo(LeveringInfo,Rit)
+		
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="MaakdoDeleteRequest">
+<FormalSpec>VerzendData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<ReturnType>WS.Transsmart.tns.doDelete</ReturnType>
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Transsmart.tns.doDelete).%New()
+	Do Request.ZetVerzendDataID(VerzendData.GeefID())
+	Set Request.shipmentInfo = ..GeefShipmentInfoDoDelete(VerzendData)
+	Set Request.actionInfo = ..GeefActionInfoDoDelete()
+	
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GeefActionInfoDoDelete">
+<ReturnType>WS.Transsmart.tns.DoDeleteActionInfo</ReturnType>
+<Implementation><![CDATA[
+	Set ActionInfo = ##class(WS.Transsmart.tns.DoDeleteActionInfo).%New()
+	Set ActionInfo.action = "doDelete"
+	Set ActionInfo.version = "2.0"
+	Quit ActionInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipmentInfoDoDelete">
+<FormalSpec>VerzendData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<ReturnType>WS.Transsmart.tns.DoDeleteShipmentInfo</ReturnType>
+<Implementation><![CDATA[
+	Set ShipmentInfo = ##class(WS.Transsmart.tns.DoDeleteShipmentInfo).%New()
+	Set ShipmentInfo.reference = VerzendData.Reference
+	Quit ShipmentInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefBookingInfoDoBooking">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.DoBookingBookingInfo</ReturnType>
+<Implementation><![CDATA[
+	Set BookingInfo = ##class(WS.Transsmart.tns.DoBookingBookingInfo).%New()
+	Set BookingInfo.origin = "WEB"
+	Set BookingInfo.mailType = "0"
+	Set BookingInfo.language = "EN"
+	Set BookingInfo.action= "doBooking"
+	Set BookingInfo.version = "2.0"
+	
+	Set BookingInfo.costcenter = ..BepaalCostCenter(LeveringInfo) ; --> ander afzenderadres? zie ook bepalen afzender adres
+	
+	Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit)
+	Quit BookingInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipmentInfo">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.DoBookingShipmentInfo</ReturnType>
+<Implementation><![CDATA[
+	Set ShipmentInfo = ##class(WS.Transsmart.tns.DoBookingShipmentInfo).%New()
+	
+	Set ShipmentInfo.reference = LeveringInfo.Referentie
+		
+	Set ShipmentInfo.serviceLevelTime = ..BepaalShipmentInfoServiceLevelTime(Rit)	
+	Set ShipmentInfo.inbound = 0
+	Set ShipmentInfo.loadmeter = 0
+	Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal
+	
+	#dim GewichtPerEenheid as %Numeric = ##class(TECH.Math).Round(LeveringInfo.Gewicht / LeveringInfo.AantalVerpakkingEenhedenTotaal,2)
+	set it = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
+	#dim Linecounter as %Integer = 0
+	While (it.HasNext()){
+		Set Linecounter = Linecounter+ 1
+		#dim VerpakkingEenheid as APPS.TRANSP.dto.VerpakkingEenheid = it.Next()
+		
+		Do ShipmentInfo.shipmentLines.Insert(..GeefShipmentLine(Linecounter,VerpakkingEenheid,GewichtPerEenheid))
+	}
+	
+	Do ShipmentInfo.addresses.Insert(..GeefAfzenderAdres(LeveringInfo))
+	Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo))
+	Quit ShipmentInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfzenderAdres">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.DoBookingAddress</ReturnType>
+<Implementation><![CDATA[
+	; afzender adres hier gebruiken of override via costcenter????
+	Set Afzender = ##class(WS.Transsmart.tns.DoBookingAddress).%New()
+	Set Afzender.type = "SEND"
+	Set Afzender.name = "Van Hoecke"
+	Set Afzender.street1 = "Europark Noord"
+	Set Afzender.city = "Sint Niklaas"
+	Set Afzender.houseNo = "9"
+	Set Afzender.zipCode = "9100"
+	Set Afzender.countryCode = "BE"
+	Quit Afzender
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestemmelingAdres">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.DoBookingAddress</ReturnType>
+<Implementation><![CDATA[
+	Set Bestemmeling = ##class(WS.Transsmart.tns.DoBookingAddress).%New()
+	
+	Set Bestemmeling.type = "RECV"
+	
+	Set Bestemmeling.name = LeveringInfo.LeverAdres.Naam 
+	Set Bestemmeling.street1 = LeveringInfo.LeverAdres.Straat
+	Set Bestemmeling.city = LeveringInfo.LeverAdres.Woonplaats
+	; Set Bestemmeling.houseNo = LeveringInfo.LeverAdres. ???
+	Set Bestemmeling.zipCode = LeveringInfo.LeverAdres.Postcode
+	Set Bestemmeling.countryCode = LeveringInfo.LeverAdres.LandCode
+	Quit Bestemmeling
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipmentLine">
+<FormalSpec>Lijnnummmer:%Integer,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,Gewicht:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.DoBookingShipmentLine</ReturnType>
+<Implementation><![CDATA[
+	Set ShipmentLine = ##class(WS.Transsmart.tns.DoBookingShipmentLine).%New()
+	Set ShipmentLine.lineNo = Lijnnummmer
+	Set ShipmentLine.packageType = ..BepaalPackageType(VerpakkingEenheid.Type)
+	Set ShipmentLine.quantity = VerpakkingEenheid.Aantal
+	Set ShipmentLine.measurements = ##class(WS.Transsmart.tns.DoBookingMeasurements).%New()
+	Set ShipmentLine.measurements.length = 0
+	Set ShipmentLine.measurements.width = 0
+	Set ShipmentLine.measurements.height = 0
+	Set ShipmentLine.measurements.sizeUom = "CM"
+	Set ShipmentLine.measurements.weightUom = "KG"
+	Set ShipmentLine.measurements.weight = Gewicht
+	Quit ShipmentLine
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCostCenter">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;TODO ???
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPackageType">
+<FormalSpec>VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	; mappings volgens voorstudie transsmart.
+	set Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType.AutoComplete).%New()
+	Quit:VerpakkingEenheidType=Type.Colli "BOX"
+	Quit:VerpakkingEenheidType=Type.EuroPallet "Wwpallet"
+	Quit:VerpakkingEenheidType=Type.HalveEuroPallet "Pallet80x60"
+	Quit:VerpakkingEenheidType=Type.BuitenmaatsPallet "Pallet"
+	Quit:VerpakkingEenheidType=Type.Langgoed "Bundel"
+	; Quit:VerpakkingEenheidType=Type.     -->> Wegwerppallet????
+]]></Implementation>
+</Method>
+
+<Method name="BepaalBookingInfoCarrier">
+<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+	Quit:(Rit.GeefTransporteur() = Transporteur.VRD) "VRD"
+	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "DHP"
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalShipmentInfoServiceLevelTime">
+<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+
+	Quit:(Rit.GeefTransporteur() = Transporteur.VRD) "STANDARD"
+	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "EUROPLUS"
+	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>