cT279	;OPENEN VOORSCHOT ;%T279 ;go naar %T277 ; [ 09/03/2001  10:08 AM ]
	G 1
	;
T0	;Openen voorschot ;
T1	;Voorschot;
T2	;Het voorschot werd niet geopend ;
T3	;De gekozen rekening is een BTW-rekening ;
T4	;Er zijn 2 vreemde munten ;
T5	;De bestanden zijn in gebruik ... even geduld ;
	;
T0F	;Création acompte ;
T1F	;Acompte ;
T2F	;L'acompte n'a pas été créé ;
T3F	;Le compte sélectionné est un compte de TVA ;
T4F	;Il y a 2 devises ;
T5F	;Les fichiers sont en usage ... un instant ;
	;
T0E	;Creaton of advance ;
T1E	;Advance ;
T2E	;The advance has not been created ;
T3E	;This is a VAT account ;
T4E	;There are 2 foreign currencies ;
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
	;
	; initialisatie
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,R=8 D F2 G YZ   ; KL of LE onbekend
15	S (K,R)=RD,OK=0 I K,$$DCTR^cAFI1(K) D D^cT163 G 2:OK
17	G Y
	;
	; diverse testen
2	S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2)    ; munt+dec boekh.
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 S R=253 D F2 G Y
25	S OK=$L($P(R,D,12)) I 'OK S R=53 D F2 G Y
26	S OK=$P(R,D,13)<1 I 'OK S R=200 D F2 G Y
27	S OK=$P(R,D,18)<1 I 'OK S K=$P($T(@("T3"_QT)),U,2) D F1 G Y
28	S R=$P(R,D,11) I R'=BF S OK=$D(@("^"_Q_"BA(11,R)")) I 'OK S R=63 D F2 G Y
29	S:RF="" RF=BF I RF'=BF,RF'=R,RF'="EUR" S OK=0,K=$P($T(@("T4"_QT)),U,2) D F1 G Y
	;
	; locken
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=$$OMREK^cAFE1(Q,1,RF,BF,"F",99),HQD=$$DEC^cAFA1(RF)
41	S:'RE&RG RE=$J(RI/RG,0,HQD) S:'RI RI=$J(RE*RG,0,QD)
	;
	; transactie
5	S R="TRANSACT" D ^cA348
	S ^HULPE(TRANSACT,0)=$T(+0)_D_Q_"\F\"_RN_D_RJ_D_BJ_D_BP_"\\\"_DT_D_RK_D
	G ^cT277
	;
Y	S K=$P($T(@("T2"_QT)),U,2) D F1
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
	S QD=$$DEC^cAFA1("") Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 25.09.01 - 11 u 01 * V7.88