database marmotech
screen size 24 by 80
{
 Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
\gp-------------------------------------------------------------------------q\g
\g|\gFecha [f05       ] Orden Compra:[t2][f02        ]                            \g|\g
\g|\gFactura No.[f04       ]  Conduce No. :[f03 ]       Bodega:[k ]             \g|\g
\g|\gSuplidor:[p1]-[f01 ][a                                        ]            \g|\g
\g|\gTransportista:[tr]-[tr1 ][a1                            ]Placa:[pl        ]\g|\g
\g|\gTarifa: [r][r1                              ]Depto[dp  ][dpto             ]\g|\g
\g|\gDetalle: [det                                                        ]     \g|\g
\gb-------------------------------------------------------------------------d\g
                    C A N T I D A D 
    Codigo           Unidad     Cantidad/ Unidad    D e s c r i p c i o n
                                Ordenada
\g------------------------------------------------------------------------------\g
[b ][c ][d  ][f  ][f06        ][f07        ][f08][g                              ]
[b ][c ][d  ][f  ][f06        ][f07        ][f08][g                              ]
[b ][c ][d  ][f  ][f06        ][f07        ][f08][g                              ]
[b ][c ][d  ][f  ][f06        ][f07        ][f08][g                              ]
\g------------------------------------------------------------------------------\g
}
end
tables

iptb00006 cotb00001,
intb00001,iptb00005 
attributes
dp  = formonly.departamento;
dpto = formonly.nombre_depto;
det = formonly.detalle;
r1 = formonly.descrip1,noentry;
r = iptb00006.cod_tarifa,autonext,comments = "Digite Codigo Tarifa";
tr = iptb00006.cod_transp,autonext,comments = "Digite Codigo Transportista";
tr1= iptb00006.sec_transp,autonext,comments = "Digite Codigo Transportista";
a1 = formonly.descrip2,noentry;
pl = iptb00006.placa,autonext,comments = 
     "Digite Placa del Vehiculo del Transportista";
t = iptb00006.cod_mov,
      autonext;
t1   = iptb00005.descrip_mov,noentry;
f00  = iptb00006.num_doc,       
      comments = "Digite el Numero Documento";
p1  = iptb00006.cod_sp; 
f01  = iptb00006.cod_sp_sec;
t2   = iptb00006.tipo,autonext;
f02  = iptb00006.orden_compra,noentry;
f03  = iptb00006.conduce_no,       autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = iptb00006.fact_no,       autonext,
      comments = "Digite el Numero de la Factura del Suplidor";
f05  = formonly.fecha type date,format = "dd/mm/yyyy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = iptb00006.cantidad_1, comments = "Digite la Cantidad Pedida ";
f07  = iptb00006.cantidad_2,noentry;
f08  = intb00001.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = iptb00006.cod_n,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
c    = iptb00006.cod_grupo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
d    = iptb00006.cod_tipo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
f    = iptb00006.cod_sec,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
g    = intb00001.descrip_esp,noentry;
k    = iptb00006.bodega,autonext;
  INSTRUCTIONS
    screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                             cantidad_2,unidad_med,descrip_esp)
end