cTA39	;Segment verrichtingen ;cTA39
	G 1
	;
T0	;Segment divers 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 : ;Segment diverse verrichtingen;
T5	;Selectie datum\"[] = volledige maand   dd.mm.jj[] = bepaalde datum";
T6	;Selectie uittreksel\"[] = allemaal   xxxxx[] = uittreksel xxxxx";
T7	;Informatie\"[] = op het scherm   .[] = op de printer";
T8	;Analytische ventilaties\"[] = ja   .[] = neen";analytisch;
	;
T0F	;Opérations segment ;
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 sement divers;
T5F	;Sélection date\"[] = mois entier   jj.mm.aa[] = date spécifique";
T6F	;Sélection extrait\"[] = tous   xxxxx[] = extrait xxxxx";
T7F	;Info\"[] = à l'écran   .[] = sur l'imprimante";
T8F	;Ventilations analytiques\"[] = oui   .[] = non";analytique;
	;
T0E	;Segment miscellaneous 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 : ;Segment miscellaneous transactions;
T5E	;Date selection\"[] = full month   dd.mm.yy[] = particular date";
T6E	;Statement selection\"[] = all   xxxxx[] = statement xxxxx";
T7E	;Informatie\"[] = op het scherm   .[] = op de printer";
T8E	;Analytical ventilations\"[] = yes   .[] = no";analytical;
	;
	;
1	D ^cT489 S BPA=$E(@("^"_Q_"BA(7)")+.01_0,1,7),BF=$P(^(39),D) S:BPA#1>.12 BPA=BPA+.88 S BEST="FII"
10	S SWAN=$P($G(@("^"_Q_"BA(300)"),0),D),SWAV=0
11	S Q41="^"_Q_"AR(BR,0)" 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 K PP G 5
15	S 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
	;
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
23	S (S1,SWM,SRT)="",BR="D" G 2:K="-"!(K=","),3
	;
3	S R="SRT\E\1000\1" D ^cA336 G 23:K="-" S K="E"_$E(1000+SRT,2,4),S1=$P($T(@("T4"_QT)),U,3) G 4:SRT=""
31	I SRT="." S 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)
	;
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="-",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 G 41:K="-",2:K="," S SWAV=1,FP=768 W @F,@F2,$P($T(@("T8"_QT)),U,4-SWAV)
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="-"
	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
	;
5	S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BM)_" "_BJ 
	S TIT="",K="E"_$E(($P(BR," ")_SRT)+1000,2,4) S:$D(@("^"_Q_"BA(""%T"",K)"))&(BR'="E") TIT=$P(^(K),D)
	G ^cTA382:PTS&(PTS'=4&(PTS'=3)),^cTA380:(PTS'=4&(PTS'=3)),^cT383
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.04 - 15 u 48 * V8