jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avanzar en registro y correccion de ipprmt044 (Productos Terminados)

Browse Source 
- Registrar 8 archivos faltantes en FUNCIONES_IP (ipautorizareq, codigoModificacion,
  piking, conduces, ubicacionH, ipactualizareqtrx, loadDespiece, LlenarUbicaciones)
- Agregar dependencias FUNCIONESREPORT y FUNCIONESEMAIL a ipprmt044 (defecto,
  configureOutput, enviaemail ya existian en el proyecto)
- Resolver colision de nombres: renombrar REPORT/FUNCTION duplicados en
  ipautorizareq.4gl (requiere->requiereAutoriza, buscadoc->buscadocAutoriza,
  impdocumento->impdocumentoAutoriza) que chocaban con imprequisiciones.4gl
  y buscarequisicion.4gl
- Sincronizar registros locales desactualizados: x RECORD en ipautorizareq.4gl
  (faltaba us_crea) y x/z RECORD del REPORT formu4 en ipprgb000.4gl (faltaban
  bodega_destino, factura, area, descripcion_area, existencia, disponible,
  codigo_bloque, id_kit) respecto a los registros globales reales
- Migrar ipprmt020_1.4rp desde PROYECTOS y corregir su RWFglReportName

Pendiente: funcion 'fotos' (12 parametros) no existe en ningun archivo del
proyecto, consultado con Johnny
This commit is contained in:
jpeguero
2026-09-10 14:15:49 -04:00
parent e414e52523
commit 987c2c1122
5 changed files with 159 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTOS/otrodir/LlenarUbicaciones.4gl
-119
View File
@@ -1,119 +0,0 @@
FUNCTION init_seccion(bodegaCont INT) --Llenar combobox seccion
DEFINE i SMALLINT
DEFINE cb_seccion ui.ComboBox
DEFINE seccion DYNAMIC ARRAY OF RECORD
cod_seccion INT,
descrip STRING
END RECORD
LET cb_seccion = ui.ComboBox.forName("formonly.seccion")
DECLARE buscar1 CURSOR FOR
SELECT cod_seccion, descripcion
FROM intb00010
WHERE cod_bodega = bodegaCont
LET i = 1
CALL cb_seccion.clear()
FOREACH buscar1 INTO seccion[i].cod_seccion, seccion[i].descrip
CALL cb_seccion.addItem(seccion[i].cod_seccion, seccion[i].descrip)
LET i = i + 1
END FOREACH
END FUNCTION
FUNCTION init_tramo(bodegaCont INT, seccion INT) --Llenar combobox tramo
DEFINE i INTEGER
DEFINE cb_tramo ui.ComboBox
DEFINE tramos DYNAMIC ARRAY OF RECORD
cod_tramo INTEGER,
descrip_tram VARCHAR(50)
END RECORD
LET cb_tramo = ui.ComboBox.forName("formonly.tramo")
DECLARE buscar2 CURSOR FOR
SELECT cod_tramo, descripcion
FROM intb00043
WHERE cod_bodega = bodegaCont AND cod_seccion = seccion
CALL cb_tramo.clear()
LET i = 1
FOREACH buscar2 INTO tramos[i].cod_tramo, tramos[i].descrip_tram
CALL cb_tramo.addItem(tramos[i].cod_tramo, tramos[i].descrip_tram)
LET i = i + 1
END FOREACH
END FUNCTION
FUNCTION init_fila(
bodegaCont INT, seccion INT, tramo INT) --Llenar combobox tramo
DEFINE i INTEGER
DEFINE cb_fila ui.ComboBox
DEFINE filas DYNAMIC ARRAY OF RECORD
cod_fila INTEGER,
titulo VARCHAR(50)
END RECORD
LET cb_fila = ui.ComboBox.forName("formonly.fila")
DECLARE buscar3 CURSOR FOR
SELECT cod_fila, titulo
FROM intb00045
WHERE cod_bodega = bodegaCont
AND cod_seccion = seccion
AND cod_tramo = tramo
CALL cb_fila.clear()
LET i = 1
FOREACH buscar3 INTO filas[i].cod_fila, filas[i].titulo
CALL cb_fila.addItem(filas[i].cod_fila, filas[i].titulo)
LET i = i + 1
END FOREACH
CALL cb_fila.additem(99,"TODAS")
END FUNCTION
FUNCTION init_posicion(
bodegaCont INT, seccion INT, tramo INT, fila INT) --Llenar combobox tramo
DEFINE i INTEGER
DEFINE cb_posicion ui.ComboBox
DEFINE posicion DYNAMIC ARRAY OF RECORD
cod_pos INTEGER,
titulo VARCHAR(50)
END RECORD
LET cb_posicion = ui.ComboBox.forName("formonly.posicion")
DECLARE buscar4 CURSOR FOR
SELECT cod_pos, titulo
FROM intb00046
WHERE cod_bodega = bodegaCont
AND cod_seccion = seccion
AND cod_tramo = tramo
AND cod_fila = fila
CALL cb_posicion.clear()
LET i = 1
FOREACH buscar4 INTO posicion[i].cod_pos, posicion[i].titulo
CALL cb_posicion.addItem(posicion[i].cod_pos, posicion[i].titulo)
LET i = i + 1
END FOREACH
CALL cb_posicion.additem(99,"TODAS")
END FUNCTION