JSOTO QA G6 (.250): arreglos CG/Activos/Repuestos/Informatica, DBDATE, imagenes de reportes y cgprrp008

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>
This commit is contained in:
2026-10-16 15:30:24 -04:00
co-authored by Claude Opus 5.5
parent 95aa24c029
commit 705fadfdb4
57 changed files with 358 additions and 208 deletions
+16
View File
@@ -31,10 +31,26 @@ FUNCTION bodegas(cb2)
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()