From 931a814278cac2d93c097df242930d7f6b4aa9a4 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 12:10:56 -0400 Subject: [PATCH 1/6] prprmt008: registra FUNCIONESREPORT (defecto/seleccionarsalida), libgre y los formularios prfmwd003/prfmwd004 Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/mbsERP.4pw | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 144b479..b4690ef 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -1044,9 +1044,11 @@ - + + + From 91a1a4ef9673d15256a31f79c7c22483eef2a5a1 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 12:17:27 -0400 Subject: [PATCH 2/6] alprmt006: registra la aplicacion (otrodir/alprmt006.4gl y alfmmt006.per) en el grupo Reportes de Entradas Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/mbsERP.4pw | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index b4690ef..0299e47 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -1337,6 +1337,11 @@ + + + + + From 16bff226c56e11784345e1b2a01f93ad25662dfc Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 12:35:51 -0400 Subject: [PATCH 3/6] alprmt006 (Reporte de Entrada): conexion explicita, SCHEMA, contador por bodega, CURRENT/USER de SQL Server e INSERT con columnas - DATABASE -> SCHEMA y CONNECT TO smarmotech con usuario/clave (args 1 y 2). - iptb00007 (contador) es por movimiento y bodega: consulta, update e insert lo usan. - Verificacion de documento duplicado en iptb00006 considera la bodega. - user,current (Informix) -> SUSER_SNAME(),getdate(). - INSERT INTO iptb00006 con lista explicita de columnas (la tabla ya tiene 50). Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/otrodir/alprmt006.4gl | 29 +++++++++++++++++++++++------ 1 file changed, 23 insertions(+), 6 deletions(-) diff --git a/PROYECTO/otrodir/alprmt006.4gl b/PROYECTO/otrodir/alprmt006.4gl index 84517c6..3557569 100644 --- a/PROYECTO/otrodir/alprmt006.4gl +++ b/PROYECTO/otrodir/alprmt006.4gl @@ -13,7 +13,7 @@ Orden de Compra ------------------------------------------------------------------------- } -DATABASE marmotech +SCHEMA smarmotech GLOBALS DEFINE etiqueta CHAR(20) DEFINE descrip_espa CHAR(35) @@ -61,8 +61,14 @@ END GLOBALS MAIN DEFINE fecha CHAR(8) + DEFINE usuarios, clave STRING DEFER INTERRUPT + # Migracion Genero 6: conexion explicita con usuario y clave (args 1 y 2) + CALL ARG_VAL(1) RETURNING usuarios + CALL ARG_VAL(2) RETURNING clave + CONNECT TO "smarmotech" USER usuarios USING clave + CLEAR SCREEN OPTIONS ERROR LINE 24, @@ -500,14 +506,17 @@ INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* IF primera = "S" THEN LET primera = "N" + # Migracion G6: el contador iptb00007 es por movimiento y bodega SELECT UNIQUE a.num_doc INTO ip_ultimo FROM iptb00007 a WHERE a.cod_mov = movi[p_act].cod_mov + AND a.bodega = datos_gen.bodega LET ip_ultimo = ip_ultimo + 1 LET datos_gen.num_doc = ip_ultimo LET documento[p_act] = ip_ultimo SELECT UNIQUE num_doc FROM iptb00006 WHERE num_doc=datos_gen.num_doc and cod_mov=movi[p_act].cod_mov + AND bodega = datos_gen.bodega IF STATUS != NOTFOUND THEN LET numero_msg = 128 @@ -612,24 +621,32 @@ INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* IF movi[idx].cantidad_2 IS NOT NULL AND movi[idx].cantidad_2 <> 0 THEN # Actualizacion de las tablas de Productos terminados IF datos_gen.tipo = "02" THEN + # Migracion G6: lista explicita de columnas (la tabla tiene columnas nuevas) INSERT INTO iptb00006 + (cod_cia,num_doc,fecha,fact_no,conduce_no,tipo,orden_compra, + cod_sp,cod_sp_sec,cod_transp,sec_transp,placa,cod_tarifa, + cod_mov,detalle,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1, + cantidad_2,cond_recep,uso_tiempo,bodega,status_t,us_crea, + fech_crea,us_mod,fech_mod) VALUES ("1",datos_gen.num_doc,datos_gen.fecha,datos_gen.fact_no, datos_gen.conduce_no,datos_gen.tipo,datos_gen.orden_compra, datos_gen.cod_sp, datos_gen.cod_sp_sec,null,null,null,null, movi[idx].cod_mov,null,movi[idx].cod_n,movi[idx].cod_grupo, movi[idx].cod_tipo,movi[idx].cod_sec,movi[idx].cantidad_1, movi[idx].cantidad_2,null,null,datos_gen.bodega, - null,user,current,null,null) + null,SUSER_SNAME(),getdate(),null,null) SELECT a.num_doc FROM iptb00007 a WHERE a.cod_mov = movi[idx].cod_mov + AND a.bodega = datos_gen.bodega IF status != notfound THEN UPDATE iptb00007 set num_doc = datos_gen.num_doc WHERE cod_mov = movi[idx].cod_mov + AND bodega = datos_gen.bodega ELSE INSERT INTO iptb00007 VALUES - (datos_gen.num_doc,movi[idx].cod_mov,null,user,current, - null,null) + (datos_gen.num_doc,movi[idx].cod_mov,null,SUSER_SNAME(),getdate(), + null,null,datos_gen.bodega) END IF END IF IF datos_gen.tipo = "01" THEN @@ -642,7 +659,7 @@ INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* movi[idx].cantidad_1, movi[idx].cantidad_2,null,null,null,null,null, datos_gen.bodega, - null,user,current,null,null) + null,SUSER_SNAME(),getdate(),null,null) SELECT a.num_doc FROM intb00023 a WHERE a.cod_mov = movi[idx].cod_mov IF status != notfound THEN @@ -650,7 +667,7 @@ INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.* WHERE cod_mov = movi[idx].cod_mov ELSE INSERT INTO intb00023 VALUES - (datos_gen.num_doc,movi[idx].cod_mov,null,user,current, + (datos_gen.num_doc,movi[idx].cod_mov,null,SUSER_SNAME(),getdate(), null,null) END IF From c6bcf1b743eee6c26af20504dac7b7eb74ad3081 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 13:14:25 -0400 Subject: [PATCH 4/6] gitignore: quita la regla de bin duplicada (ya la agrego Abel) Co-Authored-By: Claude Sonnet 5.5 --- .gitignore | 6 ------ 1 file changed, 6 deletions(-) diff --git a/.gitignore b/.gitignore index 98cc1d6..78c8bd7 100644 --- a/.gitignore +++ b/.gitignore @@ -67,9 +67,3 @@ PROYECTO/bin/** *.key *.crt *.cer - -# ── PROYECTO/bin: solo se versionan los disenos de reporte (.4rp) ── -# (decision de Johnny Soto 2026-10-22: todo lo demas de bin queda fuera del repo) -PROYECTO/bin/** -!PROYECTO/bin/**/ -!PROYECTO/bin/**/*.4rp From 7f069af336013c5206d91b81fd0649da85b753c7 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 15:33:59 -0400 Subject: [PATCH 5/6] prprmt003: combo Equipo mas ancho (se cortaba el texto) y el reporte ahora imprime la Cantidad - prfmmt003pr.4fd: Equipo 30 -> 48 columnas y las columnas siguientes se corren 18. - prprmt003.4rp: hoja horizontal y nueva columna cantidad entre espesor y medida (el cambio de cantidad al modificar un documento no se veia al imprimir). Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/PRDIR/prfmmt003pr.4fd | 32 ++++++++++++++++---------------- PROYECTO/bin/prprmt003.4rp | 6 +++++- 2 files changed, 21 insertions(+), 17 deletions(-) diff --git a/PROYECTO/PRDIR/prfmmt003pr.4fd b/PROYECTO/PRDIR/prfmmt003pr.4fd index b88f827..b1dbe9c 100644 --- a/PROYECTO/PRDIR/prfmmt003pr.4fd +++ b/PROYECTO/PRDIR/prfmmt003pr.4fd @@ -81,22 +81,22 @@ - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + +
diff --git a/PROYECTO/bin/prprmt003.4rp b/PROYECTO/bin/prprmt003.4rp index ec046ee..3661554 100644 --- a/PROYECTO/bin/prprmt003.4rp +++ b/PROYECTO/bin/prprmt003.4rp @@ -1,6 +1,6 @@ - + @@ -49,6 +49,7 @@ + @@ -72,6 +73,9 @@ + + + From b09ba2374f39fdfe69207bf2a98fedd7dedb304e Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 27 Oct 2026 15:38:57 -0400 Subject: [PATCH 6/6] prprmt003.4rp: separa los titulos cantidad y medida Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/bin/prprmt003.4rp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PROYECTO/bin/prprmt003.4rp b/PROYECTO/bin/prprmt003.4rp index 3661554..7f60a55 100644 --- a/PROYECTO/bin/prprmt003.4rp +++ b/PROYECTO/bin/prprmt003.4rp @@ -50,7 +50,7 @@ - +