dbo.FN_CEISA_GET_CAR_AUTO

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

True

Execute As
Null on Null Input

False

Schema Bound

False

Assembly

Parameters

Name Data Type Length Description
(Result) varchar -1
@BCTYPE varchar 5
@MAXAJU int 4

Permissions

Type Action Owner
GrantWithGrantOption ALTER public
GrantWithGrantOption CONTROL public
GrantWithGrantOption EXECUTE public
GrantWithGrantOption REFERENCES public
GrantWithGrantOption TAKE OWNERSHIP public
GrantWithGrantOption VIEW DEFINITION public

SQL Script

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE FUNCTION dbo.FN_CEISA_GET_CAR_AUTO (@BCTYPE varchar(5),@MAXAJU int) 
RETURNS varchar(max) 
WITH encryption ,
EXECUTE AS CALLER 
AS
BEGIN
 declare @hasil varchar(255)

declare @ID_MODUL varchar(255)
,@KPPBC varchar(255)
,@ALAMAT_PENGUSAHA  varchar(255)
,@NPWP  varchar(255)
,@NOMOR_SKEP  varchar(255)
,@TANGGAL_SKEP date
,@NAMA_PENGUSAHA  varchar(255)
,@ID int
SELECT  
  @ID=ID
  , @ALAMAT_PENGUSAHA=ALAMAT_PENGUSAHA
  , @ID_MODUL=ID_MODUL
  , @KPPBC=KPPBC
  , @NAMA_PENGUSAHA=NAMA_PENGUSAHA
  , @NOMOR_SKEP=NOMOR_SKEP
  , @NPWP=NPWP
   ,@TANGGAL_SKEP=TANGGAL_SKEP 
 FROM OPENQUERY (TPBDB, 'SELECT * FROM tpbdb.aktivasi_aplikasi') 

  declare @SETTING_ID   bigint
 ,@SETTING_ALAMAT_PENGUSAHA varchar(255)
 ,@SETTING_FLAG_APLIKASI varchar(255)
 ,@SETTING_ID_PENGUSAHA varchar(255)
 ,@SETTING_JABATAN_TTD varchar(255)
 ,@SETTING_KODE_DOKUMEN_PABEAN varchar(255)
 ,@SETTING_KODE_ID_PENGUSAHA varchar(255)
 ,@SETTING_KOTA_TTD varchar(255)
 ,@SETTING_NAMA_PENGUSAHA varchar(255)
 ,@SETTING_NAMA_TTD varchar(255)
 ,@SETTING_NOMOR_AJU varchar(255)
 ,@SETTING_NOMOR_REGISTRASI varchar(255)
 ,@SETTING_STATUS_PENGUSAHA varchar(255)


-- SELECT top (1)
-- @SETTING_ID=ID
-- , @SETTING_ALAMAT_PENGUSAHA=ALAMAT_PENGUSAHA
-- , @SETTING_FLAG_APLIKASI=FLAG_APLIKASI
-- , @SETTING_ID_PENGUSAHA=ID_PENGUSAHA
-- , @SETTING_JABATAN_TTD=JABATAN_TTD
-- , @SETTING_KODE_DOKUMEN_PABEAN=KODE_DOKUMEN_PABEAN
-- , @SETTING_KODE_ID_PENGUSAHA=KODE_ID_PENGUSAHA
-- , @SETTING_KOTA_TTD=KOTA_TTD
-- , @SETTING_NAMA_PENGUSAHA=NAMA_PENGUSAHA
-- , @SETTING_NAMA_TTD=NAMA_TTD
-- , @SETTING_NOMOR_AJU=NOMOR_AJU
-- , @SETTING_NOMOR_REGISTRASI=NOMOR_REGISTRASI
-- , @SETTING_STATUS_PENGUSAHA=STATUS_PENGUSAHA
--FROM OPENQUERY(TPBDB, 'SELECT * FROM tpbdb.setting_aplikasi')
--order by ID



 


declare @tahun varchar(4)= YEAR(GETDATE()) 
declare @tanggal varchar(10)= REPLACE(convert(varchar(10),GETDATE(),121),'-','')
set @hasil =left(@KPPBC,4) + left(@BCTYPE,2) + replace(space(6-len(@ID_MODUL)),' ', '0') +  @ID_MODUL 


declare @current_urut int =isnull( (select dbo.RunSQLStr (
' SELECT * FROM OPENQUERY (TPBDB, ''SELECT MAX(CAST(RIGHT(NOMOR_AJU,6) as SIGNED )) as NOMOR_AJU_URUT FROM tpbdb.tpb_header where CAST(RIGHT(NOMOR_AJU,6) as SIGNED )< ' + cast(@MAXAJU as varchar(255)) + ' AND KODE_DOKUMEN_PABEAN =''''' + @BCTYPE +
''''' AND LEFT(NOMOR_AJU,' + cast(DATALENGTH(@hasil+ @tahun) as varchar(255)) +')=''''' + @hasil+ @tahun + 
''''' group by LEFT(NOMOR_AJU,'+ cast(DATALENGTH(@hasil+ @tahun) as varchar(255)) +
') '') ')),0)  
 

--DECLARE @MAX_CAR varchar(255)
--SELECT TOP (1) @MAX_CAR =NOMOR_AJU
--FROM OPENQUERY (TPBDB, 'SELECT * FROM tpbdb.tpb_header')
--WHERE (KODE_DOKUMEN_PABEAN = @BCTYPE)
--and (left(NOMOR_AJU,DATALENGTH(@hasil+@tahun))=@hasil+@tahun)
--and(cast(right(NOMOR_AJU,6) as int)<@START)
--order by left(NOMOR_AJU,16) + right(NOMOR_AJU,6) desc

--if @MAX_CAR is null or not(left(@MAX_CAR ,DATALENGTH(@hasil+ @tahun))=@hasil + @tahun)
-- set @hasil=@hasil+@tanggal+replace(space(6-len(@START)),' ', '0') + cast(@START +1 as varchar(255))
--else
--begin
 set @hasil=@hasil+@tanggal+ replace(space(6-len(@current_urut +1)),' ', '0') +  cast(@current_urut+1  as varchar(255)) 
--end

--@tahun
--07132300260920170220000002

----4 digit kode kantor pertama + 2 digit kode dokumen + - + 6 digit id modul + - + 8 digit tanggal aju (yyyymmdd) + - +6 digit aju
--071327-003820-20170306-000007
 
return @hasil
END

GO

Depends On

1