cI3 ;KONTROLE DATABASE BOEKHOUDING ;%I3 ;go naar %I4 [ 02/21/00 5:40 PM ] G 1 ; T1 ;KONTROLE INDEXBESTANDEN T2 ;KLANTENBESTAND T3 ;LEVERANCIERSBESTAND T4 ;REKENINGENBESTAND T5 ;KONTROLE DAGBOEKEN T6 ;VERKOOPDAGBOEK T7 ;AANKOOPDAGBOEK T8 ;FINANCIEEL DAGBOEK T9 ;\"[] = neen .[] = ja" T10 ;\"[] = per jaar .[] = per maand" T11 ;JAARTAL\"JJJJ[] = enkel jaartal JJJJ JJJJ+[] = alle jaren vanaf JJJJ e.v." T12 ;EERSTE MAAND\"JJJJ.MM[] = bepaalde maand" T13 ;LAATSTE MAAND\"JJJJ.MM[] = bepaalde maand I[] = idem als eerste maand" T14 ;BEVESTIGING\"[] = ok ,[] = hernemen" T15 ;BESCHIKBARE BOEKINGSPERIODES : T16 ;PERIODE : T17 ;KONTROLE HISTORIEKEN ; 1 S $ZT="ER^cI3",K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 K SW31 S SW3=1 11 S TXT="SW1\"_$P($T(T1),U,2) D S1 G YZ:K="-",11:K="," S FP=403 W @F,@F1 W:SW1 $P(TXT,D,2)," :" I 'SW1 G 100 13 S TXT="SW11\"_$P($T(T2),U,2) D S1 G 11:K="-",11:K="," S FP=505 W @F,@F1 W:SW11 $P(TXT,D,2) 15 S TXT="SW12\"_$P($T(T3),U,2) D S1 G 13:K="-",11:K="," S FP=605 W @F,@F1 W:SW12 $P(TXT,D,2) 17 S TXT="SW13\"_$P($T(T4),U,2) D S1 G 15:K="-",11:K="," S FP=705 W @F,@F1 W:SW13 $P(TXT,D,2) ; 100 S TXT="SW4\"_$P($T(T17),U,2) D S1 G 11:K="-",11:K="," S FP=443 W @F,@F2 W:SW4 $P(TXT,D,2)," :" I 'SW4 D S3 G 2 102 S TXT="SW41\"_$P($T(T2),U,2) D S1 G 100:K="-",11:K="," S FP=545 W @F,@F2 W:SW41 $P(TXT,D,2) 104 S TXT="SW42\"_$P($T(T3),U,2) D S1 G 102:K="-",11:K="," S FP=645 W @F,@F2 W:SW42 $P(TXT,D,2) 106 S TXT="SW43\"_$P($T(T4),U,2) D S1 G 104:K="-",11:K="," S FP=745 W @F,@F2 W:SW43 $P(TXT,D,2) ; 2 S TXT="SW2\"_$P($T(T5),U,2) D S1 G 100:K="-",11:K="," S FP=903 W @F,@F1 W:SW2 $P(TXT,D,2)," :" G 5:'SW2&'SW4,3:'SW2 21 S TXT="SW21\"_$P($T(T6),U,2) D S1 G 2:K="-",2:K="," S FP=1005 W @F,@F1 W:SW21 $P(TXT,D,2) 23 S TXT="SW22\"_$P($T(T7),U,2) D S1 G 21:K="-",2:K="," S FP=1105 W @F,@F1 W:SW22 $P(TXT,D,2) 25 S TXT="SW23\"_$P($T(T8),U,2) D S1 G 23:K="-",2:K="," S FP=1205 W @F,@F1 W:SW23 $P(TXT,D,2) ; 3 S BPB=@("^"_Q_"BA(2)"),BPA=^(7),J3=$J(^(25)/100+BPA,7,2),AT=$D(^(26)) D S2:'AT S AT=^(26),BJ=$P(BPB,D,2)\1,J1=BJ-AT 31 F K=0:1:AT S BPX=$P(BPB,D,K*3+1,K+1*3),M2(BJ-K)=$J($P(BPX,D,2),7,2),M1(BJ-K)=$J($P(BPX,D,3)+.01,7,2) I M1(BJ-K)#1>.12 S M1(BJ-K)=M1(BJ-K)+.88 33 S:J3#1>.12 J3=$J(J3+.88,7,2) S J4=BJ I J3>M2(BJ) S J4=J4+1,M2(J4)=J3,M1(J4)=$J(M2(BJ)+.01,7,2) I M1(J4)#1>.12 S M1(J4)=M1(J4)+.88 35 S FP=1603 W @F,@F1,$P($T(T15),U,2) F K=J1:1:J4 W !?4,K," = ",M1(K)," - ",M2(K) ; 4 S R="SW3\22\3\"_$P($T(T5),U,2)_" / "_$P($T(T17)," ",3,9)_$P($T(T10),U,2)_"\1\\""-,.""[K" D R0 G 2:K="-",2:K="," S SW3=$L(K) G 45:SW3 41 S R="KJ\22\3\"_$P($T(T11),U,2)_"\5\\K=""-""!(K="","")!(K?4N.""+""&($E(K,1,4)'J4))" D R0 43 G 4:K="-",4:K="," S SW31=K["+",FP=1403 W @F,@F2,$P($T(T16),U,2),KJ G 5 45 S R="SM1\22\3\"_$P($T(T12),U,2)_"\7\\K=""-""!(K="","")!(K?4N1"".""2N&(K'M2(J4))&(K#1)&(K#1<.13))" 46 D R0 G 4:K="-",4:K="," S FP=1403 W @F,@F2,$P($T(T16),U,2),SM1 47 S R="SM2\22\3\"_$P($T(T13),U,2)_"\7\\K=""-""!(K="","")!(K=""I"")!(K?4N1"".""2N&(K'M2(J4))&(K#1)&(K#1<.13))" 48 D R0 G 45:K="-",4:K="," S:K="I" SM2=SM1 S FP=1403 W @F,@F2,$P($T(T16),U,2),SM1," - ",SM2 ; 5 G YZ:'SW1&'SW2&'SW4 S FP=1501,R="K\22\3\"_$P($T(T14),U,2)_"\1\\""-,""[K" W @F,@F1 D R0 G 4:K="-"&(SW2!SW4),2:K="-",1:K="," 51 K @("^"_Q_"DBCTR") S $ZT="^cA403",FP=1501 W @F,@F1 G ^cI4 ; YZ Q ; R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; S1 S R="K\22\3\"_$P(TXT,D,2)_$P($T(T9),U,2)_"\1\\""-,.""[K" D R0 S @$P(TXT,D)=$L(K) Q ; S2 S AT=AT+1,BPX=$P(BPB,D,AT*3+1,AT+1*3) I $P(BPX,D)?5N,$P(BPX,D,2)?4N1"."2N,$P(BPX,D,3)?4N1"."2N G S2 S2Z S AT=AT-1,^(26)=AT K BPX Q ; S3 F FP=545:100:745 W @F,@F2 S3Z Q ; ER W !!,"Q-WAARDE : ...",$C(8),$C(8),$C(8),$C(7) R Q G YZ:"-^"[Q ERA I $L(Q)>3 W " MAXIMUM 3 KARAKTERS !" G ER ERB I Q'?1U.U W " ENKEL HOOFDLETTERS !" G ER ERC I '$D(@("^"_Q_"BA(99,1)")) W " FIRMA ONBEKEND !" G ER ERZ D ^cA604 G 1 ; Z X ^cZ Q ZZ ; 13.03.00 - 17 u 31 * V7.3