dbo.MG_REG4_DATA

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

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_REG4_DATA
@PARAMETER xml 
---XencX---with encryption
as
 declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(100)
set @xStsnoheader='01'
set @xStsno='00';
set @xStsdes='sukses'

declare @XmlSts xml
declare @raw xml

 SET NOCOUNT  ON
 declare @data_by varchar(20) 
   ,@key varchar(1000)
    ,@info_interface varbinary(max)
    

 SELECT
  @data_by=tempTable.item.value('data_by[1]', 'varchar(255)') ,
  @info_interface= tempTable.item.value('info_interface[1]', 'varbinary(max)') ,
    @key= tempTable.item.value('key[1]', 'varchar(255)')  
  FROM @PARAMETER.nodes('param/field')  tempTable(item)
  
  
  if @key='adiTioPriambodoCumi02ti0K0s0ng' COLLATE SQL_Latin1_General_CP1250_CS_AS
  begin
  
     UPDATE     dt_app_set
    SET              
    set_30 = @info_interface   ;

    
  ----CHECK APAKAH DATA IMPORTIR SAMA DENGAN YANG LAMA
  declare @XMLValidString varchar(max),@motherboard_id 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
    declare @detail xml
 
    if @XMLValidString <>''
    begin
    set @XMLValidString =isnull(substring(@XMLValidString,len(@motherboard_id)+1,LEN(@XMLValidString)-LEN(@motherboard_id)+1) ,'')
    declare  @XMLString xml 
    set @XMLString=@XMLValidString

    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) 
 
    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 @importir_id int

    if (select count(*) from dt_importir)=0
    begin
      INSERT INTO dt_importir
            (field_1, field_2, field_3, field_4, field_5, field_6, field_7, field_8, field_9, field_10, field_11, field_12, field_13, field_14, field_15)
     VALUES        ( 
      ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , cast(@jenis_indentitas_id as varchar(255)))   
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @jenis_indentitas_name)   
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @identitas_no)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , cast(@angka_pengenal_import_id as varchar(255)))
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @angka_pengenal_import_nama)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @angka_pengenal_import_nomor)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @no_skep)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , convert(varchar(255),@tanggal_skep,121))
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @address)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @city)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_code)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_name)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_city)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @nama)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @nama_by_identitas)
     )
     set @importir_id=scope_identity()
     end
    else
    begin
     set @importir_id=(SELECT    top 1    importir_id
      FROM            dv_importir
      WHERE        (jenis_indentitas_id = @jenis_indentitas_id) AND (jenis_indentitas_name = @jenis_indentitas_name) AND (identitas_no = @identitas_no) AND 
      (angka_pengenal_import_id = @angka_pengenal_import_id) AND (angka_pengenal_import_nama = @angka_pengenal_import_nama) AND 
      (angka_pengenal_import_nomor = @angka_pengenal_import_nomor) AND (no_skep = @no_skep) AND (tanggal_skep = @tanggal_skep) AND 
      (address = @address) AND (city = @city) AND (area_code = @area_code) AND (area_name = @area_name) AND (area_city = @area_city) AND (nama = @nama) 
      AND (nama_by_identitas = @nama_by_identitas)
      order by importir_id desc
     )

     if @importir_id is null
     begin
      INSERT INTO dt_importir
             (field_1, field_2, field_3, field_4, field_5, field_6, field_7, field_8, field_9, field_10, field_11, field_12, field_13, field_14, field_15)
      VALUES        ( 
      ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , cast(@jenis_indentitas_id as varchar(255)))   
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @jenis_indentitas_name)   
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @identitas_no)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , cast(@angka_pengenal_import_id as varchar(255)))
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @angka_pengenal_import_nama)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @angka_pengenal_import_nomor)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @no_skep)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , convert(varchar(255),@tanggal_skep,121))
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @address)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @city)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_code)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_name)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @area_city)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @nama)
     ,ENCRYPTBYPASSPHRASE('Ap4TanyaT4nyA MauT4uAja'    , @nama_by_identitas)
     )
     set @importir_id=scope_identity()

     end
     end
   
    --IF (NOT EXISTS (SELECT *
    -- FROM INFORMATION_SCHEMA.TABLES
    -- WHERE TABLE_SCHEMA = 'dbo'
    -- AND TABLE_NAME = 'dt_doc_in_header_bc'))
    -- begin
    -- UPDATE dt_doc_in_header_bc
    -- SET importir_id = @importir_id
    -- WHERE (importir_id IS NULL)
    --end
    -- IF (NOT EXISTS (SELECT *
    -- FROM INFORMATION_SCHEMA.TABLES
    -- WHERE TABLE_SCHEMA = 'dbo'
    -- AND TABLE_NAME = 'dt_doc_out_plan_bc'))
    -- begin
    -- UPDATE dt_doc_out_plan_bc
    --SET importir_id = @importir_id
    --WHERE (importir_id IS NULL)
    --end
    
   ----
    
  end
 
   
  f:
  
 set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
 
 SET NOCOUNT  OFF
 select  CAST( (select  @XmlSts ,@raw   for xml path ('result')
)  as XML)  as dt;

GO

Used By

No items found