cT642	;Inkomende documenten ;%T64 ;%T64* ; [ 01/11/01  3:39 PM ]
	G 1
	;
T0	;Inschrijven inkomende documenten ;
T1	;A[] = annulatie document;xx-[] = verwijderen lijn;
T2	;R[] = registratie document;D[] = detail ventilaties;H[] = uitsplitsing;
T3	;[] = ingave rekening;[] = ingave KOS-code;+[] = vervolg;
T4	;De kostenrekening;KOS-code;
	;
T0F	;Encodage des documents d'entrée ;
T1F	;A[] = annulation document;xx-[] = annulation ligne;
T2F	;R[] = enregistrement doc.;D[] = détail ventilations;H[] = répartition;
T3F	;[] = sélection compte;[] = sélection code KOS;+[] = suite;
T4F	;Compte de frais;Code kos;
	;
T0E	;Registration of incoming documents ;
T1E	;A[] = cancel document;xx-[] = remove line;
T2E	;R[] = document registration;D[] = ventilations detail;H[] = categor.
T3E	;[] = input account;[] = input KOS code;+[] = next;
T4E	;The costs account;KOS code;
	;
T0D	;Codierung der Eingangsbelege ;
T1D	;A[] = Dokument annulieren;xx-[] = Zeile annulieren;
T2D	;R[] = Dokument registrieren;D[] = Detail Aufteilung;H[] = Aufteilung;
T3D	;[] = Kontenauswahl;[] = ingave KOS-code;+[] = vervolg;
T4D	;De kostenrekening;KOS-code;
	;
S1	S R="BR\2100\"_$P($T(@("T4"_QT)),U,2)_"\AR\R1" D @$G(@("^"_Q_"AR(0,5)"),"^cA217") G S1Z:K="-"!(K=",") D ^cT6421,^cT6422:$L(BR) G S1:'$L(BR)
S1A	S KK=$P(@("^"_Q_"AR(BR,0)"),D,22)_" " I $L(KK)>1,$D(@("^"_Q_"BA(""%F"",22,KK)")) S STR=^(KK) D ^cT6423
S1Z	S (BR,BRA)="" K KK Q
	;
S2	S R="KK\2100\"_$P($T(@("T4"_QT)),U,3)_"\BA\3\1;;6;28",R(1)="""%F""",R(2)=22 D ^cA115 G S2Z:K="-"!(K=",")
S2A	S STR=@("^"_Q_"BA(""%F"",22,K)"),BR=$P(STR,D,2) D ^cT6421,^cT6422:$L(BR) G S2:'$L(BR) D ^cT6423
S2Z	S (BR,BRA)="" K KK Q
	;
1	S TUS=NETG+NETD+NETI+NETA+NABTW,LN=0,LX=15 K A,^HULP(boot,$J)
11	S FP=515 W @F,$P(@Q91,D) S FP=1501 W @F,@F1 S (MAN,LD)=0 D S3^cT6422,^cT6420 S MAN=1
13	S TB=0 F R=1:1:3 F R0=2,3 S R1=$L($P($T(@("T"_R_QT)),U,R0))+3 I R1>TB S TB=R1
	;
2	S R="K\22\3\"_$E($P($T(@("T1"_QT)),U,2)_$J("",TB),1,TB)_$P($T(@("T1"_QT)),U,3)_"\C1\3\INCTR\\\\1" D R0 G ^cT640:K="A",4:K="D"!(K="+"),5:K="H",6:K="R"
21	I K="" D S1:$P(EXBA,D,2)<2,S2:$P(EXBA,D,2)=2 G 2
23	I K="." D S2:$P(EXBA,D,2)=1,S1:$P(EXBA,D,2)=2 G 2
	;         
3	S K=+K I '$D(^HULP(boot,$J,0,K)) S R=216 D F2 G 2
31	S (R0,R1)=0 F R=15:1:20 I $D(A(R)) S:'R1 R1=A(R) I A(R)=K S R0=1 Q
33	I 'R0 S R=219 D F2 G 2
35	S BE=$P(^(K),S,4)
37	K ^HULP(boot,$J,0,K) S R=$O(^(K)) I R'="" M ^(K)=^(R),K=R G 37
39	S LD=R1-1,K="+",LN=LN-1,TUS=TUS+BE D S3^cT6422
	;
4	S LX=15,FP=1501 W @F,@F1 K A I K="D" S LD=0
41	S LD=$O(^HULP(boot,$J,0,LD)) I LD'="" S A(LX)=LD D S2^cT6422 I LX<20 S LX=LX+1 G 41
43	S:LD="" LD=0 I LD,'$L($O(^HULP(boot,$J,0,LD))) S LD=0
45	G 2
	;
5	D ^cT6424 S K="D" G 4
	;
6	I TUS S R=26 D F2 G 2
	;
YZ	G ^cT643
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
C1	W /WWR(1),!?2,$E($P($T(@("T2"_QT)),U,2)_$J("",TB+2),1,TB+2),$E($P($T(@("T2"_QT)),U,3)_$J("",TB),1,TB),$P($T(@("T2"_QT)),U,4)
C1A	W !?3,$E($P($T(@("T3"_QT)),U,$S($P(EXBA,D,2)=2:3,1:2))_$J("",TB+1),1,TB+1) I $P(EXBA,D,2) W $E("."_$P($T(@("T3"_QT)),U,4-$P(EXBA,D,2))_$J("",TB),1,TB)
C1B	I LD W $P($T(@("T3"_QT)),U,4)
C1Z	Q
	;
INCTR	;"ADHR"[K!(K="."&+$P(EXBA,D,2))!(K="+"&LD)!(K?1.2N1"-")
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8