72 lines
3.3 KiB
Plaintext
72 lines
3.3 KiB
Plaintext
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
|