80 lines
3.7 KiB
Plaintext
80 lines
3.7 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
FORMULARIO : INFMMT006
|
|
OBJETIVO : Pantalla para la captura de reporte de entrada
|
|
inventario materia prima.
|
|
MODULOS Q. UTILIZAN : inprmt006
|
|
PROGRAMADOR : Juan F. Soto
|
|
FECHA REALIZACION : Agosto 6, 1992.
|
|
MODIFICADO POR : Juan F. Soto
|
|
DESCRIPCION : Agregar el tipo de la orden a la captura de datos
|
|
FECHA : Agosto 24, 1993.
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Movimiento:[t ][t1 ] Doc. No. [f00 ]
|
|
\gp---------------------------------------------------------------------------q\g
|
|
\g|\gOrden Compra:[ti][f02 ]Suplidor:[p1]-[f01 ][a ]\g|\g
|
|
\gp---------------------------------------------------------------------------q\g
|
|
\g|\gConduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ] Bodega:[k ] \g|\g
|
|
\gb---------------------------------------------------------------------------d\g
|
|
C A N T I D A D
|
|
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 ]
|
|
[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 ]
|
|
[b][c][d ][f ][f06 ][f07 ][f08][g ]
|
|
\g------------------------------------------------------------------------------\g
|
|
Para Uso de Compra Exterior
|
|
Condicion de Recepcion: [h] Uso Inmediato en Produccion: [i]
|
|
}
|
|
end
|
|
tables
|
|
|
|
intb00006,
|
|
cotb00001,
|
|
intb00001,
|
|
intb00005
|
|
attributes
|
|
t = intb00006.cod_mov,autonext,include = (34),default=34,
|
|
comments= "Digite Codigo Movimiento de Entrada (34 - Exterior)";
|
|
f00 = intb00006.num_doc,
|
|
comments = "Digite el Numero Documento";
|
|
ti = intb00006.tipo,autonext,include = ("01","02","03","04"),comments=
|
|
"Digite Tipo de Orden 01-Generales 02-Rov-Ltd. 03-Locales 04-Micelaneas";
|
|
f02 = intb00006.orden_compra, autonext,
|
|
comments = "Digite el Numero de la Orden de Compras";
|
|
p1 = intb00006.cod_sp,picture = "##",autonext,noentry;
|
|
f01 = intb00006.cod_sp_sec,picture = "####",autonext,noentry;
|
|
f03 = intb00006.conduce_no, autonext,
|
|
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
|
f04 = intb00006.fact_no, autonext,
|
|
comments = "Digite el Numero de la Factura del Suplidor";
|
|
f05 = formonly.fecha type date,format = "dd/mm/yy",
|
|
comments = "Digite la Fecha Correspondiente al Documento";
|
|
f06 = intb00006.cantidad_1,noentry;
|
|
f07 = intb00006.cantidad_2,
|
|
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
|
f08 = intb00001.unidad_med,noentry;
|
|
a = cotb00001.nom_sp,noentry;
|
|
b = intb00006.cod_n,autonext,noentry;
|
|
c = intb00006.cod_grupo,autonext,noentry;
|
|
d = intb00006.cod_tipo,autonext,noentry;
|
|
f = intb00006.cod_sec,autonext,noentry;
|
|
g = intb00001.descrip_esp,noentry;
|
|
h = intb00006.cond_recep,autonext,
|
|
comments = "Digite Condicion";
|
|
i = intb00006.uso_tiempo,autonext,
|
|
comments = "Digite el Tiempo";
|
|
t1 = intb00005.descrip_mov,noentry;
|
|
k = intb00006.bodega,autonext;
|
|
INSTRUCTIONS
|
|
screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
|
cantidad_2,unidad_med,descrip_esp)
|
|
end
|