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

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,27 @@
+{
+  Esta funcion se utiliza para desplegar mensajes de errores en todos 
+  los sistemas de Ray-O-Vac Dominicana. 
+  Esta funcion busca el mensaje deseado en la tabla "msgtable" y lo
+  despliega en la linea de mensajes
+}
+DATABASE smarmotech
+
+FUNCTION msg2(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 
+            LET numero_msg = 22
+            SELECT desc_msg INTO descripcion FROM msgtable 
+                   WHERE cod_msg = numero_msg
+            ERROR descripcion ATTRIBUTE(BOLD) 
+         ELSE 
+            ERROR descripcion ATTRIBUTE(BOLD) 
+            LET numero_msg = 0
+         END IF
+END FUNCTION
+
+
+