Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs

2026-09-15 12:15:37 -04:00
parent 61195adc75 5667c1e508
commit c52fce4cb8
5 changed files with 37 additions and 4 deletions
@@ -1,5 +1,5 @@
 database smarmotech
-screen size 24 by 80
+screen size 24 by 80 title "Consulta Maestra de Productos"
 {

 Producto Terminado [a ]-[b ]-[c  ]-[d  ] [a1                             ]
@@ -9,8 +9,12 @@ DIRECTOR PROYECTO  :  JOSE ALFREDO PAULINO ALEJO
 }
 GLOBALS "ipprgb000.4gl"

-MAIN                
+MAIN
   DEFER INTERRUPT
+   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 ipprcs002()
 END MAIN
@@ -55,6 +59,7 @@ LET SELEC =
 ## Busca los registros con la condicion dada y verifica si el producto terminado
 ## existe en el catalogo de bienes y servicios.

+   CALL prod.clear()
   LET idx = 1
   FOREACH accion INTO prod[idx].*,descrip1
      IF int_flag THEN
@@ -328,7 +328,7 @@ DEFINE prod11 DYNAMIC ARRAY OF RECORD
   fecha_ordenada DATE
 END RECORD

-DEFINE prod ARRAY[200] OF RECORD
+DEFINE prod DYNAMIC ARRAY OF RECORD
   cod_n1     SMALLINT,
   cod_grupo1 SMALLINT,
   cod_tipo1  SMALLINT,