database smarmotech
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000  ] Compania [r][c4                ]                 \g|\g
\g|\gCodigo Movimiento [m ] [m1                                      ]          \g|\g
\g|\gFactura [fact  ] Transportista [tr][tr1 ][des                           ]  \g|\g
\g|\gTarifa [t  ][t1                             ] Placa [pl         ]          \g|\g
\g|\gfecha[f001    ]Bodega :[p1 ]Orden de Corte [oc      ]                      \g|\g
\g|\gDetalle [det                                                         ]     \g|\g
\g|\gCliente:[cl]-[cl1 ][nom                            ]                       \g|\g
\gb---------------------------------------------------------------------------d\g
                  Cantidad    Cantidad
      Codigo      Unidades    Afectar     Unidad    D e s c r i p c i o n
\g-----------------------------------------------------------------------------\g
  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
\g-----------------------------------------------------------------------------\g
}
end
tables
iptb00006,
intb00001,
cotb00001
attributes
oc   = iptb00006.conduce_no,
       comments = "Digite le numero de orden de Corte";
det  = iptb00006.detalle;
cl   = iptb00006.cod_sp,autonext;
cl1  = iptb00006.cod_sp_sec,autonext;
nom  = formonly.descrip4,noentry;
pl   = iptb00006.placa,autonext,comments = 
    "Digite placa del vehiculo que transporta la mercancia";
fact = formonly.fact_no,autonext,comments =
  "Introducir Numero de Factura de Ventas";
tr   = iptb00006.cod_transp,autonext,comments =
  "Introduzca Codigo Transportista";
tr1   = iptb00006.sec_transp,autonext,comments =
  "Introduzca Codigo Transportista";
des  = formonly.descrip2,noentry;
t    = iptb00006.cod_tarifa,comments =
   "Introduzca Codigo Tarifa",autonext;
t1   = formonly.descrip1,noentry; 
f000 = iptb00006.num_doc,noentry; 
r   = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
"01 - MARMOTECH                             ";
c4   = formonly.nombre_cia,noentry;
f001 = iptb00006.fecha, format = "dd/mm/yy",autonext,
    comments = "Digite Fecha Documento";
a    = iptb00006.cod_n,autonext,
    comments = "Digite el NIVEL";
b    = iptb00006.cod_grupo,autonext,
    comments = "Digite el GRUPO"; 
c    = iptb00006.cod_tipo,autonext,
    comments = "Digite el TIPO"; 
d    = iptb00006.cod_sec,autonext,
    comments = "Digite la SECUENCIA   "; 
f03  = iptb00006.cantidad_1,noentry; 
f02  = iptb00006.cantidad_2,autonext;
k    = intb00001.descrip_esp,noentry;
p    = intb00001.unidad_med,noentry;
p1   = iptb00006.bodega,autonext;
m    = iptb00006.cod_mov,autonext,autonext,
       comments = "Digite codigo del movimiento";
m1   = formonly.descrip_mov, noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                              cantidad_2,unidad_med,descrip_esp)
end