Index: CHUI/TRANSP/impl/RegistratieNietGeleverdeBon.cls.xml
===================================================================
diff -u -r29059 -r54785
--- CHUI/TRANSP/impl/RegistratieNietGeleverdeBon.cls.xml	(.../RegistratieNietGeleverdeBon.cls.xml)	(revision 29059)
+++ CHUI/TRANSP/impl/RegistratieNietGeleverdeBon.cls.xml	(.../RegistratieNietGeleverdeBon.cls.xml)	(revision 54785)
@@ -124,20 +124,12 @@
 			Set KLNr=$P(^KU1(BONNr,"F"),D)
 			Set blNLZ.KLNr=KLNr,blNLZ.BONNr=BONNr
 			Set (blNLZ.Pallet,blNLZ.Colli,blNLZ.LangGoed)=""
-			If blNLZ.ZendingType="NIL" {
-				Do EDIT^vhScherm("TRANSPNLZDNIL",,,,,,3)
-				If %SC {
-					Set Node=$$NODE^FLOWBON(BONNr)
-					Set R=^KUL(KLNr,Node,BONNr,1),ExtraTeBet=$P($P(R,D,11),";"),Beloofd=$S($P(R,D,16)="":"", $P(R,D,23)="N":"N", '$P(R,D,36):"B", 1:"")
-					Set Rembours=$$ISREMB^REMBOURS(KLNr,BONNr)
-					Do blNLZ.Nieuw()
-					Set NLZRec=blNLZ.ID_D_KLNr_D_BONNr_D_D_blNLZ.Pallet_D_blNLZ.Colli_D_blNLZ.LangGoed_D_Beloofd_D_Rembours_D_ExtraTeBet
-					Do NIEUW^vhLISTE(.LD,NLZRec)
-					Set BONNrs(BONNr)=NLZRec
+			If ((blNLZ.ZendingType="NIL")||(blNLZ.ZendingType="NGL")) {
+				If (blNLZ.ZendingType="NIL") {
+					 Do EDIT^vhScherm("TRANSPNLZDNIL",,,,,,3)
+				} else {
+					Do NIEUW^vhScherm("TRANSPNLZDNGL",,,,,,3)
 				}
-			}
-			If blNLZ.ZendingType="NGL" {
-				Do NIEUW^vhScherm("TRANSPNLZDNGL",,,,,,3)
 				If %SC {
 					Set Node=$$NODE^FLOWBON(BONNr)
 					Set R=^KUL(KLNr,Node,BONNr,1),ExtraTeBet=$P($P(R,D,11),";"),Beloofd=$S($P(R,D,16)="":"", $P(R,D,23)="N":"N", '$P(R,D,36):"B", 1:"")
@@ -172,7 +164,7 @@
 	New %SC,R,NLZRec,BONNr,KLNr
 	If blNLZ.ZendingType="NIL" {
 		Set blNLZ.Reden=""
-		Set NLZRec=NLZ(LD("SELECT")),blNLZ.ID=$P(NLZRec,D),KLNr=$P(NLZRec,D,2),BONNr=$P(NLZRec,D,3),blNLZ.Pallet=$P(NLZRec,D,5),blNLZ.Colli=$P(NLZRec,D,6),blNLZ.LangGoed=$P(NLZRec,D,7)
+		Set NLZRec=NLZ(LD("SELECT")),blNLZ.ID=$P(NLZRec,D),KLNr=$P(NLZRec,D,2),BONNr=$P(NLZRec,D,3),blNLZ.Reden=$P(NLZRec,D,4),blNLZ.Pallet=$P(NLZRec,D,5),blNLZ.Colli=$P(NLZRec,D,6),blNLZ.LangGoed=$P(NLZRec,D,7)
 		Set blNLZ.KLNr=KLNr,blNLZ.BONNr=BONNr
 		Do EDIT^vhScherm("TRANSPNLZDNIL",,,,,,3)
 		If %SC {