Real-Time Automated Silk System :)

This release might not be too useful...

Whats this for? It gives 10k gift silk bonus if purchased 10k silk..

SRO_VT_ACCOUNT -> Stored Procedure -> CGI_WebPurchaseSilk

PHP Code:

---

set ANSI_NULLS ON
set QUOTED_IDENTIFIER OFF
GO

ALTER                   PROCEDURE [CGI].[CGI_WebPurchaseSilk]
    @OrderID VARCHAR(25),
    @UserID   VARCHAR(25),
    @PkgID   INT,
    @NumSilk INT,
    @Price INT
    --@GiftSilk INT
as
    DECLARE @UserJID INT
    DECLARE @SilkRemain INT
    DECLARE @GiftSilkRemain INT
    --DECLARE @PointRemain INT
    SET @UserJID = CGI.getUserJID(@UserID)
    IF( @UserJID >= 0)
        BEGIN
        IF( not exists( SELECT OrderNumber from SK_SilkBuyList where OrderNumber = @OrderID))
        BEGIN
            BEGIN TRANSACTION
                           IF( not exists( SELECT * from SK_Silk where JID = @UserJID))
                BEGIN
                    IF( @NumSilk <= 10000)
                        BEGIN
                            INSERT SK_Silk(JID,silk_own,silk_gift,silk_Point)VALUES(@UserJID,@NumSilk,10000,0)
                        END
                    ELSE
                        BEGIN
                            INSERT SK_Silk(JID,silk_own,silk_gift,silk_Point)VALUES(@UserJID,@NumSilk,0,0)
                        END
                    --INSERT Silk Own
                    INSERT SK_SilkBuyList(UserJID,Silk_Type,Silk_Reason,Silk_Offset,Silk_Remain,ID,BuyQuantity,OrderNumber,SlipPaper,RegDate) VALUES( @UserJID,0,0,@NumSilk,@NumSilk,@PkgID,1,@OrderID,"User Purchase Silk from VDC-Net2E Billing System",GETDATE())
                    INSERT SK_SilkChange_BY_Web(JID,silk_remain,silk_offset,silk_type,reason) VALUES(@UserJID,@NumSilk,@NumSilk,0,0)
                END
                ELSE
                BEGIN
                    SET @SilkRemain = CGI.getSilkOwn(@UserJID)
                    SET @GiftSilkRemain = CGI.getSilkGift(@UserJID)
                    IF( @NumSilk <= 10000)
                        BEGIN
                            UPDATE SK_Silk SET silk_own = silk_own + @NumSilk WHERE JID = @UserJID
                            UPDATE SK_Silk SET silk_gift = silk_gift + 10000 WHERE JID = @UserJID
                        END
                    ELSE
                        BEGIN
                            UPDATE SK_Silk SET silk_own = silk_own + @NumSilk WHERE JID = @UserJID
                        END
                
                    --INSERT Silk Own
                    
                    INSERT SK_SilkBuyList(UserJID,Silk_Type,Silk_Reason,Silk_Offset,Silk_Remain,ID,BuyQuantity,OrderNumber,SlipPaper,RegDate) VALUES( @UserJID,0,0,@NumSilk,@SilkRemain + @NumSilk,@PkgID,1,@OrderID,"User Purchase Silk from VDC-Net2E Billing System",GETDATE())
                    INSERT SK_SilkChange_BY_Web(JID,silk_remain,silk_offset,silk_type,reason) VALUES(@UserJID,@SilkRemain + @NumSilk,@NumSilk,0,0)
                END
            IF (@@error <> 0 or @@rowcount = 0)
                BEGIN
                    SELECT Result = "FAIL"
                    ROLLBACK TRANSACTION
                    RETURN
                END
            SELECT Result = "SUCCESS"
            COMMIT TRANSACTION    
            RETURN
           END
        ELSE --else if order
           BEGIN
            SELECT Result = "ORDEREXIST"
           END    
        END
    ELSE
        BEGIN
            SELECT Result = "NOUSER"
            RETURN
        END

SET QUOTED_IDENTIFIER OFF 


---

Screenshot attached!
http://forum.ragezone.com/attachment...-2012-01-22-22