Index: BL/Flow/Cons/TransportFlow.cls.xml
===================================================================
diff -u -r50579 -r72055
--- BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 50579)
+++ BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 72055)
@@ -157,6 +157,7 @@
 	Do:Type="L"
 	. Set Rec=^KUL(KLNr,"F",Object,1)
 	. Do:$P(Rec,"\",7)'=VerzendingsWijze ##class(BL.Flow.Levering.Hoofding).EditVerzendWijze(Object,VerzendingsWijze)
+	. Do:$P($P($P(Rec,"\",7),"#")," ")'=VerzendingsWijze ##class(vhLib.Logger).%New("TRANSP").Debug("Verzendwijze gewijzigd","Levbon : "_Object_" met verzendwijze "_$P(Rec,"\",7)_" gewijzigd door transport "_ Transport_" in "_VerzendingsWijze) ; Logging toegevoegd - PV- 04072023
 	Quit
 ]]></Implementation>
 </Method>
@@ -258,6 +259,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PopupIndienVoorHaefeleCH">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BONNr</FormalSpec>
+<Implementation><![CDATA[
+	#dim Bon as DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
+	If Bon.GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleZwitserland(){
+		If Bon.GeefLeveringsAdres().GeefLandNr() = ##class(DOM.common.enu.Land).Zwitserland() {
+			Do Boodschap^vhTXTPOP("Bon voor Haefele CH : Wordt op gehaald door Haman ipv Erka!!")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PopupIndienVoorHaefeleNO">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BONNr</FormalSpec>
+<Implementation><![CDATA[
+	#dim Bon as DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
+	If Bon.GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleNoorwegen(){
+		If Bon.GeefLeveringsAdres().GeefLandNr() = ##class(DOM.common.enu.Land).Noorwegen() {
+			Do Boodschap^vhTXTPOP("Gelieve de factuur bij de goederen mee te geven voor Douane.")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AddLevering">
 <Description>
 Toevoegen van een leveringsbon aan een transport</Description>
@@ -273,6 +300,9 @@
 	Else  Do
 	. Set TransportLink=##class(Flow.Cons.TransportBon).GetTransport(BONNr)
 	. Set Transport=$P(TransportLink,";"),Adres=$P(TransportLink,";",2)
+	
+	Quit:$$ShowViaBon^TRANSPStatusKlantVandaag(BONNr)'=1
+	
 	If 'Transport!AutoSelect Do  ; De levering is nog niet in een transport opgenomen
 	. If 'AutoSelect Do  Quit:$G(ModAdres)="A"
 	. . Set Transport=..VastTransport()
@@ -291,6 +321,8 @@
 	. . Do:TransportAdres'="A" ..EditAdres("L",BONNr,TransportAdres,ModAdres)
 	. . Set Transport=$P(TransportAdres,"||"),Adres=$P(TransportAdres,"||",2)
 	. If 'Transport,Transport'="N" Do
+	. . ;Do ..PopupIndienVoorHaefeleCH(BONNr)
+	. . Do ..PopupIndienVoorHaefeleNO(BONNr)
 	. . // Selecteer een adres van deze klant
 	. . Set TransportAdres=..OpenstaandKlant("L",BONNr)
 	. . Quit:TransportAdres="A"  // Annuleer