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:
@@ -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()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user