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 @@
+FUNCTION numeroDeposito(xcuenta_no, xfecha, xsucid, xventas, xplataforma)
+    DEFINE
+        xcuenta_no VARCHAR(8),
+        xfecha DATE,
+        xnumdoc, xsucid INT,
+        xmonto, xvalorck, xvalorCr, xvalorEfectivo, xvalorComision, xvalorLink,xefectivopesos,xlinkpesos,xckpesos,xcrpesos
+            DEC(12, 2),
+        stetb01 STRING,
+        xventas VARCHAR(1),
+        xplataforma INT
+
+    IF xplataforma IS NOT NULL THEN
+        LET stetb01 =
+            "    
+          SELECT  ISNULL(MAX(a.num_doc),0)  FROM marmotech.dbo.tetb00001 a
+          WHERE a.cuenta_no = '",
+            xcuenta_no,
+            "' AND a.fecha = '",
+            xfecha USING "YYYY-MM-DD",
+            "' AND 
+                a.sucursal = '",
+            xsucid USING "<<<",
+            "' and a.ventas = '",
+            xventas,
+            "' AND a.plataforma = ",
+            xplataforma,
+            " AND a.status_t IS null"
+    ELSE
+        LET stetb01 =
+            "    
+          SELECT  ISNULL(MAX(a.num_doc),0)  FROM marmotech.dbo.tetb00001 a
+          WHERE a.cuenta_no = '",
+            xcuenta_no,
+            "' AND a.fecha = '",
+            xfecha USING "YYYY-MM-DD",
+            "' AND 
+                a.sucursal = ",
+            xsucid USING "<<<",
+            " and a.ventas = '",
+            xventas,
+            "' AND a.status_t IS null"
+    END IF
+    PREPARE btetb01 FROM stetb01
+    EXECUTE btetb01 INTO xnumdoc
+
+    IF xnumdoc <> 0 THEN
+        LET stetb01 =
+            "
+     SELECT ISNULL(SUM(a.monto),0),ISNULL(SUM(a.monto_ck),0),ISNULL(SUM(a.monto_tarjeta),0),
+            ISNULL(SUM(a.monto_efectivo),0),ISNULL(SUM(a.v_comision),0),ISNULL(SUM(a.monto_link),0)
+            ,ISNULL(SUM(a.efectivo_pesos),0),ISNULL(SUM(a.ck_pesos),0),ISNULL(SUM(a.link_pesos),0)
+            ,ISNULL(SUM(a.tarjeta_pesos),0)
+      
+     FROM marmotech.dbo.tetb00001 a
+     WHERE a.num_doc = ",
+            xnumdoc USING "<<<<<<<<<<<<",
+            " AND a.status_t IS null"
+
+        PREPARE dtetb01 FROM stetb01
+        EXECUTE dtetb01
+            INTO xmonto,
+                xvalorck,
+                xvalorCr,
+                xvalorEfectivo,
+                xvalorComision,
+                xvalorLink,xefectivopesos,xckpesos,xlinkpesos,xcrpesos
+    END IF
+
+    IF xmonto IS NULL THEN
+        LET xmonto = 0
+    END IF
+
+    IF xvalorck IS NULL THEN
+        LET xvalorck = 0
+    END IF
+
+    IF xvalorcr IS NULL THEN
+        LET xvalorcr = 0
+    END IF
+
+    IF xvalorefectivo IS NULL THEN
+        LET xvalorefectivo = 0
+    END IF
+    IF xvalorcomision IS NULL THEN
+        LET xvalorcomision = 0
+    END IF
+    IF xvalorlink IS NULL THEN
+        LET xvalorlink = 0
+    END IF
+
+    RETURN xnumdoc,
+        xmonto,
+        xvalorck,
+        xvalorCr,
+        xvalorEfectivo,
+        xvalorComision,
+        xvalorLink,xefectivopesos,xckpesos,xlinkpesos,xcrpesos
+END FUNCTION