{ 
===============================================================================
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