64 lines
3.1 KiB
Plaintext
64 lines
3.1 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 ]
|
|
Lista Precios[list ]
|
|
Productos [a ]-[b ]-[c ]-[d ] [a1 ]
|
|
|
|
<g >
|
|
<t >
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
[e ][f ][g ][h ][k ][l ][f008 ][f009 ][p1 ][p2 ]
|
|
|
|
}
|
|
end
|
|
END
|
|
tables
|
|
iptb00002,intb00001
|
|
ATTRIBUTES
|
|
COMBOBOX list = formonly.cod_lista,ITEMS=(("1","GENERAL"),("2","PRECIOS FERIA")),default=1;
|
|
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";
|
|
f009 = formonly.cantidad_ordenes,TITLE="CANTIDAD ORDEN";
|
|
k = formonly.descrip_esp1,TITLE="DESCRIPCION",scroll;
|
|
l = intb00001.unidad_med;
|
|
DATEEDIT fe = formonly.fech_fi type date,format = "dd/mm/yyyy";
|
|
P1 = formonly.ventas,TITLE="TIPO VENTAS",scroll;
|
|
p2 = formonly.precio,TITLE="PRECIO";
|
|
|
|
instructions
|
|
delimiters " "
|
|
|
|
screen record consart[7] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
|
|
unidad_med,existencia,cantidad_ordenes,ventas,precio)
|
|
end
|