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,113 @@
+{
+===========================================================================
+PROGRAMA:     ALPRPC001
+OBJETIVO:     CIERRE DE TODOS LOS INVENTARIOS EXISTENTES EN LA EMPRESA.
+PROGRAMADOR:  JUAN F. SOTO
+FECHA      :  NOVIEMBRE 28, 1994
+==========================================================================
+}
+DATABASE rayovac
+GLOBALS
+| 
+|      Database not found or no system permission.
+| See error number -329.
+| 
+|      The database "rayovac" cannot be found or opened.  If the database 
+| exists, check the database permissions on the database.  In 
+| addition, check the system permissions on the database directory 
+| and its ascendant directories.
+| See error number -4305.
+DEFINE nombre_tabla,tabla_histo CHAR(9)
+DEFINE columnas RECORD LIKE syscolumns.*
+DEFINE tablas RECORD LIKE systables.*
+DEFINE i,idx,p_ano SMALLINT
+DEFINE inserta,selec CHAR(100)
+DEFINE opt1 CHAR(1)
+DEFINE fecha_inicial,fecha_final DATE
+
+END GLOBALS
+
+MAIN 
+CALL busca_datos()
+END MAIN
+
+FUNCTION busca_datos()
+CLEAR SCREEN
+OPTIONS
+  PROMPT LINE 8 
+
+DISPLAY "R A Y .O. V A C  D O M I N I C A N A, S. A." AT 1,19 ATTRIBUTE(BOLD)
+DISPLAY "CIERRE INVENTARIOS" AT 2,25 ATTRIBUTE(BOLD)
+
+PROMPT "Entre Nombre De la Tabla A Cerrar? " FOR nombre_tabla
+PROMPT "Entre Nombre De la Tabla Historica? " FOR tabla_histo 
+PROMPT "Entre Ano A Cerrar? " FOR p_ano
+DISPLAY "El Programa Listara las columnas que pertenezcan a la tabla"
+AT 14,1
+DISPLAY "que se va a cerrar las columnas que pertenezcan al la tabla"
+AT 14,1
+LET selec = "SELECT * FROM systables ",
+            "WHERE tabname = ? "
+
+PREPARE comando1 FROM selec
+DECLARE busca1 CURSOR FOR comando1
+OPEN busca1 USING nombre_tabla
+
+FETCH busca1 INTO tablas.*
+DECLARE busca2 CURSOR FOR
+SELECT * FROM syscolumns
+WHERE @tabid = tablas.tabid
+
+LET idx = 12
+DISPLAY nombre_tabla at 10,1
+DISPLAY "=====================" AT 11,1
+FOREACH busca2 INTO columnas.*
+
+IF idx < 24 THEN
+DISPLAY columnas.colname AT idx,1
+ELSE
+PROMPT "Presione <Enter> Para Continuar" for opt1
+LET idx = 12
+FOR i =1 TO 24 
+if idx < 24 then
+DISPLAY "                                    " AT idx,1
+LET idx = idx + 1
+end if
+END FOR
+LET idx = 12
+END IF
+LET idx = idx + 1
+END FOREACH
+PROMPT "Entre Nombre Columna control periodo? " for columnas.colname
+
+PROMPT "Deseas Proseguir Con este Proceso? " FOR opt1
+LET opt1 = upshift(opt1)
+
+IF opt1 != "S" THEN
+   RETURN
+END IF
+
+SELECT fecha_inicio INTO fecha_inicial
+FROM prdtable 
+WHERE ano = p_ano and mes = 1
+
+SELECT fecha_corte  INTO fecha_final  
+FROM prdtable 
+WHERE ano = p_ano and mes = 12
+
+LET borra = "DELETE FROM ",tabla_histo clipped,
+            "WHERE ",columnas.colname clipped,
+            " between ? and ? "
+
+LET inserta = "INSERT INTO ",tabla_histo,  
+              " SELECT *FROM ",nombre_tabla,
+              " WHERE ",columnas.colname clipped,
+              " between ? and ? "
+              
+display "En Proceso... Espere" at 20,1
+PREPARE comando3 FROM borra
+PREPARE comando2 FROM inserta
+
+EXECUTE comando2 USING fecha_inicial,fecha_final
+EXECUTE comando3 USING fecha_inicial,fecha_final
+END FUNCTION