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