KPSBY ;STOCKBEHEER (Tonen van bepaalde produktgegevens) ;KPSB ; Quit naar KPSB [ 09/14/1999  4:53 PM ]
 G M
 ;
T2 ;TA
T3 ;STOCKBEHEER;OVERZICHT
T4 ;1;C;R;5;; | \2;C;L;25;; | \3;C;L;20;; | \4;C;L;20;;
T5 ; LeNr | Leverancier               | Adres                | Gemeente
T6 ;1;C;R;6;; | \2;C;L;8;; | \3;C;L;20;;
T7 ; Toele | Datum    | Referentie
T21 ;\17;U\18;D\20;U\19;D\25;<\26;>\22;B\25;E
T23 ;37;(\38;)\39;S\40;H\41;O\43;T\44;N\48;HELP\53;B\54;E
 ;
IK S R="" S:SCHTYP="S" R=$P($T(T21),U,2,999) S IK(1)=$P($T(T23),U,2,999)_R
 D IK^PROC1 K IK S K=R S:K="HELP" K="?" S:K="ENTER" K=""
 Q
 ;
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
DL3 S DL(2)=$P($T(T23),U,2,999) Q
 ;
KILL K DL,@$P($T(T2),U,2)
 Q
 ;
 ; Tonen van help
HE S SCHTYP="?",HLP(1)=$P($T(T3),U,2),HLP(2)=$P($T(T3),U,3),HLP(3)=15,HLP(6)=$P($P($T(T23),U,2,999),D,1,8) D HLP^HELP
 S K=R
 Q
 ;
 ; Leveranciers van produkten
LE D DL S @(DL(1)_"(1)")="LC",@(DL(1)_"(2)")=$P($T(T4),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(6)")=1,@(DL(1)_"(7)")=1,@(DL(1)_"(8)")=$P($T(T5),U,2)
 S:LevTyp="U" $E(@(DL(1)_"(8)"),21,30)="(urgentie)"
 G LE3:$N(LC(-1))'=-1 S LC=0
LE1 S LC=$N(@("^"_Q_"PSB(LC)")) G LE2:LC=-1
 I LevTyp="U" S R=@("^"_Q_"PSB(LC)") I R'["S",R'["K",R'["L",R'["B" G LE1
 S K=@("^"_Q_"L1(LC)"),R=@("^"_Q_"LE(K,0)"),LC(K)=$P(R,D,1,2)_D_$P(R,D,5)_D_$P(R,D,7) G LE1
LE2 D RL
LE3 D WL,CVL
 Q
 ;
 ; Overzicht toeleveringen vaan geselekteerde leverancier
TR D DL S @(DL(1)_"(1)")="TR",@(DL(1)_"(2)")=$P($T(T6),U,2,999)
 S @(DL(1)_"(3)")=15,@(DL(1)_"(6)")=1,@(DL(1)_"(8)")=$P($T(T7),U,2)
 G TR3:$D(TR) S TR=0
TR1 S TR=$N(@("^"_Q_"TO(LC,TR)")) G TR2:TR=-1
 S K=^(TR,1) G TR1:$P(K,D,22) S TR(TR)=TR_D_$P(K,D,2,3) G TR1
TR2 D RL
TR3 D WL,CVL
 Q
 ;
M I K="?" D HE G YZ
 ;
 S KeyTyp=K G M2:KeyTyp'="L" S LevTyp="" D LE
M1 D SL
 I KeyTyp="L","\U\A\"[(D_K_D) S:K="A" K="" G M1:K=LevTyp Set LevTyp=K K LC D LE G M1
 G M1:K'="-"&(K'="ENTER")
 S:K'="-" LC=$P(LC(@(DL(1)_"(6)")),D,1),LN=$P(LC(@(DL(1)_"(6)")),D,2) D KILL G YZ
 ;
M2 G YZ:K'="T" D TR
M3 D SL G M3:K'="-"&(K'="ENTER")
 I K'="-" G M3:'$G(TR(@(DL(1)_"(6)"))) S TR=$P(TR(@(DL(1)_"(6)")),D,1)
 D KILL G YZ
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.08.91 -  8 u 37