KKFI12 G 1 ;OVERZICHT PRODUKTEN ;KKFI1; Quit naar KKFI4 [ 06/25/2002  10:59 AM ]
 ;
R3 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
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
T1 ;BLZ:
T2 ;PRODUKTEN
T3 ;:-------------:---------------------------:--------:-----:----------:
T4 ;: IDENTNUMMER : PRODUKTNAAM               :  STUKS :  LN : DAT L AK :
T16 ;INFO
 ;
1 D HD S HG=-1
11 S HG=$N(@("^"_Q_"HULP($J,HG)")) G 3:HG=-1 S GR=-1
13 S GR=$N(@("^"_Q_"HULP($J,HG,GR)")) G 11:GR=-1 S SG=-1
15 S SG=$N(@("^"_Q_"HULP($J,HG,GR,SG)")) G 13:SG=-1 S PCC=-1
17 S PCC=$N(@("^"_Q_"HULP($J,HG,GR,SG,PCC)")) G 15:PCC=-1 S X=^(PCC)
19 S PID=$P(X,D,1),PC=$P(X,D,2),TPA=$P(X,D,3),TPL=$P(X,D,4),DLP=$P(X,D,5)
 ;
2 S LN=LN+1 I LN>56 W !?3,$P($T(T3),U,2),# D HD G 2
21 W !?3,": ",PID,?17,": ",PC,?45,":" S R=TPA_"\7\46\0" D:+R R3 W ?54,":" W:TPL $J(TPL,4) W ?60,": ",DLP,?71,":" G 17
 ;
3 W !?3,$P($T(T3),U,2),# K @("^"_Q_"HULP($J)"),HG,GR,SG,PCC,PID,PC,TPA,TPL,DLP,R,X,I
 ;
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,$P(B(1),D,1)," ",$P(B(1),D,2)
HDA W !?3,TD F X=1:1:3 W $C(13),?30,$P($T(T16),U,2)
HDB W !!!
HDC F I=1:1:3 W $C(13),?30,$P($T(T2),U,2)
HDD W !?3,$P($T(T3),U,2),!?3,$P($T(T4),U,2),!?3,$P($T(T3),U,2)
HDZ Q
 ;