cAT102	;Openstaande facturen ;%AT10 ;%AT10* ; [ 12/29/00  10:06 AM ]
	;
T0	;Openstaande facturen ;
	;
T0F	;Factures non soldées ;
	;
T0E	;Outstanding invoice ;
	;
1	D ^cA338
	;
2	S QH1="^HULP(boot,$J+.03,FNR)",QH2="^HULP(boot,$J+.04,I2)"
21	S Q0="^"_Q_"LE(I1)",Q01="^"_Q_"LE(I1,I2)",Q7="^"_Q_"AA(BP)",Q71="^"_Q_"AA(BP,FNR)"
23	S Q95="^"_Q_"FI(BP,$P(A2,""#""),$P(A2,""#"",2))"
25	S KC=$P(B(3),D,30),I1=$G(@("^"_Q_"L1(+KC)")," "),I2=0,B(1)=$G(@Q01),COR=0
	;         
3	D ^cT101 S (ETONB,ETVER)=0,FNR=""
31	S FNR=$O(@QH1) I FNR="" S ^HULP(boot,$J+.02)=ETONB_D_ETVER G YZ
33	S A=^(FNR),VVD=$P(A,D,3),OPE=$P(A,D,5),ETONB=ETONB+OPE
35	S R=VVD_D_RFD D ^cA326 I R'>0 S ETVER=ETVER+OPE
37	G 31
	;
YZ	D ^cA339 K ^HULP(boot,$J+.03),^($J+.04) Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04