cT18 ;Saldi grootboekrekeningen begin boekjaar ;%T18 ; [ 01/03/01  6:35 PM ]
 G 1
 ;
T0 ;Saldi grootboekrekeningen begin boekjaar ;
T1 ;Opmerking\"-[] = einde programma   [] = "_OPM;
T2 ;Beginsaldo ... ;
T3 ;;Muntcode ;
T4 ;Beginsaldo\"xxxxxxxx[] = debet   xxxxxxx-[] = credit   [] = ";
T5 ;Beginsaldo vreemde munt\"[] = ";
T6 ;Saldo ok\"[] = ok    ,[] = hernemen";
T7 ;Nummer;Omschrijving;
 ;
T0F ;Soldes initiaux comptes généraux ;
T1F ;Remarque\"-[] = fin du programme   [] = "_OPM;
T2F ;Solde init ... ;
T3F ;;Code monétaire ;
T4F ;Solde initial\"xxxxxxxx[] = débit   xxxxxxx-[] = crédit   [] = ";
T5F ;Solde initial en monnaie étranger\"[] = ";
T6F ;Solde ok\"[] = ok   ,[] = reprendre";
T7F ;Numéro;Description;
 ;
T0E ;Initial general accounts balances ;
T1E ;Remark\"-[] = end program   [] = "_OPM;
T2E ;Initial balance ... ;
T3E ;;Currency ;
T4E ;Initial balance\"xxxxxxxx[] = debit   xxxxxxx-[] = credit   [] = ";
T5E ;Initial balance of foreign currency\"[] = ";
T6E ;Balance ok\"[] = ok   ,[] = retry";
T7E ;Number;Description;
 ;
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
 ;
 ; opzetten ontbrekende nodes
S1 S K=D,$P(K,D,23)=D,^(BJ)=K,^(BJ+.01)=K,^(BJ+.02)=K Q
 ;
 ; schermopbouw + init
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 D ^cT489 F FP=524,724,824,1024 W @F,@F9,":"
13 S OPM=$P($P($T(@("T4"_QT)),U,2),D)_" "_BJ,FP=502 W @F,@F6,$P($P($T(@("T1"_QT)),U,2),D),@F9 S FP=527 W @F,OPM
15 S K=$T(@("T7"_QT)),FP=702 W @F,@F6,$P(K,U,2),@F9 S FP=802 W @F,@F6,$P(K,U,3),@F9
19 S FP=1002 W @F,@F6,$P($T(@("T2"_QT)),U,2),$E(BF_" ...",1,6),@F9
 ;
 ; keuze rekening
2 F FP=727,827,1027,1227 W @F,@F2
21 S BR=$$^cANSYN("AR") G YZ:K="-" S (SAL,VMSAL)=0,A=^(K,0) I $P(A,D,13) S R=19 D F2 G 21
23 S:$D(^(BJ)) SAL=+^(BJ) S:$D(^(BJ+.01)) VMSAL=+^(BJ+.01) S FP=727 W @F,BR S FP=827 W @F,$P(A,D,2)
25 S A=$P(A,D,11),FP=1027,R=SAL_D_D_D_QD W @F,@F2 D R3 S:A="" A=BF I A=BF W @F1 G 3
27 I '$D(@("^"_Q_"BA(11,A)")) S K=$P($T(@("T3"_QT)),U,3)_A S R=76 D F2 G 21
29 S HQD=+$P(^(A),D,7),FP=1224 W @F,@F9 S R=VMSAL_"\\\"_HQD,FP=1202 W @F,@F6,$P($T(@("T2"_QT)),U,2),$E(A_" ...",1,6),@F9 S FP=1225 W @F,": " D R3
 ;
 ; nieuw beginsaldo
3 S R="S1\22\3\"_$P($T(@("T4"_QT)),U,2)_"_SAL\12\INCTR1" D R0 G 2:K="-"
31 S:K="" S1=SAL S:K["-" S1=-K S:'S1 S1="" S S2="",FP=1027,R=S1_D_D_D_QD W @F,@F2 D R3 G 4:A=BF!(A="")
35 S R="S2\22\3\"_$P($T(@("T5"_QT)),U,2)_"_VMSAL\12\INCTR2" D R0 G 3:K="-"
37 S:K="" S2=VMSAL S:K["-" S2=-K S:'S2 S2="" S FP=1227,R=S2_D_D_D_HQD W @F,@F2 D R3
 ;
 ; opmerking
4 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\20" D R0 G 3:K="-" S:$L(K) OPM=K S FP=527 W @F,OPM,@F2
 ;
 ; registratie
5 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,""[K" D R0 G 4: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)=S1 S:$L(S2)!$D(^(BJ+.01)) $P(^(BJ+.01),D)=S2
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)=S1_D_S2_D_DT_D_TD_D_$I_D_OPM L
59 S @%Q1=1 G 2
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
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))
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84