jpegueroandClaude Sonnet 5
d4eb103454
- Registrar formulario ipfmcs002.per (faltaba) - Extraer la funcion pantalla() de ipmn00000.4gl (programa de menu con su propio MAIN) a un archivo compartido nuevo (otrodir/pantalla_ip.4gl) para poder reutilizarla sin conflicto de MAIN duplicado - Bug corregido: el programa nunca tenia CONNECT TO, dependia de heredar una conexion de otro programa que nunca lo invoca en este contexto de prueba - se agrego ARG_VAL + CONNECT TO "smarmotech" como en el resto de los programas - Bug corregido: el arreglo global "prod" (usado solo por este programa) era de tamaño fijo ARRAY[200], causaba error -1326 con mas de 200 resultados - convertido a DYNAMIC ARRAY, y se agrego prod.clear() antes de repoblarlo - Agregado titulo a la ventana (usaba "screen size" clasico sin TITLE) Pendiente de decision de Johnny: la pantalla no exige ningun filtro de busqueda y hace una consulta SQL adicional por cada producto encontrado (calculo de existencia) - sin filtro intenta traer todo el catalogo y tarda mas de una hora antes de fallar. Se probo exitosamente usando siempre un codigo de producto completo (clase-grupo-tipo-secuencia). Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
52 lines
1.9 KiB
Plaintext
52 lines
1.9 KiB
Plaintext
database smarmotech
|
|
screen size 24 by 80 title "Consulta Maestra de Productos"
|
|
{
|
|
|
|
Producto Terminado [a ]-[b ]-[c ]-[d ] [a1 ]
|
|
\g_______________________________________________________________________\g
|
|
Existencia Existencia Dia de
|
|
Producto Cia Actual Minima Llegada
|
|
\g-----------------------------------------------------------------------\g
|
|
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
|
|
Descripcion: [k ] Unidad: [l ] Bodega: [m]
|
|
Nomenclatura: [f004 ]
|
|
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
|
|
Descripcion: [k ] Unidad: [l ] Bodega: [m]
|
|
Nomenclatura: [f004 ]
|
|
[e ][f ][g ][h ] [j] [f008 ] [f009 ] [f01]
|
|
Descripcion: [k ] Unidad: [l ] Bodega: [m]
|
|
Nomenclatura: [f004 ]
|
|
}
|
|
end
|
|
tables
|
|
iptb00002,intb00001
|
|
attributes
|
|
a = iptb00002.cod_n,autonext,
|
|
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 = intb00001.descrip_esp,noentry;
|
|
e = formonly.cod_n1,noentry;
|
|
f = formonly.cod_grupo1,noentry;
|
|
g = formonly.cod_tipo1,noentry;
|
|
h = formonly.cod_sec1,noentry;
|
|
j = iptb00002.cod_cia,noentry;
|
|
f008 = formonly.existencia,noentry;
|
|
f009 = iptb00002.exist_min,noentry;
|
|
f01 = iptb00002.dia_llegada,noentry;
|
|
k = formonly.descrip_esp1,noentry;
|
|
l = intb00001.unidad_med,noentry;
|
|
m = iptb00002.bodega,noentry;
|
|
f004 = formonly.marca,noentry;
|
|
instructions
|
|
delimiters " "
|
|
|
|
screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
|
|
unidad_med,bodega,marca,cod_cia,existencia,
|
|
exist_min,dia_llegada)
|
|
end
|