[Release] AutoCashPoint new version with All Character fix get Regen Cash

Code : wrote:
-- ================================================
-- Pembuat : HANRY ROSLAW
-- Dibuat Tanggal : <13 April 2014>
-- Keterangan :
-- ================================================

ALTER TABLE [dbo].[tbl_base]
ADD LogPlay INT NOT NULL DEFAULT ((0))

Code : wrote:USE [RF_World]

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- ================================================
-- Pembuat : HANRY ROSLAW
-- Dibuat Tanggal : <13 April 2014>
-- Keterangan :
-- ================================================

CREATE PROCEDURE [dbo].[pUpdate_RoslawBase]
@serial INT,
@logPlay INT
AS
BEGIN

SET NOCOUNT ON

UPDATE [dbo].[tbl_base]
SET LogPlay = @logPlay
WHERE Serial = @serial

END
GO

Code : wrote:USE [Billing]

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- ================================================
-- Pembuat : HANRY ROSLAW
-- Dibuat Tanggal : <13 April 2014>
-- Keterangan :
-- ================================================

CREATE PROCEDURE [dbo].[RF_AutocashRoslaw]
@id VARCHAR(17),
@cash INT
AS
BEGIN

SET NOCOUNT ON

UPDATE [dbo].[tbl_UserStatus]
SET Cash = (Cash + @cash)
WHERE id = @id

END
GO

Code : wrote:USE [RF_World]

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- ================================================
-- Pembuat :
-- Dibuat Tanggal : <13 April 2014>
-- Keterangan :
-- ================================================

CREATE TRIGGER [dbo].[AutocashRoslaw]
ON [dbo].[tbl_general]
FOR UPDATE
AS
BEGIN

SET NOCOUNT ON

DECLARE @GSerial INT
DECLARE @GDCK BIT
DECLARE @GPlay INT

DECLARE @BSerial INT
DECLARE @BDCK BIT
DECLARE @BAccount VARCHAR(17)
DECLARE @BPlay INT

DECLARE @regencash INT

IF UPDATE(TotalPlayMin)
BEGIN
SELECT @GSerial = Serial, @GDCK = DCK, @GPlay = TotalPlayMin FROM INSERTED
IF (@GSerial > 0 AND @GDCK = 0)
BEGIN
SELECT @BSerial = Serial, @BDCK = DCK, @BAccount = Account, @BPlay = LogPlay FROM [dbo].[tbl_base] WHERE Serial = @GSerial
IF (@BSerial > 0 AND @BDCK = 0)
BEGIN
SELECT @regencash = ((@GPlay-@BPlay)*60)
IF  @regencash > 0)
BEGIN
EXEC [Billing].[dbo].[RF_AutocashRoslaw] @id = @BAccount, @cash = @regencash
EXEC [RF_World].[dbo].[pUpdate_RoslawBase] @serial = @GSerial, @logPlay = @GPlay
END
END
END
END

END
GO