cT852	;Fin & div: beheer boekingsreeksen ;%T80 ; [ 01/03/01  1:54 PM ]
	G 1
	;
T0	;Importeren ;
T1	;Foutieve recordbeschrijving ;
T2	;Foutenlijst;
T3	;Lijn\ Omschrijving\ Inhoud;
T4	; Grootboekrekening; Analytische rekening; Project;
	;
T0F	;Importer ;
T1F	;Erreur dans description des records ;
T2F	;Liste des erreurs;
T3F	;Ligne\ Description\ Contenu;
T4F	; Compte de grand-livre; Compte analytique; Projet;
	;
T0E	;Import ;
T1E	;Incorrect description of record ;
T2E	;Error report;
T3E	;Line\ Description\ Contents;
T4E	; General account; Analytical account; Project;
	;
	; verwerken bestand
1	K ^HULP(boot,$J)
11	S FORM(1)=$$SIGN^cAFA1("FORM",FORM,0),FORM(2)=$G(^(1))
13	S VL=$P(FORM(1),D,3),VS=$P(FORM(1),D,4) I 'VL S VS=$$S1(VS)
15	S TVG=0 I $L($P(FORM(1),D,8)) S TVG=$O(^HULP("RC",Q,TNR,TVG))
17	I $L(TVG),$L($P(FORM(1),D,9)) S TVG=$O(^(TVG))
19	I $L(TVG),$L($P(FORM(2),D)) S TVG=$O(^(TVG))
	;
	; volgende record
2	I $L(TVG) S TVG=$O(^HULP("RC",Q,TNR,TVG))
21	I TVG="" G 9:$D(^HULP(boot,$J)),Y
23	S REC=^(TVG)
25	S UI1="",UI1=$O(@UREF,-1)+1
	;
	; alle velden per record
3	S B(1)="\\\\",REC4=0
31	S REC4=$O(^DATA(0,"FIA.REC",REC3,REC4)) I REC4="" G 88
33	S REC2=^(REC4),K=+REC2
35	I 'VL,'$P(REC2,D,2)!'$L(VS) G 39
36	I VL,'$P(REC2,D,3)!'$P(REC2,D,4) G 39
37	G 8:K=5,7:K=4,6:K=3,5:K=2,4:K=1
39	S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G Y
	;
	; grootboekrekening
4	I VL S K=$P($E(REC,$P(REC2,D,3),$P(REC2,D,4))," ")_" "
41	I 'VL S K=$P($P(REC,VS,$P(REC2,D,2))," ")_" "
43	I VERBOT[(D_K_D) S ^HULP(boot,$J,UI1,1,K)=""
45	I '$D(@("^"_Q_"AR(K,0)")) S ^HULP(boot,$J,UI1,1,K)="" G 49
47	I $P(^(0),D,13)!$P(^(0),D,30)!$L($P(^(0),D,10)) S ^HULP(boot,$J,UI1,1,K)=""
49	S $P(B(1),D)=K G 31
	;
	; bedrag
5	I VL S K=$E(REC,$P(REC2,D,3),$P(REC2,D,4))
51	I 'VL S K=$P(REC,VS,$P(REC2,D,2))
53	S K=$TR(K,", ",".") I K<0 S K=-K_"-"         ; "-" teken achteraan
55	I K["-" S K=$J(K/$P(REC2,D,5),0,DEC)_"-"     ; geen leidende nullen
57	E  S K=$J(K/$P(REC2,D,5),0,DEC)              ; toepassen deelfactor
59	S $P(B(1),D,2)=K G 31
	;
	; teken
6	I VL S K=$E(REC,$P(REC2,D,3),$P(REC2,D,4))
61	I 'VL S K=$P(REC,VS,$P(REC2,D,2))
63	I $P(REC2,D,6)=0 G 31
64	I $P(REC2,D,6)=1 G 31:K="D",67:K="C" K ^HULP(boot,$J,UI1) G 2
65	I $P(REC2,D,6)=2 G 31:K=" ",67:K="-" K ^HULP(boot,$J,UI1) G 2
66	I $P(REC2,D,6)=3 G 31:K="+",67:K="-" K ^HULP(boot,$J,UI1) G 2
67	S K=$P(B(1),D,2)_"-"
69	S $P(B(1),D,2)=K G 31
	;
	; analytische rekening
7	I 'SWAN S K="" G 79
71	I VL S K=$P($E(REC,$P(REC2,D,3),$P(REC2,D,4))," ")_" "
73	I 'VL S K=$P($P(REC,VS,$P(REC2,D,2))," ")_" "
75	I '$D(@("^"_Q_"ARA(K,0)")) S ^HULP(boot,$J,UI1,4,K)="" G 79
77	I $P(^(0),D,13)!$P(^(0),D,30) S ^HULP(boot,$J,UI1,4,K)=""
79	S $P(B(1),D,4)=K G 31
	;
	; Project
8	I '$$PROJ^cT48H(Q) S UI1PROJ="" G 87
	I VL S K=$E(REC,$P(REC2,D,4),$P(REC2,D,5))
	I 'VL S K=$P(REC,VS,$P(REC2,D,2))
	I K="" S UI1PROJ="" G 87
	S UI1PROJ=$$UI1^cAFA1("PROJ",101,K)
	I UI1PROJ="" S ^HULP(boot,$J,UI1,5,K)="" G 87
	I $$SIG^cAFA1("PROJ",UI1PROJ,130) S ^HULP(boot,$J,UI1,5,K)=""
87	S $P(B(1),D,5)=UI1PROJ G 31
	;
	; wegschrijven
88	D DET^cT850 S NUI1=UI1 W /CUP(15,3),UI1,@F1
89	G 2
	;
	; foutenlijst
9	D ^cAN3223($P($T(@("T2"_QT)),U,2),"1","","")
91	S HD(1)=D,HD(2)=D_$P($T(@("T2"_QT)),U,2)_";C",HD(3)=D
93	S TAB="6\70\79",TIT(1)=$P($T(@("T3"_QT)),U,2,99)
95	S UI1="" F  S UI1=$O(^HULP(boot,$J,UI1)) Q:UI1=""  D
	. S I="" F  S I=$O(^HULP(boot,$J,UI1,I)) Q:I=""  D
	.. S J="" F  S J=$O(^HULP(boot,$J,UI1,I,J)) Q:J=""  D
	... S TXT(1)=UI1_D_1,TXT(3)=" "_J
	... S TXT(2)=$P($T(@("T4"_QT)),U,$S(I=1:2,I=4:3,1:4)) D ^cA334
97	S END=1 D ^cA334 K ^HULP(boot,$J)
	;
Y	K B,REC,REC0,REC2,REC3,REC4,TNR,TVG,FORM,VL,VS
YA	D TOP^cT850 S REFTOP=1
YZ	G YZ^cT851 Q
	;
	; omzetten separator
S1(S1)	N S2,S3,S4
S1A	S S2="" F S3=1:1:$L(S1) S S4=$E(S1,S3,S3+1) S:S4="^/" S4=$C(28) S:$E(S4)="^" S4=$C($A($E(S4,2))-64),S3=S3+1 S S2=S2_$E(S4)
S1Z	Q S2
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08