BONTORD ;[ 05/21/2003  1:23 PM ]
 ;
 Kill
 Set Q="K"
 Do ^cA604
 Write @F11,@F1
 For  Do  Quit:'BONNr
 .Set FP=2203
 .Write @F,@F1
 .Read "Bonnummer ? ",BONNr
 .Quit:'BONNr
 .Do VERWERK(BONNr)
 Quit
 ;
VERWERK(BONNr) 
 If '$D(^|"LVH,BAD"|KU1(BONNr)) Do  Quit
 .Set FP=2403
 .Write @F,$ZR," ???"
 .Read R
 Set R=^|"LVH,BAD"|KU1(BONNr,"F"),KLNr=$P(R,D)
 Set ULNNr=100,Verwerk=1
 For  Set ULNNr=$O(^|"LVH,BAD"|KUL(KLNr,"F",BONNr,ULNNr)) Quit:'ULNNr  Do
 .Set R=^|"LVH,BAD"|KUL(KLNr,"F",BONNr,ULNNr)
 .Quit:$P(R,D,17)'="KF5"
 .Set R=$P(R,D,5),ORDNr=$P(R," - ")
 .If $D(^KOD(KLNr,"F",ORDNr)) Do  Quit
 ..Set FP=2403,Verwerk=0
 ..Write @F,"Order ",ORDNr," bestaat reeds !!! "
 ..Read R
 If 'Verwerk Do  Quit
 .Set FP=2403
 .Write @F,"Bon ",BONNr," werd niet verwerkt !!! "
 .Read R
 Set ULNNr=100
 For  Set ULNNr=$O(^|"LVH,BAD"|KUL(KLNr,"F",BONNr,ULNNr)) Quit:'ULNNr  Do
 .Set R=^|"LVH,BAD"|KUL(KLNr,"F",BONNr,ULNNr)
 .If $P(R,D,17)="KF5" Do  Quit
 ..Set OLNNr=100,R=$P(R,D,5),ORDNr=$P(R," - "),Date=$P(R," - ",2),OrdRef=$P(R," - ",3)
 ..Kill ^KO1(ORDNr,"F")
 ..Set ^KO1(ORDNr,"F")=KLNr_D
 ..Set R=^|"LVH,BAD"|KUL(KLNr,"F",BONNr,1),$P(R,D,2)=Date,$P(R,D,3)=OrdRef,$P(R,D,7)="",$P(R,D,13)="",^KOD(KLNr,"F",ORDNr,1)=R
 .Set OLNNr=OLNNr+1
 .If $P(R,D,17)'="KF6" Set ^KOD(KLNr,"F",ORDNr,OLNNr)=R
 .Else  Do
 ..Set $P(R,D,17)="KF0",^KOD(KLNr,"F",ORDNr,OLNNr)=R
 ..Set PRNr=$P(R,D,2),Aantal=$P(R,D,3),LevWk=$P(R,D,25)
 ..;Set ^KPR(PRNr,"W    0.0R"_$J(ORDNr,6)_$J(OLNNr-100,3))=Aantal_D_LevWk_D
 .Set ^KOD(KLNr,"F",ORDNr,0)=OLNNr+1
 .Set ^KOD(KLNr,"F",ORDNr,2)=^|"LVH,BAD"|KUL(KLNr,"F",BONNr,2)
 .Set ^KOD(KLNr,"F",ORDNr,3)=^|"LVH,BAD"|KUL(KLNr,"F",BONNr,3)
 .Set FP=2403
 .Write @F,"Bon ",BONNr," werd verwerkt !!! "
 .Read R
 Quit
 ;