cT6413	;Inkomende documenten ;%T641 ; [ 01/03/01  2:44 PM ]
	G 1
	;
T0	;Controle factuurnummer leverancier ;
T1	;Factuur reeds ingeboekt onder nummer ;
	;
T0F	;Contrôle n° facture fournisseur ;
T1F	;Facture déjà inscrite sous le numéro ;
	;
T0E	;Check voucher number supplier ;
T1E	;Voucher already registered with number ;
	;
T0D	;Controle factuurnummer leverancier ;
T1D	;Rechnung schon gebucht mit Nummer ;
	;
	; Registratie factuurnummer leverancier
S1	I $L(COM) D S2 S @("^"_Q_"LEFNR(KC,R)")=FNR
S1Z	K R Q
	;
	; Berekenen index
S2	S R="" F R0=1:1:$L(COM) S R1=$A(COM,R0),R1=$C($S(R1>96&(R1<123):R1-32,1:R1)) I R1'?1P S R=R_R1
S2Z	S R=$E(R,1,24)_" " K R0,R1 Q
	;
	; Controle op factuurnummer leverancier         
1	I '$L(COM) G YZ
11	D S2 I '$D(@("^"_Q_"LEFNR(KC,R)")) G YZ
13	S K=$P($T(@("T1"_QT)),U,2)_^(R) D F1
	;
YZ	K R Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8