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