64 lines
2.8 KiB
Plaintext
64 lines
2.8 KiB
Plaintext
database marmotech
|
|
{
|
|
----------------------------------------------------------------------------
|
|
AUTOR: JUAN FCO SOTO
|
|
FECHA: Marzo 1, 1993.
|
|
DECRIPCION: FORMATO DE PANTALLA PARA movimientos (Repuestos)
|
|
----------------------------------------------------------------------------
|
|
}
|
|
screen size 24 by 80
|
|
{
|
|
\gp---------------------------------------------------------------------------q\g
|
|
\g|\g Tipo Movimiento [t ] [t1 ] \g|\g
|
|
\g|\g Documento Numero [f000 ] Orden [ord ] \g|\g
|
|
\g|\g Fecha [f001 ] \g|\g
|
|
\g|\g Localidad [s] [a1 ] \g|\g
|
|
\g|\g Transferida a [r] [a2 ] \g|\g
|
|
\gb---------------------------------------------------------------------------d\g
|
|
CANTIDAD
|
|
Codigo Entregada Unidad D e s c r i p c i o n Maquina
|
|
\g-----------------------------------------------------------------------------\g
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
[a ] [f02 ] [p ] [k ] [m1 ]
|
|
\g-----------------------------------------------------------------------------\g
|
|
Descripcion Maquina: [n1 ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
irtb00002,
|
|
irtb00002,
|
|
irtb00006
|
|
attributes
|
|
ord = irtb00006.orden_compra,autonext,comments =
|
|
"Digite Orden Compras para devolver ";
|
|
|
|
f000 = irtb00006.num_doc,autonext,
|
|
comments = "Digite Numero Documento";
|
|
f001 = irtb00006.fecha, format = "dd/mm/yy",autonext,
|
|
comments = "Digite Fecha Documento";
|
|
r = formonly.secc_a , autonext,
|
|
comments = "Digite Codigo de la Localidad";
|
|
s = formonly.secc_de,autonext,
|
|
comments = "Digite Codigo Localidad";
|
|
a1 = formonly.nom_seccion type char, noentry;
|
|
a2 = formonly.nom,noentry;
|
|
a = formonly.codigo;
|
|
f02 = irtb00006.cantidad_2,autonext,
|
|
comments = "Digite La Cantidad Entregada";
|
|
k = irtb00002.descrip_esp,noentry,autonext;
|
|
p = irtb00002.unidad_med,noentry;
|
|
t = formonly.cod_mov type smallint,autonext,include = (3 to 99),
|
|
comments = "Digite Codigo Del Movimiento Correspondiente";
|
|
t1 = formonly.descrip_mov,noentry;
|
|
m1 = irtb00006.maquina,autonext, comments =
|
|
"Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
|
|
n1 = formonly.nombre,noentry;
|
|
INSTRUCTIONS
|
|
SCREEN RECORD s_movi1[6] (codigo,cantidad_2,unidad_med,descrip_esp,maquina)
|
|
end
|