Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/seguridad2.0/resources/msg.4gl

@@ -0,0 +1,19 @@
+--SCHEMA smarmotech
+
+FUNCTION msg(numero_msg)
+         DEFINE numero_msg SMALLINT
+         DEFINE descripcion CHAR (60)
+         SELECT desc_msg INTO descripcion FROM msgtable 
+                WHERE cod_msg = numero_msg
+
+         IF status = NOTFOUND THEN 
+            
+            SELECT desc_msg INTO descripcion FROM msgtable 
+                   WHERE cod_msg = 22
+            LET descripcion = descripcion CLIPPED,numero_msg using "<<<<"
+            ERROR descripcion ATTRIBUTE(BOLD) 
+         ELSE 
+            ERROR descripcion ATTRIBUTE(BOLD) 
+            LET numero_msg = 0
+         END IF
+END FUNCTION

PROYECTO/seguridad2.0/resources/segbuscaUsuarios.4gl

@@ -0,0 +1,48 @@
+FUNCTION buscaUsuarios()
+
+    DEFINE
+        Duser DYNAMIC ARRAY OF RECORD --Display user abreviado
+            ficha1 INT,
+            usuario1 VARCHAR(100),
+            nombreusuario1 VARCHAR(100),
+            email1 VARCHAR(100)
+        END RECORD,
+        idx INT
+
+    DECLARE buscar CURSOR FOR
+        SELECT num_emp, usuario, nombreusuario, email FROM seg0001
+
+    LET idx = 1
+    FOREACH buscar INTO Duser[idx].*
+        LET idx = idx + 1
+    END FOREACH
+
+    RETURN Duser
+    
+END FUNCTION
+
+FUNCTION buscaPropiedades2(usuario1 VARCHAR(100)) --Propiedades del table
+
+    DEFINE
+        propiedades2 DYNAMIC ARRAY OF RECORD --tabla seg0007
+            sec_vend SMALLINT,
+            nombre VARCHAR(100),
+            tipo_usuario1 VARCHAR(100),
+            comision CHAR(10),
+            porc_cobros DECIMAL(12, 4)
+        END RECORD,
+        idx INT
+
+    DECLARE buscar1 CURSOR FOR
+        SELECT sec_vend, nombre, tipo_usuario, comision, porc_cobros
+            FROM seg0007
+            WHERE usuario = usuario1
+
+    LET idx = 1
+    FOREACH buscar1 INTO propiedades2[idx].*
+        LET idx = idx + 1
+    END FOREACH
+
+    RETURN propiedades2
+
+END FUNCTION