cT6410	;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  7:52 PM ]
	G 1
	;
T0	;Inschrijven inkomende documenten ;
T1	;.[] = opzoeken   ;A[] = via aankoopadministratie;
	;
T0F	;Encodage documents d'entrée ;
T1F	;.[] = rechercher   ;A[] = par administration d'achat;
	;
T0E	;Registration of incoming documents ;
T1E	;.[] = look up   ;A[] = via purchase administration;
	;
T0D	;Inschrijven inkomende documenten ;
T1D	;.[] = aufsuchen   ;A[] = via Einkaufsadministration;
	;
1	S (LREF,RR5)="",RR5=$L($O(@("^"_QAK_"TOA(KCAK,RR5)")))
11	S (LREF6,RR6)="",RR6=$L($O(@("^"_QAK_"TOA6(KCAK,RR6)")))
13	I RR5&'RR6 S $P(R,D,5)=""""_$P($T(@("T1"_QT)),U,2)_""""
15	I RR5&RR6 S $P(R,D,5)=""""_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,3)_""""
17	I 'RR5&RR6 S $P(R,D,5)=""""_$P($T(@("T1"_QT)),U,3)_""""
19	S RR=R
	;
2	S R=RR D R0
21	I RR5,K="." S R=$P(RR,D)_D_2000 D ^cT6411 I K="-"!(K=",") G 2
23	I RR6,K="a"!(K="A") S K=$$^cANSYN("TOA6") G 2:K="-"!(K=",") S LREF6=K,K=$O(^(K,"")),@$P(RR,D)=$P(^(K),D,8)
25	S @$P(RR,D)=$E(@$P(RR,D),1,$P(RR,D,6)),K=@$P(RR,D) K RR
	;
YZ	K RR5,RR6 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8