Index: BL/Flow/Cons/TransportFlow.cls.xml
===================================================================
diff -u -r68917 -r72055
--- BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 68917)
+++ 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>
@@ -299,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()
@@ -317,7 +321,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)
+	. . ;Do ..PopupIndienVoorHaefeleCH(BONNr)
 	. . Do ..PopupIndienVoorHaefeleNO(BONNr)
 	. . // Selecteer een adres van deze klant
 	. . Set TransportAdres=..OpenstaandKlant("L",BONNr)