cT814 ;Fin & div: voorschot ;%T80 ; [ 01/04/01  2:04 PM ]
 G 1
 ;
T0 ;Fin & div: voorschot ;
T1 ;Voorschot;
T2 ;Bedrag in ;\"xxxxxxx[] = bedrag   [] = ;
T3 ;Referentie\"[] = nummer voorschot";
T4 ;Omschrijving\",[] = hernemen boeking";
T5 ;Muntcode ;
 ;
T0F ;Fin & div: acompte ;
T1F ;Acompte;
T2F ;Montant en ;\"xxxxxxx[] = montant   [] = ;
T3F ;Référence\"[] = numéro d'acompte";
T4F ;Description\",[] = reprendre mouvement";
T5F ;Parité ;
 ;
T0E ;Financial & miscellaneous transactions: advance ;
T1E ;Advance;
T2E ;Amount in ;\"xxxxxxx[] = amount   [] = ;
T3E ;Reference\"[] = number advance";
T4E ;Description\",[] = retry registration";
T5E ;Currency ;
 ;
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC S S1="B"_RB_"#"_BNR_D
S1C S HIS=1
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z S (BC(0),BC(1))=0 Q
 ;
 ; initialisatie & nummer
1 K S4 S S5="C",S2=DAT,S3=DAT,FNR=990000,K=$D(@Q3),VM=$P(^(I1,0),D,11),(EMU,OB,HOB,OBF)=0 S:VM="" VM=BF
11 I '$D(@("^"_Q_"BA(11,VM)")) S K=$P($T(@("T5"_QT)),U,2)_VM,RT=76 D F2 G YZ
13 S VM(VM)=$P(^(VM),D),QA=+$P(^(VM),D,7),PARF=$$CNVC^cAFE1(Q,BJ,1,VM,"F",99) I BP>1999 S EMU=$P(^(VM),D,12)
15 S:VM(VM)=VM(BF) QA=QD,PARF=1 S:VM(VM)=VM(HBF) QA=HQD,PARF=PAR S K=$D(@Q3),K=$D(^(I1,0))
17 S FNR=FNR+1 G 17:$D(^(FNR)) I $D(@Q6) S K=$D(@Q3),K=^(I1,0) G 17
19 G YZ:FNR'?6N S S1=0 S FP=2103 W @F,$P($T(@("T1"_QT)),U,2)," : ",FNR,@F1
 ;
 ; bedragen
2 S K=$T(@("T2"_QT)),DEC=HQD,A=$TR($FN(K1="K"*2-1*HUX,"T",DEC)," "),R="HBE\22\3\"_$P(K,U,2)_HBF_$P(K,U,3)_A_"""\11\DEC" D R0 G YZ:K="-"!(K=",")
21 S:K="" HBE=A S:HBE["-" HBE=-HBE S (BE,BEF)=HBE,FP=2203 W @F,$P($T(@("T2"_QT)),U,2),HBF," : ",@F1,$$IP^cAFA1(HBE,DEC,0) I VM(VM)=VM(HBF) G 27:VMSW,3
23 S K="",DEC=QA,A=$TR($FN(HBE*PAR/PARF,"T",DEC)," ")
24 I 'EMU S K=$T(@("T2"_QT)),R="BEF\23\3\"_$P(K,U,2)_VM_$P(K,U,3)_A_"""\11\DEC" D R0 G 2:K="-"!(K=",")
25 S:K="" BEF=A S:BEF["-" BEF=-BEF S FP=2233+F60 W @F,VM," : ",$$IP^cAFA1(BEF,DEC,0),@F2 G 3:'VMSW S BE=BEF G 3:VM(VM)=VM(BF)
27 S K=$T(@("T2"_QT)),DEC=QD,A=$TR($FN(HBE*PAR,"T",DEC)," "),R="BE\23\3\"_$P(K,U,2)_BF_$P(K,U,3)_A_"""\11\DEC" D R0 G 2:K="-"!(K=",")
29 S:K="" BE=A S:BE["-" BE=-BE S FP=2133+F60 W @F,BF," : ",$$IP^cAFA1(BE,DEC,0),@F2
 ;
 ; referte & omschrijving
3 S R="OM\23\3\"_$P($T(@("T3"_QT)),U,2)_"\15" D R0 G 2:K="-"!(K=",") S:K="" OM=$P($T(@("T1"_QT)),U,2)_FNR
31 S FP=2252 W @F,$P($P($T(@("T3"_QT)),U,2),D)," : ",OM,@F2 S (S15,S16,S17)=""
33 S R="OM1\23\3\"_$P($T(@("T4"_QT)),U,2)_"\50" D R0 G 2:K=",",3:K="-"
35 I $L($P(BA86,D,7)),$L($P(BA86,D,8)),@$P(BA86,D,8) D @$P(BA86,D,7)
 ;
 ; registratie (gemeenschappelijk met %T815)
4 S BNR=@Q93,@Q93=BNR+1,CO=$E("CDDC",BE<0*2+(K1="L")+1) G 4:$D(@Q95) S:S5="F" CO=$E("DC",K1="L"+1)
41 X:$D(KAS) KAS S X=BE S:X<0 X=-X S BC(CO="C")=X,K=$D(@Q3),K=^(I1,0) D S1
43 S:'$D(S4)!(VM'=BF) S4=BEF S ^(FNR)=S5_D_S2_D_S3_D_S4_D_BEF_D_D_OM_D_D_VM_D_$$BEDR^cAFE1(Q,BE,BF,$P(MNTO,D),"F")_"\\\\\"_S15_D_S16_D_S17_D
45 S:BE<0 BE=-BE,HBE=-HBE,BEF=-BEF S S1=(K1="L"*2+(CO="C")),T(S1)=T(S1)+BE S:CO="D" HUX=HUX+HBE,UX=UX+BE S:CO="C" HUX=HUX-HBE,UX=UX-BE
47 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_K1_D_KC_"#"_KN_D_OM_D_BPE_D_HBE_D_D_FNR_D_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_VM_D_BEF_D_PARF_D
49 S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K I FNR<990000 S @Q6=KC_D_SBP
 ;
5 D S6^cT809
 ;
YZ K S2,S3,S4,S5,S6,S7,S15,S16,S17,SBP Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
DEC ;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&DEC&($L(K#1)-1'>DEC))!(K?.N1"."1.N1"-"&DEC&($L(K#1)-1'>DEC))!("-,"[K)
 ;
F1 S RT=250
F2 D TXT^cAFA1(RT)
FZ K RT Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84