cT277 ;OPENEN VOORSCHOT ;%T279 ;go uit %T279 ; [ 01/03/01  6:54 PM ]
 G 5
 ;
T0 ;Openen voorschot ;
T1 ;Voorschot ;BF;
T2 ;Het voorschot werd niet geopend   [] = ok ;
T3 ;Dit is een BTW-rekening   [] = ok ;
T4 ;Er zijn 2 vreemde munten   [] = ok ;
T5 ;De bestanden zijn in gebruik ... even geduld ;
 ;
T0F ;Création acompte ;
T1F ;Acompte ;FB;
T2F ;L'acompte n'a pas été créé   [] = ok ;
T3F ;Ceci est un compte de TVA   [] = ok ;
T4F ;Il y a 2 devises   [] = ok ;
T5F ;Les fichiers sont en usage ... un instant ;
 ;
T0E ;Creation of advance ;
T1E ;Advance ;BF;
T2E ;The advance has not been created   [] = ok ;
T3E ;This is a VAT account   [] = ok ;
T4E ;There are 2 foreign currencies   [] = ok ;
T5E ;The files are in use ... one moment ;
 ;
S4 S FP=2402+F60 W @F,@F4,$P($T(@("T5"_QT)),U,2),@F5,@F2 Q
 ;
S3 I $L(R0) L @R0 E  D S4 W @F,@F1 G S3
S3A I '$L(R0) L
S3Z Q
 ;
S2 L @RLOCK E  D S4,S3,S4 H 2 W @F,@F1 G S2
S2Z Q
 ;
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 $D(BC(X)),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 I HIS S S1="B"_R_"#"_BNR_D G S1D
S1C S S1=BH_"B"_R,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=RJ_D_RD_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
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 K S1,S2 S (BC(0),BC(1))=0 Q
 ;
5 S X=$P(RD,".",3),R=$P(RK," ") S:X<50 X=X+100 S X=X+1900 G 53:RJ S R1=$S($D(@("^"_Q_"BA(4,R)"))#2:+^(R),1:1),RJ=$S($D(^(R,X)):+^(X),1:1)
51 S:RJ<R1 RJ=R1 S RJ=RJ+1,$P(@("^"_Q_"BA(4,R)"),D)=RJ,$P(^(R,X),D)=RJ
53 S R1=X_$P(RD,".",2)_$P(RD,"."),BNR=$S($D(@("^"_Q_"BA(4,R,R1)")):^(R1),1:R1_"0001")
55 S @("^"_Q_"BA(4,R,R1)")=BNR+1 I $D(@("^"_Q_"FI(BP,R,BNR)")) S BNR=BNR+1 G 55
57 I $D(RX),$E(RK)="D" S RK=RX
 ;
6 S:'$D(BPE) (BPE,BPEC)="" S CREDEB=$E("CDDC",RI<0*2+($E(RB)="L")+1),@%Q1=0
61 S X=RI S:X<0 X=-X S BC(CREDEB="C")=X,X=$O(@("^"_Q_RA_"(I1,0)")),HIS=1 D S1 F FNR=990001:1 Q:'$D(^(FNR))
63 S:RH="" RH=$P($T(@("T1"_QT)),U,2)_FNR S ^(FNR)="C\"_RD_D_RD_D_RE_D_RE_D_D_RH_D_D_RF_D_RI_D_D_D_D_D
65 S:RI<0 RI=-RI,RE=-RE S X=($E(RB)="L"*2+(CREDEB="C")),R(X)=RI
67 S X=D_RD_D_RJ_D_$S($D(RX):"DV",1:$P(@("^"_Q_"AR(RK,0)"),D,10))_D_RI_D_CREDEB_D_$E(RB)_D_RC_"#"_$P(@("^"_Q_RA_"(I1,0)"),D,2)_D
69 S @("^"_Q_"FI(BP,R,BNR)")=X_RH_D_BPE_D_RE_D_D_FNR_D_RN_D_RL_D
 ;
7 I '$D(RX) S BC(CREDEB="D")=RI,X=$O(@("^"_Q_"AR(RK,0)")),HIS=0 D S1
71 I $D(R(0)) S X=$P(VERBOT,D,2),BC(0)=R(0)
73 I $D(R(1)) S X=$P(VERBOT,D,2),BC(1)=R(1)
75 I $D(R(2)) S X=$P(VERBOT,D,4),BC(0)=R(2)
77 I $D(R(3)) S X=$P(VERBOT,D,4),BC(1)=R(3)
79 S X=$O(@("^"_Q_"AR(X,0)")),HIS=0 D S1
 ;
8 G 87:'$D(RX) S BNR=@("^"_Q_"BA(4,R,R1)"),CREDEB=$S(CREDEB="C":"D",1:"C")
81 S @("^"_Q_"BA(4,R,R1)")=BNR+1 I $D(@("^"_Q_"FI(BP,R,BNR)")) S BNR=BNR+1 G 81
83 S BC(CREDEB="C")=RI,X=$O(@("^"_Q_"AR(RK,0)")),HIS=$P(^(0),D,3) D S1
85 S @("^"_Q_"FI(BP,R,BNR)")=D_RD_D_RJ_"\DV\"_RI_D_CREDEB_"\A\"_$P(RK," ")_"#"_$P(@("^"_Q_"AR(RK,0)"),D,2)_D_RH_D_BPE_D_RE_D_D_D_RN_D_RL_D
87 S @%Q1=1,OK=1 D S3 G YZ
 ;
Y S FP=2402+F60 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F2,@F0 R K
YZ K R,RA,RB,RC,RD,RE,RF,RG,RH,RI,RJ,RK,RL,RN,RX,R0,R1,RLOCK,BF,BNR,I1,VERBOT,X,CREDEB,HIS,BC,S1,S2 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84