dbo.MG_MS_BC_IN_ITEM_DELETE

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_MS_BC_IN_ITEM_DELETE
@PARAMETER xml='' 
---XencX---with encryption
as

SET TRANSACTION ISOLATION LEVEL  READ UNCOMMITTED

declare @pemisah varchar(255)
declare @pemisah_replace varchar(255)
set @pemisah_replace='<br />'
--set @pemisah=CHAR(13) + CHAR(10) + '
'
set @pemisah = '
'

declare @resultX varchar(max)
declare @resultX2 varchar(max)

declare @XmlSts xml
declare @raw xml
declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(max)
   
set @xStsnoheader='07'
set @xStsno='00';
set @xStsdes='sukses'
 
BEGIN TRY
SET NOCOUNT ON
DECLARE @NOW datetime
set @NOW =GETDATE()
DECLARE 
@data_by varchar(50) 
,@HARGA_PENYERAHAN decimal(38,2)
,@JUMLAH_KEMASAN bigint
,@JUMLAH_SATUAN decimal(38,4)
,@KODE_KEMASAN varchar(255)
,@KODE_SATUAN varchar(255)
,@KODE_STATUS varchar(255)
,@NETTO decimal(38,4)
,@POS_TARIF varchar(255)
,@SERI_BARANG bigint
,@URAIAN varchar(500)
,@UKURAN varchar(255)
,@TIPE varchar(255)
,@VOLUME decimal(38,4)
,@ms_item_id bigint
,@KODE_NEGARA_ASAL varchar(255)
,@MERK varchar(255)
,@ID_HEADER bigint
,@ID_BARANG bigint

,@BM_ID bigint
,@BM decimal(38,2)

,@PPNBM_ID bigint
,@PPNBM decimal(38,2)

,@PPH_ID bigint
,@PPH decimal(38,2)

,@PPN_ID bigint
,@PPN decimal(38,2)

,@series varchar(255)
,@TAHUN_PEMBUATAN date
SELECT 
@data_by=left(ltrim(rtrim(isnull(tempTable.item.value('data_by[1]', 'varchar(100)'),''))),50)
,@HARGA_PENYERAHAN=dbo.StrToDec2(isnull( tempTable.item.value('HARGA_PENYERAHAN[1]', 'varchar(255)'),'0'))
,@JUMLAH_KEMASAN=isnull(tempTable.item.value('JUMLAH_KEMASAN[1]', 'bigint'),-1)
,@JUMLAH_SATUAN=dbo.StrToDec4(isnull( tempTable.item.value('JUMLAH_SATUAN[1]', 'varchar(255)'),'0'))
,@KODE_KEMASAN=left(ltrim(rtrim(isnull(tempTable.item.value('KODE_KEMASAN[1]', 'varchar(305)'),''))),255)
,@KODE_STATUS=left(ltrim(rtrim(isnull(tempTable.item.value('KODE_STATUS[1]', 'varchar(305)'),''))),255)
,@NETTO=dbo.StrToDec4(isnull( tempTable.item.value('NETTO[1]', 'varchar(255)'),'0'))
,@POS_TARIF=left(ltrim(rtrim(isnull(tempTable.item.value('POS_TARIF[1]', 'varchar(305)'),''))),255)
,@SERI_BARANG=isnull(tempTable.item.value('SERI_BARANG[1]', 'bigint'),-1)
,@UKURAN=left(ltrim(rtrim(isnull(tempTable.item.value('UKURAN[1]', 'varchar(305)'),''))),255)
,@TIPE=left(ltrim(rtrim(isnull(tempTable.item.value('TIPE[1]', 'varchar(305)'),''))),255)
,@VOLUME=dbo.StrToDec4(isnull( tempTable.item.value('VOLUME[1]', 'varchar(255)'),'0'))
,@ms_item_id=isnull(tempTable.item.value('ms_item_id[1]', 'bigint'),-1)
,@KODE_NEGARA_ASAL=left(ltrim(rtrim(isnull(tempTable.item.value('KODE_NEGARA_ASAL[1]', 'varchar(305)'),''))),255)
,@MERK=left(ltrim(rtrim(isnull(tempTable.item.value('MERK[1]', 'varchar(305)'),''))),255)
,@ID_HEADER=isnull(tempTable.item.value('ID_HEADER[1]', 'bigint'),-1)
,@ID_BARANG=isnull(tempTable.item.value('ID_BARANG[1]', 'bigint'),-1)
,@BM_ID=isnull(tempTable.item.value('BM_ID[1]', 'bigint'),-1)
,@BM=dbo.StrToDec2(isnull( tempTable.item.value('BM[1]', 'varchar(255)'),'0'))
,@PPNBM_ID=isnull(tempTable.item.value('PPNBM_ID[1]', 'bigint'),-1)
,@PPNBM=dbo.StrToDec2(isnull( tempTable.item.value('PPNBM[1]', 'varchar(255)'),'0'))
,@PPH_ID=isnull(tempTable.item.value('PPH_ID[1]', 'bigint'),-1)
,@PPH=dbo.StrToDec2(isnull( tempTable.item.value('PPH[1]', 'varchar(255)'),'0'))
,@PPN_ID=isnull(tempTable.item.value('PPN_ID[1]', 'bigint'),-1)
,@PPN=dbo.StrToDec2(isnull( tempTable.item.value('PPN[1]', 'varchar(255)'),'0'))
,@series=left(ltrim(rtrim(isnull(tempTable.item.value('series[1]', 'varchar(305)'),''))),255)
,@TAHUN_PEMBUATAN=dbo.str_to_date(isnull(tempTable.item.value('TAHUN_PEMBUATAN[1]', 'varchar(255)'),''))
FROM @PARAMETER.nodes('param/field')  tempTable(item)
 

exec  MG_CHECK_USER @data_by, 0, @xStsno output,@xStsdes output; 
if @xStsno <>'00' 
goto f ;

--- CHECK HEADER

declare @h_ID_HEADER bigint
,@h_status_tpb_in_id int
,@h_status_tpb_in_name varchar(255)
,@h_mode_source int
,@h_KODE_DOKUMEN_PABEAN varchar(255)
,@h_NDPBM decimal(18,4)
SELECT  TOP(1)      
  @h_ID_HEADER=dt_ms_tpb_in_header.ID_HEADER
, @h_status_tpb_in_id=dt_ms_tpb_in_header_h_status.status_tpb_in_id
, @h_status_tpb_in_name=enum_ms_status_tpb_in.status_tpb_in_name
, @h_mode_source=dt_ms_tpb_in_header.mode_source
, @h_KODE_DOKUMEN_PABEAN=dt_ms_tpb_in_header.KODE_DOKUMEN_PABEAN
, @h_NDPBM=isnull(dt_ms_tpb_in_header.NDPBM ,1)
FROM            dt_ms_tpb_in_header INNER JOIN
                         dt_ms_tpb_in_header_h_status ON dt_ms_tpb_in_header.dt_ms_tpb_in_header_h_status_id = dt_ms_tpb_in_header_h_status.dt_ms_tpb_in_header_h_status_id INNER JOIN
                         enum_ms_status_tpb_in ON dt_ms_tpb_in_header_h_status.status_tpb_in_id = enum_ms_status_tpb_in.status_tpb_in_id
WHERE        (dt_ms_tpb_in_header.ID_HEADER = @ID_HEADER)


if @h_ID_HEADER is null
begin
 set @xStsno='02';
 set @xStsdes='Gagal, Pilih Dokumen' ;
goto f
end


if not(@h_status_tpb_in_id=0 or @h_status_tpb_in_id=2)
begin
 set @xStsno='02';
 set @xStsdes='Gagal, Dokumen dengan status ' + @h_status_tpb_in_name + ' tidak bisa di edit' ;
goto f
end
 
BEGIN TRANSACTION;    



--if @check_is_get=0
--begin
delete from dt_ms_tpb_in_barang_tarif   
where ID=@ID_BARANG and ID_HEADER =@ID_HEADER 

delete from  dt_ms_tpb_in_barang
where ID=@ID_BARANG and ID_HEADER =@ID_HEADER 
--end

 update dt_ms_tpb_in_header 
  set JUMLAH_BARANG =isnull((select count(*) from dt_ms_tpb_in_barang where ID_HEADER =@ID_HEADER),0)
  where ID_HEADER = @ID_HEADER



COMMIT TRANSACTION;
  declare @detail xml
-- set @detail =(
-- select
-- ID_HEADER AS rID
--, status_tpb_in_name AS r1
--, mode_source_name AS r2
--, CUST_CODE AS r26
--, mode_source AS r27
--, status_tpb_in_id AS r30
--from vw_ms_header_bc_in
--where ID_HEADER=@ID_HEADER
--for xml path ('detail')
--)

f:

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 ,'') ,isnull(@detail ,'')   for xml path ('result')
)  as XML)  as dt

--GO

--EXEC MG_MS_BC_IN_ITEM_DELETE
--'12json2::1ABA0127810007'
GO