cT279 ;OPENEN VOORSCHOT ;%T279 ;go naar %T277 ; [ 01/03/01  6:55 PM ]
 G 1
 ;
T0 ;Openen voorschot ;
T1 ;Voorschot ;BF;
T2 ;Het voorschot werd niet geopend   [] = ok ;
T3 ;De gekozen rekening 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 ;Le compte sélectionné est un compte de TVA   [] = ok ;
T4F ;Il y a 2 devises   [] = ok ;
T5F ;Les fichiers sont en usage ... un instant ;
 ;
T0E ;Creaton 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
 ;
1 K RX S:'$D(R) R="" F K=1:1:12,14 S R1=$C(82,64+K),@R1=$P(R,D,K)
11 S OK=RC I OK S OK=$D(@("^"_Q_RB_"(RC)")) I OK S OK=^(RC),OK=$D(@("^"_Q_RA_"(OK,0)"))
13 I 'OK S RA=$P(R,D,13)_" "_RC D TXT^cAFA1(8) G YZ
15 S (K,R)=RD,OK=0 I @$P($T(DCTR),U,2,99) D D^cT163 G 2:OK
17 G Y
 ;
2 S BF=$S($D(@("^"_Q_"BA(39)")):$P(^(39),D),1:"") I BF="" S BF=$P($T(@("T1"_QT)),U,3)
21 D ^cT164 I OK S RK=$P(RK," ")_" ",OK=RK'=" " I OK S OK=VERBOT'[(D_RK_D) I OK S OK=$D(@("^"_Q_"AR(RK,0)"))
23 G Y:'OK S R=^(0),OK=$L($P(R,D,9)) I 'OK S RX=RK,RK="D" S:+RN RK=RK_+RN G 26
24 S OK=$L($P(R,D,10)) I 'OK D TXT^cAFA1(253) G Y
25 S OK=$L($P(R,D,12)) I 'OK D TXT^cAFA1(53) G Y
26 S OK=$P(R,D,13)<1 I 'OK D TXT^cAFA1(200) G Y
27 S OK=$P(R,D,18)<1 I 'OK S FP=2402+F60 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5,@F2,@F0 R K G Y
28 S R=$P(R,D,11) I R'=BF S OK=$D(@("^"_Q_"BA(11,R)")) I 'OK D TXT^cAFA1(63) G Y
29 S:RF="" RF=BF I RF'=BF,RF'=R S OK=0,FP=2402+F60 W @F,@F4,$P($T(@("T4"_QT)),U,2),@F5,@F2,@F0 R K G Y
 ;
3 S I1=@("^"_Q_RB_"(RC)") S:'$D(R0) R0=""
31 S RLOCK="(^"_Q_RA_"(I1),^"_Q_"AR(RK),^"_Q_"BA(4,$P(RK,"" ""))" S:$L(R0) RLOCK=RLOCK_","_R0 S RLOCK=RLOCK_"):5"
33 S:$L(R0,"^")>2 R0="("_R0_")" S:$L(R0) R0=R0_":2" D S3,S2
 ;
4 S OK=0,HQD=2 G Y:'RE&'RI S:RF=BF RG=1,HQD=QD I 'RG S RG=$P(@("^"_Q_"BA(11,RF)"),D,6)/$P(^(RF),D,3),HQD=+$P(^(RF),D,7)
41 S:'RE&RG RE=$J(RI/RG,0,HQD) S:'RI RI=$J(RE*RG,0,QD)
 ;
5 G ^cT277
 ;
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
 ;
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K)
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84