cT53 ;INGAVE SLUITPOSTEN ;%T53 ;do naar %A102 ; [ 01/03/01  11:22 AM ]
 G 1
 ;
T0 ;Ingave sluitposten ;
T1 ;Toelichting\"[] = "_opm;
T2 ;Bedrag in ;Eindsaldo in ;saldo : ;
T3 ;De grootboekrekening;muntcode ;
T4 ;Bedrag sluitpost\"xxxxxxxx[] = debet   xxxxxxx-[] = credit";
T5 ;Eindsaldo\"xxxxxxxx[] = debetsaldo   xxxxxxx-[] = creditsaldo";
T6 ;Boeking ok\"[] = ok    ,[] = hernemen";
 ;
T0F ;Entrée postes finals ;
T1F ;Explication\"[] = "_opm;
T2F ;Montant en ;Solde final en ;solde : ;
T3F ;Le compte du grand-livre;code monétaire ;
T4F ;Montant poste final\"xxxxxxxx[] = débit   xxxxxxx-[] = crédit";
T5F ;Solde final\"xxxxxxxx[] = solde débit   xxxxxxx-[] = solde crédit";
T6F ;Imputation ok\"[] = ok    ,[] = reprendre";
 ;
T0E ;Input final posts ;
T1E ;Explanation\"[] = "_opm;
T2E ;Amount in ;Final balance in ;bal.  : ;
T3E ;The general account;currency ;
T4E ;Amount final post\"xxxxxxxx[] = debit   xxxxxxx-[] = credit";
T5E ;Final balance\"xxxxxxxx[] = debit balance   xxxxxxx-[] = credit balance";
T6E ;Registration ok\"[] = ok   ,[] = retry";
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V2 20.11.86
 ;
S1 S K="\\\\\\\\\\\\\",^(BJ)=K_K,^(BJ+.01)=K,^(BJ+.02)=K_K Q
 ;
1 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
11 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BF="BF" S:$D(^(39)) BF=$P(^(39),D) F FP=520,720,820,1020,1060 W @F,@F9,":"
13 S FP=502,(T,T1)=0,OPM=BJ W @F,@F6,$P($P($T(@("T1"_QT)),U,2),D),@F9
15 S FP=702,K=@("^"_Q_"AR(0,101)") W @F,@F6,$P(K,U),@F9 S FP=802 W @F,@F6,$P(^(102),U),@F9
17 S FP=1002,K=$T(@("T2"_QT)) W @F,@F6,$P(K,U,2),BF,@F9 S FP=1043 W @F,@F6,$P(K,U,3),BF,@F9
19 S FP=1519,K=$P(K,U,4) W @F,@F5 S FP=1514 W @F,@F4,K,@F5 S FP=1563 W @F,@F5 S FP=1554 W @F,@F4,K,@F5
 ;
2 S R="BR\2000\"_$P($T(@("T3"_QT)),U,2)_"\AR\R1" D @$G(@("^"_Q_"AR(0,5)"),"^cA102") G Y:K="-" S (SAL,VMSAL)=0,A=^(K,0) I $P(A,D,13) S R=19 D F2 G 2
21 S:$D(^(BJ)) SAL=+^(BJ) S:$D(^(BJ+.01)) VMSAL=+^(BJ+.01) S FP=723 W @F,BR,@F2 S FP=823 W @F,$P(A,D,2),@F2
25 S A=$P(A,D,11),FP=1063,R=SAL_D_15_D_D_QD W @F D R3 S:A="" A=BF I A=BF S FP=1201 W @F,@F2 G 3
26 I '$D(@("^"_Q_"BA(11,A)")) S K=$P($T(@("T3"_QT)),U,3)_A,R=76 D F2 G 2
27 S FP=1220 W @F,@F9,":",@F2 S FP=1260 W @F,@F9,":" S X=1,K=$T(@("T2"_QT)),FP=1202 W @F,@F6,$P(K,U,2),A,@F9
29 S HQD=+$P(^(A),D,7),FP=1243 W @F,@F6,$P(K,U,3),A,@F9 S FP=1263,R=VMSAL_"\15\\"_HQD W @F D R3
 ;
3 S R="S1\22\3\"_$P($T(@("T4"_QT)),U,2)_"\10\INCTR1" D R0 G 2:K="-"
31 S:K["-" S1=-K S:'S1 S1="" S S2="",FP=1023,R=S1_D_15_D_D_QD W @F D R3 G 4:A=BF
35 S R="S2\22\3\"_$P($T(@("T2"_QT)),U,2)_A_"\\10\INCTR2" D R0 G 3:K="-"
37 S:K["-" S2=-K S:'S2 S2="" S FP=1223,R=S2_"\15\\"_HQD W @F D R3
 ;
4 S R="S3\22\3\"_$P($T(@("T5"_QT)),U,2)_"\10\INCTR1" D R0 G 3:K="-"
41 S:K["-" S3=-K S:'S3 S3="" S S4="",FP=1063,R=S3_D_15_D_D_QD W @F D R3 G 49:A=BF
45 S R="S4\22\3\"_$P($T(@("T2"_QT)),U,3)_A_"\\10\INCTR2" D R0 G 4:K="-"
47 S:K["-" S4=-K S:'S4 S2="" S FP=1263,R=S2_"\15\\"_HQD W @F D R3
49 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\20" D R0 G 4:K="-" S:$L(K) OPM=K S FP=523 W @F,OPM,@F2
 ;
5 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,""[K" D R0 G 49:K="-",2:K=","
51 L @("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 5
53 S @%Q1=0,K=@("^"_Q_"AR(BR,0)") D S1:'$D(^(BJ)) S $P(^(BJ),D,1)=S3 S:$L(S4)!$D(^(BJ+.01)) $P(^(BJ+.01),D,1)=S4
54 L @("^"_Q_"FIB(BR)"):2 E  S R=14 D F2 G 54
55 S:'$D(@("^"_Q_"FIB(BR,0)")) @("^"_Q_"FIB(BR,0)")=1  S K=^(0),^(0)=K+1,^(K)=S3_D_S4_D_DT_D_TD_D_$I_D_OPM_D_S1_D_S2
59 S @%Q1=1,T=T+S1,FP=1524,R=T_D_14_D_D_QD W @F D R3 S T1=T1+S3-SAL,FP=1564,R=T1_D_14_D_D_QD W @F D R3 L  G 2
 ;
Y I T!T1 S R=26 D F2 G 2
YZ Q
 ;
INCTR1 ;K?.N!(K?.N1"-")!(K?.N1".".N&QD&($L(K#1)-1'>QD))!(K?.N1".".N1"-"&QD&($L(K#1)-1'>QD))
INCTR2 ;K?.N!(K?.N1"-")!(K?.N1".".N&HQD&($L(K#1)-1'>HQD))!(K?.N1".".N1"-"&HQD&($L(K#1)-1'>HQD))
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84