cT6400 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  7:40 PM ]
 G 1
 ;
T0 ;Inschrijven inkomende documenten ;
T1 ;Datum van ontvangst\"dd.mm.jj[] = bepaalde datum";
T2 ;Deze datum komt voor de factuurdatum ;
T3 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum;   (volgens datum van ontvangst ;
 ;
T0F ;Encodage documents d'entrée ;
T1F ;Date de réception\"jj.mm.aa[] = date spécifique";
T2F ;Date de réception est antérieure à la date du document;
T3F ;Date d'échéance\"jj.mm.aa[] = date spécifique;   (suivant date de réception ;
 ;
T0E ;Registration of incoming documents ;
T1E ;Date of receipt\"dd.mm.yy[] = particular date";
T2E ;This date antedates the document date;
T3E ;Due date\"dd.mm.yy[] = particular date;   (according to date of receipt ;
 ;
1 G 2:K="-" S R=DVO_D_FDT D ^cA326 I R<0 S DVO=FDT       
11 S KR=DVO,R="KR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\8\DCTR\$L(K)\\\\\1" D R0 G YZ:K="-"!(K=",") S:K DVO=K S FP=604 W @F,DVO
13 S R=DVO_D_FDT D ^cA326 I R<0 S K=$P($T(@("T2"_QT)),U,2) D F1 S DVO=FDT G 11
 ;
2 S R=FDT_D_CBT D ^cA104 S VVD=R
21 S R=DVO_D_CBT D ^cA104 I R'=VVD S VVD=VVD_D_R G 3
23 S KR=VVD,R="KR\22\3\"_$P($T(@("T3"_QT)),U,2)_"""\8\DCTR\$L(K)\\\\\1" D R0 G 11:K="-",YZ:K=",",31
 ;
3 S KR=$P(VVD,D),R="KR\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T3"_QT)),U,3)_$P(VVD,D,2)_")""\8\DCTR\$L(K)\\\\\1" D R0 G 11:K="-",YZ:K=","
31 S:K VVD=K
33 S R=VVD_D_FDT D ^cA326 I R<0 S R=136 D F2 G 2
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84