Index: BL/Flow/Cons/TransportFlow.cls.xml
===================================================================
diff -u -r50579 -r65837
--- BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 50579)
+++ BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 65837)
@@ -258,6 +258,19 @@
 ]]></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() = 1236 {
+			Do Boodschap^vhTXTPOP("Bon voor Haefele CH : Wordt op gehaald door Haman ipv Erka!!")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AddLevering">
 <Description>
 Toevoegen van een leveringsbon aan een transport</Description>
@@ -291,6 +304,7 @@
 	. . Do:TransportAdres'="A" ..EditAdres("L",BONNr,TransportAdres,ModAdres)
 	. . Set Transport=$P(TransportAdres,"||"),Adres=$P(TransportAdres,"||",2)
 	. If 'Transport,Transport'="N" Do
+	. . Do ..PopupIndienVoorHaefeleCH(BONNr)
 	. . // Selecteer een adres van deze klant
 	. . Set TransportAdres=..OpenstaandKlant("L",BONNr)
 	. . Quit:TransportAdres="A"  // Annuleer