ipprmt002: compila y enlaza (esquema de ipdir con iptb00002 de 49 columnas, funciones faltantes)

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

PROYECTO/ipdir/ipprmt002.4gl

@@ -1174,4 +1174,21 @@ FUNCTION grupo_producto()
         CALL cgrupo.additem(kgrupo, dgrupo)
     END FOREACH
 
-END FUNCTION
+END FUNCTION
+
+# busca_departamento() local: la version compartida esta en FUNCIONES_IR (duplicaria el modulo)
+FUNCTION busca_departamento()
+DEFINE pdepartamento ui.combobox,
+        kdepartamento SMALLINT,kdescripcion CHAR(30)
+
+       LET  pdepartamento = ui.combobox.forname("formonly.departamento")
+       CALL pdepartamento.clear()
+       DECLARE pagar_dpto CURSOR FOR
+         SELECT departamento, nom_dpto FROM adtb00001
+         WHERE status_t is null
+         ORDER BY nom_dpto
+       FOREACH pagar_dpto INTO kdepartamento,kdescripcion
+         CALL pdepartamento.additem(kdepartamento,kdescripcion)
+       END FOREACH
+
+END FUNCTION

PROYECTO/mbsERP.4pw

@@ -876,6 +876,8 @@
       <Application binaryName="ipprmt002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000000" label="ipprmt002">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000000" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprmt002.4gl"/>
+        <File filePath="ipdir/categoria_conteo.4gl"/>
+        <File filePath="otrodir/gerentesmarcas.4gl"/>
       </Application>
       <Application binaryName="ipprmt003" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000001" label="ipprmt003">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000001" label="Configuration"/>

PROYECTO/otrodir/gerentesmarcas.4gl

@@ -0,0 +1,17 @@
+
+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