Description
Properties
| Name | Value |
|---|---|
| ANSI Nulls ON | True |
| Quoted Identifier ON | True |
| Encrypted | True |
| Execute As | |
| Assembly |
Parameters
| Name | Data Type | Length | Description |
|---|---|---|---|
| @PARAMETER | xml | -1 |
SQL Script
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_IMPORTIR_DATA
@PARAMETER xml=''
with encryption
as
declare @pemisah varchar(2)
set @pemisah=CHAR(13) + CHAR(10)
declare @resultX varchar(3000)
declare @XmlSts xml
declare @raw xml
declare @xStsnoheader varchar(2),
@xStsno varchar(2),
@xStsdes varchar(4000)
set @xStsnoheader='07'
set @xStsno='00';
set @xStsdes='sukses'
SET NOCOUNT ON
exec MG_CHECK_CREATE_PERIODE @xStsno output,@xStsdes output;
if not(
@xStsno ='00'
)
begin
set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
goto g
end
SET NOCOUNT OFF
BEGIN TRY
BEGIN TRANSACTION;
SET NOCOUNT ON
DECLARE @NOW datetime
set @NOW =GETDATE()
declare @ip varchar(255)
declare
@id int ,
@readonly int
execUTE [dbo].[S_ALL_LOG_DETAIL]
@LOG_PARAM =@PARAMETER,
@id = @id OUTPUT,
@readonly = @readonly OUTPUT,
@no = @xStsno OUTPUT,
@des = @xStsdes OUTPUT
if @xStsno <>'00'
goto f
declare @motherboard_id varchar(255)
declare @XMLValidString varchar(max)
SELECT
TOP (1)
@XMLValidString=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h' , set_30)),'') ,
@motherboard_id=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h' , set_23)),'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')
FROM dt_app_set
if @XMLValidString <>''
begin
set @XMLValidString =isnull(substring(@XMLValidString,len(@motherboard_id)+1,LEN(@XMLValidString)-LEN(@motherboard_id)+1) ,'')
declare @XMLString xml
set @XMLString=@XMLValidString
set @raw = (SELECT
isnull(tempTable.item.value('client_id[1]', 'int'),-1)as client_id,
isnull(tempTable.item.value('jenis_indentitas_id[1]', 'int'),-1) as jenis_indentitas_id,
isnull(tempTable.item.value('jenis_indentitas_name[1]', 'varchar(50)'),0) as jenis_indentitas_name,
isnull(tempTable.item.value('identitas_no[1]', 'varchar(50)'),0) as identitas_no,
isnull(tempTable.item.value('j_api_id[1]', 'int'),-1) as j_api_id,
isnull(tempTable.item.value('j_api_name[1]', 'varchar(50)'),0) as j_api_name,
isnull(tempTable.item.value('nomor_api[1]', 'varchar(50)'),0) as nomor_api,
isnull(tempTable.item.value('no_skep[1]', 'varchar(50)'),0) as no_skep,
tempTable.item.value('tanggal_skep[1]', 'datetime') as tanggal_skep,
isnull(tempTable.item.value('address[1]', 'varchar(255)'),0) as address ,
isnull(tempTable.item.value('city[1]', 'varchar(255)'),0) as city,
isnull(tempTable.item.value('nama[1]', 'varchar(100)'),0) as nama ,
isnull(tempTable.item.value('area_code[1]', 'varchar(255)'),0) as area_code ,
isnull(tempTable.item.value('area_name[1]', 'varchar(255)'),0) as area_name ,
isnull(tempTable.item.value('area_city[1]', 'varchar(255)'),0) as area_city
FROM @XMLString.nodes('module/importir') tempTable(item)
for xml path ('xrow')
);
end
f:
COMMIT TRANSACTION;
set nocount off
END TRY
BEGIN CATCH
IF (@@TRANCOUNT > 0)
ROLLBACK TRAN;
set @xStsno='88'
set @xStsdes= ERROR_MESSAGE()
END CATCH
g:
set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
select CAST( (select @XmlSts,isnull(@raw ,'') for xml path ('result')
) as XML) as dt
GO
GO
create procedure dbo.MG_IMPORTIR_DATA
@PARAMETER xml=''
with encryption
as
declare @pemisah varchar(2)
set @pemisah=CHAR(13) + CHAR(10)
declare @resultX varchar(3000)
declare @XmlSts xml
declare @raw xml
declare @xStsnoheader varchar(2),
@xStsno varchar(2),
@xStsdes varchar(4000)
set @xStsnoheader='07'
set @xStsno='00';
set @xStsdes='sukses'
SET NOCOUNT ON
exec MG_CHECK_CREATE_PERIODE @xStsno output,@xStsdes output;
if not(
@xStsno ='00'
)
begin
set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
goto g
end
SET NOCOUNT OFF
BEGIN TRY
BEGIN TRANSACTION;
SET NOCOUNT ON
DECLARE @NOW datetime
set @NOW =GETDATE()
declare @ip varchar(255)
declare
@id int ,
@readonly int
execUTE [dbo].[S_ALL_LOG_DETAIL]
@LOG_PARAM =@PARAMETER,
@id = @id OUTPUT,
@readonly = @readonly OUTPUT,
@no = @xStsno OUTPUT,
@des = @xStsdes OUTPUT
if @xStsno <>'00'
goto f
declare @motherboard_id varchar(255)
declare @XMLValidString varchar(max)
SELECT
TOP (1)
@XMLValidString=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h' , set_30)),'') ,
@motherboard_id=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h' , set_23)),'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')
FROM dt_app_set
if @XMLValidString <>''
begin
set @XMLValidString =isnull(substring(@XMLValidString,len(@motherboard_id)+1,LEN(@XMLValidString)-LEN(@motherboard_id)+1) ,'')
declare @XMLString xml
set @XMLString=@XMLValidString
set @raw = (SELECT
isnull(tempTable.item.value('client_id[1]', 'int'),-1)as client_id,
isnull(tempTable.item.value('jenis_indentitas_id[1]', 'int'),-1) as jenis_indentitas_id,
isnull(tempTable.item.value('jenis_indentitas_name[1]', 'varchar(50)'),0) as jenis_indentitas_name,
isnull(tempTable.item.value('identitas_no[1]', 'varchar(50)'),0) as identitas_no,
isnull(tempTable.item.value('j_api_id[1]', 'int'),-1) as j_api_id,
isnull(tempTable.item.value('j_api_name[1]', 'varchar(50)'),0) as j_api_name,
isnull(tempTable.item.value('nomor_api[1]', 'varchar(50)'),0) as nomor_api,
isnull(tempTable.item.value('no_skep[1]', 'varchar(50)'),0) as no_skep,
tempTable.item.value('tanggal_skep[1]', 'datetime') as tanggal_skep,
isnull(tempTable.item.value('address[1]', 'varchar(255)'),0) as address ,
isnull(tempTable.item.value('city[1]', 'varchar(255)'),0) as city,
isnull(tempTable.item.value('nama[1]', 'varchar(100)'),0) as nama ,
isnull(tempTable.item.value('area_code[1]', 'varchar(255)'),0) as area_code ,
isnull(tempTable.item.value('area_name[1]', 'varchar(255)'),0) as area_name ,
isnull(tempTable.item.value('area_city[1]', 'varchar(255)'),0) as area_city
FROM @XMLString.nodes('module/importir') tempTable(item)
for xml path ('xrow')
);
end
f:
COMMIT TRANSACTION;
set nocount off
END TRY
BEGIN CATCH
IF (@@TRANCOUNT > 0)
ROLLBACK TRAN;
set @xStsno='88'
set @xStsdes= ERROR_MESSAGE()
END CATCH
g:
set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
select CAST( (select @XmlSts,isnull(@raw ,'') for xml path ('result')
) as XML) as dt
GO
Used By
No items found