database marmotech   
screen size 24 by 80
{
Orden No.      [f000  ] Tipo Orden[a0] Fecha[f001    ] Cierre [f]
Codigo Suplidor[f2][f003] [a1                                           ] 
Puerto  [pt][n1                              ]
\g------------------------------------------------------------------------------
Requis.  Codigo            Cantidad   ESB  Number      Precio        Valor
\g------------------------------------------------------------------------------
[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
Descripcion  [des                           ]                 Unidad [f8 ]
N.A.B.  [F9         ]        Nomenclatura [k                             ]
}
end
tables
cotb00005, cotb00006,
intb00001, cotb00008,
cotb00014, cotb00024,
cotb00001, cotb00015
attributes
f    = cotb00014.cierre,include=("S","N"),comments = 
       "Digite S O N Si la Orden se Cerrara o No",upshift;
re   = cotb00006.num_req;
a    = intb00001.cod_n,noentry; 
g    = intb00001.cod_grupo,noentry; 
t    = intb00001.cod_tipo,noentry; 
pt   = cotb00014.cod_pt;
n1   = formonly.nombre_p;
se   = intb00001.cod_sec,noentry; 
des  = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
k    = formonly.descrip1,noentry;    
f3   = cotb00008.cantidad,noentry;
f5   = cotb00015.num_parte;
f9   = cotb00005.cod_nab,noentry;
f6   = cotb00008.precio,noentry;
f7   = formonly.valor,noentry;
f000 = cotb00014.num_oc;
a0 = cotb00014.tipo,upshift,autonext,
     include = ("01","02","03","04"),
     comments ="01=Generales, 02=Rov-Ltd, 03=Locales, 04=Miscelaneas";
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",
       comments ="Digite la fecha de elaboracion de la orden";
f2 = cotb00014.cod_sp,autonext,
       comments = 
"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
f003 = cotb00014.cod_sp_sec,autonext,
     comments =
"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
a1   = cotb00001.nom_sp,noentry;
instructions
    screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad,num_parte,precio,valor)
end