Index: ULTOER2.mac.rou
===================================================================
diff -u -r71039 -r74677
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 71039)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 74677)
@@ -152,7 +152,7 @@
 		If $Length(LeveringID){
 			#dim Transporteur as %String = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID).GeefTransporteur()
 			Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-			If ((Transporteur = Transporteurs.VRD) || (Transporteur = Transporteurs.DHL)||(Transporteur = Transporteurs.HamannHDE)||( Transporteur = Transporteurs.Dachser)||( Transporteur = Transporteurs.Weiss) ||( Transporteur = Transporteurs.Schenker)){
+			If ((Transporteur = Transporteurs.VRD) || (Transporteur = Transporteurs.DHL)||(Transporteur = Transporteurs.HamannHDE)||( Transporteur = Transporteurs.Dachser)||( Transporteur = Transporteurs.Weiss) ||( Transporteur = Transporteurs.Schenker) ||( Transporteur = Transporteurs.Streck)){
 				Set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 				Set DienstBepaler = ##class(APPS.TRANSP.Transsmart.impl.DienstBepalerDistributeurDataVisitor).%New()
 			} else {
Index: DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml
===================================================================
diff -u -r71039 -r74677
--- DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 71039)
+++ DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 74677)
@@ -101,7 +101,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	Quit (( TransporteurID = Transporteur.VRD) || (TransporteurID = Transporteur.DHL || (TransporteurID = Transporteur.HamannHDE)||(TransporteurID = Transporteur.Dachser)||(TransporteurID = Transporteur.Weiss)||(TransporteurID = Transporteur.Schenker) ))
+	Quit (( TransporteurID = Transporteur.VRD) || (TransporteurID = Transporteur.DHL || (TransporteurID = Transporteur.HamannHDE)||(TransporteurID = Transporteur.Dachser)||(TransporteurID = Transporteur.Weiss)||(TransporteurID = Transporteur.Schenker)||(TransporteurID = Transporteur.Streck) ))
 ]]></Implementation>
 </Method>
 
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r74663 -r74677
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 74663)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 74677)
@@ -245,7 +245,7 @@
 			Set Incoterms = "CPT"
 		}
 	}	
-	If (Rit.GeefTransporteur() = Transporteur.Weiss) {
+	If (Rit.GeefTransporteur() = Transporteur.Weiss) ! (Rit.GeefTransporteur() = Transporteur.Streck) {
 		If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleZwitserland) ) {
 			Set Incoterms = "083"
 		}
@@ -573,6 +573,7 @@
 	Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) Carrier = "ERB"
 	Set:(Rit.GeefTransporteur() = Transporteur.Dachser) Carrier = "DAC"
 	Set:(Rit.GeefTransporteur() = Transporteur.Weiss) Carrier = "GWE"
+	Set:(Rit.GeefTransporteur() = Transporteur.Streck) Carrier = "STK"
 	if (Rit.GeefTransporteur() = Transporteur.Schenker){
 		Set Carrier = "SNB"
 		if (..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief() & (LeveringInfo.LeverAdres.LandCode = "CZ" ) ) {	
@@ -606,6 +607,8 @@
 		}
 	} elseif (Rit.GeefTransporteur() = Transporteur.Weiss) {
 		Set ServiceLevelTime ="STANDARD"
+	} elseif (Rit.GeefTransporteur() = Transporteur.Streck){
+		Set ServiceLevelTime ="TF1"
 	} elseif (Rit.GeefTransporteur() = Transporteur.Schenker) {
 		#dim TotaalPalletPlaatsen as %Decimal = 0
 		#dim TotaalGewicht as %Decimal = LeveringInfo.Gewicht
Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r72255 -r74677
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 72255)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 74677)
@@ -129,7 +129,7 @@
 	If ..ProjectSettingsAPI.IsTranssmartActive(){
 		If ..OrderAPI.BestaatBon(LeveringID) {
 			#dim Bon as DOM.VKP.Bon = ..OrderAPI.GeefBon(LeveringID)
-			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA") || ($E(Bon.GeefVerzendwijze(),1,2)="DO") || ($E(Bon.GeefVerzendwijze(),1,2)="HW")|| ($E(Bon.GeefVerzendwijze(),1,2)="BS"){
+			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA") || ($E(Bon.GeefVerzendwijze(),1,2)="DO") || ($E(Bon.GeefVerzendwijze(),1,2)="HW")|| ($E(Bon.GeefVerzendwijze(),1,2)="BS")|| ($E(Bon.GeefVerzendwijze(),1,2)="HS"){
 				Set Referentie = RitID _ $Extract(LeveringID,*-4,*)
 			}
 		}
Index: TRANSP.mac.rou
===================================================================
diff -u -r73084 -r74677
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 73084)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 74677)
@@ -584,7 +584,7 @@
  ..Set NewVerzW="DI1",NewVerzW=NewVerzW_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",NewVerzW,Taal)
  .Set BonRec=^KUL(KLNr,"F",BONNr,1),OldVerzW=$P(BonRec,D,7)
  .Quit:($E(OldVerzW,1,2)=$E(NewVerzW,1,2))
- .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS")||($E(OldVerzW,1,2)="HS"))
  .Set R=$$^vhTXTPOP("TRANSP","NOABX","",BONNr,$TR(OldVerzW,"#",""),$TR(NewVerzW,"#",""))
  .Do KILL^KFVZW("F",BonRec,BONNr)
  .Set $P(BonRec,D,7)=NewVerzW,^KUL(KLNr,"F",BONNr,1)=BonRec
Index: vhDeploy/Deploy20250319xVerzendwijzesStreck.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20250319xVerzendwijzesStreck.cls.xml	(revision 0)
+++ vhDeploy/Deploy20250319xVerzendwijzesStreck.cls.xml	(revision 74677)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20250319xVerzendwijzesStreck">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijzen voor transporteur Streck (via transsmart)</Default>
+</Parameter>
+
+<Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
+	Do PiItemService.Verwijder("HS")
+	Do PiItemService.Verwijder("HS3")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = "HS"
+
+	; Deze is enkel bedoeld om de andere tegelijk te kunnen opvragen in de toerlijst. duur op 3 dagen gezet, maar in principe niet meer belangrijk als lades al geproduceerd zijn.
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		#Dim HW As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HW.ZetOmschrijving(ID)
+		Set HW.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.VerzendZone = "005003" 
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.Transporteur = 7186
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = ID
+		Set HW.OmschrijvingFrans = ID
+		Set HW.OmschrijvingEngels = ID
+		Set HW.OmschrijvingNederlands = ID
+	
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 18 )
+	}
+	Set ID = "HS3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set HW = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HW.ZetOmschrijving(ID)
+		Set HW.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.VerzendZone = "005003" 
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.Transporteur = 7186
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = ID
+		Set HW.OmschrijvingFrans = ID
+		Set HW.OmschrijvingEngels = ID
+		Set HW.OmschrijvingNederlands = ID
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 19 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r71039 -r74677
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 71039)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 74677)
@@ -110,7 +110,7 @@
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	#dim TransporteurID as %String = ..GeefTransporteurVoorBonId(BonID)
-	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss,Transporteur.Schenker)
+	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss,Transporteur.Schenker,Transporteur.Streck)
 	Quit IsTransportTranssmart
 ]]></Implementation>
 </Method>
Index: vhDeploy/D20250319xNieuweVerzendwijzesHaefeleStreck.cls.xml
===================================================================
diff -u
--- vhDeploy/D20250319xNieuweVerzendwijzesHaefeleStreck.cls.xml	(revision 0)
+++ vhDeploy/D20250319xNieuweVerzendwijzesHaefeleStreck.cls.xml	(revision 74677)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20250319xNieuweVerzendwijzesHaefeleStreck">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijze (enkel nog de AX vertaling nodig, daarom niets te fancy)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	set ^RES("KLANT","PI","VERZENDWAX","D","HS3") =  "195`HS3"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml
===================================================================
diff -u -r71039 -r74677
--- vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 71039)
+++ vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 74677)
@@ -44,6 +44,7 @@
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Dachser),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Weiss),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Schenker),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Streck),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	
 	Do ..ProjectsettingAPI.Verifieer()
 ]]></Implementation>
Index: APPS/TRANSP/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r71039 -r74677
--- APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 71039)
+++ APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 74677)
@@ -36,7 +36,7 @@
 
 	If $$$Not(StatusControleur.ZijnAlleStatussenInOrde()) {
 		; TODO refactor smijten CommunicationException naar visitor.ZijnAlleStatussenInOrde
-		if ##class(TECH.StringUtils).Equals( Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker){
+		if ##class(TECH.StringUtils).Equals( Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker,Transporteur.Streck){
 			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New("Rit '"_RitID_"': "_StatusControleur.GeefInfo()))
 		} else {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New("Rit '"_RitID_"': "_StatusControleur.GeefInfo()))
@@ -51,7 +51,7 @@
 <ReturnType>DOM.TRANSP.DistributeurDataVisitor</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	If ##class(TECH.StringUtils).Equals(Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker){
+	If ##class(TECH.StringUtils).Equals(Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker,Transporteur.Streck){
 		Quit ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 	} else {
 		Quit ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()
Index: DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml
===================================================================
diff -u -r71039 -r74677
--- DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71039)
+++ DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 74677)
@@ -85,6 +85,18 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="Streck">
+<Type>%String</Type>
+<InitialExpression>"9936"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^DOM.TRANSP.en4550.AutoCompleteS</StreamLocation>
+</Storage>
 </Class>