ZoekEnOpTransport
 Quit:'$$INITMOD^ULTOER()
 
 If $$ZoekInLijst(ULNr) {
 	Do ##Class(BL.Flow.Cons.TransportFlow).AddLevering(ULNr)
	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
	Do REFETCH^ULTOER
 }
 Else {
	Set BONNr=ULNr,Refetch=0
 	If $D(^HULP(%J,"D",ULTOER(6))) Set Refetch=BONNr'=$P(^HULP(%J,"D",ULTOER(6)),D)
 	Set DL(2)=ULTOER(3),DL(3)=ULTOER(4)-9+($D(Field)*5) Do PL^PROC Kill DL(2),DL(3)
 	If "Z"[$G(Field) Set KlantInd=^KK1(KLNr),Taal=$P(^KKL(KlantInd,0),D,9) If Taal="" Set Taal="N"
 	Do EDIT^vhScherm("ULTOERED") 	
	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
 	If %SC Do
 	.If Refetch Do REFETCH^ULTOER Quit
 	.Set ^HULP(%J,"D",ULTOER(6))=$$FETCHL^ULTOER(KLNr,ULNr) Do EL^PROC
 	Set DL(2)=ULTOER(3),DL(3)=ULTOER(4)+9-($D(Field)*5)
 	Do PL^PROC
 	Kill DL(2),DL(3)
 	Do:'Refetch!'%SC RESET^vhScherm
 }
 
 Quit
 
ZoekInLijst(BONNr)
 Set VolgNr=""
 Set Found=0
 For  Set VolgNr=$O(^HULP(%J,"D",VolgNr)) Quit:VolgNr=""  Do  Quit:Found
 . Set BONNrInLijst=$P(^HULP(%J,"D",VolgNr),"\")
 . Quit:$P($G(^HULP(%J,"D",VolgNr)),"\",2)="W"
 . Set Found=BONNrInLijst=BONNr
 Quit Found