JSOTO Alta y compilacion G6 de programas CG, Cheques, Activos, Tesoreria, Repuestos e Informatica

Merge de main (ipprrp013/014/046/053) con conflictos resueltos:
- mbsERP.4pw: ipprrp014 conserva ambos 4rp y su 4fd.
- bin/ipprrp014.4rp: columnas MARGEN/CLASIF. + titulo IPPRRP014.

Programas agregados a mbsERP.4pw (53 compilan y enlazan con fgl602):
- CONTABILIDAD GENERAL, ACTIVOS FIJOS, REPUESTOS; grupos nuevos TESORERIA,
  CHEQUES e INFORMATICA (segprmt001 = seguridad2.0/segprmt0001.4gl).
- irdir copiado de 3.20 PROYECTOS/irdir a PROYECTO/irdir; helpers de
  PROYECTOS/otrodir en FUNCIONES_IR (departamento -> irdepartamento.4gl).
- Fuentes mas nuevos de 3.20: edprrp118, edprrp080, acprrp010, cgprmt022.
- FUNCIONES: GeneraEntradaDiario.4gl a la version 3.20 + costoLiquidacion.4gl.
- Ajustes G6: existe duplicado en irprgb000, fakeData de 22 campos y
  answer2 en irprmt036/020 (ApiMaintainC), selectOutputSimple en irprcs008,
  schemas de forms a smarmotech, referencia declarada en cgprmt005.
- cgprmt005 sigue sin enlazar: requiere funciones de EXTERIOR.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

PROYECTO/irdir/irpantalla.4gl

@@ -0,0 +1,22 @@
+#-----------------------------------------------------------------------------
+# irpantalla.4gl
+# Encabezado de pantalla del Sistema Inventario de Repuestos.
+# Copia de pantalla() de PROYECTOS/irdir/irmn00000.4gl (menu 3.20), para los
+# programas de irdir que la llaman sin enlazar el menu (ej. irprrp002).
+#-----------------------------------------------------------------------------
+GLOBALS "irprgb000.4gl"
+
+FUNCTION pantalla()
+   DEFINE fecha CHAR(8),
+          hora char(5)
+   LET fecha = today USING "dd/mm/yy"
+   LET hora = time
+   LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema Inventario de Repuestos" AT 5,26
+    DISPLAY hora AT 6,73 ATTRIBUTE(blue)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION