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

PROYECTO/ipdir/ipfmcs002.per

@@ -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                             ]

PROYECTO/ipdir/ipprcs002.4gl

@@ -11,6 +11,10 @@ GLOBALS "ipprgb000.4gl"
 
 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

PROYECTO/ipdir/ipprgb000.4gl

@@ -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,

PROYECTO/mbsERP.4pw

@@ -517,6 +517,15 @@
         <File filePath="ipdir/ipfmmt017.4fd"/>
         <File filePath="ipdir/ipfmwd008.per"/>
         <File filePath="ipdir/vefmwd002_ip.4fd"/>
+        <File filePath="ipdir/ipfmcs002.per"/>
+        <File filePath="ipdir/ipfmcs006.4fd"/>
+        <File filePath="ipdir/ipfmcs004.4fd"/>
+        <File filePath="ipdir/coloca_ubicacion.4fd"/>
+        <File filePath="ipdir/ipfmcs004b.per"/>
+        <File filePath="ipdir/ipfmcs004_1.4fd"/>
+      </Library>
+      <Library binaryName="UBICACIONDH_IP" dependencies="-1026233879" id="1763548200" label="UBICACIONDH_IP">
+        <File filePath="ipdir/ubicacionDH.4gl"/>
       </Library>
       <Library binaryName="FUNCIONES_IP" dependencies="-1026233879" id="1763548104" label="FUNCIONES_IP">
         <File filePath="ipdir/ipprgb000.4gl"/>
@@ -531,6 +540,7 @@
         <File filePath="ipdir/ubicacionH.4gl"/>
         <File filePath="otrodir/LlenarUbicaciones.4gl"/>
         <File filePath="otrodir/categorias.4gl"/>
+        <File filePath="otrodir/pantalla_ip.4gl"/>
         <File filePath="ipdir/ipactualizareqtrx.4gl"/>
         <File filePath="ipdir/loadDespiece.4gl"/>
       </Library>
@@ -592,7 +602,7 @@
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000013" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprcs006.4gl"/>
       </Application>
-      <Application binaryName="ipprcs004" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000014" label="ipprcs004">
+      <Application binaryName="ipprcs004" dependencies="1763548104,-1026233879,-764824792,1763548200,-1423229125" externalDependencies="libgre.42x" id="-960000014" label="ipprcs004">
         <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000014" label="Configuration"/>
         <File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004.4gl"/>
       </Application>

PROYECTO/otrodir/pantalla_ip.4gl

@@ -0,0 +1,18 @@
+GLOBALS "../ipdir/ipprgb000.4gl"
+
+FUNCTION pantalla()
+   DEFINE fecha CHAR(8),
+          hora char(5),
+          l SMALLINT
+   SELECT UNIQUE a.* INTO p_companias.* FROM companias a
+   LET fecha = today USING "dd/mm/yy"
+   LET hora = time
+   LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+   DISPLAY p_companias.nombre CLIPPED AT 4,l ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (BLUE)
+    DISPLAY "Sistema Inventario de Productos" AT 5,25
+    DISPLAY hora AT 6,73 ATTRIBUTE(BLUE)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION