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,65 @@
+{
+==========================================================================
+PROGRAMA      : IRPRRP005
+OBJETIVO      : Catalagogo de Repuestos con Existencias
+REALIZADO POR : JUAN F. SOTO
+FECHA         : DICIEMBRE 1, 1994.
+==========================================================================
+}
+DATABASE marmotech    
+GLOBALS
+ DEFINE trx RECORD LIKE irtb00006.*
+ DEFINE p_fecha1,p_fecha2 DATE,
+        cantidad DECIMAL(12,2),
+        opt1 CHAR(1)
+
+ DEFINE datos RECORD
+        cod_n      SMALLINT,
+        cod_grupo  SMALLINT,
+        cod_tipo   SMALLINT,
+        cod_sec    SMALLINT,
+        cantidad   DECIMAL(12,2)
+ END RECORD
+
+END GLOBALS
+
+MAIN
+CALL cierra()
+END MAIN
+FUNCTION cierra()
+
+OPTIONS
+  PROMPT LINE 12
+
+DISPLAY "R A Y . O . V A C  D O M I N I C A N A, S. A."
+AT 1,20
+DISPLAY "CIERRE TRANSACCIONES PRODUCTOS TERMINADOS"
+AT 2,22
+
+PROMPT "Fecha Inicial, Formato (dd/mm/yy)? " FOR p_fecha1
+PROMPT "Fecha Final, Formato (dd/mm/yy)? " FOR p_fecha2
+PROMPT "Esta seguro de proceder (S/N)? " FOR opt1
+
+DISPLAY "En Proceso... Espere Por Favor" AT 23,1 ATTRIBUTE (BOLD)
+
+# Introduce Informacion al Historico
+INSERT INTO irtb00003 SELECT *FROM irtb00006
+WHERE fecha between p_fecha1 and p_fecha2
+
+# Borra las Informacion del historico
+DELETE FROM irtb00006 WHERE fecha between p_fecha1 and p_fecha2
+
+DECLARE busca CURSOR FOR
+SELECT cod_n,cod_grupo,cod_tipo,cod_sec,sum(cantidad_2) 
+FROM irtb00003
+WHERE fecha <= p_fecha2 and status_t is null GROUP BY 1,2,3,4
+
+FOREACH busca INTO datos.*
+
+ INSERT INTO irtb00006(num_doc,fecha,cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec,
+                       cantidad_2,us_crea,fech_crea)
+ VALUES (1,p_fecha2,99,datos.cod_n,datos.cod_grupo,datos.cod_tipo,datos.cod_sec,
+         datos.cantidad,user,current)
+
+END FOREACH
+END FUNCTION