cT813	;Fin & div: autom. voorstel ;%T80 ; [ 01/12/01  9:51 AM ]
	G 1
	;
T0	;Fin & div: autom. voorstel ;
T1	;Selectie;voorlopig saldo : ;
T2	;x[] = selectie doc. x      x y z[] = meervoudige selectie   [] = verder com.;
T3	;B[] = selectie afboeken       x-[] = deselectie doc. x;     .[] = verder det.;
T4	;-[] = einde    ?[] = uitleg ivm automatisch voorstel        [] = verder com.;
T5	;D[] = detail   *[] = selectie document via bedrag;          .[] = verder det.;
T6	;Lijn ; -> Document ;niet;reeds; geselecteerd ;
	;
T0F	;Fin & div: propos. autom. ;
T1F	;Sélection;solde provisoire : ;
T2F	;x[] = sélection doc. x     x y z[] = multiple sélection     [] = info compl.;
T3F	;B[] = comptabiliser sélect.   x-[] = désélection doc.x;     .[] = suite dét.;
T4F	;-[] = fin      ?[] = info proposition automatique           [] = info compl.;
T5F	;D[] = détail   *[] = sélection doc. par solde restant ;     .[] = suite dét.;
T6F	;Ligne ; -> Document ;ne pas;déjà; sélectionné ;
	;
T0E	;Financial & miscellaneous transactions: autom. proposal ;
T1E	;Selection;temporary balance : ;
T2E	;x[] = selection doc. x      x y z[] = plural selection   [] = next comm.;
T3E	;B[] = process selection        x-[] = unselect doc. x;   .[] = next det.;
T4E	;-[] = end      ?[] = info concerning automatic proposal   [] = next comm.;
T5E	;D[] = detail   *[] = selection document via amount;       .[] = next det.;
T6E	;Line ; -> Document ;not;already; selected ;
	;
T0D	;Fin & Div: Autom. Vorschlag ;
T1D	;Selektion;vorläufig Saldo : ;
T2D	;x[] = Selection Doc. x      x y z[] = mehrfache Selektion   [] = weiter Kom.;
T3D	;B[] = Selection buchen         x-[] = Deselection doc. x;   .[] = verder det.;
T4D	;-[] = Ende     ?[] = Erklärung automatische Vorschlag        [] = weiter Kom.;
T5D	;D[] = Detail   *[] = Selektion Dokument via Betrag;          .[] = weiter Det.;
T6D	;Linie ; -> Dokument ;nicht;schon; Selektiert ;
	;
S0	D S2 S A=$G(A),B=13,SWVF=0,USC=0,S0=$G(RSS)
S0A	S A=$O(^HULP(boot,$J,1,A)) G S0Z:A="" S R=B,DFA(R)=^(A)_D_A I $D(USEL(A)) S RS0=1
S0B	S DFF(DFA(R)#1*1E7#1E6)=R,DFN(A)=R,RSS=S0 D S1^cT808 I B<18 S B=B+1 G S0A
S0C	I $O(^HULP(boot,$J,1,A))'="" S SWVF=1
S0Z	K S0 Q
	;
	; 1 of meerdere doc. vanaf 1' factuur in volgorde van sortering
	; tot saldo=0
S1	S S1=USAL,S2=0,K=""
S1A	G S1Z:USAL=0&S2 S S2=S2+1 I '$D(^HULP(boot,$J,1,S2)) K USEL S K="D",USAL=S1 G S1Z
S1B	S RSS=1 I '$D(DFN(S2)) D S0 G S1B
S1C	S R=DFN(S2),RSS=1 D S1^cT808 S S3=0 I $$OK S S3=HOB-HKK,USEL(S2)=S3
S1D	I K1="K"&(FC'="C")!(K1="L"&(FC="C")) S S3=-S3 I $D(USEL(S2)) S USEL(S2)=S3
S1E	S USAL=USAL+S3 D S3 G S1A
S1Z	K S1,S2,S3,RSS Q
	;
	; vegen
S2	K DFA,DFF,DFN S FP=1201 W @F F I=1:1:6 W !,@F2
S2Z	Q
	;
	; saldo in balk
S3	S FP=1901 W @F,@F4,$J($P($T(@("T1"_QT)),U,3),52),$J($TR($FN(USAL,",T",HQD),",.",".,"),15),$J("",12),@F5
S3Z	Q
	;
	; manuele selectie
S4	S S3=0 I $D(USEL(K)) S K=$P($T(@("T6"_QT)),U,2)_K_$P($T(@("T6"_QT)),U,3)_$P($T(@("T6"_QT)),U,5)_$P($T(@("T6"_QT)),U,6) D F1 G S4Z
S4A	I '$D(^HULP(boot,$J,1,K)) S K=$P($T(@("T6"_QT)),U,2)_K_" "_$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,6) D F1 G S4Z
S4B	I '$D(DFN(K)) D S0 G S4B
S4C	S R=DFN(K) D S1^cT808 S S3=0 I $$OK S R=DFN(K),RS0=1,S3=HOB-HKK,USEL(K)=S3 D S1^cT808
S4D	I K1="K"&(FC'="C")!(K1="L"&(FC="C")) S S3=-S3 I $D(USEL(K)) S USEL(K)=S3
S4Z	S USAL=USAL+S3 D S3 K S3 Q
	;
	; 1 v/d documenten adhv bedrag
S5	S S1=USAL,S2=0,K=""
S5A	S S2=S2+1 G S5A:$D(USEL(S2)) I '$D(^HULP(boot,$J,1,S2)) S K="D",USAL=S1 G S5Z
S5B	S RSS=1 I '$D(DFN(S2)) D S0 G S5B
S5C	S R=DFN(S2),RSS=1 D S1^cT808 S S3=0 I $$OK F S3=HOB,HOB-HKK D S6 I $D(USEL(S2)) Q
S5E	I '$D(USEL(S2)) G S5A
S5Z	K S1,S2,S3,RSS Q
	;
	; factuur selecteren
S6	I K1="K"&(FC'="C")!(K1="L"&(FC="C")) S S3=-S3
S6A	I S3+USAL=0 S USEL(S2)=S3,USAL=USAL+S3
S6Z	Q
	;
	; test op VM/HBF/EUR
OK()	N OK S OK=VM(VM)=VM(HBF) ; factuur in muntcode bank
	I 'OK,VM(HBF)=VM(BF),VM(VM)="EUR"!(VM(VM)=$P(BA39,D,9)) S OK=1
	Q OK
	;
	; commentaar tonen
C1	W !?2,$P($T(@("T"_(USC*2+2)_QT)),U,2),!?2,$P($T(@("T"_(USC*2+3)_QT)),U,2),$P($T(@("T"_(USC*2+3)_QT)),U,4-SWVF)
C1Z	Q
	;
1	K A,B,USEL S USAL=HUX D S2,S1,S5:K="D"  ; poging autom. selectie
10	D S3 S A=0,UK="" G Y:K="D"&SWAA D S0
11	S UK=$O(USEL(UK)) G 3:UK=""             ; geselecteerde doc. tonen
13	I '$D(DFN(UK)) D S0 G 13
15	G 11
	;
2	D S0
	;
3	S R="UK\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\20\\\\\1" D R0 G Y:K="-"!(K=","),9:K="B" I K="" S USC='USC G 3
31	I K="D"!(K=".") S:K="D" A=0 G 2
33	I K="?" D ^cT818,S3 G 3:'$D(USEL) S A=$S(A:A,1:MAX)-1\6*6 G 2
35	I K="*" D S5 S K="" G 10
39	I K?1N.N S K=+UK D S4 G 3
	;         
	; verwijderen geselecteerde lijn
4	I K'?1N.N1"-" G 5
41	S K=+UK I '$D(USEL(K)) S K=$P($T(@("T6"_QT)),U,2)_K_$P($T(@("T6"_QT)),U,3)_$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,6) D F1 G 3
43	I '$D(DFN(K)) D S0 G 43
45	S USAL=USAL-USEL(K),R=DFN(K) K USEL(K) D S1^cT808,S3 G 3
	;
	; meervoudige selectie
5	S K=+UK,UK=$P(UK," ",2,9) I K D S4 G 5
51	G 3
	;
	; boeken geselecteerde lijnen
9	S UK=""
91	S UK=$O(USEL(UK)) I UK="" K KX,SW G Y
93	I '$D(DFN(UK)) D S0 G 93
95	S R=DFN(UK),RS0=1 D S1^cT808 S BE=OB,BEF=OBF,HBE=HOB,OM=FNR,OM1="" D ^cT816
97	S KX=HKK I KX S SW="K" D ^cT817
99	G 91
	;
Y	S FP=1901 W @F,@F4,$J("",79),@F5 S FP=2101 W @F,@F1
YZ	K UK,USAL,USC,USEL,^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	; 22.06.04 - 16 u 32 * V8