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
+4
View File
@@ -12,6 +12,10 @@ GLOBALS
MAIN
DEFER INTERRUPT
-- G6: no conectaba (solo SCHEMA en irprgb000) y el VM terminaba al arrancar
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CONNECT TO "smarmotech" USER usuarios USING clave
SELECT * INTO p_companias.* FROM companias
CALL irprcs001()
END MAIN
+1 -1
View File
@@ -91,7 +91,7 @@ FUNCTION ipprmt021()
UPDATE irtb00057 SET us_mod=usuarios,fech_mod=getdate(),
estado_proceso = arr_busqueda[arr_curr()].idestado
idestado = arr_busqueda[arr_curr()].idestado -- G6: estado_proceso no existe en irtb00057 (-207)
WHERE numero_doc = arr_busqueda[arr_curr()].numeroid AND
cod_mov = arr_busqueda[arr_curr()].cod_mov
+6 -4
View File
@@ -186,8 +186,9 @@ FUNCTION irprmt066()
DISPLAY answer
IF answer IS NULL THEN
DISPLAY "AQUI 1"
ROLLBACK WORK
-- G6: sin id MaintainX no hay nada que sincronizar; antes hacia ROLLBACK
-- (deshacia la anulacion) y luego el COMMIT caia -255 Not in transaction
CONTINUE FOR
ELSE
select sum(cantidad_2) INTO APIexistencia from irtb00006
@@ -206,8 +207,9 @@ FUNCTION irprmt066()
CALL ApiMaintainR('PATCH',answer, m_articulos.*, usuarios) RETURNING answer
IF answer != 1 THEN
DISPLAY "AQUI 6"
ROLLBACK WORK
ROLLBACK WORK -- G6: fallo MaintainX: no seguir al COMMIT
CALL fgl_winmessage("ERROR","NO SE PUDO ACTUALIZAR MAINTAINX, ANULACION CANCELADA","stop")
GOTO salir
ELSE
DISPLAY "SUCCESS"
END IF
+1 -1
View File
@@ -15,7 +15,7 @@
<MINIPAGE name="Page Root" width="max" length="min" alignment="center">
<LAYOUTNODE name="Page Header" width="max" length="min" fontSize="12" fontBold="true" layoutDirection="topToBottom" baselineType="leftleft" port="anyPageHeader" floatingBehavior="enclosed">
<LAYOUTNODE name="LayoutNode16" width="min" length="max" alignment="near" layoutDirection="leftToRight" floatingBehavior="enclosed">
<IMAGEBOX name="ImageBox1" length="39.7106" anchorX="0" anchorY="0" url="{{&quot;file:///E:/MASTER/IMAGENES/LOGO.JPG&quot;}}" intendedResolution="96"/>
<IMAGEBOX name="ImageBox1" length="39.7106" anchorX="0" anchorY="0" url="{{&quot;IMAGENES/LOGO.JPG&quot;}}" intendedResolution="96"/>
<rtl:input-variable name="nombre_cia" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="WordBox47" y="max-13cm" floatingBehavior="enclosed" text="{{nombre_cia.value}}"/>
<rtl:input-variable name="chfecha" type="FGLString" expectedLocation="expectedAhead"/>