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,98 @@
+{
+-------------------------------------------------------------------------------
+PROGRAMA           :  COPRCS002
+OBJETIVO           :  Consulta Maestra de Codigos Arancelarios
+PROGRAMADOR        :  JUAN SOTO                    
+FECHA REALIZACION  :  Agosto, 1997
+DIRECTOR PROYECTO  :  JOSE ALFREDO PAULINO
+-------------------------------------------------------------------------------
+}
+GLOBALS "coprgb000.4gl"
+
+FUNCTION coprcs002()
+  WHENEVER ERROR CONTINUE
+   CLEAR SCREEN
+
+   OPTIONS
+        FORM LINE 9,
+        ERROR LINE 23,
+        COMMENT LINE 21
+
+   OPEN FORM cofmcs002 FROM "cofmcs002"
+   DISPLAY FORM cofmcs002
+   CALL PANTALLA()
+   DISPLAY "<Esc> Continua Consulta" AT 2,3
+   DISPLAY "<Delete> Cancela Operacion" AT 2,50
+   DISPLAY "coprcs002" AT 4,3
+   DISPLAY "Codigos Arancelarios" AT 6,30 
+
+   LABEL volver:
+   CONSTRUCT criterio ON cod_nab FROM cod_nab
+
+        IF int_flag THEN
+           LET numero_msg = 2
+           CALL msg(numero_msg)
+           LET int_flag = FALSE
+           RETURN
+        END IF
+
+## Se seleccionan los campos que el usuario debe ver en la pantalla
+   LET SELEC = "SELECT cod_nab,descrip_esp,descrip_ing ",
+               " FROM cotb00005 ",
+               " WHERE ",
+               "status_t is null AND ",
+               criterio clipped,
+               " ORDER BY 1 "
+
+        IF int_flag THEN
+           LET numero_msg = 2
+           CALL msg(numero_msg)
+           LET int_flag = FALSE
+           RETURN
+        END IF
+
+   DISPLAY "Buscando Informacion... Espere Por Favor" AT 21,2 
+         ATTRIBUTE (YELLOW)
+
+   PREPARE busca FROM selec
+   DECLARE accion CURSOR FOR busca
+   OPEN accion
+   DISPLAY "                                        " AT 21,2 
+
+## Busca los registros que cumplan con la condicion dada y verifica si el
+## codigo arancelario existe en el catalogo de aranceles
+
+   LET idx = 1
+   FOREACH accion INTO nab[idx].*
+      LET idx = idx + 1
+      IF STATUS = NOTFOUND THEN
+         LET numero_msg = 3
+         CALL msg(numero_msg)
+         SLEEP 2
+         RETURN
+      END IF
+
+     CALL integridad()
+         IF bandera = 1 THEN
+            LET bandera = 0
+            RETURN
+         END IF 
+
+   END FOREACH
+
+   CALL set_count (idx-1)
+   DISPLAY ARRAY nab TO consart.* 
+
+## Verifica si el usuario presiono la tecla <Delete>
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = false
+       RETURN
+    ELSE
+       CLEAR FORM
+       GOTO volver
+    END IF
+
+END FUNCTION
+