cA3350V ;Beheer journalen ;%A335 ; [ 01/03/01  4:09 PM ]
 ;
T0 ;Reeksen factuurnummers;
T1 ; Begin\ Einde\ Nummers\ Openst.\ Nummers\ Vrij\ Opmerking;
T2 ; reeks\ reeks\ dagboek\ facturen\ documenten\;
T3 ; IN GEBRUIK; NEEN; VOORSCHOTTEN;
T4 ;Definitie factuurnummers;
T5 ; Journaal;;1\;;1\\*;;1\;;1\\*;;1\;;1\\Opm.;
T6 ; Nr\Afk\Omschrijving\Begin\Einde\Volgnr\Begin\Einde\Volgnr\;
T7 ;ok;  bg;
 ;
T0F ;Séries de numéros de facture;
T1F ; Début\ Fin\ Numéros\ Factures\ Numéros\ Disp.\ Remarque;
T2F ; série\ série\ journal\ impayées\ documents\;
T3F ; OCCUPE; NON; ACOMPTES;
T4F ;Définition numéros de factures;
T5F ; Journal;;1\;;1\\*;;1\;;1\\*;;1\;;1\\Rem.;
T6F ; No\Abr\Description\Début\Fin\Suiv.\Début\Fin\Suiv.\;
T7F ;ok;  hu;
 ;
T0E ;Series invoice numbering;
T1E ; Begin\ End\ Numbers\ Outst.\ Numbers\ Free\ Remark;
T2E ; serie\ serie\ journal\ invoices\ documents\;
T3E ; IN USE; NO; ADVANCES;
T4E ;Definition invoice numbers;
T5E ; Journal;;1\;;1\\*;;1\;;1\\*;;1\;;1\\Rem.;
T6E ; Nr\Abb\Description\Begin\End\Number\Begin\Einde\Number\;
T7E ;ok;  ou;
 ;
1 S HD(3)=D_$P($T(@("T0"_QT)),U,2)_";C"
11 S TAB="9\18\31\44\57\64\79",TIT(1)=$P($T(@("T1"_QT)),U,2),TIT(2)=$P($T(@("T2"_QT)),U,2)
19 S X=90000
 ;
 ; openstaande facturen & dagboek
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"_QT)),U,2),TXT(6)=$P($T(@("T3"_QT)),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"_QT)),U,2),TXT(6)=$P($T(@("T3"_QT)),U,3),TXT(7)=TXT(7)_" "_I1 G 3
29 G 25
 ;
 ; documenten
3 I Q1="VE" S I1="",Q1="FA" G 25
31 I X\10000=99 S TXT(6)=$P($T(@("T3"_QT)),U,3),TXT(7)=$P($T(@("T3"_QT)),U,4)
33 D ^cA334 G 2:X<989000 S END=4 D ^cA334
 ;
 ; definitie factuurnummers
4 S HD(3)=D_$P($T(@("T4"_QT)),U,2)_";C"
41 S TAB="5\9\32\39\46\53\60\67\74\79",TIT(1)=$P($T(@("T5"_QT)),U,2,999),TIT(2)=$P($T(@("T6"_QT)),U,2,999)
43 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)
 ;
5 S I1="%T",I2="UZZZ"
51 S I2=$O(@("^"_Q_"BA(I1,I2)")) I $E(I2)'=J S END=1 D ^cA334 G YZ
53 S TXT(1)=+$E(I2,2,4)_D_1,TXT(2)=$P(^(I2),D,2),TXT(3)=$P(^(I2),D)
55 S TXT(10)=$P($T(T7),U,2+$P(^(I2),D,3))
 ;
6 S X="VFNR" I +$E(I2,2,4) S X=X_(+$E(I2,2,4))
61 S Y=$G(@("^"_Q_"BA(BJ,X)")),TXT(4)=$P(Y,D,2),TXT(5)=$P(Y,D,3),TXT(6)=$P(Y,D)
63 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)
65 D ^cA334 G 51
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84