cT950 ;Openst. LE.facturen bij opstart ;%T22 ;%T95* ; [ 01/03/01  3:46 PM ]
 G 1
 ;
T0 ;Openstaande leveranciers-saldi bij opstarten ;
T1 ;Factuur reeds geopend bij lev. ;
T2 ;Dit factuurnummer is niet toegelaten ;
 ;
T0F ;Soldes initiaux fournisseurs au départ ;
T1F ;Document existe déjà chez fourn. ;
T2F ;Ce n° de document n'est pas permis ;
 ;
T0E ;Outstanding supplier balances at start up ;
T1E ;Voucher is already opened for supplier ;
T2E ;This voucher number is not allowed ;
 ;
S1 S RS1="AFNR" I $D(^(R1,RS1)) D S10
S1A I 'R0 S RS1=$O(^(RS1)) I $E(RS1,1,4)="AFNR" D S10 G S1A
S1Z K RS1 Q
 ;
S10 S RS10=^(RS1) G S10Z:$P(RS10,D,4) I '$P(RS10,D,2)!'$P(RS10,D,3) S:$E(RS10,1,2)=$E(RFNR,1,2) R0=1 G S10Z
S10A I RFNR'>$P(RS10,D,3),RFNR'<$P(RS10,D,2) S R0=1
S10Z K RS10 Q
 ;
 ; Controle op geldigheid factuurnummer
1 S OK=0,RFNR=$E(FNR,1,6),RMIN=FNR?6N1"-"
 ;
2 S R0="" F R1=1:1 S R0=$O(@("^"_Q_"AA(R0)")) Q:R0=""  I $D(^(R0,RFNR)) Q
21 I 'R0 F R1=BJ:1 Q:'$D(@("^"_Q_"BA(R1)"))!R0  D S1
23 I R0 S K=$P($T(@("T2")),U,2) D F1 G YZ
 ;
3 S R0=$D(@("^"_Q_"AAB(RFNR,KC)")),RX=$G(^(KC)),R1=$D(@("^"_Q_"LE(I1,RFNR)")),RY=$G(^(RFNR)),R2=$D(@("^"_Q_"AF(RFNR)"))
31 I RMIN S OK=(R0&R1&(RX=RY)),R=83 D F2:'OK G YZ
33 I R0!R1 S RX=KC D E1 G YZ
35 I R2 S RX=$P(^(RFNR),D) D E1 G YZ
 ;
Y S OK=1
YZ K R,R0,R1,R2,RFNR,RMIN,RX,RY Q
 ;
E1 S RY="" I $L(RX),$D(@("^"_Q_"L1(RX)")),$D(@("^"_Q_"LE(^(RX),0)")) S RX=$P(^(0),D),RY=$P(^(0),D,2)
EZ S K=$E($P($T(@("T1")),U,2)_RX_" "_RY,1,65) D F1 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84