database smarmotech  
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
                         C A N T I D A D            Exceso  o
  Codigo             Ordenada        Recibida       Diferencia               
\gp---------------------------------------------------------------------------q\g
[b         ] [f06            ][f07           ][c             ]            
Descripcion: [g                             ]              Unidad: [f08]
[b         ] [f06            ][f07           ][c             ]            
Descripcion: [g                             ]              Unidad: [f08]
[b         ] [f06            ][f07           ][c             ]            
Descripcion: [g                             ]              Unidad: [f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables

intb00006,
cotb00001,
intb00001,
intb00005 
attributes
f00  = intb00006.num_doc,       
      comments = 
"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
p1  = intb00006.cod_sp,picture = "##",autonext,
      comments = "Digite el Codigo del Suplidor";
f01  = intb00006.cod_sp_sec,picture = "####",
      comments = "Digite el Codigo del Suplidor";
f02  = intb00006.orden_compra,  
      comments = "Digite el Numero de la Orden de Compras";
f03  = intb00006.conduce_no,       
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = intb00006.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  = intb00006.cantidad_1,
      comments = "Digite la Cantidad Pedida ";
f07  = intb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = intb00001.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = formonly.codigo,noentry; 
c    = formonly.diferencia, noentry; 
g    = intb00001.descrip_esp,noentry;
d    = intb00006.bodega,noentry;
t    = intb00006.cod_mov,autonext,
      comments = 
      "Digite Codigo Movimiento de Entrada (34 - Exterior 35 - Local )",
      include = (34 to 35);
t1   = intb00005.descrip_mov,noentry;
  INSTRUCTIONS
    screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
                              descrip_esp,unidad_med)
delimiters " "
end