PV6 ; Bepalen meest voorkomende winst per subgroep [ 11/08/2003   8:27 PM ]
 Quit
 ;
TRANSFAK Set Dev=0
 ;Set Dev=$$OPEN^vhDEV("\\NOTES01\SHARED\P V\","KSBons.TXT","W")
 Use Dev
 Set Cnt=0,BCnt=0
 Set FAKNr=0
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Do
 .Set Dat=$P(^KFA("F",FAKNr,0,0),D,6)
 .Set Munt=$P(^KFA("F",FAKNr,0,0),D,5)
 .Set:Munt="" Munt=$$FADEF^vhRtn1()
 .Set MuntS=""
 .Set Cnt=0
 .Set KLNr=$P(^KFA("F",FAKNr,0,0),D)
 .Set KLId=$G(^KK1(KLNr))
 .Set BONNr="U"
 .For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:BONNr=""  Do
 ..Set LNr=100
 ..For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr=""  Do
 ...Set Rec=^(LNr)
 ...Set PRNr=$P(Rec,D,2)
 ...Quit:'PRNr
 ...Set MuntL=$P(Rec,D,22)
 ...Set:MuntL="" MuntL=$$FADEF^vhRtn1()
 ...Set:MuntS'[MuntL MuntS=MuntS_";"_MuntL
 ...Set:MuntL'=Munt Cnt=Cnt+1
 ...Quit:PRNr'?4.7N
 .Write:Cnt KLId,$C(9),FAKNr,$C(9),Munt,$C(9),$E(MuntS,2,99),!
 Close:0'[Dev Dev
 Quit
 
WRITEOMZ 
 Write MemKLNr,$C(9)
 Write KLNm,$C(9)
 Write MemFAKNr,$C(9)
 Write $$EXTDATE^vhDTyp(FaktDat),$C(9)
 Write OrdNr,$C(9),OrdRef,$C(9)
 Write DNV,$C(9),Cnt,$C(9),Qty,$C(9),$TR(OmzVKP,".",","),$C(9),$TR(Omz,".",",")
 Write !
 Quit
ONER20(Rec) 
 Set KLNr=$P(Rec,D,1)
 w !,Rec
 Quit:KLNr'?4.5N
 Set KLId=^KK1(KLNr)
 Set KLR=^KKL(KLId,0)
 Set $P(KLR,D,20)=20
 Set ^KKL(KLId,0)=KLR
 Quit
 
 Set PRNr=0
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"GEWICHTQTY.TXT","W")
 ;set Dev=0
 Use Dev
 Set Cnt=0
 Write $TR("IdentNr,Korttekst,Klas,S/N,LevNm,#Aankoop,#Verkoop,CiffPPL,Omzet,Marge,#Stock",",",$C(9)),!
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  ;Quit:Cnt=10
 .Quit:$D(^KPR(PRNr,"J5810"))
 .Quit:$D(^KPR(PRNr,"J6092"))
 .Quit:$D(^KPR(PRNr,"J6110"))
 .Quit:$D(^PRLINK("IKM",PRNr))
 .Set Cnt=Cnt+1
 .;Set Aank=+$$AANK^STAT(PRNr,199814,199913)
 .Set Aank=+$$HISTO^STAT(PRNr,980401,990331,1)
 .Set Verk=$$PROD^STAT(PRNr,0,"1998.04 ","1999.03 ")
 .Do FETCHPR^UTILI(PRNr,"Rec")
 .Set Stock=$S($P(Rec(1),D,20):"S",1:"NS")
 .Set:$L($P(Rec(0),D,3)) Stock=$S($P(Rec(0),D,3)?4.7N:"A",1:"G")
 .Write $P(Rec(2),D,25),$C(9),$P(Rec(0),D,1),$C(9),$P(Rec("I"),D,3),$C(9),Stock,$C(9),$E($P(^KLE(^KL1($P(Rec("J"),D,1)),0),D,2),1,10),$C(9),Aank,$C(9),$P(Verk,D),$C(9),$TR($P(Rec("J"),D,23),".",","),$C(9),$TR($P(Verk,D,3),".",","),$C(9),$TR($P(Verk,D,4),".",","),$C(9),$P(Rec(0),D,14),!
 
 Close:0'[Dev Dev
 Q