cT37	;FINANCIEEL VIA ^HULPF(HULPF) ;%T37 ;go naar %T370 ; [ 01/24/96  4:40 PM ]
	G 1
	;
T0	;Financieel via ^hulpf(hulpf) ;
T1	;Er ontbreken enkele variabelen ;
T2	;De reeks boekingen wordt niet doorgevoerd ;
T3	;Er is een saldo van ;
T4	;Rekening ;klant ;leverancier ;verwerkingscode ;
T5	; is een wisselrekening ; is een B.T.W.-rekening ; muntcode ; verschilt van ;
T6	; ongeldig bedrag ;'c' (credit) of 'd' (debet) ;'a', 'k' of 'l' ;niet opgegeven ;
T7	;Factuur ;ontbreekt ; reeds afgeboekt ; reeds gedeeltelijk afgeboekt ; staat nog open ;
T8	;is een financiële rekening ;is buiten gebruik of tekstrek. ;is niet toegelaten ;
	;
T0F	;Financier par ^hulpf(hulpf) ;
T1F	;Il me manquent quelques variables ;
T2F	;La série d'imputations est annulée ;
T3F	;Il reste un solde de ;
T4F	;Compte ;client ;fournisseur ;code de traitement ;
T5F	; est un compte de traite ; est un compte de T.V.A. ; parité ; différent de ;
T6F	; montant fautif ;'c' (credit) ou 'd' (debit) ;'a', 'k' ou 'l' ;ne pas specifié ;
T7F	;Facture ;manque ; déjà comptabilisée ; comptabilisée partiellement ; ne pas encore comptabilisée ;
T8F	;est un compte financier ;est hors usage ou est un compte de texte ;n'est pas permis ;
	;
T0E	;Financieel via ^hulpf(hulpf) ;
T1E	;Er ontbreken enkele variabelen ;
T2E	;De reeks boekingen wordt niet doorgevoerd ;
T3E	;Er is een saldo van ;
T4E	;Rekening ;klant ;leverancier ;verwerkingscode ;
T5E	; is een wisselrekening ; is een B.T.W.-rekening ; muntcode ; verschilt van ;
T6E	; ongeldig bedrag ;'c' (credit) of 'd' (debet) ;'a', 'k' of 'l' ;niet opgegeven ;
T7E	;Factuur ;ontbreekt ; reeds afgeboekt ; reeds gedeeltelijk afgeboekt ; staat nog open ;
T8E	;is een financiële rekening ;is buiten gebruik of tekstrek. ;is niet toegelaten ;
	;
1	S OK=0 G E1:'$D(HULPF),E1:'HULPF,E1:'$D(@("^"_Q_"BA(39)")) S RBF=$P(^(39),D) G E1:RBF="",E1:'$D(^HULPF(HULPF,0))
11	S (K,R)=$P(^(0),D) I @$P($T(DCTR),U,2,99) D D^cT163 G 15:OK
13	G EZ
15	D ^cT164 G EZ:'OK S R=^HULPF(HULPF,0) F R1=1:1:6 S @$P("RDAT;RUIT;RFIN;RSRT;RTB;RCD",U,R1)=$P(R,D,R1)
16	S RUIT=+RUIT,RFIN=$P(RFIN," "),RTB=+RTB
17	S (R,R1)=0 F R2=1:1 S R1=$O(^(R1)) Q:R1=""  S R=$P(^(R1),D,6)="D"*2-1*$P(^(R1),D,5)+R
19	I RFIN="D" S OK='R G E2:'OK S:RSRT RFIN=RFIN_RSRT S RAFK="DV",RFINS=RFIN D S1 G 3
	;
2	S:RCD="C" R=-R S OK='(R+RTB) G E2:'OK S RFINS=RFIN_" ",OK=$D(@("^"_Q_"AR(RFINS,0)")) I 'OK S K=2,R=RFIN G E3
21	S R=^(0) I VERBOT[(D_RFINS_D) S R=25 D F2 G EZ
22	I '$L($P(R,D,9)) S R=52 D F2 G EZ
23	S RAFK=$P(R,D,10) I '$L(RAFK) S R=253 D F2 G EZ
24	I $P(R,D,13) S R=200 D F2 G EZ
25	I $P(R,D,17) S K=$P($T(@("T4"_QT)),U,2)_RFIN_$P($T(@("T5"_QT)),U,2) D F1 G EZ
26	I $P(R,D,18) S K=$P($T(@("T4"_QT)),U,2)_RFIN_$P($T(@("T5"_QT)),U,3) D F1 G EZ
27	S R=$P(R,D,11) I $L(R),R'=RBF S K=$P($T(@("T4"_QT)),U,2)_RFIN_$P($T(@("T5"_QT)),U,4)_R_$P($T(@("T5"_QT)),U,5)_RBF D F1 G EZ
	;
3	S R=0 I '$D(BPE) S (BPE,BPEC)=""
31	S R=$O(^HULPF(HULPF,R)) G ^cT370:R="" S R0=^(R)
32	S RVW=$P(R0,D) I ";1;2;3;4;5;6;7;"'[(U_RVW_U) S K=5,R="" G E3
33	S R1=$P(R0,D,5) I R1<0!($L(R1#1)-1>QD) S K=99,R=2 G E4
34	S R1=$P(R0,D,6) I ";C;D;"'[(U_R1_U) S K=5,R=3 G E4
35	S R1=$P(R0,D,7) I ";A;K;L;"'[(U_R1_U) S K=5,R=4 G E4
36	S R2=$F("AKL",R1),R3=$P($T(@("T4"_QT)),U,R2),R2=$P(";AR;KL;LE",U,R2),R1=$P(R0,D,8) I '$L(R1) S R1=R3,K=99,R=5 G E4
37	I R2="AR" G 5
	;
4	I '$D(@("^"_Q_$E(R2)_"1(R1)")) S K=$S(R2="KL":3,1:4),R=R1 G E3
41	S R1=^(R1) I '$D(@("^"_Q_R2_"(R1,0)")) S K=$S(R2="KL":3,1:4),R=$P(R1," ",2) G E3
42	S RFNR=$P(R0,D,13) I RVW<6,RFNR'?6N S R=3 G E5
43	I RVW<4,'$D(^(RFNR)) S R=4 G E5
44	I RVW<4,$P(R0,D,5)>$P(^(RFNR),D,10) S R=5 G E5
45	I RVW>3,RVW<6,$D(^(RFNR)) S R=6 G E5
46	G 31
	;
5	S R1=$P(R1," ")_" " I '$D(@("^"_Q_R2_"(R1,0)")) S K=2,R=$P(R1," ") G E3
51	I VERBOT[(D_R1_D) S R=4 G E6
52	I $L($P(^(0),D,9))!$L($P(^(0),D,10)) S R=2 G E6
53	I $P(^(0),D,13) S R=3 G E6
54	S R2=$P(^(0),D,11) I $L(R2),R2'=RBF S K=R3_R1_$P($T(@("T5"_QT)),U,4)_R2_$P($T(@("T5"_QT)),U,5)_RBF D F1 G EZ
55	G 31
	;
YZ	G 5^cT370
	;
S1	S R="D"_$S(RSRT:$E(1000+RSRT,2,4),1:"") I $D(@("^"_Q_"BA(""%T"",R)")),$L($P(^(R),D,2)) S RAFK=$P(^(R),D,2)
S1Z	Q
	;
E1	S K=$P($T(@("T1"_QT)),U,2) D F1 G EZ
E2	S K=$P($T(@("T3"_QT)),U,2)_R_" "_RBF D F1 G EZ
E3	S RA=$P($T(@("T4"_QT)),U,K)_R,R=8 D F2 G EZ
E4	S K=R1_$P($T(@("T5"_QT)),U,K)_$P($T(@("T6"_QT)),U,R) D F1 G EZ
E5	S K=$P($T(@("T7"_QT)),U,2)_RFNR_$P($T(@("T7"_QT)),U,R) D F1 G EZ
E6	S K=R3_R1_$P($T(@("T8"_QT)),U,R) D F1 G EZ
EZ	S K=$P($T(@("T2"_QT)),U,2) D F1 S OK=0 G YZ
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R 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	; 19.03.07 - 15 u 31 * V8.08