PVLINK ;Export van PRLINK met stock [ 11/08/2003   8:40 PM ]
 Set MPRNr=""
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"PRLINK.txt","W")
 Use Dev
 Write $TR("Klas;IdentNr;KortTekst;Stock;FysSt;Min.Kind;Kind IdentNr;Kind Korttekst;Kind FysSt",";",$C(9)),!
 For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do ONE(MPRNr)
 Close:0'[Dev Dev
 Quit
 
ONE(MPRNr) Set MKortTxt=$P(^KPR(MPRNr,0),D)
 Set MFysSt=$P(^KPR(MPRNr,0),D,14)
 Set MId=$P(^KPR(MPRNr,2),D,25)
 Set MBInv=$P(^KPR(MPRNr,1),D,9)
 Set MSortKey=$P(^KPR(MPRNr,$O(^KPR(MPRNr,"I"))),D,3)
 Set Stock=$S($P(^KPR(MPRNr,1),D,20):"S",1:"NS")
 Set KPRNr=""
 Set MinQty=999999999
 For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
 .Set KFysSt=$P(^KPR(KPRNr,0),D,14)
 .Set QtyFak=$P(^PRLINK("D",MPRNr,KPRNr),D)
 .Set KFysSt=KFysSt/QtyFak
 .Set:MinQty>KFysSt MinQty=KFysSt
 Set:MinQty=999999999 MinQty=0
 For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
 .Set KKortTxt=$P(^KPR(KPRNr,0),D)
 .Set KFysSt=$P(^KPR(KPRNr,0),D,14)
 .Set KId=$P(^KPR(KPRNr,2),D,25)
 .Set KBInv=$P(^KPR(KPRNr,1),D,9)
 .Write MSortKey,$C(9),MId,$C(9),MKortTxt,$C(9),Stock,$C(9),MFysSt,$C(9),MinQty
 .Write $C(9),KId,$C(9),KKortTxt,$C(9),KFysSt,!