jsotoandClaude Opus 5.5
705fadfdb4
Programas (bugs encontrados en las pruebas funcionales en la .250): - acprmt004/acprmt005: MIN/MAX sobre la fecha real (no sobre texto CONVERT 103); acprmt004 alinea rowid. - cgprrp008: lee cgtb00004 (no la copia cgtb00004_tmp del 14-mar-2026) y solo regenera cgtb00016 cuando se corre sin filtro de cuenta. - cgprrp014: CONSTRUCT con los nombres de campo del form (cod_sp_sc). - cgfmrp013: defaultValue del combo = cgprrp012.4rp. - cgprrp022/edprrp029: salida getPreviewDevice() en lugar de SVG fijo. - edprrp080: no consume numero ED con afecta = NO. - cgprmt004/022/037, segprmt0001: sin CONNECT "IFMX" (-6366); EXTERIOR via cross-DB. - irprcs001: agrega CONNECT; irprmt021: columna idestado; irprmt066: la anulacion sin MaintainX ya no se deshace (-255); otrodir/bodegas: rama '2' llena origen y destino. - teprmt001: ajustes G6. Despliegue G6: - DBDATE=dmy4 en config/Application.xcf, config/Main_prg.xcf, resources/Application.xcf y en el grupo MODULOS del .4pw (los programas lanzados por el menu heredan el entorno). - 31 .4rp: IMAGEBOX con rutas absolutas file:///E:|F:|C: -> relativas IMAGENES/...; se agregan IMAGENES/LOGO.JPG y genero_logo.png. - Paquete mbs: incluye bin/*.4rp y bin/IMAGENES (antes el GAR no llevaba los reportes). - resources/TopMenu.4st (irprcs008 daba -8014); bin/cgprcs024.4rp. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
68 lines
2.4 KiB
Plaintext
68 lines
2.4 KiB
Plaintext
FUNCTION bodegas(cb2)
|
|
|
|
DEFINE
|
|
ketiquetas SMALLINT,
|
|
detiquetas CHAR(30),
|
|
cbodegas ui.ComboBox,
|
|
cb2 CHAR(2)
|
|
IF cb2 = '1' THEN
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
DECLARE bbodegas CURSOR FOR
|
|
SELECT a.cod_bodega, a.descripcion
|
|
FROM intb00009 a
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas INTO ketiquetas, detiquetas
|
|
CALL cbodegas.additem(ketiquetas, detiquetas)
|
|
END FOREACH
|
|
END IF
|
|
IF cb2 = '4' THEN
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
DECLARE bbodegas_mat CURSOR FOR
|
|
SELECT DISTINCT a.cod_bodega, a.descripcion
|
|
FROM intb00009 a INNER JOIN intb00006 b ON b.bodega = a.cod_bodega
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas_mat INTO ketiquetas, detiquetas
|
|
CALL cbodegas.additem(ketiquetas, detiquetas)
|
|
END FOREACH
|
|
END IF
|
|
|
|
IF cb2 = '2' THEN
|
|
-- G6: en 3.20 los programas de PROYECTOS (irprmt020/ipprmt020/inprmt020) usaban
|
|
-- la bodegas() de PROYECTOS\otrodir\funciones.4gl, que con '2' llena origen y
|
|
-- destino (solo activas); aqui solo llenaba destino y el combo bodega quedaba vacio
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
DECLARE bbodegas2o CURSOR FOR
|
|
SELECT a.cod_bodega, a.descripcion
|
|
FROM intb00009 a
|
|
WHERE a.status_t IS NULL
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas2o INTO ketiquetas, detiquetas
|
|
CALL cbodegas.additem(ketiquetas, detiquetas)
|
|
END FOREACH
|
|
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega_destino")
|
|
DECLARE bbodegas2 CURSOR FOR
|
|
SELECT a.cod_bodega, a.descripcion
|
|
FROM intb00009 a
|
|
WHERE a.status_t IS NULL
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas2 INTO ketiquetas, detiquetas
|
|
CALL cbodegas.additem(ketiquetas, detiquetas)
|
|
END FOREACH
|
|
|
|
END IF
|
|
IF cb2 = '3' THEN
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
CALL cbodegas.clear()
|
|
CALL cbodegas.addItem(1, 'REPUESTOS')
|
|
END IF
|
|
END FUNCTION
|