cI35 ;OPZOEKEN REEKSEN FACTUURNUMMERS ;%I35 ; [ 06/13/96  9:40 AM ]
 ;
T1 ; BEGIN\ EINDE\ VERKOOP\ OPENST.\ FACTUREN\ VRIJ\ OPMERKING;
T2 ; REEKS\ REEKS\ DAGBOEK\ FACTUREN\ DOCUMENTEN\;
T3 ; IN GEBRUIK; NEEN; VOORSCHOTTEN;
T4 ; DEFINITIE JOURNALEN;
T5 ; JOURNAAL;;1\;;1\\*;;1\;;1\\*;;1\;;1\\OPM.;
T6 ; NR\AFK\OMSCHRIJVING\BEGIN\EINDE\EV.FNR\BEGIN\EINDE\EV.FNR\;
T7 ; B.G.;
 ;
1 S 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
11 S R=0_D_1 D ^cA345 G YZ:$L(K)
13 S HD(1)=D,HD(2)=D_$P($T(+1),U,2)_";C",HD(3)=D
15 S TAB="9\18\31\44\57\64\79",TIT(1)=$P($T(T1),U,2),TIT(2)=$P($T(T2),U,2)
17 S X=90000
 ;
2 S X=X+10000,Y=X+9999,TXT(1)=" "_X,TXT(2)=" "_Y F I=3:1:7 S TXT(I)=""
21 S I1=$O(@("^"_Q_"VF(X)")) I I1>X,I1<Y S TXT(4)=$P($T(T3),U,2),TXT(6)=$P($T(T3),U,3)
23 S I1="",Q1="VE"
25 S I1=$O(@("^"_Q_Q1_"(I1)")) I I1="" G 3
27 S I2=$O(^(I1,X)) I I2>X,I2<Y S TXT($S(Q1="VE":3,1:5))=$P($T(T3),U,2),TXT(6)=$P($T(T3),U,3) G 3
29 G 25
 ;
3 I Q1="VE" S I1="",Q1="FA" G 25
31 I X\10000=99 S TXT(7)=$P($T(T3),U,4)
33 D ^cA334 G 2:X<989000 S END=4 D ^cA334
35 S HD(2)=D_$P($T(T4),U,2)_";C"
37 S TAB="5\9\32\39\46\53\60\67\74\79",TIT(1)=$P($T(T5),U,2,999),TIT(2)=$P($T(T6),U,2,999)
39 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,TIT(1)=$P(TIT(1),"*")_$J(BJ,12)_$P(TIT(1),"*",2)_$J(BJ+1,12)_$P(TIT(1),"*",3)
 ;
4 S I1="%T",I2="UZZZ"
41 S I2=$O(@("^"_Q_"BA(I1,I2)")) I $E(I2)'="V" S END=1 D ^cA334 G YZ
43 S TXT(1)=+$E(I2,2,4)_D_1,TXT(2)=$P(^(I2),D,2),TXT(3)=$P(^(I2),D)
45 I $P(^(I2),D,3) S TXT(10)=$P($T(T7),U,2)
 ;
5 S X="VFNR" I +$E(I2,2,4) S X=X_(+$E(I2,2,4))
51 S Y=$G(@("^"_Q_"BA(BJ,X)")),TXT(4)=$P(Y,D,2),TXT(5)=$P(Y,D,3),TXT(6)=$P(Y,D)
53 S Y=$G(@("^"_Q_"BA(BJ+1,X)")),TXT(7)=$P(Y,D,2),TXT(8)=$P(Y,D,3),TXT(9)=$P(Y,D)
55 D ^cA334 G 41
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.10.98 - 11 u 50 * V7