cT6411 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  2:32 PM ]
 ;
 ; input  : R="outputvar\beginlijn*100"
 ; intern : R-variabelen
 ; output : outputvar.
 ;
T0 ;Raadplegen factuurnr. lev. ;
 ;
T0F ;Consultation n° fact. fourn. ;
 ;
T0E ;Consultation of voucher number sup. ;
 ;
1 D ^cAN106("K",16,0,"TOA") G YZ:K="-"
11 S LREF=K,K=^(K)
 ;
YZ S @$P(R,D)=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84