cT687	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:58 PM ]
	G 1
	;
	; KONTROLE BOEKHOUDKUNDIGE VERWERKING VERKOOPFAKTUUR
	;
T0	;Uitgaande fact/creditn ;
T1	;Klantenrekening onbekend : ;
T2	;Grootboekrekening onbekend : ;
T3	;Debet-saldo verschilt van credit-saldo : ;
T4	;Nummer document bestaat reeds : ;
	;
T0F	;Fact/n.c. vente ;
T1F	;Compte client inconnu : ;
T2F	;Compte grand-livre inconnu : ;
T3F	;Solde débit diffère du solde crédit : ;
T4F	;N° de document existe déjà : ;
	;
T0E	;Registration of outgoing documents ;
T1E	;Customer account unknown : ;
T2E	;General account unknown : ;
T3E	;Debit balance differs from credit balance : ;
T4E	;Document number 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_"KL(I1)")) S:$D(@("^"_Q_"K1(KC)")) I1=^(KC)
12	I '$D(@("^"_Q_"KL(I1)")) D F1 G 1
19	S R1="",K=-NET 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)
21	I 'B K ^(R1) G 2
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_"VE(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_"KL(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	; 22.06.04 - 16 u 32 * V8