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 Pedido [oc      ]                     \g|\g
\g|\gDetalle [det                                                         ]     \g|\g
\g|\gCliente:[cl]-[cl1 ][nom                            ]                       \g|\g
\g|\gDepartamento:[dep   ][nomd                            ]                    \g|\g
\g|\gCodigo Mov[cd1][des2                            ]Entrada[ent1    ]         \g|\g
\gb------------------------------------------------------------------------------------d\g
                               Cantidad  Und Cantidad 
   Codigo           Unidades   Afectar   Med Pendiente D e s c r i p c i o n
\g--------------------------------------------------------------------------------------\g
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
 [a ][b ][c  ][d  ][f03     ][f02      ][p  ][f04   ][k                                ] 
\g--------------------------------------------------------------------------------------\g
}
end
tables
iptb00006,
intb00001,
cotb00001
attributes
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;
oc   = iptb00006.conduce_no,
       comments = "Digite le numero de orden de Corte";
t1   = formonly.descrip1,noentry; 
f000 = iptb00006.num_doc,noentry; 
r   = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
"01 - MARMOTECH                                ";
ent1  = formonly.entrada,comments = "Digite Entrada Almacen";
cd1  = formonly.cod_mov1,comments = "Digite codigo movimiento entrada";
des2 = formonly.descrip_mov1,noentry;
dep   = formonly.departamento;
nomd  = formonly.nombre_depto,noentry;
c4   = formonly.nombre_cia,noentry;
f001 = iptb00006.fecha, format = "dd/mm/yyyy",autonext,
    comments = "Digite Fecha Documento";
a    = iptb00006.cod_n,autonext,
    comments = "Digite el NIVEL o Presione CTRL-W Para Ayuda";
b    = iptb00006.cod_grupo,autonext,
    comments = "Digite el GRUPO o Presione CTRL-W Para Ayuda"; 
c    = iptb00006.cod_tipo,autonext,
    comments = "Digite el TIPO o Presione CTRL-W Para Ayuda"; 
d    = iptb00006.cod_sec,autonext,
    comments = "Digite la SECUENCIA  o Presione CTRL-W Para Ayuda  "; 
f03  = iptb00006.cantidad_1,autonext; 
f02  = formonly.cantidad_2,noentry;
f04  = formonly.cantidad_p,noentry;
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[7] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                              cantidad_2,cantidad_p,unidad_med,descrip_esp)
end