99 lines
2.9 KiB
Plaintext
99 lines
2.9 KiB
Plaintext
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
|