dbo.MG_MS_ADJUSTMENT_HEADER_ADD

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_MS_ADJUSTMENT_HEADER_ADD
@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)
,@doc_code varchar(50)
,@doc_date date
,@info varchar(255) 
,@allow_move_ms_date_business bit 

SELECT 
@data_by=left(ltrim(rtrim(isnull(tempTable.item.value('data_by[1]', 'varchar(100)'),''))),50)
,@doc_code=left(ltrim(rtrim(isnull(tempTable.item.value('doc_no[1]', 'varchar(100)'),''))),50)
,@doc_date=dbo.str_to_date(isnull(tempTable.item.value('doc_date[1]', 'varchar(255)'),''))
,@info=left(ltrim(rtrim(isnull(tempTable.item.value('doc_info[1]', 'varchar(300)'),''))),255)
,@allow_move_ms_date_business=isnull(tempTable.item.value('allow_move_ms_date_business[1]', 'bit'),1)
FROM @PARAMETER.nodes('param/field')  tempTable(item)

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

 
if @doc_code =''
begin
 set @xStsno='02';
 set @xStsdes='Gagal,Isi Kode Dokumen' ;
goto f
end


if @doc_date is null
begin
 set @xStsno='02';
 set @xStsdes='Gagal,Isi Tanggal Dokumen' ;
goto f
end

if (
SELECT        COUNT(*) AS Expr1
FROM            vw_ms_adjustment_header
WHERE        (doc_code = @doc_code) AND (doc_date = @doc_date) AND (NOT (status_adj_sto_id = - 1))
)>0
begin
 set @xStsno='02';
 set @xStsdes='Gagal,Kode Dokumen ' + @doc_code+ ' dengan tanggal Dokumen ' + dbo.date_to_str(@doc_date) + ' sudah ada';
goto f 
end


declare @result_date_business_id bigint,
  @result_date_business date,
  @result_date_business_id_from bigint,
  @result_date_business_from date,
  @is_move_date_business bit,
  @business_date date=@doc_date

EXEC  [dbo].[MG_MS_CHECK_BUSINESS_DATE_AND_AVG]
  @business_date = @business_date,
  @allow_move_ms_date_business = @allow_move_ms_date_business,
  @result_date_business_id = @result_date_business_id OUTPUT,
  @result_date_business = @result_date_business OUTPUT,
  @result_date_business_id_from = @result_date_business_id_from OUTPUT,
  @result_date_business_from = @result_date_business_from OUTPUT,
  @is_move_date_business = @is_move_date_business OUTPUT,
  @xStsno = @xStsno OUTPUT,
  @xStsdes = @xStsdes OUTPUT
   

if not(@xStsno='00')
begin
 goto f
end
 

declare @ID_HEADER bigint
declare @ID_HEADER_STATUS bigint 
 
declare @ms_adj_sto_id bigint
, @ms_adj_sto_h_status_id bigint
 
BEGIN TRANSACTION;   

INSERT INTO dt_ms_adj_sto
                         (info, adj_sto_mode_id, doc_code, doc_date, create_date, create_by, modify_date, modify_by, ms_date_business_id, ms_date_business_id_from, is_move_business_date)
VALUES        (@info, 0,@doc_code,@doc_date,@now,@data_by,@now,@data_by,@result_date_business_id,@result_date_business_id_from ,@is_move_date_business)

set @ms_adj_sto_id=SCOPE_IDENTITY();
 
INSERT INTO dt_ms_adj_sto_h_status
                         (ms_adj_sto_id, status_adj_sto_id, status_info, create_date, create_by)
VALUES        (@ms_adj_sto_id,0, '',@now,@data_by)
set @ms_adj_sto_h_status_id=SCOPE_IDENTITY(); 

 update dt_ms_adj_sto
 set ms_adj_sto_h_status_id =@ms_adj_sto_h_status_id
 where ms_adj_sto_id =@ms_adj_sto_id
 
COMMIT TRANSACTION;
  declare @detail xml
  set @detail =(
 select
  ms_adj_sto_id AS rID 
, status_adj_sto_name AS r1 
, doc_code AS r2 
, dbo.date_to_str(doc_date ) AS r3 
, info AS r3a
, total_detail AS r4 
, total_item AS r4a 
, count_plus AS r4b 
, count_minus AS r4c 
, dbo.date_to_str(create_date ) AS r5 
, create_by AS r6 
, dbo.date_to_str(modify_date ) AS r7 
, modify_by AS r8 
, status_adj_sto_id AS r9 
, status_info AS r10 
, dbo.date_to_str(status_date ) AS r11 
, status_by AS r12 
from vw_ms_adjustment_header
 where ms_adj_sto_id =@ms_adj_sto_id
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_ADJUSTMENT_HEADER_ADD
--'12json2::1ABA0127810007'
GO