database marmotech         
screen size 24 by 80
{
 Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
\gp-------------------------------------------------------------------------q\g
\g|\gFecha [f05     ] Orden Compra:[a1][f02   ]                               \g|\g
\g|\gSuplidor:[p1]-[f01 ][a                             ]                     \g|\g
\g|\gFactura No.[f04       ]  Conduce No. :[f03        ]                      \g|\g
\g|\gLocalidad      [f8  ] [p5                            ]                   \g|\g
\g|\gDepartamento a [f9  ] [p3                            ]                   \g|\g
\gb-------------------------------------------------------------------------d\g
                 Cantidad   Cantidad
    Codigo       Ordenada   Recibida   Unidad D e s c r i p c i o n
\g------------------------------------------------------------------------------\g
[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
\g------------------------------------------------------------------------------\g
  Descripcion Maquina: [n1                              ]
}
end
tables

irtb00006,
cotb00001,
irtb00002,
irtb00005 
attributes
ma   = irtb00006.maquina,autonext,comments =
       "Digite el codigo de la maquina del repuesto";
a1   = formonly.tipo,comments="Digite Tipo De La Orden";
f00  = irtb00006.num_doc,comments = "Digite el Numero Documento";
p1  = irtb00006.cod_sp,picture = "##",autonext,
      comments = "Digite el Codigo del Supldor";
f01  = irtb00006.cod_sp_sec,picture = "####",autonext,
      comments = "Digite el Codigo del Supldor";
f02  = irtb00006.orden_compra,  autonext,
      comments = "Digite el Numero de la Orden de Compras";
f03  = irtb00006.conduce_no,       autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = irtb00006.fact_no,       autonext,
      comments = "Digite el Numero de la Factura del Suplidor";
f8   = formonly.sec_de  ,autonext; 
f9   = formonly.sec_a  ,autonext;
p3   = formonly.nom,noentry;
p5   = formonly.nom_seccion,noentry;
f05  = formonly.fecha type date,format = "dd/mm/yy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = irtb00006.cantidad_1,noentry;
f07  = irtb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = irtb00002.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = irtb00006.cod_n,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";

c    = irtb00006.cod_grupo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
d    = irtb00006.cod_tipo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
f    = irtb00006.cod_sec,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
g    = irtb00002.descrip_esp,noentry;
t    = irtb00006.cod_mov,autonext;
t1   = irtb00005.descrip_mov,noentry;
n1   = formonly.nombre,noentry;
  INSTRUCTIONS
    screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                             cantidad_2,unidad_med,descrip_esp,maquina)
end