cT683	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:55 PM ]
	G 1
	;
T0	;Uitgaande fact/creditn ;
	;
T0F	;Fact/n.c. vente ;
	;
T0E	;Registration of outgoing documents ;
	;
	; ophalen factuurnummer
1	S R="FNR\V\"_SRT_D_BJ_D_1 D ^cA337 I 'FNR G 2^cT682
11	S FP=515 W @F,FNR S @%Q1=0
	;
	; registratie factuur
2	I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
21	I $D(@("^"_Q_"BA(84)")),$L(^(84)) D @("S1"_^(84))
	;
	; boekhoudkundige verwerking
25	S TTBF=$J(NET+BTW+LXT*MPAR,0,QD)
27	D ^cT686 S @%Q1=1
	;
	; link Intrastat
3	G YZ:'$D(@("^"_Q_"BA(50)")),YZ:$P(^(50),D)'[1 S K=$P(@("^"_Q_"KL(I1,0)"),D,16) S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".","")))
31	I OK S R=U_BP_U_FNR_U_U_22_U_13 D ^cTI0
	;
YZ	G ^cT680
	;
ZZ	; 18.05.04 - 15 u 48 * V8