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