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,85 @@
+{
+------------------------------------------------------------------------------
+PROGRAMAS   : COPRMT022
+OBJETIVO    : DAR MANTENIMIENTO A LA TABLA COTB00028 DIAS QUE PERMANECE UNA
+              MATERIA PRIMA EN ADUANAS.
+PROGRAMADR  : JUAN F. SOTO
+FECHA       : OCTUBRE 20, 1995
+------------------------------------------------------------------------------
+}
+DATABASE marmotech
+
+MAIN
+DEFINE aduana RECORD LIKE cotb00028.*,
+       p_companias RECORD LIKE companias.*,
+       l,numero_msg INTEGER,
+       formulario CHAR(80)
+
+DEFER INTERRUPT
+OPTIONS 
+    FORM LINE 9,
+    ERROR LINE 24,
+    COMMENT LINE 23
+    SELECT * INTO p_companias.* FROM companias
+
+OPEN FORM cofmmt022 FROM "cofmmt022"
+DISPLAY FORM cofmmt022
+
+CALL pantalla()
+DISPLAY "coprmt022" AT 4,3
+DISPLAY "Mantenimiento Dias Permanece Una Materia Prima En Aduana" AT 6,20
+   
+SELECT *INTO aduana.* FROM cotb00028
+
+INPUT BY NAME aduana.* WITHOUT DEFAULTS
+
+IF int_flag THEN
+   LET numero_msg = 2
+   CALL msg(numero_msg)
+   LET int_flag = false
+ELSE  
+   UPDATE cotb00028 set dia = aduana.dia
+   LET numero_msg = 13
+   CALL msg(numero_msg)
+END IF
+
+END MAIN    
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    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,YELLOW)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
+    DISPLAY "Sistema de Compras" AT 5,31
+    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION
+{
+  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
+}
+
+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
+