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>
This commit is contained in:
Claude Sonnet 5.5
@@ -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
|
||||
|
||||
|
||||
@@ -4,6 +4,7 @@
|
||||
FECHA : Mayo 9, 2022
|
||||
}
|
||||
|
||||
IMPORT FGL greruntime
|
||||
GLOBALS "ipprgb000.4gl"
|
||||
DEFINE r INT,
|
||||
arr_busqueda1 DYNAMIC ARRAY OF RECORD
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user