{
-------------------------------------------------------------------------
NOMBRE          : lqfmwd001
OBJETIVO        : Consulta de los departamentos de la empresa           
DISENO          : Ing. Juan F.Soto
FECHA REALIZADO : Septiembre 28, 1993.
MODULO UTILIZA  : cgprmt001
--------------------------------------------------------------------------
}
 database smarmotech
 screen
{ 
   Busca Reportes de Entradas
 \g---------------------------\g
    No. Documento    Fecha  
 \g--------------------------\g
    [de   ]     [n        ]
    [de   ]     [n        ]
    [de   ]     [n        ]
    [de   ]     [n        ]
    [de   ]     [n        ]
}
end
tables
intb00006
attributes

de = intb00006.num_doc,noentry;
n  = intb00006.fecha,format = "dd/mm/yy",noentry;

instructions
 screen record s_datos[5](num_doc,fecha)   
  delimiters " "
end