dbo.MG_CHECK_CREATE_PERIODE

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

create procedure dbo.MG_CHECK_CREATE_PERIODE
@xStsno varchar(2) output,
@xStsdes varchar(2000) output
WITH 
---XencX---encryption ,
EXECUTE AS CALLER
as
 

DECLARE @NOW datetime
set @NOW =GETDATE()
 
set @xStsno='00';
set @xStsdes='sukses';
 

declare @AppName varchar(255)
declare @ValidDate varchar(255)
declare @infoValidDate varchar(255)
declare @ValidMechine varchar(255)
declare @TypeLicense varchar(255)
declare @motherboard_id varchar(255)
declare @client_code varchar(255)
declare @motherboard_id_tercatat varchar(255)
declare @info_tenggang_closing varchar(255)
 
SELECT     
TOP (1)
@client_code =isnull(CONVERT(varchar(255),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_3)),'')  ,
@AppName=isnull(CONVERT(varchar(255),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_2)),'DEMO ONLY')  ,
@motherboard_id=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_23)),'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')   ,
@ValidMechine=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_28)),'0')   ,
@TypeLicense=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_29)),'-1')  ,
@ValidDate=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_22)),'') ,   
@info_tenggang_closing=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_11)),'')    
FROM         dt_app_set

declare @xValidDate datetime
declare @stsValidDate bit
declare @xValidMechine bit
declare @xValidMechineDate datetime
declare @xTypeLicenseID int
declare @xTypeLicense varchar(255)
  

BEGIN TRY
set @motherboard_id_tercatat =isnull( substring(@ValidMechine,1,LEN(@motherboard_id))  ,'')
 if @motherboard_id_tercatat=@motherboard_id COLLATE SQL_Latin1_General_CP1250_CS_AS
  set  @xValidMechine=1
 else
 set @xValidMechine=0
 
if @xValidMechine=1
begin
  set @xValidMechineDate =isnull(convert(datetime, substring(@ValidMechine,len(@motherboard_id)+1,LEN(@ValidMechine)-LEN(@motherboard_id)+1),121),GETDATE()-1)
 if DATEDIFF(day,getdate(),@xValidMechineDate)<0
 set @xValidMechine=0
 end
 END TRY  
BEGIN CATCH
set @xValidMechine=0
END CATCH

if @xValidMechine=0
begin   
 set @xStsno='76';
 set @xStsdes='Belum Register Server , Hubungi Customer Support' ;
goto f
end

 
BEGIN TRY
set @xTypeLicenseID =  isnull(substring(@TypeLicense,len(@motherboard_id)+1,1) ,2)
set @xTypeLicense =  isnull(substring(@TypeLicense,len(@motherboard_id)+2,LEN(@TypeLicense)-LEN(@motherboard_id)) ,'Expire Mode')
END TRY  
BEGIN CATCH
set @xTypeLicenseID = 2
set @xTypeLicense='Expire Mode'
END CATCH


if @xTypeLicenseID=1
begin
 set @stsValidDate=1
 set @infoValidDate='Unlimeted'
end
else if @xTypeLicenseID=2
begin
 BEGIN TRY
   set @xValidDate =CONVERT(datetime, substring(@ValidDate,len(@motherboard_id)+1,LEN(@ValidDate)-LEN(@motherboard_id)),121)
   if @xValidDate is null
  begin
  set @stsValidDate=0
  set @infoValidDate='License Expired'
  end
  else
  begin
  set @infoValidDate= CONVERT(varchar(255),@xvalidDate,103) + '(' + case when   DATEDIFF(day,getdate(),@xValidDate)>=0 then 'OK' else  'License Expired' end  + ')'
  set @stsValidDate= case when   DATEDIFF(day,getdate(),@xvalidDate)>=0 then 1 else 0 end
   end
 END TRY  
 BEGIN CATCH
  set @stsValidDate=0
  set @infoValidDate='License Expired'
 END CATCH
end
if @stsValidDate=0
begin   
  set @xStsno='77';
 set @xStsdes=@infoValidDate + ', Hubungi Customer Support' ;
goto f
end

 
 f: 


GO