KBKAL3 ;K.A.L.-VERGELIJK ;(ALGEMEEN OVERZICHT);(VERSCHILLEN);KBKAL1; Quit naar KBKAL1 [ 08/05/2002  10:33 AM ]
 G 1
 ;
T1 ;AB-NR.  TOEL. IDENTNR.  PRODUKTNAAM                AANTAL      PRIJS LTA LTB I 
T2 ;1;2;8;13;19;31;38;63;72;73;83;88;93;94;95;105
T3 ;\2;2;$J($E(K,1,6),6)\9;5;K D S2 S K=$J(K,6)\16;6;$E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7)\26;7\52;8;$J(+K,7)\
T4 ;\60;10;K D S4 I K S K=$J(K,10,2)\71;11;$E(K,2,4)\75;12;$E(K,2,4)\79;0
T5 ;[] = ;begin;vervolg;   -[] = einde
T6 ;BLZ:
T7 ;:-------------------------------:-----------:---------------------------:----------:-------------:-------------:----------:---------:
T8 ;: KOMM         AB-NR.   TOELEV. : IDENTNR.  : PRODUKTNAAM               :   AANTAL :       PRIJS :      WAARDE : LTA  LTB : VERSCH. :
T9 ;\2;2;K S R=K D S0 S:'K K="" S L=$E(K(16),1,11)_$J("",12-$L(K(16)))_$J(K,9) S K=K(5) D S2,S0 S:'K K="" S K=L_$J(K,9);32\34;6;$E(K,1,3)_"."_$E(K,4,6)_"."_$E(K,7);44\
T10 ;\46;7;;72\74;8;K S R=K,K="" D:+R S0 S K=$J(K,9);83\85;10;K D S4 I K S R=K_D_D_D_2 D S0 S K=$J(K,12);97\
T11 ;\99;15;K D S4 I K S R=K_D_D_D_2 D S0 S K=$J(K,12);111\113;11;$J($E(K,2,4),3)_$J($E(K(12),2,4),5);122\124;0;" "_K F J="L","P","A","T","O" S K=$J(@("K"_J),1)_K;132
T12 ;STOCK
T13 ;KOMM.
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
S0 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
S0A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G S0B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
S0B S K=R0_R4_R3
S0Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
S1 S K=K($P(X,U,2)) I $L($P(X,U,3)) X "S K="_$P(X,U,3)
S1Z Q
 ;
S2 S (K,R)=$$TRIMN^vhRtn1(K)
 Q
 ;
S3 S (K,R)=$$UPTRIMAN^vhRtn1(K)
 Q
 ;
S4 I $P(K,",",2) S K=$P(K,",",1)_"."_$P(K,",",2)
S4A I $L(K),'$E(K,1) S K=$E(K,2,99) G S4A
S4Z Q
 ;
S5 S K=$E(K,2)_$E(K,4,5)
S5Z Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?125,$P($T(T6),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13)
HDA W ?63,$P($T(+1),U,KEU="V"+3),?125,DT,!,NM3,?126,TD,!!!
HDB W $P($T(T7),U,2),!,$P($T(T8),U,2),!,$P($T(T7),U,2)
HDZ Q
 ;
1 I $L(OTP) S @%Q1=1,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0,LN=99 G 2
11 S K=$P($T(+1),U,KEU="V"+3),K=$E(K,2,$L(K)-1),FP=280-$L(K) W @F,@F1,K S FP=480 W @F,@F5 S FP=401 W @F,@F4,$P($T(T1),U,2),@F5
13 S FP=401 W @F7,@F,@$P(FG,D,10) S FP=301 W @F,@$P(FG,D,1) F I=1:1:78 W @$P(FG,D,9)
15 W @$P(FG,D,2) S FP=480 W @F,@$P(FG,D,10) F I=8,15,25,51,59,70,74,78 S FP=300+I W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
17 W @F8 S LN=4,LT=0
 ;
2 S VNR=-1
21 S VNR=$N(@("^"_Q_"KAUS(VNR)")) I VNR=-1 G 45:OTP="" W !,$P($T(T7),U,2),# S @%Q1=0 D CLOSE^vhPRINTER G YZ
22 K K S K=^(VNR),(K(0),K(16))="" F I=2:1:15 S K(I)=$E(K,$P($T(T2),U,I+1),$P($T(T2),U,I+2)-1)
23 S KO="O",KT="T",KA="A",KP="P",KL="L" G 21:K(4)'=212250 S (KO,KT,KA,KP,KL)=""
24 S K=0_K(6)_" ",PR=0 S:$D(@("^"_Q_"PR2(K)")) PR=$P(^(K),D,1) S:'PR KO="O"
25 S K=K(7) D S3 S K=K_" " S:'$D(@("^"_Q_"PR1(K)")) KO="O" I $D(^(K)) S:'PR PR=$P(^(K),D,1) S:PR'=$P(^(K),D,1) KO="O"
26 S K=K(5) D S2 S:K="" KT="T" G 37:K="" I '$D(@("^"_Q_"TO1(K)")) S KT="T" G 37
27 S TR=K,LC=$P(^(K),D,1) I '$D(@("^"_Q_"TO(LC,TR)")) S KT="T" G 37
28 S X=$P(^(TR,1),D,3),TZ=100,K(16)=$P(X,"/",2) S:$E(X,1,5)=$P($T(T12),U,2) K(16)=X S:$E(X,1,5)=$P($T(T13),U,2) K(16)=$E(X,7,99)
 ;
3 S TZ=$N(^(TZ)) I TZ=-1 S KT="T" G 37
31 S X=^(TZ) G 3:$P(X,D,2)'=PR S K=K(8) D S4 S:K'=$P(X,D,3) KA="A" S K=K(10) D S4 S:K'=$P(X,D,6) KP="P"
33 I '$L($P(X,D,29)) S K=$P(X,D,25) D S5 S:K'=$E(K(11),2,4) KL="L" G 37
35 S K=$P(X,D,29) D S5 S:K'=$E(K(11),2,4) KL="L" S K=$P(X,D,25) D S5 S:K'=$E(K(12),2,4) KL="L"
37 I KO="",KT="",KA="" S K(0)="*"
38 I KEU="V",KO="",KT="",KA="",KP="",KL="" G 21
39 G 5:$L(OTP)
 ;
4 S LN=LN+1 I LN>22 S FP=LN+1*100+1,LN=LN-1 W @F,@F1 S FP=501 W @F,@FDL
41 F I=1:1 S X=$P($P($T(T3),D,2,99)_$P($T(T4),D,2,99),D,I) Q:'$L(X)  D S1 S FP=LN*100+$P(X,U,1) W @F,K
43 W @F7 F I=1,8,15,25,51,59,70,74,78,80 S FP=LN*100+I W @F,@$P(FG,D,10)
44 W @F8 S LT=LT+1 G 21:LT<18,48:$N(@("^"_Q_"KAUS(VNR)"))'=-1
45 S FP=LN+1*100+1 W @F7,@F,@$P(FG,D,3) F I=1:1:78 W @$P(FG,D,9)
46 W @$P(FG,D,4) F I=8,15,25,51,59,70,74,78 S FP=LN+1*100+I W @F,@$P(FG,D,8)
47 W @F8
48 S R="K\24\3\"_$P($T(T5),U,2)_$P($T(T5),U,3+($N(^(VNR))'=-1&(VNR'=-1)))_$P($T(T5),U,5)_"\\1\\""-""[K" D R0
49 G YZ:K="-" S LT=0 G 21:$N(^(VNR))'=-1&(VNR'=-1) S LN=4,FP=501 W @F,@F1 G 2
 ;
5 S LN=LN+1 I LN>50 W:BLZ !,$P($T(T7),U,2),# D HD G 5
51 W !,":" F I=1:1 S X=$P($P($T(T9),D,2,99)_$P($T(T10),D,2,99)_$P($T(T11),D,2,99),D,I) Q:'$L(X)  D S1 W ?$P(X,U,1),K,?$P(X,U,4),":"
53 G 21
55 W ?125,":" G 21
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 17.07.89 - 10 u 37