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