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/cgdir/edprrp118.4gl

@@ -33,8 +33,8 @@ FUNCTION irprrp009()
 
     DEFINE select_ac CHAR(1000)
     DEFINE c_ano CHAR(4)
-    DEFINE entra, nombre_mes CHAR(25)
-    DEFINE entra1 CHAR(5)
+    DEFINE  nombre_mes CHAR(25)
+    
     DEFINE detalle CHAR(100)
     DEFINE numero_ent CHAR(2)
     DEFINE ano_act CHAR(4)
@@ -159,8 +159,8 @@ FUNCTION irprrp009()
             CALL controlNumericoED(
                 numero_ent, datos_cons.fech_fi, NULL)
                 RETURNING entrada
-
-            DISPLAY BY NAME entrada
+            LET entra = entrada
+            DISPLAY  BY NAME entra
 
         AFTER INPUT
 
@@ -204,7 +204,9 @@ FUNCTION irprrp009()
                 "irtb00005 AS c ON b.cod_mov = c.cod_mov LEFT OUTER JOIN ",
                 "adtb00001 AS d ON b.sec_a = d.departamento ",
                 "WHERE ",
-                " b.fecha BETWEEN ? AND ? AND b.status_t IS NULL ",
+                #-> Excluye los movimientos que YA generaron su asiento en linea
+                #   (irprmt036 sella irtb00006.referenciaentrada). Evita doble contabilizacion.
+                " b.fecha BETWEEN ? AND ? AND b.status_t IS NULL AND b.referenciaentrada IS NULL ",
                 " GROUP BY b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,a.descrip_esp,a.unidad_med,b.cod_mov,c.descrip_mov,b.sec_a,d.nom_dpto, a.cuenta,e.cuenta_no ",
                 " ORDER BY b.cod_mov,b.sec_a,b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec"