jpegueroandClaude Sonnet 5.5
5e5da7a926
- ipdir/smarmotech.sch: copia del esquema raiz con solo iptb00002 actualizada a las 49 columnas reales (grupo2, bookmatch, tipos, tipo_material, imp_aduanal, categoria, es_produccion). Verificado: los 33 programas ip* que compilaban siguen compilando. - otrodir/gerentesmarcas.4gl copiado de PROYECTOS; categoria_conteo registrada; busca_departamento local en ipprmt002 (irdepartamento esta en FUNCIONES_IR). Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
18 lines
744 B
Plaintext
18 lines
744 B
Plaintext
|
|
FUNCTION gerentesmarcas()
|
|
DEFINE pgerentes ui.combobox,
|
|
knum_emp SMALLINT,knombre VARCHAR(100)
|
|
|
|
LET pgerentes = ui.combobox.forname("formonly.num_emp")
|
|
CALL pgerentes.clear()
|
|
DECLARE depto CURSOR FOR
|
|
SELECT a.num_emp, rtrim(a.nom1_emp)+' '+rtrim(a.apell1_emp) FROM adtb00003 a
|
|
WHERE a.gerentemarcas = 'SI' AND
|
|
a.status_t is null
|
|
|
|
FOREACH depto INTO knum_emp,knombre
|
|
CALL pgerentes.additem(knum_emp,knombre)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|