cAT19	;Niet gesaldeerde klanten ;%AT19 ;go naar %AT190 ; [ 01/10/01  2:00 PM ]
	G 1
	;
T0	;Lijst openstaande bedragen met aging ;
T1	;Referentie factuurdatum\SC1;dd.mm.jj[] = bepaalde datum   [] = ;documenten na deze datum worden niet weergegeven;
T2	;Detail\"[] = met detail per document   .[] = zonder detail";met ;zonder ;detail;
T3	;Referentie vervaldatum\SC2;dd.mm.jj[] = bepaalde datum   [] = zonder;documenten met vervaldatum groter dan deze datum worden niet weergegeven;zonder;
T4	;: Nr. & naam van de klant   :;Fac/C.N. datum;Betal. termijn;:Mnt   Saldo doc.:;
T5	;De klant\klanten\alfabetische\alfabetische;
	;
T0F	;Imprimé des montants impayés avec ancienneté clients;
T1F	;Référence date de facture\SC1;jj.mm.aa[] = date spécifique   [] = ;documents établis après cette date ne seront pas mentionnés;
T2F	;Détail\"[] = avec détail par document   .[] = sans détail";avec ;sans ;détail;
T3F	;Référence date d'échéance\SC2;jj.mm.aa[] = date spécifique   [] = sans;documents dont l'échéance est supérieure à cette date ne seront pas repris;sans;
T4F	;: N° et Nom du client       :;Fac/N.C. date ;Délai paiem.  ;:Dev.  Solde doc.:;
T5F	;Client\clients\alphabétique\alphabétique;
	;
T0E	;Report of outstanding amounts with aging customers;
T1E	;Reference invoice date\SC1;dd.mm.yy[] = particular date   [] = ;documents after this date are not being represented;
T2E	;Detail\"[] = with detail per document   .[] = without detail";with ;without ;detail;
T3E	;Reference due date\SC2;dd.mm.yy[] = particular date   [] = withoud;documents with due date greater than this date won't be shown;without; 
T4E 	;: Nr & name of the customer   :;Inv/C.N. date;Payment period;:Cur.   Balance doc.:;
T5E	;The customer\customers\alphabetic\alphabetic;
	;
1	I 'QP S LIM1=PP(1),LIM2=PP(2),DET=PP(4),PDT=PP(5),SWVM=PP(6),PDT2=PP(7),MUNT=PP(8)_D_PP(9),BLOK=PP(10) G 3
11	S SWVM=+$P(R,U,2),K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13	S TXT=$P($T(@("T5"_QT)),U,2)_"\KL\K1\1" D ^cA306 G YZ:K="-"
	;
2	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0 G 13:K="-" S DET=$L(K),FP=1003 W @F,@F2,$P($T(@("T2"_QT)),U,3+DET),$P($T(@("T2"_QT)),U,5)
20	S BLOK="" ; alle facturen
21	S R="PDT\22\3\"_$P($T(@("T1"_QT)),U,2)_"\8\DCTR" D R0 S:'K PDT=DT G 2:K="-" S FP=1103 W @F,$P($P($T(@("T1"_QT)),U,2),D)," : ",PDT
23	S R="PDT2\22\3\"_$P($T(@("T3"_QT)),U,2)_"\8\DCTR" D R0 G 21:K="-" S FP=1203 W @F,$P($P($T(@("T3"_QT)),U,2),D)," : ",PDT2 I 'PDT2 W $P($T(@("T3"_QT)),U,5)
25	S MUNT=$$MNT^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM),1) G 23:K="-" W /CUP(13,3),$P(MUNT,D),@F1
	; S R=1_D_'$L(LIM2) D ^cA345 G 25:K="-",13:K=","
27	D ^cAN3223("","1#4#5",">80","") G 25:K="-",13:K=","
29	I K="." S PP(4)=DET,PP(5)=PDT,PP(6)=SWVM,PP(7)=PDT2,PP(8)=MUNT,QPT=$T(+0),PP(9)=BLOK D ^cA109 G YZ
	;
3	S K=$T(@("T4"_QT)),A=@("^"_Q_"BA(16)"),Q0="^"_Q_"KL(I1)",TIT=$P(K,U,2)_$P(K,U,DET+3)_$P(K,U,5),TIT1=$P($T(@("T0"_QT)),U,2),TXT="\KL",PARI="V"
31	I LIM2'="",LIM2'=" " S KEU("KL")="1\1",LIM1("KL")=LIM1,LIM2("KL")=LIM2
	;
4	G ^cAT190
	;
YZ	Q
	;
SC1	W !?2,$P($T(@("T1"_QT)),U,3),DT,!?2,$P($T(@("T1"_QT)),U,4) Q
	;
SC2	W !?2,$P($T(@("T3"_QT)),U,3),!?2,$P($T(@("T3"_QT)),U,4) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08