KKAL3 G 1 ;K.A.L.-VERGELIJK ;(VOLGENS KLASSIFIKATIE) ;KKAL1;Go van KKAL1 [ 08/16/2002  3:36 PM ]
 ;
T1 ;EEN OGENBLIKJE A.U.B. 
T2 ;: KOMM                AB-LEVER.  TOELEV. : IDENTNR.  : PRODUKTNAAM               :   AANTAL : EENH.-PRIJS :      WAARDE : LTA  LTB :
T3 ;:----------------------------------------:-----------:---------------------------:----------:-------------:-------------:----------:
T4 ;BLZ:
T5 ;"KOMM",$C(9),"AB-LEVER.",$C(9),"TOELEV.",$C(9),"IDENTNR.",$C(9),"PRODUKTNAAM",$C(9),"AANTAL",$C(9),"EENH.-PRIJS",$C(9),"WAARDE",$C(9),"LTA",$C(9),"LTB",$C(13)
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
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
 ;
S1 W $E(KOMX,1,18),$C(9),$E(ABNX,1,10),$C(9) W:$L(TRX) $J($E(TRX,1,3)_"."_$E(TRX,4,6),6) W $C(9),$E(PID,3,13),$C(9),PC,$C(9)
S1A W UA,$C(9),UEP,$C(9),UN,$C(9),LTA,$C(9),LTB,$C(13)
S1B S:ABN="ZZZZZZZZZZ " TOTN=TOTN+UN S:ABN'="ZZZZZZZZZZ " TOTB=TOTB+UN S (ABNX,TRX,KOMX)=""
S1Z Q
 ;
 ;    het drukken van de info
 ;
1 K @("^"_Q_"HULP($J)")
 I 'MAC S BLZ=0
19 S Q0="^"_Q_"PR(PR,0)",Q2="^"_Q_"TO(LC)",Q3="^"_Q_"TO(LC,TR)",Q4="^"_Q_"TO(LC,TR,TZ)",LC=0
21 F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@("^"_Q_"PR(0,I)"),D,5)
25 S LC=$N(@Q2) G 80:LC=-1 S TR=0
29 S TR=$N(@Q3) I TR=-1 G 25
31 S TZ=1,X=@Q4,UJ=$P(X,D,3),TZ=100,KOM=$P(UJ,"/",2) S:$E(UJ,1,5)="STOCK" KOM=UJ S:$E(UJ,1,5)="KOMM." KOM=$E(UJ,7,99)
33 S ABN=$P(UJ,"/",1) S:$E(ABN,1,2)'="AB" ABN="" S ABN=$P(ABN,"AB",2) S:$E(ABN,1)=" " ABN=$E(ABN,2,99) I '$L(ABN) S ABN="ZZZZZZZZZZ"
35 S TZ=$N(@Q4) G 29:TZ=-1 S X=^(TZ),PR=$P(X,D,2) G 35:'PR S UA=$P(X,D,3),UEP=$P(X,D,6),UN=$P(X,D,9)
37 S LTB=$P(X,D,25),LTA=$P(X,D,29) S:'$L(LTA) LTA=LTB F I="LTA","LTB" S @I=$E(@I,2)_$E(@I,4,5) S:'@I @I="???"
38 S LTBT=$$INTDATE^vhDTyp(LTB,"DW")
 G 35:WEK]LTBT,35:LTBT]WEKX I $L(OVL) G 35:LTA=LTB
39 S X=@Q0,PC=$P(X,D,1),X="" S:$E($N(^("I")),1)="I" X=^($N(^("I"))) S HGS=$P(X,D,1)_" ",GRS=$P(X,D,2)_" ",SGS=$P(X,D,3)_" "
41 I HG'=0!(HGX'="ZZZZZ") G 35:HG]HGS,35:HGS]HGX
43 I GR'=0!(GRX'="ZZZZZ") G 35:GR]GRS,35:GRS]GRX
45 I SG'=0!(SGX'="ZZZZZ") G 35:SG]SGS,35:SGS]SGX
47 D SC I PRC'=0!(PRCX'="ZZZZZ") G 35:PRC]PCC,35:PCC]PRCX
49 S X=@Q0,X=^(2),PID=$P(X,D,25)
51 S @("^"_Q_"HULP($J,HGS,GRS,SGS,PCC,ABN_"" "",TR,TZ)")=KOM_D_D_PID_D_PC_D_UA_D_UEP_D_UN_D_LTA_D_LTB_D G 35
80 I HG'=0 S X=$D(@("^"_Q_"HULP($J,HG)")) G 84:X
82 S HG=$N(@("^"_Q_"HULP($J,HG)")) I HG=-1!(HG]HGX) G 160
84 S (TOTB,TOTN)=0 D HD S GRS=GR I GR'=0 S X=$D(@("^"_Q_"HULP($J,HG,GRS)")) G 88:X
86 S GRS=$N(@("^"_Q_"HULP($J,HG,GRS)")) I GRS=-1!(GRS]GRX) G 82:MAC W !,$P($T(T3),U,2) G 122
88 S SGS=SG I SG'=0 S X=$D(@("^"_Q_"HULP($J,HG,GRS,SGS)")) G 100:X
90 S SGS=$N(@("^"_Q_"HULP($J,HG,GRS,SGS)")) I SGS=-1!(SGS]SGX) G 86
100 S PRCS=PRC I PRCS'=0 S X=$D(@("^"_Q_"HUPL($J,HG,GRS,SGS,PRCS)")),ABN="" G 103:X
102 S PRCS=$N(@("^"_Q_"HULP($J,HG,GRS,SGS,PRCS)")),ABN="" I PRCS=-1!(PRCS]PRCX) G 90
103 S (ABN,ABNX)=$N(@("^"_Q_"HULP($J,HG,GRS,SGS,PRCS,ABN)")),TR=0 G 102:ABN=-1
104 S (TR,TRX)=$N(@("^"_Q_"HULP($J,HG,GRS,SGS,PRCS,ABN,TR)")) G 103:TR=-1 S TZ=100,KOM=0 I ABN="ZZZZZZZZZZ " S ABNX="NIET BEV."
106 S TZ=$N(@("^"_Q_"HULP($J,HG,GRS,SGS,PRCS,ABN,TR,TZ)")) G 104:TZ=-1 S X=^(TZ)
108 S PID=$P(X,D,3),PC=$P(X,D,4),UA=$P(X,D,5),UEP=$P(X,D,6),UN=$P(X,D,7),LTA=$P(X,D,8),LTB=$P(X,D,9)
110 I KOM'=$P(X,D,1) S (KOM,KOMX)=$P(X,D,1) S:'$L(KOMX) KOMX="******************"
111 I MAC D S1 G 106
112 S LN=LN+1 I LN>50 W !,$P($T(T3),U,2),# D HD G 112
114 W !,":",?2,$E(KOMX,1,18),?22,$E(ABNX,1,10),?33 W:$L(TRX) $J($E(TRX,1,3)_"."_$E(TRX,4,6),6) W ?41,":",?43,$E(PID,3,13),?53,":",?55,PC,?81,":"
116 S R=UA_"\9\82\0" D:+R R3 W ?92,":" S R=UEP_"\12\93\2" D:+R R3 W ?106,":"
118 S R=UN_"\12\107\2" D:+R R3 W ?120,":",?122,LTA,?127,LTB,?131,":"
120 S:ABN="ZZZZZZZZZZ " TOTN=TOTN+UN S:ABN'="ZZZZZZZZZZ " TOTB=TOTB+UN S (ABNX,TRX,KOMX)="" G 106
122 W !!?2,"WAARDE BEVESTIGD      : " S R=TOTB_"\13\25\2" D:+R R3
124 W !?2,"WAARDE NIET BEVESTIGD : " S R=TOTN_"\13\25\2" D:+R R3
126 W !?2,"WAARDE TOTAAL         : " S R=(TOTB+TOTN)_"\13\25\2" D:+R R3
128 W # G 82
160 K @("^"_Q_"HULP($J)") I 'MAC D CLOSE^vhPRINTER
 ;
YZ Q
 ;
 ;    titel drukken
HD I MAC W @$P($T(T5),U,2) G HDZ
HDA S BLZ=BLZ+1,LN=0 W !,QN,?124,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?64,$P($T(+1),U,3),?124,DT,!,NM3
HDB W ?125,TD,!!,$E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W !!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;