PVBLUM ; Bepalen meest voorkomende winst per subgroep [ 11/08/2003   8:40 PM ]
 D INIT^vhTERMINA
 u 0:(::::4096)
 S BM=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-13),"DM4")_" "
 S EM=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-1),"DM4")_" "
 S M=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-13),"DKP")
 Set BMH=$P(M,".",3)_$P(M,".",2)_$P(M,".",1)
 S M=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-1),"DKP")
 Set EMH=$P(M,".",3)_$P(M,".",2)_$P(M,".",1)
 s PRNr=0
 READ "TRANSFERT",K
 Set Tit="IdentNr,Korttekst,Klassif,Winst,Verkoop,Aankoop,Oude prijs,GO,B-prijs,Oude kort,ES,BlumKlant,Nieuw prijs,Nieuw kort"
 Write $TR(Tit,",",$c(9))
 F  S PRNr=$O(^KPR(PRNr))  Q:PRNr=""  D
 .Q:'$D(^KPR(PRNr,"J5005"))
 .Do FETCHPR^UTILI(PRNr,"P")
 .Quit:$E($P(P(2),D,25))=7
 .Write !,$P(P(2),D,25),$C(9),$P(P(0),D,1),$C(9),$P(P("I"),D,3)
 .Set Stat=$$PROD^STAT(PRNr,"",BM,EM,1)
 .Set Histo=$P($$HISTO^STAT(PRNr,BMH,EMH,1),D)
 .Set GO=$P(P("J"),D,28)
 .If $D(^PRPUTZ("N",PRNr)) Do  ; Pinned
 ..Set KLNr=$O(^PRPUTZ("N",PRNr,""))
 ..Set BLKLNr=$P(^PRPUTZ("N",PRNr,KLNr,0),D)
 .Else  Set BLKLNr="212250"
 .Set IDNr="0"_$TR($E($P(P(2),D,25),2,99),".","")
 .Set ESSpec=$P($G(^BLProd("RP",BLKLNr,IDNr)),D,5)
 .Set:'$L(ESSpec) BLKLNr=""
 .Set Undef=""
 .Set:'$D(^BLProd("D",IDNr)) Undef="?"
 .If $P(P(2),D,3)="" Do
 ..Set $P(P(2),D,3)=$P(P("J"),D,19)
 ..Set:'$L(ESSpec) ESSpec="="
 .If $P(P(2),D,4)="" Do
 ..Set $P(P(2),D,4)=$P(P("J"),D,9)
 .Write $C(9),$TR($P(P("J"),D,24),".",","),$C(9),Stat,$C(9),Histo,$C(9),$TR($P(P("J"),D,19),".",","),$C(9),GO,$C(9),$S($P(P("J"),D,18):"B",1:""),$C(9),$TR($P(P("J"),D,9),".",","),$C(9),ESSpec,$C(9),BLKLNr
 .
 .Write $C(9),$TR($P(P(2),D,3),".",","),$C(9),$TR($P(P(2),D,4),".",","),$C(9),Undef
 Write "~~~"
 Quit
 
SOPR D INIT^vhTERMINA
 s PRNr=0
 F  S PRNr=$O(^KPR(PRNr))  Q:PRNr=""  D
 .Q:'$D(^KPR(PRNr,"J5005"))
 .Set Rec=^KPR(PRNr,2)
 .If $D(^PRPUTZ("N",PRNr)) Do  ; Pinned
 ..Set KLNr=$O(^PRPUTZ("N",PRNr,""))
 ..Set BLKLNr=$P(^PRPUTZ("N",PRNr,KLNr,0),D)
 .Else  Quit  ;Set BLKLNr="212250"
 .Set IDNr="0"_$TR($E($P(Rec,D,25),2,99),".","")
 .If $D(^BLProd("RP",BLKLNr,IDNr)) Do
 ..Write !,BLKLNr,$C(9),$P(Rec,D,25)," ",$P(^KPR(PRNr,0),D)
 ..Set $P(Rec,D,3)=""
 ..Set $P(Rec,D,4)=""
 ..Set ^KPR(PRNr,2)=Rec
 .ELSE  DO
 Quit
SET45 D INIT^vhTERMINA
 s PRNr=0
 F  S PRNr=$O(^KPR(PRNr))  Q:PRNr=""  D
 .Q:'$D(^KPR(PRNr,"J5005"))
 .Set Rec=^KPR(PRNr,2)
 .Quit:'$P(Rec,D,3)
 .Set $P(Rec,D,4)=45.80
 .Set ^KPR(PRNr,2)=Rec
 Quit