PV1 ; Bepalen meest voorkomende winst per subgroep [ 11/22/2003   1:21 PM ]
 Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set KLNr=$P(^KKL(KLId,0),D,1)
 .Set Regio=$P(^KKL(KLId,0),D,20)
 .Set Munt=$P(^KKL(KLId,0),D,11)
 .Set PostKode=$P(^KKL(KLId,0),D,6)
 .Set Land=$$LAND^vhRtn1($P(^KKL(KLId,0),D,8))
 .Set KLVan=$P(^KKL(KLId,1),D,10)
 .Set KLVanNm=""
 .Set:KLVan?4.5N KLVanNm=$P(^KKL(^KK1(KLVan),0),D,2)
 .;Quit:Land'="NL"
 .;Quit:'((Munt=""))
 .;Quit:$D(^KOD(KLNr))
 .;Quit:$D(^KUL(KLNr))
 .Quit:Regio<21  Quit:Regio>29
 .Write !,KLNr," ",$P(^KKL(KLId,0),D,2)," ",Land," ",PostKode," ",Regio," ",$P(^KKL(KLId,2),D,16)," ",$P(^KKL(KLId,0),D,18)," ",Munt
 .Write $D(^KFA1(KLNr))
 .Set $P(^KKL(KLId,3),D,3)="00"
 .;Quit:$P(^KKL(KLId,0),D,18)'="30D"
 .;Set $P(^KKL(KLId,0),D,11)="NLG"
 .;Set:$P(^KKL(KLId,2),D,2)="" $P(^KKL(KLId,2),D,2)="8D"
 .;Set:$P(^KKL(KLId,0),D,17)="" $P(^KKL(KLId,0),D,17)="2"
 Quit
 
REGIO Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set Regio=$P(^KKL(KLId,0),D,20)
 .Set PostKode=$P(^KKL(KLId,0),D,6)
 .Set Land=$$LAND^vhRtn1($P(^KKL(KLId,0),D,8))
 .;Quit:Land'="NL"
 .Quit:Regio'=8
 .Set KLVan=$P(^KKL(KLId,1),D,10)
 .Set KLVanNm=""
 .Set:KLVan?4.5N KLVanNm=$P(^KKL(^KK1(KLVan),0),D,2)
 .Write !,KLId," ",Land," ",PostKode," ",Regio," ",KLVanNm
 .Set Regio=4
 .;If PostKode?1"B-10".E!(PostKode?1"10".E) Set Regio=17
 .;If PostKode?1"B-35".E!(PostKode?1"35".E) Set Regio=15
 .;If PostKode?1"B-36".E!(PostKode?1"36".E) Set Regio=15 
 .;If PostKode?1"B-37".E!(PostKode?1"37".E) Set Regio=15
 .;If PostKode?1"B-38".E!(PostKode?1"38".E) Set Regio=15
 .Write "->",Regio
 .Write " Convert"
 .Set $P(^KKL(KLId,0),D,20)=Regio
 Quit
 
REGNL Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set Regio=$P(^KKL(KLId,0),D,20)
 .Set PostKode=$P(^KKL(KLId,0),D,6)
 .Set Land=$$LAND^vhRtn1($P(^KKL(KLId,0),D,8))
 .Quit:Land'="NL"
 .If $E(PostKode,1,3)'="NL-" Write !,KLId,"->",PostKode," foutief" Q
 .Set PostKode=$E(PostKode,4,7)
 .Set Regio=""
 .If PostKode'<1100,PostKode'>4299 Set Regio=21
 .If PostKode'<4300,PostKode'>4499 Set Regio=22
 .If PostKode'<4600,PostKode'>6999 Set Regio=22
 .If PostKode'<7000,PostKode'>8599 Set Regio=23
 .If PostKode'<9200,PostKode'>9599 Set Regio=23
 .If PostKode'<9700,PostKode'>9799 Set Regio=23
 .If PostKode'<4500,PostKode'>4599 Set Regio=11
 .If PostKode'<1000,PostKode'>1099 Set Regio=27
 .If PostKode'<8600,PostKode'>9199 Set Regio=29
 .If PostKode'<9600,PostKode'>9699 Set Regio=29
 .If PostKode'<9800,PostKode'>9999 Set Regio=29
 .If Regio="" Write !,KLId,"->",PostKode," out of range" Quit
 .Set $P(^KKL(KLId,0),D,20)=Regio
 Quit
PORTVRIJ Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set Regio=$P(^KKL(KLId,0),D,20)
 .If Regio'=5,Regio'=11,Regio'=12,Regio'=13,Regio'=14 Quit
 .Set VerzendW="00"
 .Quit:$P(^KKL(KLId,3),D,3)=VerzendW
 .Write !,KLId,"->",$P(^KKL(KLId,3),D,3)
 .Set $P(^KKL(KLId,3),D,3)=VerzendW
 Quit
      
COPYREG Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set Regio=$P(^KKL(KLId,0),D,20)
 .Set $P(^KKL(KLId,0),D,21)=Regio
 Quit
 ;
 Set Dev=$$OPEN^vhDEV(,"KSBons.TXT","W")
 Use Dev
 Set Cnt=0,BCnt=0
 Set FAKNr=900000
 Set EDat=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD")
 Set BDat=$$CALCDATE^vhLib.DataTypes($H,"M",-13,"FD")
 Write $TR("KLNr,Naam,PostKode,Regio,BonNr,LevDatum,Produkt,Klas,Lever,Gewicht gr,Aantal,AKP,VKP",",",$C(9)),!
 For  Set FAKNr=$O(^KFA("F",FAKNr)) Quit:FAKNr=""  Do
 .Set KLNr=$P(^KFA("F",FAKNr,0,0),D)
 .Set KLId=^KK1(KLNr)
 .Quit:$P(^KKL(^KK1(KLNr),2),D,3)'="P"  ; Prijsklasse=Prijslijst
 .Set BONNr="U"
 .For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:BONNr=""  Do
 ..Set Cnt=Cnt+1
 ..If '(Cnt#100) Use 0 Write BCnt," / ",Cnt Use Dev
 ..Set Dat=$$INTDATE^vhLib.DataTypes($P(^KFA("F",FAKNr,BONNr,1),D,2))
 ..Quit:Dat<BDat
 ..Quit:Dat>EDat
 ..Set BCnt=BCnt+1
 ..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'?4.7N
 ...Set Qty=$P(Rec,D,3)
 ...Write KLNr,$C(9)
 ...Write $P(^KKL(KLId,0),D,2),$C(9)
 ...Write $P(^KKL(KLId,0),D,6),$C(9)
 ...Write $P(^KKL(KLId,0),D,20),$C(9)
 ...Write $E(BONNr,2,9),$C(9)
 ...Write $$EXTDATE^vhLib.DataTypes(Dat),$C(9)
 ...If $D(^KPR(PRNr)) Do
 ....Write $P(^KPR(PRNr,0),D,1),$C(9)
 ....Write $E($P(^KPR(PRNr,$O(^KPR(PRNr,"I"))),D,1),3,4),$C(9)
 ....Write $E($O(^KPR(PRNr,"J")),2,5),$C(9)
 ....Write $TR($P(^KPR(PRNr,1),D,13)*Qty,".",","),$C(9) ; Gewicht
 ...Else  If $D(^KPRO(PRNr)) Do
 ....Write $P(^KPRO(PRNr,0),D,1),$C(9)
 ....Write $E($P(^KPRO(PRNr,$O(^KPRO(PRNr,"I"))),D,1),3,4),$C(9)
 ....Write $E($O(^KPRO(PRNr,"J")),2,5),$C(9)
 ....Write $TR($P(^KPRO(PRNr,1),D,13)*Qty,".",","),$C(9) ; Gewicht
 ...Else  Write $C(9),$C(9),$C(9)
 ...Write Qty,$C(9)
 ...Write $TR($P(Rec,D,33),".",","),$C(9)
 ...Write $TR($P(Rec,D,34),".",","),$C(9)
 ...Write !
 Quit
 Set FileNm=$$READ^vhDEV("\\NOTES01\SHARED\P V","*.TXT","D`ONER20^PV","DT")
 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