cT38	;Financiële dagboeken ;%T38 ;overlay %T38* ; [ 07/11/01  12:20 PM ]
	G 1
	;
T0	;Financieel dagboek ;
T1	;Boekingsmaand\"-[] = einde programma   jjjj.mm[] = bepaalde maand";
T2	;Financiële rekening\".[] = allemaal (incl. dagboek Div.)   D[] = diversen   [] = spec. rekening";
T3	;Muntcode bedragen\"[] = in "_BF_"   1[] = in "_HBF;
T4	;Boekingsmaand : ;Diverse verrichtingen;
T5	;Selectie datum\"[] = volledige maand   dd.mm.jj[] = bepaalde datum";
T6	;Selectie uittreksel\"[] = allemaal   xxxxx[] = uittreksel xxxxx";
T8	;Analytische ventilaties\"[] = ja   .[] = neen";analytisch;
T9	;Boekingsmaand onbekend;
T10	;Saldo\"[] = niet weergeven   .[] = weergeven";
T11	;Divers dagboek ;
	;
T0F	;Journal financier/O.D. ;
T1F	;Mois comptable\"-[] = fin du programme   aaaa.mm[] = mois spécifique";
T2F	;Journal financier désiré\".[] = tous (journal O.D. inclus)   D[] = journal O.D.   [] = journal spéc.";
T3F	;Montants en \"[] = en "_BF_"   1[] = en "_HBF;
T4F	;Mois comptable : ;Opérations diverses;
T5F	;Sélection date\"[] = mois entier   jj.mm.aa[] = date spécifique";
T6F	;Sélection extrait\"[] = tous   xxxxx[] = extrait xxxxx";
T8F	;Ventilations analytiques\"[] = oui   .[] = non";analytique;
T9F	;Mois comptable inconnu;
T10F	;Solde\"[] = ne pas reprendre   .[] = reprendre";
T11F	;Journal divers ;
	;
T0E	;Financial journal ;
T1E	;Fiscal month\"-[] = end program   yyyy.mm[] = particular month";
T2E	;Financial account\".[] = all (incl. journal misc.)   D[] = misc.   [] = spec. account";
T3E	;Currency amounts\"[] = in "_BF_"   1[] = in "_HBF;
T4E	;Fiscal month : ;Misc. transactions;
T5E	;Date selection\"[] = full month   dd.mm.yy[] = particular date";
T6E	;Statement selection\"[] = all   xxxxx[] = statement xxxxx";
T8E	;Analytical ventilations\"[] = yes   .[] = no";analytical;
T9E	;Fiscal month unknown;
T10E	;Balance\"[] = don't mention   .[] = mention";
T11E	;Miscellaneous journal ;
	;
T0D	;Finanzjournale ;
T1D	;Rechnungsmonat\"-[] = Programmende    jjjj.mm[] = spezieller Monat";
T2D	;gewünschtes Finanzjournal\".[] = alle (inkl. Journal O.D.)   D[] = Journal O.D.   [] = Spezialjournal";
T3D	;Währung Betrage\"[] = in "_BF_"   1[] = in "_HBF;
T4D	;Rechnungsmonat : ;Andere Operationen;
T5D	;Datum auswählen\"[] = volständige Monat   dd.mm.jj[] = bestimmte Datum";;
T6D	;Auszug auswählen\"[] = alle   xxxxx[] = Auszug xxxxx";
T8D	;Analytische Aufteilung\"[] = ja   .[] = nein";analytisch;
T9D	;Rechnungsmonat unbekannt;
T10D	;Saldo\"[] = niet weergeven   .[] = weergeven";
T11D	;Divers dagboek ;
	;
	; initialisatie + titel
1	D ^cT489 S BPA=$E(BPA+.01_0,1,7) S:BPA#1>.12 BPA=BPA+.88 S BEST="FI",SWI=$P(@("^"_Q_"BA(39)"),D,17)
11	S SWAN=$P($G(@("^"_Q_"BA(300)"),0),D),SWAV=0,Q41="^"_Q_"AR(BR,0)"
13	I 'QP S BP=PP(1),BR=PP(2),SWM=PP(3),SWD=PP(4),SWU=PP(5),SRT=PP(6),SWAV=$G(PP(7)),PTS=0 D S1 K PP G 5
15	S K=$S('SWI:$P($T(@("T0"_QT)),U,2),1:$P($T(@("T11"_QT)),U,2))_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
	; boekingsmaand + rekening
2	S BP=BPA,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1"
21	D R0 G YZ:K="-" S FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP D S1
	; KO - 15.07.03
22	I '$D(KM1(BJ)) S K=$P($T(@("T9"_QT)),U,2) D TXT^cAFA1(250) G 2
	I SWI S SWM="",BR="D" G 3
23	S (S1,SWM,SRT)="",R="BR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""D.-,""[K\\\1" D R0 G 2:K="-"!(K=","),3:K="D",4:K="."
25	S R="BR\2000\\1\1" D ^cT278 G 23:K="-" S K=@Q41,S1=$P(K,D,2),HBF=$P(K,D,11) S:HBF="" HBF=BF
27	I $P(BA39,D,11)'="",BJ<$P(BA39,D,6) S HBF=$P(K,D,4) S:HBF="" HBF=BF
29	S R="SWM\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,1""[K" D R0:BF'=HBF G 2:K=",",25:K="-",4
	;
	; diversen
3	S R="SRT\D\1000\\\\\1" S:SWI $P(R,D,4)=1 D ^cA336 G 23:K="-"&('SWI) G 2:K="-" S K="D"_$E(1000+SRT,2,4),S1=$P($T(@("T4"_QT)),U,3) G 4:SRT=""
	I SRT="." S SRT="A",BR="." G 4
39	S FP=1301 W @F,@F1 S K=^(K) S:$P(K,D,2)="" $P(K,D,2)="DV" S S1=$P(K,D,2)_" "_$E($P(K,D),1,23)
	;
	; vervolg vraagstelling
4	S FP=503 W @F,S1,@F2 S R="SWD\22\3\"_$P($T(@("T5"_QT)),U,2)_"\8\DCTR" D R0 G 23:K="-"&('SWI),3:K="-",2:K="," S FP=568 W @F,SWD
41	S R="SWU\22\3\"_$P($T(@("T6"_QT)),U,2)_"\5\\K?.N!(K?2N1"".""2N)!(""-,""[K)" D R0 G 2:K=",",4:K="-" S FP=668 W @F,SWU,@F2
43	I SWAN S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 41:K="-",2:K="," S SWAV='$L(K),FP=768 W @F,@F2,$P($T(@("T8"_QT)),U,4-SWAV)
45	; I BR="." S PTS=0 G 43:K="-"&SWAN,41:K="-",47
46	; D ^cA347 G 2:K=",",43:K="-"&SWAN,41:K="-"
	; I 'PTS S R=1 D ^cA345 G 2:K=",",45:K="-"
47	S STRING="1#4#5" S:(BR'=".") STRING="1#2#4#5" D ^cAN3223("",STRING,">80","") G 2:K=",",43:K="-"&SWAN,41:K="-"
	I PTS'=4&(PTS'=3) G 49
48	; S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 47:K="-",2:K=","
	; S SWSAL=$L(K)
	S SWSAL=1
49	I 'PTS,K="." S QPT=$T(+0),PP(1)=BP,PP(2)=BR,PP(3)=SWM,PP(4)=SWD,PP(5)=SWU,PP(6)=SRT,PP(7)=SWAV D ^cA109 K PP G 2
	;
	; start printen
5	S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BM)_" "_BJ 
50	S BJ=$$BJ^cAFE1(Q,BP),MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2)
	S TIT="",K="D"_$E(($P(BR," ")_SRT)+1000,2,4) S:$D(@("^"_Q_"BA(""%T"",K)"))&(BR'="D") TIT=$P(^(K),D)
51	G ^cT382:(PTS&(PTS'=4)&(PTS'=3)),^cT380:(PTS'=4&(PTS'=3)),^cT383
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S1	S BJ=$$BJ^cAFE1(Q,BP),BF=$P($$MNTC^cAFE1(Q,BJ),D) Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8