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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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="{{"file:///E:/MASTER/IMAGENES/LOGO.JPG"}}" intendedResolution="96"/>
|
||||
<IMAGEBOX name="ImageBox1" length="39.7106" anchorX="0" anchorY="0" url="{{"IMAGENES/LOGO.JPG"}}" 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"/>
|
||||
|
||||
Reference in New Issue
Block a user