RPLPR1 ;RAADPLEGEN PRODUKTEN ;RPLPR; Do naar RPLPR2, PROC - Quit naar RPLPR [ 11/08/2003   8:27 PM ]
 Q
 ;
T2 ;ALGEMEEN;BESTELHOEVEELHEDEN;BESTELREFERENTIE;HISTORIEK;LEVERANCIER;MAANDOMZET;TERMIJNSTOCK;VERKOOPANALYSE;WEEKVERKOOP;OPENSTAANDE TOELEV/ORDERS;CLASSIFICATIE;PRIJSTABEL;PRIJSUITZONDERING;KLANTREFERENTIES;EWMS;HALFFABRIKATEN;AANKOOPANALYSE
T3 ;SCHADUW
T4 ;PRODUKT INFO;OVERZICHT
T5 ;*** I'm thinking ***
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
 S FP=$P(U2,U,5)*100+$P(U2,U,6) I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
 S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
 S FP=$P(U2,U,5)*100+$P(U2,U,6)
 W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3
 Q
 ;
 ;Write list
WL K DL(2),DL(3) D WL^PROC
 Q
 ;
 ;Help
HLP D SA,VPI:$L(VTB) S PIF=0,FP=601 W @F,@F2
 S HLP(1)=$P($T(T4),U,2),HLP(2)=$P($T(T4),U,3),HLP(3)=8,HLP(6)="" D HLP^HELP
 S R=$S($L(VTB):VTB,1:SW2)
 S VTB="",SW2=0
 Q
 ;
 ;Schermaanduiding
SA N R
 S R=$P($T(T2),U,$F("123H5MSVWO6TUR47Y",U4))
 I U4="U",NoSa="S" S R=$P($T(T3),U,2)_R
 I $G(Beperk)["BK#" S R=R_" (beperkt)"
 I U4>0,U4'>7 S R="Scherm "_U4_": "_R
 S FP=250 W @F,@FMTB,$J(R,30),@FMTb
 Q
 ;
SA1 S FP=250 W @F,$J("",10),@FMTK,$P($T(T5),U,2),@FMTk
 Q
 ;
 ;Verwijder ballast
VBA F I=4,7,10:1:12,14,15,17:1:22 S $P(U2,U,I)=""
 Q
 ;
 ;Produkteninformatie
PIF G PIF^RPLPR
 ;
PIF3 G PIF3^RPLPR
 ;
 ;Verwijderen produkteninfo
VPI G VPI^RPLPR
 ;
 ;Verwerk klassifikatie, leverancier
VKL N GRef
 S GRef=$$GREF^RPLPR()
 I SW2'=U4 S SW2=U4,SW5=1,PIF=0,FP=601 W @F,@F1 I $L(VTB) D VPI S VTB=""
 S B("X")=B(1),B(1)=$S(U4=6:B("I"),1:B("J"))
 K A S X=$D(@("^"_GRef_"(0,0)")),X=$S(U4=6:1100,1:1200),K=100
VKL1 S X=$N(^(X)) I X>1,X<$S(U4=6:1199,1:1299) S U2=^(X) D VBA S K=K+1,A(K)=U2 G VKL1
 S U1=100
VKL2 S U1=$N(A(U1)) I U1'=-1 D S2 G VKL2
 K A S A(101)=$P(@("^"_GRef_"(0,101)"),U,1,16),A(102)=$P(^(102),U,1,16),SW5=0
VKL3 S B(1)=B("X") K B("X")
 Q
 ;
 ;Klassifikatie
KLA G KLA1:U4=SW2&(PR=PRX)
 D SA I '$D(B("I")) D O1^RPLPR2 G KLA1
 D VKL
KLA1 K IK(2)
 Q
 ;
 ;Leverancier
LEV I U4=SW2&(PR=PRX) ;G LEV1:$L($G(Sch5Aank))'>1
 ;I SW2'=U4 S IK(2)=1 D IK^PROC1 G LEV1:R'=6 D IK^PROC1 G LEV1:R'=6
 D SA I '$D(B("J")) D O1^RPLPR2 G LEV1
 D VKL
 D LEV^RPLPR2
LEV1 K IK(2)
 Q
 ;
 ;Prijstabel
PTA S DL(1)="PTA",PTA(1)="^HULP($J,""P""_PR,""PT""," G PTA1:VTB=U4&(PR=PRX) D SA,PIF
 I $D(^HULP($J,"P"_PR,"PT")) D PTAWL^RPLPR2 G PTA1
 D SA1,PTA^RPLPR2,SA
PTA1 D KATPROD^RPLPR2
 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Weekverkoop
WVK S DL(1)="WVK",WVK(1)="^HULP($J,""P""_PR,""W""," G WVK1:VTB=U4&(PR=PRX) D SA,PIF
 I $D(^HULP($J,"P"_PR,"W")) D WL G WVK1
 D SA1,WVK^RPLPR2,SA
WVK1 D SL^PROC S VTB=U4,SW2=0
 Q
 ;
 ;Verkoopanalyze
VKA S DL(1)="VKA",VKA(1)="^AKANAL("_PR_"," G VKA2:VTB=U4&(PR=PRX) D SA,PIF
VKA1 D VKA^RPLPR2
VKA2 D SL^PROC S VTB=U4,SW2=0
 I R="PRINT" D VKA^RPLPR4 G VKA2
 I R="X" D SA1,VerwerkEenProduct^Stat.Statistiek.OpbouwenArtikelKlantAnalyse(PR),SA S DL(1)="VKA" G VKA1
 Q
 ;
 ;Verkoopanalyze leverancier
VAL
 N CifPPL,SchaduwCifPPL,Munt,GrootteOrde
 S (CifPPL,SchaduwCifPPL,Munt,GrootteOrde)=""
 D:$D(^AKANAL(PR))
 . N R
 . S R=$$PRIJSGEG^KPRIJS(PR),Munt=$P(R,D,2),GrootteOrde=$P(R,D,3),CifPPL=$P(R,D,6)*$P(R,D,4)
 . S R=$$PRIJSGEG^KPRIJS(PR,"S"),SchaduwCifPPL=$P(R,D,6)*$P(R,D,4)
 S DL(1)="VAL",VAL(1)="^AKANAL("_PR_"," G VAL2:VTB=U4&(PR=PRX) D SA,PIF
VAL1 D VAL^RPLPR2
VAL2 
 D SL^PROC S VTB=U4,SW2=0
 I R="PRINT" D VAL^RPLPR4 G VAL2
 I R="X" D SA1,VerwerkEenProduct^Stat.Statistiek.OpbouwenArtikelKlantAnalyse(PR),SA S DL(1)="VAL" G VAL1
 Q
 ;
 ; Prijsuitzonderingen
UTZ New Key,NoSa,Tekst1,Tekst2,Tekst3
 S DL(1)="UTZ",NoSa=""
 D SA,PIF
 ;w !,VTB,$C(9),U4,$C(9),PR,$C(9),PRX,$C(9),"   "
 G UTZ3:VTB=U4&(PR=PRX)
UTZ0 S FP=UTZ(3)-1*100+1 w @F,@F1
 S UTZ(1)="^HULP("_$J_",""P"_PR_""",""U""",UTZ(6)=1,UTZ(7)=0,UTZ(9)=""
 S Tekst1="Specificatie niveau ? "
 S Tekst2="H = Hoofdgrp, G = Groep , S = Subgrp, P = Product, B = Beperkt tot klas."
 S Tekst3="W = Wissel naar "_$S(NoSa="":"schaduw",1:"normale")_" uitzonderingen"
 S Key=$$UPCASE^vhRtn1($$KEY^vhINP(Tekst1,Tekst2,Tekst3))
 If Key="W" Set NoSa=$S(NoSa="":"S",1:"") Do SA Goto UTZ0
 I Key=""!("HGSPB"'[Key) G UTZ0 S UTZ("L")="Alleen ingave H, G, S, P of B toegelaten, kies een scherm" G UTZ2
 S NivNr=$F("HGSPB",Key)-1
 Set Key=$O(^KPR(PR,"I"))
 I $E(Key)'="I" S UTZ("L")="Geen klassificatie voor dit produkt" G UTZ2
 Set Key=^KPR(PR,Key)
 Do SA1,FETCHUTZ^KLASB(UTZ(1),NoSa,NivNr,$P(Key,D,1),$P(Key,D,2),$P(Key,D,3),PR),SA
 S UTZ("L")=$S($D(^HULP($J,"P"_PR,"U")):"",1:"Geen uitzonderingen gevonden")
 
UTZ2 D WL^PROC
UTZ3 I $L($G(UTZ("L"))) S FP=2301 W @F,UTZ("L")
 D SL^PROC 
 I R="U" G UTZ0
 I R="PRINT" D UTZ^RPLPR4 G UTZ3
 S VTB=U4,SW2=0
 Q
 
 ;
 ;Stock flow (Historieken)
STF S VRV=0,DL(1)="STF",STF(1)="^HULP("_$J_",""P""_PR,""F"","
 I $G(^HULP($J,"P"_PR,"F"))'="O" Do  Quit
 .New Par
 .Do SA,PIF
 .Set Par("MENU")="RPLPR",VTB=U4,SW2=0
 .Do RAADPL^PRHIST(PR,.Par,$J)
 .Set R=$G(Par("Input"))
 Q
 ; Dit blok code geeft de oude historieken ^KPR(PRNr,"H..."), deze historieken zijn niet meer actief
STF1 D PIF,SA1,STF^RPLPR2,SA
 Set ^HULP($J,"P"_PR,"F")="O"
STF2 D SL^PROC S VTB=U4,SW2=0
 I R="PRINT" D STF^RPLPR4 G STF2
 E  I R="X" Do  Kill ^HULP($J,"P"_PR,"F") Set (STF(6),STF(7))=1,VRV=0 Goto STF1
 .Set FLim=$$PI^vhPOPUP("C;C","OZ2B","Beperking","RPLPR","STFLIM",$P($G(^HULP($J,"STFLIM")),D))
 .If FLim="" Kill ^HULP($J,"STFLIM") Set STF(8)=$P($T(T12^RPLPR3),";",2) Quit
 .If FLim="B" Do
 ..Set KLNr=$$SELECT^KLANT6(,,"Beperkt tot klant : ")
 ..If 'KLNr Set FLim="K"
 ..If KLNr Set FLim=FLim_D_KLNr
 .Set ^HULP($J,"STFLIM")=FLim
 .Set $E(STF(8),49,80)=$P(^RES("RPLPR","PI","STFLIM","D",$P(FLim,D)),"`",2)
 .Set STF(8)=STF(8)_$J("",80-$L(STF(8)))
 E  I R="H" S ^HULP($J,"P"_PR,"F")=""
 Q
 ;
 ;Openstaande orders/toeleveringen
OOT S DL(1)="OOT",OOT(1)="^HULP("_$J_",""P""_PR,""O""," G OOT1:VTB=U4&(PR=PRX) D SA,PIF
 I $D(^HULP($J,"P"_PR,"O")) D WL G OOT1
 D SA1,OOT^RPLPR2,SA
OOT1 D SL^PROC S VTB=U4,SW2=0
 I R="PRINT" D OOT^RPLPR4 G OOT1
 Q
 ;
 ;Maandomzet
MOM S DL(1)="MOM",MOM(1)="^HULP($J,""P""_PR,""M"",",DEM=0 G MOM1:VTB=U4&(PR=PRX) D SA,PIF
 I $D(^HULP($J,"P"_PR,"M")) D WL G MOM1
 D SA1,MOM^RPLPR2,SA
MOM1 S FP=1401 W @F,@FMTI,DEM(8),$J("",80-$L(DEM(8))),@FMTi D SL^PROC S VTB=U4,SW2=0
 I R="PRINT" D MOM^RPLPR4 G MOM1
 Q
 ;
 ;Termijnstock
TMS S DL(1)="TMS",TMS(1)="HULP(" G TMS1:VTB=U4&(PR=PRX) D SA,PIF,PIF3
 D SA1,TMS^RPLPR2,SA
TMS1 D SL^PROC S VTB=U4,SW2=0 K HULP
 Q
 ;
 ;Detail
DET I VTB="M" D DEM S U4=R
 I VTB="V" D DEV S U4=R
DET1 Q
 ;
 ;Detail maandomzet
DEM G DEM2:'$D(^HULP($J,"P"_PR,"M",MOM(6))) S BP=$P(^(MOM(6)),D,1)
 S DL(1)="DEM",DEM(1)="^HULP($J,""P""_PR,""M"",BP",DEM=1
 S DEM(6)=1,DEM(7)=1 K DEM(9)
 I $D(^HULP($J,"P"_PR,"M",BP)) D WL G DEM1
 D SA1,DEM^RPLPR2 S U4=VTB D SA
DEM1 D SL^PROC,CL^PROC1
DEM2 Q
 ;
 ;Detail verkoopanalyze moeders over kinderen
DEV G DEV1:$G(^AKANAL(PR))'="MOK"
 N VKATemp,PRTemp,VTB,PRX
 M VKATemp=VKA,PRTemp=PR
 S (VTB,PRX)=""
 I VKA(7)'=VKA(6) S VKA(7)=VKA(6) D WL^PROC
 S VKA(3)=11,PR=$P(^AKANAL(PR,VKA(6)),D,2),VKA(6)=1
 K VKA(7)
 D VKA
 M VKA=VKATemp,PR=PRTemp
 N R D WL^PROC
DEV1 Q
 ;
 ; Pakketten / Klant produktreferenties
PRF S DL(1)="PRF",PRF(1)="^HULP("_$J_",""P"_PR_""",""R""," G PRF1:VTB=U4&(PR=PRX) D PIF,SA
 I $D(^HULP($J,"P"_PR,"R")) D WL G PRF1
 D SA1,PRF^RPLPR2,SA
PRF1 D SL^PROC S VTB=U4,SW2=0
 If R="PRINT" D PRF^RPLPR4 G PRF1
 Q
 ;
 ;Wijzigen
MOD(NoPassW) 
 Set NoPassW=$G(NoPassW)
 If VTB="O" Do
 .If $$CHKITEM^RPLPR4("ORDER") Do MODO Quit
 .If $$CHKITEM^RPLPR4("TOELEV") Do MODT
 Quit
 ;
 ;Wijzig orders
MODO 
 New UR,Locals
 If $$PW^RPLPR("C66")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLPR
 .Set (Locals("ORDNr"),UR)=$P(^HULP($J,"P"_PR,"O",@DL(1)@(6)),D),Locals("Extern")=1
 .Do DO^vhPROGRAM("ExternVerwerkOrder^Flow.VerwerkDoc","","",$G(NoMod))
 .If '$D(^KO1(UR,"F")) S:@DL(1)@(6)>1 @DL(1)@(6)=@DL(1)@(6)-1 K @DL(1)@(7)
 .Set U4=VTB
 Quit
 ;
 ;Wijzig toeleveringen
MODT 
 New TR,Locals
 If $$PW^RPLPR("C66")!NoPassW If @DL(1)@(9) Do  Goto REFRESH^RPLPR
 .Set (Locals("TOENr"),TR)=$P(^HULP($J,"P"_PR,"O",@DL(1)@(6)),D),Locals("Extern")=1
 .Do DO^vhPROGRAM("ExternVerwerkToelevering^Flow.Toelev.VerwerkDoc","","",$G(NoMod))
 .If '$D(^KTO1(TR)) S:@DL(1)@(6)>1 @DL(1)@(6)=@DL(1)@(6)-1 K @DL(1)@(7)
 .Set U4=VTB
 Quit
 ;
 ;Vervolg
VRV S R=$S($L(VTB):VTB,1:SW2)
 G VRV1:VTB'="H",VRV1:'$D(^HULP($J,"P"_PR,"F",STF(6))),VRV1:$P(^($O(^HULP($J,"P"_PR,"F",""),-1)),D,1,6)'="\\\\\     *** VERVOLG ***"
 S U2=^(0),(VNR,STF(6),STF(7))=$P(U2,D,1),IND=$P(U2,D,2),VVK=$P(U2,D,3),PST=$P(U2,D,4)
 S VRV=1,U4=VTB G STF1
VRV1 Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
Z X ^cZ Q
ZZ ; 21.10.91 - 14 u 47