KBKAL2 ;K.A.L.-VERGELIJK ;(INVULLEN);KBKAL1; Quit naar KBKAL1 [ 06/15/99  3:39 PM ]
 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
T7 ;AB 
 ;
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
 ;
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)=$$TRIMIDENT^vhRtn1(K) ;[IDENT] CW
 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
 ;
1 S K=$P($T(+1),U,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
11 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)
13 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)
15 W @F8 S LN=4,@%Q1=0
 ;
2 S VNR=-1
21 S VNR=$N(@("^"_Q_"KAUS(VNR)")) G 5:VNR=-1
23 K K S K=^(VNR),K(0)="*" F I=2:1:15 S K(I)=$E(K,$P($T(T2),U,I+1),$P($T(T2),U,I+2)-1)
25 G 21:K(4)'=212250 S K=0_K(6)_" " G 21:'$D(@("^"_Q_"PR2(K)")) S PR=$P(^(K),D,1)
27 S K=K(7) D S3 S K=K_" " G 21:'$D(@("^"_Q_"PR1(K)")),21:PR'=$P(^(K),D,1) S K=K(5) D S2 G 21:K="",21:'$D(@("^"_Q_"TO1(K)"))
29 S TR=K,LC=$P(^(K),D,1) G 21:'$D(@("^"_Q_"TO(LC,TR)")) S TZ=^(TR,0),TZ=100
 ;
3 S TZ=$N(^(TZ)) G 21:TZ=-1 S U2=^(TZ) G 3:$P(U2,D,2)'=PR
31 S K=K(8) D S4 G 21:K'=$P(U2,D,3) S K=^(1),UO=$P(K,D,3),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(K,D,2)),"DS"),D,"")
32 I $E(UO,1,3)'=$P($T(T7),U,2) S UO=$P($T(T7),U,2)_K(2)_"/"_UO,$P(K,D,3)=UO,^(1)=K
33 S ULTA=$P(U2,D,29),ULT=$E(K(12),1,2)_"/"_$E(K(12),3,4) S:ULT'=$P(U2,D,25)&'$L(ULTA) ULTA=$P(U2,D,25)
35 G 38:ULT=$P(U2,D,25) S X=U2,$P(U2,D,25)=ULT,$P(U2,D,29)=ULTA,^(TZ)=U2,U2=X G 38:'$P(U2,D,27)
36 I '$D(@("^"_Q_"TOK(LC,TR,TZ)")) S @("^"_Q_"TOK(LC,TR,TZ)")=$P(U2,D,25)_D_ULT_D_1_D_$P(U2,D,27,28)_D G 38
37 S X=^(TZ),X=$P(X,D,1)_D_ULT_D_($P(X,D,3)+1)_D_$P(X,D,4,99),^(TZ)=X
38 S X=@("^"_Q_"PR(PR,""W    0.0T""_UOD_$J(TR,6,0)_$J(TZ-100,3,0))"),$P(X,D,3)=UO,$P(X,D,6)=ULT
39 S ^("W    0.0T"_UOD_$J(TR,6,0)_$J(TZ-100,3,0))=X
 ;
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)
45 W @F8 K @("^"_Q_"KAUS(VNR)") G 21
 ;
5 S FP=LN+1*100+1 W @F7,@F,@$P(FG,D,3) F I=1:1:78 W @$P(FG,D,9)
51 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)
53 W @F8
 ;
6 K @("^"_Q_"KAUS")
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 17.07.89 - 12 u 50