59 lines
2.6 KiB
Plaintext
59 lines
2.6 KiB
Plaintext
{
|
|
===============================================================================
|
|
FORMULARIO : IPFMCS004
|
|
OBJETIVO : CAPTURAR CODIGOS DE PRODUCTOS PARA BUSCAR
|
|
SU EXISTENCIA.
|
|
DISENO : JUAN F. SOTO
|
|
FECHA : AGOSTO 1997
|
|
ASESOR : JOSE ALFREDO PAULINO
|
|
===============================================================================
|
|
}
|
|
SCHEMA smarmotech
|
|
LAYOUT (TEXT="CONSULTA EXISTENCIAS",STYLE="basic")
|
|
GRID
|
|
{
|
|
<G >
|
|
Fecha [fe ] INVENTARIO [inv ]
|
|
Productos [a ]-[b ]-[c ]-[d ] [a1 ]
|
|
|
|
<g >
|
|
<t >
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ]
|
|
}
|
|
end
|
|
END
|
|
tables
|
|
iptb00002,intb00001
|
|
attributes
|
|
COMBOBOX inv = formonly.inventario,INCLUDE=("MATERIA PRIMA","PRODUCTOS TERMINADOS");
|
|
a = iptb00002.cod_n,
|
|
comments = "Digite el nivel del Productos";
|
|
b = iptb00002.cod_grupo,autonext,
|
|
comments = "Digite el grupo del Productos";
|
|
c = iptb00002.cod_tipo,autonext,
|
|
comments = "Digite el tipo del Productos";
|
|
d = iptb00002.cod_sec,autonext,
|
|
comments = "Digite la secuencia del Productos";
|
|
a1 = formonly.descrip_esp,scroll;
|
|
e = formonly.cod_n1,TITLE="PRODUCTO";
|
|
f = formonly.cod_grupo1;
|
|
g = formonly.cod_tipo1;
|
|
h = formonly.cod_sec1;
|
|
f008 = formonly.existencia,TITLE="EXISTENCIA";
|
|
k = formonly.descrip_esp1,TITLE="DESCRIPCION";
|
|
l = intb00001.unidad_med;
|
|
DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
|
|
instructions
|
|
delimiters " "
|
|
|
|
screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
|
|
unidad_med,existencia)
|
|
end
|