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:
@@ -235,11 +235,12 @@ FUNCTION acpcmf004()
|
||||
RETURN
|
||||
END IF
|
||||
|
||||
-- G6: trans LIKE actb00004.* incluye rowid; sin el 2o a.rowid todo quedaba corrido una columna (-1213)
|
||||
LET SELEC =
|
||||
|
||||
|
||||
|
||||
"SELECT a.rowid,a.codigo
|
||||
"SELECT a.rowid,a.rowid,a.codigo
|
||||
,a.num_doc
|
||||
,CONVERT(VARCHAR(10),a.fecha,103)
|
||||
,a.cod_mov
|
||||
@@ -419,7 +420,7 @@ FUNCTION acpcmf004()
|
||||
CALL fgl_winmessage("INFO","NO SE ACTUALIZARON REGISTROS","INFO")
|
||||
EXIT PROGRAM
|
||||
END IF
|
||||
SELECT MIN(convert(varchar(10),a.fecha,103)) INTO fecha6 FROM actb00004 a
|
||||
SELECT MIN(a.fecha) INTO fecha6 FROM actb00004 a -- G6: MIN sobre texto dd/mm/yyyy no da la fecha menor
|
||||
WHERE a.codigo = trans.codigo AND a.status_t IS NULL
|
||||
|
||||
IF fecha6 IS NULL THEN
|
||||
|
||||
@@ -92,7 +92,8 @@ INPUT BY NAME p_ano1,p_mes1
|
||||
NEXT FIELD p_ano1
|
||||
END IF
|
||||
|
||||
SELECT MAX(CONVERT(VARCHAR(10),a.fecha,103)) INTO fecha_ant FROM actb00004 a
|
||||
-- G6: MAX sobre texto dd/mm/yyyy devolvia 31/12 y no la ultima depreciacion (permitia duplicar el mes)
|
||||
SELECT MAX(a.fecha) INTO fecha_ant FROM actb00004 a
|
||||
WHERE a.status_t IS NULL AND a.cod_mov = 5
|
||||
|
||||
IF fecha_ant >= trans.fecha THEN
|
||||
|
||||
Reference in New Issue
Block a user