cT811	;Fin & div: k/l facturen ;%T80 ; [ 01/12/01  9:48 AM ]
	G 1
	;
T0	;Fin & div: k/l facturen ;
T1	;Nummer document; of volgnummer;
T2	;A[] = automatisch voorstel   D[] = detail;       .[] = verder detail;
T3	;F[] = heropenen document     V[] = voorschot;
	;
T0F	;Fin & div: c/f factures ;
T1F	;N° du document; ou n° d'ordre;
T2F	;A[] = proposition autom.     D[] = détail;       .[] = suite détail;
T3F	;F[] = réouverture docum.     V[] = acompte;
	;
T0E	;Financial and miscellaneous transactions: c/s invoices ;
T1E	;Document number; or number;
T2E	;A[] = automatic proposal   D[] = detail;    .[] = next detail;
T3E	;F[] = reopen document      V[] = advance;
	;
T0D	;Fin & div: k/l facturen ;
T1D	;Nummer Dokument; oder Folgenummer;
T2D	;A[] = automatische Vorschlag   D[] = Detail;       .[] = nächste Detail;
T3D	;F[] = wiedereröffnen Dokument  V[] = Vorauszahlung;
	;
S1	S J=$P(PRM,D),I=$S(J=2:DT,1:$P(I,D,J+2))
S1A	S J=$$DC^cAFD1(I),^HULP(boot,$J,0,J_"."_(1E6+FNR)_" ")=^(FNR)
S1Z	Q
	;
S2	K DFA,DFF,DFN S FP=1201 W @F F I=1:1:6 W !,@F2
S2Z	Q
	;
S3	S VINDSW=0  ;  FB - 22.08.07 - ivm selectie lijn 12 van openstaande posten
	F S1=1:1:MAX S S2=^HULP(boot,$J,1,S1) I S2#1*1E7#1E6=HFNR S A=S1-6 S VINDSW=1 Q
S3Z	K S1,S2 Q
	;
C1	W !?2,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,4-SWVF),!?2,$P($T(@("T3"_QT)),U,2) Q
	;
1	N VINDSW  ;  FB - 22.08.07 - ivm selectie lijn 12 van openstaande posten
	S $ZT="TRAP^cAN000"
	K A,B,^HULP(boot,$J) S FNR=9999,MAX=0
11	S FNR=$O(@("^"_Q_Q1_"(I1,FNR)")) I FNR?5.6N S I=^(FNR) D S1 G 11
13	S J=$O(^HULP(boot,$J,0,J)) I $L(J) S MAX=MAX+1,^HULP(boot,$J,1,MAX)=J G 13
15	I MAX,MAX<100,$E(RB)'="D",SWAA,'$D(HFNR) G A
17	I $G(HFNR) D S3
	;
2	D S2 S A=$G(A),B=13,(SWAA,SWHF,SWVF)=0
21	S A=$O(^HULP(boot,$J,1,A)) G 27:A="" S R=B,DFA(R)=^(A)_D_A I DFA(R)#1*1E7#1E6=$G(HFNR) S SWHF=1
23	S DFF(DFA(R)#1*1E7#1E6)=R,DFN(A)=R D S1^cT808 I B<18 S B=B+1 G 21
25	I $O(^HULP(boot,$J,1,A))'="" S SWVF=1
27	I $G(HFNR),'SWHF G 2:$L(A) K HFNR
29	I $G(HFNR) S K=HFNR K HFNR G 35
	;
3	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,'MAX+3)_"\C1\6\\$L(K)\\\1" D R0 G YZ:K="-"!(K=",")
31	I K="D"!(K=".") S:K="D" A=0 G 2
33	I "\A\F\V\"[(D_K_D) G @K
35	I $D(DFF(K)) S L=DFF(K) G 4
36	I $D(DFN(K)) S L=DFN(K) G 4
37	I K,K?1.4N,K'>MAX S HFNR=^HULP(boot,$J,1,+K)#1*1E7#1E6 D S3 G 2
38	I K,K?5.6N S HFNR=K,K=A D S3 I A'=K!($G(VINDSW)) G 2
39	K HFNR S R=219 D F2 G 3
	;
4	G ^cT812
	;
A	D ^cT813 S SWAA=0 G 1:K="-"!(K=","),Y
F	D ^cT815,4^cT814:K'="-" G Y
V	D ^cT814 G Y
	;
Y	S FP=2101 W @F,@F1 I HUX G 1
YZ	K BE,BEF,HBE,OB,OBF,FC,FNR,SW,KX,I1,CO,N,KC,KN,OM,UO,^HULP(boot,$J) D S2 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09