KPSBZ ;STOCKBEHEER (Tonen van bepaalde produktgegevens) ;KPSB ; Quit naar KPSB [ 01/05/2000  2:17 PM ]
 G M
 ;
T2 ;TA
T3 ;TAB
T4 ;^HULP($J+100,
T5 ;1;C;R;7;; | \2;N0;R;11;;| \3;N0;R;11
T6 ;  Week  |    Stock   |     Kom
T7 ;2;C;L;4;;  \3;C;L;33;;|\4;N;R;8;0;|\6;C;R;8;;  
T8 ; Klant                                 |  Stuks | Laatste aankoop
T9 ;1;C;R;6;; |\5;C;R;5;; | \6;C;L;22;; | \3;C;R;8;; |;;$S(X?5N:$$EXTDATE^vhDTyp(X),1:X)\2;N;R;13\4;C;L;1
T10 ; Order | KlNr | Klant                  |  Leveren |    Aantal
T11 ;1;C;R;6;; |\2;C;R;5;; | \8;C;L;17;; | \5;C;R;5;; |\4;N;R;11\7;C;L;1;;| \3;C;L;22
T12 ; Toele | LeNr | Leverancier       | LevWk |    Aantal  | LevRef
T23 ;37;(\38;)\39;S\40;H\41;O\43;T\44;N\48;HELP\53;B\54;E
 ;
RL D RL^PROC1
 Q
 ;
WL K DL(2),DL(3) D WL^PROC
 Q
 ;
CVL D CVL^PROC
 Q
 ;
SL D DL3,SL^PROC S K=R
 Q
 ;
DL S DL(1)=$P($T(T2),U,2) D DL3 Q
DL1 S @(DL(1)_"(1)")=$P($T(T3),U,2) Q
DL2 S @(DL(1)_"(1)")=$P($T(T4),U,2)_K Q
DL3 S DL(2)=$P($T(T23),U,2,999) Q
 Q
 ;
KILL K DL,@$P($T(T2),U,2),@$P($T(T3),U,2)
 Q
 ;
 ; Opslaan van een geselekteerde orderlijn
S1 S VN=VN+1,K=$E(I2,18,23)_D_$P(A,D,1,2)_D_$P("\*",D,$P(A,D,3)+1)
 S K=K_D_$P(@("^"_Q_"O1($P(K,D,1),""F"")"),D,1)
 S K=K_D_$E($P(@("^"_Q_"KL(^"_Q_"K1($P(K,D,5)),0)"),D,2),1,25)
 S @($P($T(T3),U,2)_"(VN)")=K
 Q
 ;
 ; Opslaan van een geselekteerde toelevringslijn
S2 S VN=VN+1,K=$E(I2,18,23)_D_$P(A,D,2,3)_D_$P(A,D,5,6)_D_$E(I2,24,26)_D_$P("\*",D,$P(A,D,7)+1)
 S K=K_D_$E($P(@("^"_Q_"LE(^"_Q_"L1($P(A,D,2)),0)"),D,2),1,25)
 S @($P($T(T3),U,2)_"(VN)")=K
 Q
 ;
 ; Weekhistoriek
HI G HI3:SCHTYP="H" D KILL S SCHTYP="H",WK=DJ_"."_$E(100+%WK,2,3),VN=0
 S K="""H""" D DL,DL2 S @(DL(1)_"(2)")=$P($T(T5),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(8)")=$P($T(T6),U,2)
 I $D(@($P($T(T4),U,2)_"""H"")")) D WL G HI2
HI1 S WK=$J(WK-.01,0,2) S:'$P(WK,".",2) WK=DJ-1_".54" S WK=WK_" "
 I '$D(@("^"_Q_"SPW(PR,WK)")) G HI1:+$P(WK,".",2)'=+%WK D:VN<13 WL G HI2
 S K=^(WK),VN=VN+1 I VN=13 D WL
 S @($P($T(T4),U,2)_"""H"",VN)")=$E(WK,1,4)_"/"_$E(WK,6,7)_D_$P(K,D,7)_D_$P(K,D,9) G HI1:+$P(WK,".",2)'=+%WK
HI2 D CVL
HI3 Q
 ;
 ; Klanten dewelke het voorbije jaar het produkt aangekocht hebben
KL G KL3:SCHTYP="K" D KILL S SCHTYP="K",KC=0
 D DL  S @(DL(1)_"(1)")="^AKANAL(PR",@(DL(1)_"(2)")=$P($T(T7),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(8)")=$P($T(T8),U,2)
KL2 D WL
KL3 Q
 ;
 ; Orderlijnen
OR N LWT
 G OR3:SCHTYP="O" D KILL S SCHTYP="O"
 S LW=$P(PAR(2),D,SSelect),LW=$E(LW,1,2)_"/"_$E(LW,3,4),VN=0
 S LWT=$$INTDATE^vhDTyp(LW,"DW")
 D DL,DL1 S @(DL(1)_"(2)")=$P($T(T9),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(8)")=$P($T(T10),U,2)
 S BLW=(+%WK=+$P(LW,"/",2)) ; Kijken of het de eerste leverweek is
 ; Positionenren orderportefeuille bestand
 S I2="W"
OR1 S I2=$N(@("^"_Q_"PR(PR,I2)"))
 ; Nakijken of het een orderportefeuillelijn is
 I '($E(I2,1)="W"&($E(I2,9)="R")) G OR2
 S A=^(I2)
 ; Nakijken of de leverweek correct is
 D:BLW  ; Follows
 . N X
 . S X=$P(A,D,2) S:X'?5N X=$$INTDATE^vhDTyp(X,"DW")
 . I LWT]X!($$EXTDATE^vhDTyp(X,"DW")=LW) D S1 Q
 D:'BLW
 . N X
 . S X=$P(A,D,2) S:X?5N X=$$EXTDATE^vhDTyp(X,"DW")
 . D:X=LW S1
 G OR1
OR2 D WL
OR3 Q
 ;
 ; Toeleveringslijnen
TO G TO3:SCHTYP="T" D KILL S SCHTYP="T",VN=0
 D DL,DL1 S @(DL(1)_"(2)")=$P($T(T11),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(4)")=4,@(DL(1)_"(6)")=1,@(DL(1)_"(8)")=$P($T(T12),U,2)
 S FP=@(DL(1)_"(3)")*100+1 W @F,@F1
 ; Positioneren toeleveringsportefeuille bestand
 S I2="W    0.0T"
TO1 S I2=$N(@("^"_Q_"PR(PR,I2)"))
 ; Nakijken of het een toeleveringslijn is
 I '($E(I2,1)="W"&($E(I2,9)="T")) G TO2
 S A=^(I2) D S2 G TO1
TO2 D WL
TO3 Q
 ;
M I K="H" D HI,SL G YZ
 I K="K" D KL,SL G YZ
 I K="O" D OR,SL G YZ
 I K="T" D TO,SL G YZ
 I K="N" D TO S K="N" D ^KPSBT G YZ
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.08.91 -  8 u 37