cT761	; Maandbedragen ;cT761 ; [ 06/15/2000  5:16 PM ]
	G 1
	;
T0	;Maandbedragen ;
T1	;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
T2	;Bedrag ;"xxxxxxxxx[] = maandbedrag";
T3	;Maandbedrag;
T4	;Som maandbedragen niet gelijk aan jaarbedrag \".[] = ok   -[] = hernemen"
	;
T0F	;Montants mensuels ;
T1F	;Janvier\Février\Mars\Avril\Mai\Juin\Juillet\Août\Septembre\Octobre\Novembre\Décembre;
T2F	;Montant ;"xxxxxxxxx[] = montant mensuel"
T3F	;Montant mensuel;   
T4F	;Total des montants mensuels different du montant annuel \".[] = ok   -[] = reprendre"
	;
T0E	;Maandbedragen ;
T1E	;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
T2E	;Bedrag ;"xxxxxxxxx[] = maandbedrag"
T3E	;Maandbedrag;
T4E	;Som maandbedragen niet gelijk aan jaarbedrag \".[] = ok   -[] = hernemen"
	;
	;
1	D BS^cAN210("AFS.DET.MND",0,0,0,"")
	;
YZ	Q
	;
MAVOL(MND)	; voluit schrijven maand van het jaar 
	S TEKST=$P($P($T(@("T1"_QT)),U,2),D,MND#1*100)
MAVOLZ	Q TEKST
	;
MAAND1(MND)	; vraag maandbedrag voor 1 maand vanuit detail maandbedragen
	S MAAND=$P(MND," ",4),BED=^TEMP(boot,$J+.02,MND,0)
	I $E(BED)="-" S BED=-BED_"-"
	S R="BED\22\3\"_$P($T(@("T2"_QT)),U,2)_$$LC^cAFA1($$MAVOL(MAAND))_" "_$P(MAAND,".")_D_$P($T(@("T2"_QT)),U,3)
	S R=R_"\9\\""-,""[K!$$W^cAFI2(K,2,1)" S $P(R,D,13)=1 D R0 G MAAND1Z:K="-"!(K=",")
	I K'="-",K["-" S K="-"_$TR(K,"-")
	S ^TEMP(boot,$J+.02,MND,0)=K
	S SAL=$$SALDO^cT76(JAARUI1)
	W /CUP(4,65),@F5,": ",$$IP^cAFA1(SAL,QD,0),@F2
MAAND1Z	Q
	;
MAAND(JAAR)	; vraag maandbedrag voor elke maand vanuit detail maandbedragen
	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T2"_QT)),U,3)
	S R=R_"\9\\""-,""[K!$$W^cAFI2(K,2,1)" S $P(R,D,13)=1 D R0 G MAANDZ:K="-"
	S I3=""
	F  S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3=""  I $P($P(I3," ",4),".")=+JAAR S ^TEMP(boot,$J+.02,I3,0)=K
	S SAL=$$SALDO^cT76(JAAR)
	W /CUP(4,65),@F5,": ",$$IP^cAFA1(SAL,QD,0),@F2
MAANDZ	Q
	;
CHSAL(JAAR)	; check saldo bij verlaten scherm maandbedragen
	S SAL=$$SALDO^cT76(JAAR)
	S JAARBED=$P(^TEMP(boot,$J+.01,JAAR,0),D,3)
	I SAL S R="K\22\3\"_$P($P($T(@("T4"_QT)),U,2),D)_$$IP^cAFA1(JAARBED,QD,0)_D_$P($P($T(@("T4"_QT)),U,2),D,2)_"\1\\""-.""[K&$L(K)" D R0
	I K="-" S EXIT=0
	I EXIT D ^cT765  ; herrekenen jaarbedragen
CHSALZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 24.09.03 - 14 u 21 * V7.96