database smarmotech   

screen size 24 by 80
{

\gp--------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000  ]   Orden de Compras  [ti][l     ]                \g|\g
\g|\gFecha            [f001    ]                                               \g|\g
\g|\gSuplidor         [p1][f013] [a1                            ] Bodega: [p2] \g|\g
\gb--------------------------------------------------------------------------d\g
                  C A N T I D A D
 Codigo          Devuelta   Ordenada     Unidad     D e s c r i p c i o n
\g------------------------------------------------------------------------------\g
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
[a][b][c ][d  ][f02        ][f03         ][p  ][k                             ] 
\g------------------------------------------------------------------------------\g

}
end
tables
intb00006,
intb00001,
cotb00001
attributes
f000 = intb00006.num_doc,autonext,
    comments = "Digite Numero Documento";
l    = intb00006.orden_compra,autonext,
    comments = "Digite El Numero De La Orden de Compras";
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
    comments = "Digite Fecha Documento";
p2   = intb00006.bodega,autonext;
p1   = intb00006.cod_sp,noentry; 
f013 = intb00006.cod_sp_sec,noentry;
ti   = intb00006.tipo,autonext,include = ("01","02","03","04"),comments =
"Digite tipo 01-Generales 02-Rov-Ltd.  03-Locales 04-Miscelanas";
a    = intb00006.cod_n,noentry;
b    = intb00006.cod_grupo,noentry;
c    = intb00006.cod_tipo,noentry;
d    = intb00006.cod_sec,noentry;
f02  = intb00006.cantidad_1,autonext,
    comments = "Digite La Cantidad Ordenada";
f03  = intb00006.cantidad_2,noentry; 
k    = intb00001.descrip_esp,noentry,autonext;
p    = intb00001.unidad_med,noentry,autonext;
a1   = cotb00001.nom_sp,noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                              cantidad_2,unidad_med,descrip_esp)
end