Bloqueados: enlazan prprmt006, ipprmt044 y lqprrp009 (licencia Genero activa)

- lqprrp009: se quita la copia local de defecto(); msgrp000 (restaurado por
  Johnny el 16/10) ya la trae y duplicaba (-6203).
- prprmt006: se anulan las dos llamadas a pantalla() (encabezado de la
  pantalla de texto antigua, no existe en el proyecto y los demas programas
  de PRODUCCION no la usan) y se pone titulo de ventana.
- ipprmt044: fotos.4gl ahora incluye ctramo() y cseccion() (copiadas de
  otrodir/tramos.4gl y secciones.4gl) porque importar FUNCIONES_IR completa
  mete modulos de Repuestos que chocan.
- ipdir/ipautorizareq.4gl: IMPORT FGL greruntime. msgrp000 importa ese
  paquete y libgre.42m tambien define fgl_report_*, por lo que cualquier
  modulo de libreria que los llamara sin importar quedaba ambiguo (-8401)
  cuando el programa lo usaba (solo ipprmt044). Verificado: las 34
  aplicaciones que usan FUNCIONES_IP enlazan, salvo ipprmt002 e ipprrp052
  que siguen con el problema conocido de columnas de iptb00002 en el
  esquema.

Pendiente: probar funcionalmente estos programas.

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

PROYECTO/PRDIR/prprmt006.4gl

@@ -51,10 +51,11 @@ END MAIN
         FORM LINE 9,
         ERROR LINE 23,
         COMMENT LINE 21
-   CALL pantalla()
+   # (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
    OPEN FORM ctfmmt006 FROM "prfmmt006"
    DISPLAY FORM ctfmmt006
-   CALL pantalla() 
+   CALL ui.Window.getCurrent().setText("Ordenes de Produccion")
+   # (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
    DISPLAY "prprmt006" AT 4,3 
    DISPLAY "Ordenes De Produccion" AT 6,32
    

PROYECTO/ipdir/ipautorizareq.4gl

@@ -4,6 +4,7 @@
     FECHA   :           Mayo 9, 2022
 }
 
+IMPORT FGL greruntime
 GLOBALS "ipprgb000.4gl"
    DEFINE r INT,
         arr_busqueda1 DYNAMIC ARRAY OF RECORD

PROYECTO/lqdir/lqprrp009.4gl

@@ -1039,148 +1039,3 @@ ON LAST ROW
          PRINT COLUMN 1,comp_off,negrillas_off
      SKIP 4 LINE
 END REPORT
-
-FUNCTION defecto(usuarios,clave,impresor)
-
-         DEFINE impresor,idx  SMALLINT,
-
-                negrillas_on,
-
-                negrillas_off,
-
-                doble_on,
-
-                doble_off,
-
-                doce,
-
-                comp_on,
-
-                comp_off,
-
-                normal CHAR(6),
-
-                archivo CHAR(80),
-
-                lpnum   INTEGER,
-
-                imprime CHAR(150),
-
-                prt RECORD
-                prtcodigo SMALLINT,
-                nombre    VARCHAR(60),
-                lpprog VARCHAR(150),
-                lppipe VARCHAR(20),
-                puerto VARCHAR(80)
-                END RECORD,
-                usuarios,clave CHAR(80),copia CHAR(100)
-
-
-         SELECT a.codigo,a.nombre,a.lpprog,a.lppipe,a.puerto INTO prt.* FROM prttb00001 a
-
-         WHERE a.codigo = impresor
-
-
-
-         CASE
-
-           WHEN prt.prtcodigo = 1
-
-                LET doble_on =  ASCII 14
-
-                LET doble_off = ASCII 18
-
-                LET negrillas_on = ASCII 27, ASCII 69
-
-                LET negrillas_off = ASCII 27, ASCII 70
-
-                LET comp_on = ASCII 15
-
-                LET comp_off = ASCII 18
-
-                LET doce = ASCII 27,ASCII 77
-
-                LET normal = ASCII 27,ASCII 80
-
-                EXIT CASE
-
-           WHEN prt.prtcodigo = 2            {Printer Central. Contabilidad}
-
-                LET doble_on      = ASCII 001
-
-                LET doble_off     = ASCII 002
-
-                LET negrillas_on  = ASCII 027, ASCII 098
-
-                LET negrillas_off = ASCII 027, ASCII 099
-
-                LET comp_on       = ASCII 031
-
-                LET comp_off      = ASCII 029
-
-                LET doce          = ASCII 030
-
-                LET normal        = ASCII 029
-
-                EXIT CASE
-
-           WHEN impresor = 3
-
-                LET doble_on      = ASCII 14
-
-                LET doble_off     = ASCII 18
-
-                LET negrillas_on  = ASCII 27, ASCII 69
-
-                LET negrillas_off = ASCII 27, ASCII 70
-
-                LET comp_on       = ASCII 15
-
-                LET comp_off      = ASCII 18
-
-                LET doce          = ASCII 27,ASCII 77
-
-                LET normal        = ASCII 27,ASCII 80
-
-                EXIT CASE
-
-            END CASE
-
-
-
-# BUSCA EL NUMERO DE IMPRESION A SEGUIR
-
-         SELECT MAX(ult_imp) INTO lpnum
-
-         FROM prttb00002
-
-
-
-         IF lpnum IS NULL THEN
-
-            LET lpnum = 1
-
-         END IF
-
-            LET lpnum = lpnum + 1
-
-            LET archivo = FGL_GETENV("FGLSPOOL"),"\\",lpnum USING "<<<<<<<<<<"
-
-            LET imprime = prt.lpprog CLIPPED," ",archivo CLIPPED," ",
-                          prt.lppipe," ",prt.puerto
-
-            LET copia = prt.lppipe," ",prt.puerto
-
-
-{            UPDATE prttb00002 set ult_imp = lpnum + 1,
-
-                                  usuario = suser_sname()}
-
-             INSERT INTO prttb00002 (ult_imp,usuario)VALUES (lpnum,usuarios)
-
-
-
-RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,
-       comp_on,comp_off,doce,normal,archivo,copia
-
-END FUNCTION

PROYECTO/otrodir/fotos.4gl

@@ -476,3 +476,39 @@ FUNCTION idexistencia(id,cantidad,pbodega, secc,fila)
 
     
 END FUNCTION
+
+FUNCTION cseccion(almacen)
+ DEFINE kcod_seccion,almacen SMALLINT,
+        kdescripcion CHAR(30),
+        pseccion ui.ComboBox
+ 
+ LET pseccion = ui.combobox.forname("formonly.seccion")
+ 
+ DECLARE busca_sec CURSOR FOR
+  SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
+  WHERE a.cod_bodega = almacen
+  
+  CALL pseccion.clear()
+  FOREACH busca_sec INTO kcod_seccion,kdescripcion
+   CALL pseccion.additem(kcod_seccion,kdescripcion)
+  END FOREACH 
+  CALL pseccion.additem(99,"TODAS")
+END FUNCTION
+
+FUNCTION ctramo(almacen,seccion)
+ DEFINE kcod_tramo,almacen,seccion SMALLINT,kdescripcion CHAR(30),
+        ptramo ui.ComboBox
+ 
+ LET ptramo = ui.combobox.forname("formonly.tramo")
+ 
+ DECLARE busca_tramo CURSOR FOR
+  SELECT a.cod_tramo,a.descripcion FROM Intb00043 a
+  WHERE a.cod_bodega =  almacen and a.cod_Seccion = seccion
+  
+  CALL ptramo.clear()
+  FOREACH busca_tramo INTO kcod_tramo,kdescripcion
+   DISPLAY "tramos ",kcod_tramo,kdescripcion," ",almacen," ",seccion
+   CALL ptramo.additem(kcod_tramo,kdescripcion)
+  END FOREACH 
+  CALL ptramo.additem(99,"TODOS")
+END FUNCTION