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,62 @@
+{
+  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
+    DEFINE numero_msg SMALLINT
+    DEFINE bandera INT
+    
+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 
+            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
+
+
+FUNCTION integridad()
+         IF sqlca.sqlcode < 0 THEN
+             LET numero_msg = sqlca.sqlcode
+             CALL msg(numero_msg)
+              DISPLAY numero_msg AT 23,70
+            LET bandera = 1    
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+
+FUNCTION msgrp000(tipo_papel)
+         DEFINE tipo_papel SMALLINT,
+                longitud   CHAR(11),
+                linea_papel CHAR(50) 
+
+         CASE 
+            WHEN tipo_papel = 1
+                 LET longitud = " 9 1/2 x 11"
+            WHEN tipo_papel = 2
+                 LET longitud = "14 7/8 x 11"
+         END CASE
+
+         LET linea_papel = "Coloque papel ",longitud," en la impresora." 
+         DISPLAY linea_papel 
+                 AT 15,14 
+         DISPLAY "Asegurese de que la impresora este encendida."
+                 AT 16,14 
+         DISPLAY "<Esc> Ejecuta impresion     <Supr> Cancela impresion" 
+                 AT 18,14 
+
+RUN "type C:\\archivo > %USPRINT%" 
+END FUNCTION
+