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,89 @@
+{
+
+ PROGRAMA     : cgprmt022
+ OBJETIVO     : Administrar las tasas mensuales
+ FECHA CREACION: Agosto 7, 2018
+ DESARROLLADO POR: ING. JUAN SOTO
+
+}
+GLOBALS
+ "cgprgb000.4gl"
+
+ MAIN
+   DEFER INTERRUPT
+   CALL STARTLOG("CGPRMT021.TXT")
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+
+   CONNECT to "smarmotech" AS "MSSQL" USER  usuarios USING clave
+   CALL cgprmt022()
+END MAIN
+FUNCTION cgprmt022()
+
+  DEFINE mtasa RECORD
+     ano      SMALLINT,
+     mes      SMALLINT,
+     ventas   SMALLINT,
+     tipo_cliente SMALLINT,
+     tasa     DEC(8,2)
+  END RECORD
+
+  OPEN WINDOW w1 WITH FORM "cgfmmt022"
+
+    INPUT BY NAME mtasa.*
+      BEFORE INPUT
+        CALL cventas()
+        LET mtasa.ano = YEAR(TODAY)
+        LET mtasa.mes = MONTH(TODAY)-1
+        DISPLAY BY NAME mtasa.ano,mtasa.mes
+        
+      AFTER INPUT
+        IF INT_FLAG THEN
+           CALL msg(16)
+           LET INT_FLAG = FALSE
+           EXIT INPUT
+        END IF
+        SELECT DISTINCT a.tipo_cliente FROM vetb00061 a WHERE a.tipo_cliente = mtasa.tipo_cliente AND
+                                                              a.ventas = mtasa.ventas
+        IF STATUS = NOTFOUND THEN
+           CALL fgl_winmessage("INFO","COMBINACION TIPO CLIENTE Y MONEDA ESTAN ERRADOS","INFO")
+           NEXT FIELD ventas
+        END IF         
+        SELECT DISTINCT a.ano,a.mes,a.ventas,a.tipo_cliente,a.tasa
+        INTO mtasa.ano,mtasa.mes,mtasa.ventas,mtasa.tipo_cliente
+        FROM cgtb00084 a WHERE a.ano = mtasa.ano AND a.mes = mtasa.mes AND
+                               a.ventas = mtasa.ventas AND a.tipo_cliente = mtasa.tipo_cliente
+        IF STATUS <> NOTFOUND THEN
+           DISPLAY BY NAME mtasa.*
+           UPDATE  cgtb00084 SET cgtb00084.tasa = mtasa.tasa,
+                                 us_mod = usuarios,
+                                fech_mod = getdate()
+                                WHERE cgtb00084.ano = mtasa.ano AND cgtb00084.mes = mtasa.mes AND
+                                      cgtb00084.ventas = mtasa.ventas AND 
+                                      cgtb00084.tipo_cliente = mtasa.tipo_cliente
+        ELSE
+           INSERT INTO cgtb00084 (ano,mes,ventas,tipo_cliente,tasa,us_crea,fech_crea) VALUES 
+           (mtasa.ano,mtasa.mes,mtasa.ventas,mtasa.tipo_cliente,mtasa.tasa,usuarios,getdate())        
+        END IF
+        CALL msg(13)
+      EXIT INPUT
+      END INPUT
+  CLOSE WINDOW w1
+END FUNCTION
+
+FUNCTION cventas()
+ 
+ DEFINE  kventas SMALLINT, dventas CHAR(30)
+ DEFINE pventas ui.ComboBox
+ 
+ LET pventas = ui.combobox.forname("formonly.ventas")
+ 
+ DECLARE bventas CURSOR FOR
+   SELECT a.ventas,a.descripcion FROM vetb00061 a
+   CALL pventas.clear()
+ 
+ FOREACH bventas INTO kventas,dventas
+  CALL pventas.additem(kventas,dventas)
+ END FOREACH
+
+END FUNCTION