RPLPR3 ;RAADPLEGEN PRODUCTEN ;RPLPR; Quit naar RPLPR [ 10/17/2003  11:06 AM ]
 G 1
 ;
T1 ;"0;C;L;1;;\1;C;L;7;; |\2;N;R;14;;|\3;N;R;14;"_$$MUNT^vhRtn1(,4)_";|\4;N;R;14;;|\5;N;R;14;"_$$MUNT^vhRtn1(,4)_";"
T2 ; Week    | Stock aantal |  Stock omzet |   Kom aantal |    Kom omzet
 ;
 ;/*
T3 ;"0;C;L;1;;\3;C;L;18;;|\4;N;R;8;;|\5;N+;R;3;;|\6;C;L;8;;|\8;N;R;11;2;\9;C;R;3;;\13;C;R;1;;|;;$S(X=""H"":""%"",1:"""")\$S($J($P(FL(3),D,10),0,2)=$J($P(FL(3),D,8),0,2):0,1:$P(FL(3),D,10));N;R;11;2;|\12;N;R;10;0;"
T32 ;"0;C;L;1;;\3;C;L;25;;|\4;N;R;8;;|\"""";C;L;33;;|\12;N;R;10;0;"
T4 ; Klant             |  Stuks |#LN|Dat L Pr|     Lst prijs | Hdg prijs |Omzet EUR`-2
T42 ; Kindprodukt              |  Stuks |                                 |Omzet EUR`
 ;*/
 ;
 /*
 ; Maskeren prijzen voor bezoek Blum (vorige lijnen T3 tem T42 deactiveren en volende activeren)
T3 ;"0;C;L;1;;\3;C;L;18;;|\4;N;R;8;;|\5;N+;R;3;;|\6;C;L;8;;|\99;N;R;11;2;\99;C;R;3;;\99;C;R;1;;|;;$S(X=""H"":""%"",1:"""")\$S($J($P(FL(3),D,10),0,2)=$J($P(FL(3),D,8),0,2):0,1:0);N;R;11;2;|\99;N;R;10;0;"
T32 ;"0;C;L;1;;\3;C;L;25;;|\4;N;R;8;;|\"""";C;L;33;;|\99;N;R;10;0;"
T4 ; Klant             |  Stuks |#LN|Dat L Pr|               |           |         `-2
T42 ; Kindprodukt              |  Stuks |                                 |         `
 */
 ;
T5 ;1;C;R;6;; |\2;N;R;11;;|\3;N;R;11;;\7;C;L;1;;|\4;N;R;11;;\8;C;L;1;;| \5;C;L;1;; |\6;N;R;11;;|\9;N;R;11;;
T6 ; LevWk | Termijnst | Orderport  |   Besteld  | T | Suggestie | LogSteuer
T7 ;"0;C;L;1;;\1;C;L;7;; |\2;N;R;12;;|\3;N;R;12;;|\4;N;R;12;"_$$MUNT^vhRtn1(,4)_";"
T8 ; Maand   |   Aant kom | Aant stock |  Omzet EUR
T9 ;"1;C;R;5;; \2;C;L;25;; |\3;N;R;12;;|\4;N;R;12;;|\5;N;R;12;"_$$MUNT^vhRtn1(,4)_";"
T10 ; Klant                          |   Aant kom | Aant stock |  Omzet EUR
T11 ;1;C;R;9;; |\3;N0;R;10;;|\2;N0C;R;10;;| \4;C;L;1;; |\5;N;R;9;;|\6;C;L;25;;;;$S($E(X)="~":X,1:" "_X)
T12 ; Datum    |    Stock |   Aantal | K |LevBonNr | Omschrijving
T13 ;3;C;L;20;;|;$S($P(FL(3),D,3)="":$S($P(FL(3),D):$$IsUrgent^FLOWTOE($P(FL(3),D),$P(FL(3),D,51)),1:""),1:"");$S(X="":$S($P(FL(3),D):$P("#Urgent","#",$$IsUrgent^FLOWTOE($P(FL(3),D),$P(FL(3),D,51))+1),1:""),1:X)\1;N+;R;7;; \9;C;L;9;;|\12;NC+;C;7;;|\5;N;R;10;;|\13;C;L;1;;;;$S($L(X):$S('X:"Z",1:""),1:"")\7;N;R;9;;|\4;C;R;5;; ;;$S(X?5N:$$EXTDATE^vhDTyp(X),1:X)\10;C;R;5;;;;$S(X?5N:$$EXTDATE^vhDTyp(X),1:X)
T14 ;Klant               |  Order/Toelev   |  Kom  |  Qty toe |  Qty ord |  LTB   LTA
T15 ;3;C;R;4;; \4;C;L;24;; |\7;N+;R;2;; | \6;C;L;1;; | \5;C;L;40
T16 ;Klant                         |Qty|Typ| Klantreferentie        
T17 ;"0;C;L;1;;\3;C;L;18;;|\4;N;R;8;;|\5;N+;R;3;;|\6;C;L;8;;|\3;N;R;11;2;;;$S($L(X):CifPPL,1:X)\3;C;R;3;;;;$S($L(X):Munt,1:X)\3;C;R;1;;|;;$S($L(X):$S(GrootteOrde=""H"":""%"",1:""""),1:X)\3;N;R;11;2;|;;$S($L(X):$S($J(CifPPL,0,2)=$J(SchaduwCifPPL,0,2):0,1:SchaduwCifPPL),1:$$%NS^KP0NL(CifPPL,SchaduwCifPPL))\4;N;R;10;0;;;X*CifPPL/$S(GrootteOrde=""H"":100,1:1)"
T172 ;"0;C;L;1;;\3;C;L;25;;|\4;N;R;8;;|\"""";C;L;33;;|\12;N;R;10;0;"               
T18 ; Klant             |  Stuks |#LN|Dat L Pr|        CifPPL |Sch CifPPL |Omzet EUR`-2
T182 ; Kindprodukt              |  Stuks |                                 |Omzet EUR`  
 ;Tabeldefinitie
TDF X "S WVK(2)="_$P($T(T1),U,2,999)
 S WVK(3)=8,WVK(8)=$P($T(T2),U,2)
 X "S VKA(2)="_$P($T(T3),U,2,999),"S VKA(2,2)="_$P($T(T32),U,2,999)
 S VKA(2,1)=VKA(2)
 S VKA(3)=9,VKA(8)=$P($T(T4),U,2),VKA(8,1)=VKA(8),VKA(8,2)=$P($T(T42),U,2)
 S TMS(2)=$P($T(T5),U,2,999),TMS(3)=9,TMS(8)=$P($T(T6),U,2)
 X "S MOM(2)="_$P($T(T7),U,2,999)
 S MOM(3)=8,MOM(4)=6,MOM(8)=$P($T(T8),U,2)
 X "S DEM(2)="_$P($T(T9),U,2,999)
 S DEM(3)=15,DEM(8)=$P($T(T10),U,2)
 S STF(2)=$P($T(T11),U,2,999),STF(3)=8,STF(8)=$P($T(T12),U,2)
 S OOT(2)=$P($T(T13),U,2,999),OOT(3)=8,OOT(8)=$P($T(T14),U,2)
 S PRF(2)=$P($T(T15),U,2,999),PRF(3)=8,PRF(8)=$P($T(T16),U,2)
 S PTA(2)="RPLPRPTA",PTA(3)=8,PTA(8)=^LD("L","RPLPRPTA","H")
 X "S VAL(2)="_$P($T(T17),U,2,999),"S VAL(2,2)="_$P($T(T172),U,2,999) S VAL(2,1)=VAL(2)
 S VAL(3)=9,VAL(8)=$P($T(T18),U,2),VAL(8,1)=VAL(8),VAL(8,2)=$P($T(T182),U,2)
 D INIT^PROC("RPLPRUTZ","UTZ") S UTZ(3)=8,UTZ(4)=""
 Q
 ;
 ;Initialisatie
1 N GRef
 S GRef=$$GREF^RPLPR()
 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 K:'$D(PR) ^HULP($J) S %WK=$$EXTDATE^vhDTyp(,"W") D TDF S (SW2,PRX,PIF)=0,(SW4,SW5)=1,VTB="",K=$D(@("^"_GRef_"(0,0)"))
11 S X=SW4+'($N(^(SW4+1*100))=-1!($N(^(SW4+1*100))\100-SW4>2)) I X'=SW4 S SW4=X G 11
 S A(101)=$P(^(101),U,1,16),A(102)=$P(^(102),U,1,16),R="P"
 ;
YZ Q
 ;