database marmotech
screen size 24 by 80
{
Tipo Movimiento:[t ][t1                                       ]Doc. No.[f00   ]
\gp-------------------------------------------------------------------------q\g
\g|\gSuplidor:[p1]-[f01 ][a                          ] Orden de Compra:[f02 ] \g|\g
\gp-------------------------------------------------------------------------q\g
\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ] Bodega [d ]\g|\g
\gb-------------------------------------------------------------------------d\g
   Codigo      Unidades     Cantidad  Descripcion                       Und.
\gp---------------------------------------------------------------------------q\g
 [b         ][f06      ][f07        ][g                                 ][f08]
 [b         ][f06      ][f07        ][g                                 ][f08]
 [b         ][f06      ][f07        ][g                                 ][f08]
 [b         ][f06      ][f07        ][g                                 ][f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables

iptb00006,
cotb00001,
intb00001,
intb00005 
attributes
f00  = iptb00006.num_doc,       
      comments = 
"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
p1  = iptb00006.cod_sp,picture = "##",autonext,
      comments = "Digite el Codigo del Suplidor";
f01  = iptb00006.cod_sp_sec,picture = "####",
      comments = "Digite el Codigo del Suplidor";
f02  = iptb00006.orden_compra,  
      comments = "Digite el Numero de la Orden de Compras";
f03  = iptb00006.conduce_no,       
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = iptb00006.fact_no,       
      comments = "Digite el Numero de la Factura del Suplidor";
f05  = formonly.fecha type date,format = "dd/mm/yy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = iptb00006.cantidad_1,
      comments = "Digite la Cantidad Pedida ";
f07  = iptb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = intb00001.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = formonly.codigo,noentry; 
g    = formonly.descrip_esp,noentry;
i    = iptb00006.uso_tiempo,autonext;
d    = iptb00006.bodega,noentry;
t    = iptb00006.cod_mov,autonext,comments = 
      "Digite Codigo Movimiento de Entrada (01 - Local  02 - Exterior)",
      include = (34 to 35);
t1   = intb00005.descrip_mov,noentry;
  INSTRUCTIONS
    screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
                              unidad_med)
delimiters " "
end