cT646	;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  7:48 PM ]
	G 1
	;
	; CONTROLE BOEKHOUDKUNDIGE VERWERKING AANKOOPFACTUUR 
	;
T0	;Inkomende fact/creditn ;
T1	;Leveranciersrekening onbekend : ;
T2	;Grootboekrekening onbekend : ;
T3	;Debetsaldo verschilt van creditsaldo : ;
T4	;Nr. document bestaat reeds : ;
	;
T0F	;Documents d'entrée ;
T1F	;Compte fournisseur inconnu : ;
T2F	;Compte de grand-livre inconnu : ;
T3F	;Total débit diffère du total crédit : ;
T4F	;N° de document existe déjà : ;
	;
T0E	;Registration of incoming documents ;
T1E	;Supplier account unknown : ;
T2E	;General account unknown : ;
T3E	;Debit balance differs from credit balance : ;
T4E	;Document nr already exists : ;
	;
S1	I '$D(@("^"_Q_"AR(BR)")) D
	. N TAB,K
	. S $ZT="TRAP^cAN000"
	. S TAB(1)=$P(BR," ")_"\?\1",$P(TAB(1),D,29)=$G(QU),$P(TAB(1),D,28)=$H D P^cAN220("AR","",BR,"TAB","")
	. I K="-" S @("^"_Q_"AR(BR,0)")=TAB(1),@("^"_Q_"R1("" ""_$P(BR,"" ""))")="?",^INDEX(Q,"AR",101,$$DI^cAN000(BR,BR))=BR
S1Z	Q
	;
1	I '$D(@("^"_Q_"LE(I1)")) S:$D(@("^"_Q_"L1(KC)")) I1=^(KC)
12	I '$D(@("^"_Q_"LE(I1)")) D F1 G 1
19	S R1="",K=-NETG-NETD-NETI-NETA-NABTW S:+FNR<99999 FNR=100000+FNR
	;
2	S R1=$O(^HULP(boot,$J,0,R1)) G 29:R1="" S B=$P(^(R1),D),BR=$P(B,S),B=$P(B,S,4)
22	S K=K+B I '$D(@("^"_Q_"AR(BR)")) D F2,S1 G 19
24	G 2
29	I K D F3
	;
3	S K=""
32	S K=$O(@("^"_Q_"AA(K)")) I $L(K) G 32:'$D(^(K,FNR)) D F4 S FNR=FNR+1,K="" S:FNR>989999 FNR=100000 G 32
34	I $D(@("^"_Q_"LE(I1,FNR)")) D F4 S FNR=FNR+1,K="" S:FNR>989999 FNR=100000 G 32
	;
YZ	D:SWAN ^cTA226 Q
	;
F1	S K=$P($T(@("T1"_QT)),U,2)_I1 D TXT^cAFA1(250) Q
F2	S K=$P($T(@("T2"_QT)),U,2)_BR D TXT^cAFA1(250) Q
F3	S K=$P($T(@("T3"_QT)),U,2)_K G FZ
F4	S K=$P($T(@("T4"_QT)),U,2)_FNR
FZ	S %=$T(+0)_" "_K D TXT^cAFA1(250),^cA400 K % Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02