HADSVDX ;Overzichtlijst voor SVEDEX [ 04/03/2003  10:25 AM ]
LIJST Set KLNr=3479 ;$$SELECT^KLANT6()
 Quit:'KLNr
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"LISTSVEDEX.txt","W")
 Use Dev
 Set BonNr=""
 For  Set BonNr=$O(^KUL(KLNr,"F",BonNr)) Quit:BonNr=""  Do
 .Set RecH=^(BonNr,1)
 .Set LijnNr=99
 .Set Ref=""
 .For  Set LijnNr=$O(^KUL(KLNr,"F",BonNr,LijnNr)) Quit:'LijnNr  Do
 ..Set RecL=^(LijnNr)
 ..If $P(RecL,D,17)="KF5"  Do  ; Orderhoofding
 ...Set Ref=$P($P(RecL,D,5)," - ",3,9)
 ...If Ref?2N1"."2N1"."2N1" "1.E Set Ref=$E(Ref,10,99)
 ...Else  If Ref?2N1"."2N1"."2N1.E Set Ref=$E(Ref,9,99)
 ...Else  If Ref?2N1"-"2N1"-"2N1" "1.E Set Ref=$E(Ref,10,99)
 ...Else  If Ref?2N1"-"2N1"-"2N1.E Set Ref=$E(Ref,9,99)
 ..Else  Do
 ...Set PRNr=$P(RecL,D,2) 
 ...Quit:'PRNr
 ...Quit:'$D(^KPR(PRNr,"J6332"))
 ...Set KortT=$P(^KPR(PRNr,0),D,1)
 ...Set Qty=$P(RecL,D,3)
 ...Quit:Qty<1  ; Geen terugnames
 ...For I=1:1:$S(Qty>10:10,1:Qty) Do
 ....Write BonNr,$C(9),Ref,$C(9),KortT,$C(9),1,$C(9),$TR($P(RecH,D,2),".","/"),!
 ...Write:Qty>10 BonNr,$C(9),Ref,$C(9),KortT,$C(9),Qty-10,$C(9),$TR($P(RecH,D,2),".","/"),!
 Close:0'[Dev Dev
 Quit