cA337 ;Toewijzen factuurnummer ;%A337 ; [ 01/03/01  4:33 PM ]
 ;
T0 ;Toewijzen factuurnummer ;
T1 ;U kan dit oplossen via programma '7.16. Beheer journaalcodes' ;
T2 ;Journaal ; is onbekend ; is buiten gebruik ;
T3 ; : alle factuurnummers opgebruikt ;
 ;
T0F ;Déterminer no de facture ;
T1F ;Veuillez verifier la numérotation via le '7.16 Gestion des journaux' ;
T2F ;Journal ; est inconnu ; est hors usage ;
T3F ; : il n'y a plus des numéros disponibles ;
 ;
T0E ;Assign invoice numbers ;
T1E ;You can solve this via program '7.16. Journal codes' ;
T2E ;Journal ; is unknown ; is out of use ;
T3E ; : all invoice numbers are used ;
 ;
 ; initialisatie
1 S RR0=0 F K=1:1:6 S @("RR"_K)=$P(R,D,K)
11 S RRQ=Q I RR6?1.3U S Q=RR6
13 S RR3=+RR3,RRA=RR2_"FNR"_$S(RR3:RR3,1:"") I '$D(@("^"_Q_"BA(RR4,RRA)")) S K=$P($T(@("T2"_QT)),U,2)_RR3_$P($T(@("T2"_QT)),U,3) D F0 G Y
15 I RR5=1 L @("^"_Q_"BA(RR4,RRA)"):2 E  S R=14 D F2 G Y
17 I RR5=2 L +@("^"_Q_"BA(RR4,RRA)"):2 E  S R=14 D F2 G Y
 ;
 ; ophalen + testen
2 S RRB=^(RRA) I $P(RRB,D,4) S K=$P($T(@("T2"_QT)),U,2)_RR3_$P($T(@("T2"_QT)),U,4) D F0 G Y
21 S K=$P(RRB,D) I K<$P(RRB,D,2)!(K>$P(RRB,D,3)) S K=$P($T(@("T2"_QT)),U,2)_RR3_$P($T(@("T3"_QT)),U,2) D F0 G Y
23 S R=RR2_D_RR3_D_RR4_D_K_D_$P(RRB,D,3) D ^cA3352 I 'OK S K="" D F0 G Y
 ;
 ; update
3 S RR0=$P(RRB,D),$P(RRB,D)=RR0+1                   ; ophogen factuurnr.
31 S $P(RRB,D,5)=RR0,$P(RRB,D,6)=$G(FDT,DT)          ; laatste fnr + datum
33 S $P(RRB,D,7)=$H,$P(RRB,D,8)=$G(QU)               ; wanneer & wie
35 S @("^"_Q_"BA(RR4,RRA)")=RRB
 ;
4 S R="TRANSACT" D ^cA348                           ; begin transactie
41 S ^(TRANSACT,0)=$T(+0)_D_Q_D_RR2_D_RR3_D_RR0_D_RR4_D_$G(BP)_D_$G(BPE)_D_$G(FDT)_D_$G(VVD)_D_$G(I1)_D
 ;
 ; einde
Y S @RR1=RR0 I RR5 L -@("^"_Q_"BA(RR4,RRA)") I RR5=1 L
YZ S Q=RRQ K R,RR0,RR1,RR2,RR3,RR4,RR5,RR6,RRQ,RRA,RRB Q
 ;
F0 D F1:$L(K) S K=$P($T(@("T1"_QT)),U,2)
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84