cAT121 ;Openst. KL.facturen bij opstart ;%AT12 ;%AT12* ; [ 01/03/01  5:21 PM ]
 G 1
 ;
T0 ;Openstaande klantensaldi bij het opstarten ;
T1 ;Saldonummer bestaat reeds bij klant ;
T2 ;Dit nummer is niet toegelaten ;
 ;
T0F ;Soldes initiaux des clients au départ ;
T1F ;N° de solde existe déjà chez client ;
T2F ;Ce numéro n'est pas permis ;
 ;
T0E ;Initial balance customer accounts ;
T1E ;Balance number already exist with customer ;
T2E ;This number is not allowed ;
 ;
S1 S RS1="VFNR" I $D(^(R1,RS1)) D S10
S1A I 'R0 S RS1=$O(^(RS1)) I $E(RS1,1,4)="VFNR" 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_"VE(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_"VEB(RFNR,KC)")),RX=$G(^(KC)),R1=$D(@("^"_Q_"KL(I1,RFNR)")),RY=$G(^(RFNR)),R2=$D(@("^"_Q_"VF(RFNR)"))
30 S $P(RX,D,8)="",$P(RY,D,8)="" ; rappels
31 I RMIN S OK=(R0&R1&(RX=RY)),R=84 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_"K1(RX)")),$D(@("^"_Q_"KL(^(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