66 lines
2.8 KiB
Plaintext
66 lines
2.8 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------
|
|
FORMULARIO : INFMCS031
|
|
OBJETIVO : Pantalla para Consulta Movimientos Materia Prima:
|
|
Requisicion de Materiales (INPRCS031).
|
|
PROGRAMADOR : Juan Fco. Soto (Johnny)
|
|
FECHA REALIZACION : Agosto 14,1992.
|
|
-------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
\gp---------------------------------------------------------------------------q\g
|
|
\g|\g Documento Numero [f000 ] Fecha [f001 ] \g|\g
|
|
\g|\g Codigo de Dpto. [f3 ] [a1 ] \g|\g
|
|
\g|\g Bodega :[a7] \g|\g
|
|
\gb---------------------------------------------------------------------------d\g
|
|
C A N T I D A D
|
|
Codigo Ordenada Entregada Unidad D e s c r i p c i o n
|
|
\g-----------------------------------------------------------------------------\g
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a][b][c ][d ][f02 ][f03 ][p ][k ]
|
|
\g-----------------------------------------------------------------------------\g
|
|
}
|
|
end
|
|
tables
|
|
intb00001,
|
|
intb00002,
|
|
intb00006,
|
|
adtb00001
|
|
attributes
|
|
f000 = intb00006.num_doc,autonext,
|
|
comments =
|
|
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos ";
|
|
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
|
|
comments = "Digite Fecha Documento";
|
|
f3 = intb00006.depto_a,autonext,
|
|
comments = "Digite Codigo Departamento";
|
|
a1 = adtb00001.nom_dpto, noentry;
|
|
a = intb00006.cod_n,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
b = intb00006.cod_grupo,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
c = intb00006.cod_tipo,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
d = intb00006.cod_sec,
|
|
comments = "Digite Codigo Articulo";
|
|
f02 = intb00006.cantidad_1,autonext,
|
|
comments = "Digite La Cantidad Ordenada";
|
|
f03 = intb00006.cantidad_2,autonext,
|
|
comments = "Digite La Cantidad Entregada";
|
|
a7 = intb00006.bodega,autonext,
|
|
comments = "Digite el codigo de la bodega de almacenamiento";
|
|
k = intb00001.descrip_esp,noentry,autonext;
|
|
p = intb00001.unidad_med,noentry;
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
|
cantidad_2,unidad_med,descrip_esp)
|
|
delimiters " "
|
|
end
|