dbo.MG_GET_APP_INFO_TYPE_LICENSE

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_GET_APP_INFO_TYPE_LICENSE
@PARAMETER xml=''
with encryption
as
 
declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(100)
  
set @xStsnoheader='05'
set @xStsno='00';
set @xStsdes='success'

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 @motherboard_id_tercatat varchar(255)
declare @client_code varchar(255)
declare @interface_valid varchar(max)

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)),'')   , 
@interface_valid=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_30)),'')    
FROM         dt_app_set

declare @xValidDate datetime
declare @stsValidDate bit
declare @xstsValidDateDiff int
declare @xValidMechine bit
declare @xValidMechineDate datetime
declare @xTypeLicenseID int
declare @xTypeLicense varchar(255)
 
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='Unlimited'
 set @xstsValidDateDiff=0
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 @xstsValidDateDiff= DATEDIFF(day,getdate(),@xvalidDate)
 set @stsValidDate= case when  @xstsValidDateDiff>=0 then 1 else 0 end
 
  end
 END TRY  
 BEGIN CATCH
 set @stsValidDate=0
 set @infoValidDate='License Expired'
 END CATCH
end


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
 
 declare 
  @maxBC23palapa int
 ,@maxBC30palapa int
 ,@maxBC23Nonpalapa int
 ,@maxBC30Nonpalapa int
 ,@terpakaiBC23palapa int
 ,@terpakaiBC30palapa int
 ,@terpakaiBC23Nonpalapa int
 ,@terpakaiBC30Nonpalapa int  
 
-- 1 BC 2.3 1
--2 BC 2.6.2 1
--3 BC 2.7 1
--4 BC 4.0 1
--5 BC 2.6.1 2
--6 BC 3.0 2
--7 BC 4.1 2
--8 BC 2.5 2
--9 BC 2.7 2
 

 --declare @count_register_module_bc_23 int
 -- ,@count_register_module_bc_262 int
 -- ,@count_register_module_bc_27imp int
 -- ,@count_register_module_bc_40 int
 -- ,@count_register_module_bc_261 int
 -- ,@count_register_module_bc_30 int
 -- ,@count_register_module_bc_41 int
 -- ,@count_register_module_bc_25 int
 -- ,@count_register_module_bc_27exp int

 
if @interface_valid<>'' and @xValidMechine=1
begin
  set @interface_valid = substring(@interface_valid,len(@motherboard_id)+1,LEN(@interface_valid)-LEN(@motherboard_id))  
 declare @interfaceXML xml 
 set @interfaceXML=@interface_valid
 --'

-1

2

-1

2

123457111111

'
  
 declare @tmpInterface table ( aktivasi varchar(255), 
        edinum  varchar(255), 
        is_palapa bit,
        bc_type_id int)
 insert into @tmpInterface
 
 SELECT
    isnull(tempTable.item.value('@akt', 'varchar(255)'),0) ,
   isnull(tempTable.item.value('@num', 'varchar(255)'),0) ,
   isnull(tempTable.item.value('@m', 'bit'),0) ,
   isnull(tempTable.item.value('@t', 'int'),0) 
 FROM @interfaceXML.nodes('module/interface/r')  tempTable(item)

 set @maxBC23palapa=(
 select count(*) from @tmpInterface where is_palapa=1 and bc_type_id=1
 )
 set @maxBC30palapa=(
 select count(*) from @tmpInterface where is_palapa=1 and bc_type_id=6
 )

 set @maxBC23Nonpalapa=(
 select count(*) from @tmpInterface where is_palapa=0 and bc_type_id=1
 )
 set @maxBC30Nonpalapa=(
 select count(*) from @tmpInterface where is_palapa=0 and bc_type_id=6
 )

 set @terpakaiBC23palapa=(SELECT        COUNT(*) AS Expr1
 FROM            vw_interface_module
 WHERE        (bc_type_id = 1) and exists 
 (
  select aktivasi,edinum from (
   select aktivasi,edinum from @tmpInterface where (bc_type_id=1) and (is_palapa=1)
  ) xfilter where (vw_interface_module.aktivasi=xfilter.aktivasi) and 
      (vw_interface_module.edinum=xfilter.edinum)
 ))
 set @terpakaiBC30palapa=(SELECT        COUNT(*) AS Expr1
 FROM            vw_interface_module
 WHERE        (bc_type_id = 6) and exists 
 (
  select aktivasi,edinum from (
   select aktivasi,edinum from @tmpInterface where (bc_type_id=6) and (is_palapa=1)
  ) xfilter where (vw_interface_module.aktivasi=xfilter.aktivasi) and 
      (vw_interface_module.edinum=xfilter.edinum)
 ))

 set @terpakaiBC23Nonpalapa=(SELECT        COUNT(*) AS Expr1
 FROM            vw_interface_module
 WHERE        (bc_type_id = 1) and exists 
 (
  select aktivasi,edinum from (
   select aktivasi,edinum from @tmpInterface where (bc_type_id=1) and (is_palapa=0)
  ) xfilter where (vw_interface_module.aktivasi=xfilter.aktivasi) and 
      (vw_interface_module.edinum=xfilter.edinum)
 ))
 set @terpakaiBC30Nonpalapa=(SELECT        COUNT(*) AS Expr1
 FROM            vw_interface_module
 WHERE        (bc_type_id = 6) and exists 
 (
  select aktivasi,edinum from (
   select aktivasi,edinum from @tmpInterface where (bc_type_id=6) and (is_palapa=0)
  ) xfilter where (vw_interface_module.aktivasi=xfilter.aktivasi) and 
      (vw_interface_module.edinum=xfilter.edinum)
 ))

   
end
 

set @raw=(
select 
-1 as rID,
@client_code as 'client_code',
@AppName as 'app_name',
@xTypeLicenseID as 'type_license_id',
@xTypeLicense as 'type_license',
@infoValidDate as 'valid_date',
@stsValidDate as 'sts_valid_date',
@xstsValidDateDiff  as 'sts_valid_date_diff',
@xValidMechine as 'valid_mechine' ,
isnull(@maxBC23palapa,0) as 'bc23_palapa_max' ,
isnull(@maxBC23Nonpalapa,0) as 'bc23_non_palapa_max', 
isnull(@maxBC30palapa,0) as 'bc30_palapa_max' ,
isnull(@maxBC30Nonpalapa,0) as 'bc30_non_palapa_max' ,
isnull(@terpakaiBC23palapa,0) as 'bc23_palapa_terpakai' ,
isnull(@terpakaiBC23Nonpalapa,0) as 'bc23_non_palapa_terpakai', 
isnull(@terpakaiBC30palapa,0) as 'bc30_palapa_terpakai' ,
isnull(@terpakaiBC30Nonpalapa,0) as 'bc30_non_palapa_terpakai' ,
0 as 'jumlahNomorRegristrasiPalapa' 
  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