dbo.MG_GET_APP_NAME

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_GET_APP_NAME
@PARAMETER xml 
with encryption
as
declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(200)
  
set @xStsnoheader='01'
set @xStsno='00';
set @xStsdes='sukses'

declare @XmlSts xml
declare @raw xml


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 @XMLValidString varchar(max)

SELECT     
TOP (1)
@AppName=isnull(CONVERT(varchar(255),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_2)),'DEMO ONLY')  ,
@XMLValidString=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_30)),'')   ,
@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)),'')    
FROM         dt_app_set


declare 
 @jenis_indentitas_id int    
,@jenis_indentitas_name varchar(50)  
,@identitas_no varchar(50)  
,@angka_pengenal_import_id int   
,@angka_pengenal_import_nama varchar(50)  
,@angka_pengenal_import_nomor varchar(50)  
,@no_skep varchar(50)  
,@tanggal_skep date 
,@address varchar(255)  
,@city varchar(255)  
,@area_code varchar(255)  
,@area_name varchar(255)  
,@area_city varchar(255)  
,@nama varchar(100)  
,@nama_by_identitas varchar(100) 

if @XMLValidString <>''
 begin
 set @XMLValidString =isnull(substring(@XMLValidString,len(@motherboard_id)+1,LEN(@XMLValidString)-LEN(@motherboard_id)+1) ,'')
 declare  @XMLString xml 
 set @XMLString=@XMLValidString

 
 select
 @jenis_indentitas_id= isnull(tempTable.item.value('jenis_indentitas_id[1]', 'varchar(255)'),''),
 @jenis_indentitas_name= isnull(tempTable.item.value('jenis_indentitas_name[1]', 'varchar(255)'),'') ,
 @identitas_no= isnull(tempTable.item.value('identitas_no[1]', 'varchar(255)'),'') ,
 @angka_pengenal_import_id= isnull(tempTable.item.value('j_api_id[1]', 'varchar(255)'),'') ,
 @angka_pengenal_import_nama= isnull(tempTable.item.value('j_api_name[1]', 'varchar(255)'),'') ,
 @angka_pengenal_import_nomor= isnull(tempTable.item.value('nomor_api[1]', 'varchar(255)'),'') ,
 @no_skep= isnull(tempTable.item.value('no_skep[1]', 'varchar(255)'),'') ,
  @tanggal_skep= convert( date, isnull(tempTable.item.value('tanggal_skep[1]', 'varchar(255)'),'') ,121) , 
 @address= isnull(tempTable.item.value('address[1]', 'varchar(255)'),'') ,
 @city= isnull(tempTable.item.value('city[1]', 'varchar(255)'),''),
 @nama= isnull(tempTable.item.value('nama[1]', 'varchar(255)'),''),
 @nama_by_identitas= isnull(tempTable.item.value('nama_by_identitas[1]', 'varchar(255)'),'') ,
 @area_code= isnull(tempTable.item.value('area_code[1]', 'varchar(255)'),'') ,
 @area_name= isnull(tempTable.item.value('area_name[1]', 'varchar(255)'),'') ,
 @area_city= isnull(tempTable.item.value('area_city[1]', 'varchar(255)'),'')  
  FROM @XMLString.nodes('module/importir')  tempTable(item) 
end





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='01';
 set @xStsdes='Unregister Server' ;
goto h
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)
 print @xValidDate
 if @xValidDate is null
 begin
 set @stsValidDate=0
 set @infoValidDate='License Expired'
 end
 else
 begin
 set @infoValidDate=  case when   DATEDIFF(day,getdate(),@xValidDate)>=0 then '' else  'License Expired' end   
 ----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='02';
  set @xStsdes=  @infoValidDate  ;
 goto h
end



h:
 if @xStsno<>'00'
 begin
 set @xStsno='00'
 set @AppName=@xStsdes
 end
 
 
set @raw=(
select 
@AppName   as rID,
isnull(@address,'') as r1
 for xml  PATH('xrow'))
 set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))

 select  CAST( (select  @XmlSts ,@raw   for xml path ('result')
)  as XML)  as dt;

GO