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
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