dbo.spi_prosesdatatofg

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE PROCEDURE dbo.spi_prosesdatatofg
 (@id_bc_out bigint, @typedok varchar(20), @username varchar(70))
AS
BEGIN
 declare @sts_no varchar(2)  
 declare @sts_des varchar(500)  
 declare @doc_out_no varchar(50)
    declare @hasil varchar(50)
    exec [dbo].[spu_seq] @nomor_untuk = N'inventory_bc_out', @hasil = @hasil OUTPUT
    set @doc_out_no = @hasil 
 -- CHECK BC sudah ada,
 --2 BC30
 --3 BC25
 --4 BC41
 --5 BC27
 declare @jnsbc int
 declare @doc_out_date date
 if @typedok='BC30'
 begin
  set @jnsbc=2
  
 end
 if @typedok='BC25'
 begin
  set @jnsbc=3
 
 end
 if @typedok='BC41'
 begin
  set @jnsbc=4
 end
 if @typedok='BC27'
 begin
  set @jnsbc=5
 end
 
 
 if (
 SELECT     COUNT(*) AS cnt
 FROM         tbl_data_out_hdr
 WHERE     (doc_out_to_id = @jnsbc) AND (id_terkait = @id_bc_out))>0
 begin
 set @sts_no  ='09'
 set @sts_des ='Sudah Pernah di transfer'
 goto f
 end
 
 
 
BEGIN TRY  
 BEGIN TRANSACTION 
 declare @id_data_out_hdr bigint
 declare @id_data_out_hdr_h_status bigint
   
 if @typedok='BC25'
 begin
 --insert header
  insert into tbl_data_out_hdr(
    doc_out_no
    ,doc_out_date
    ,id_terkait
    ,doc_out_to_id
    ,[create_by]
    ,[update_by]
    ,[update_date]
    ,[create_date]
        
  ) values ( 
  @doc_out_no 
  ,@doc_out_date
  ,@id_bc_out
  ,@jnsbc  -- keluar sesuai bc
  ,@username
  ,@username
  ,GETDATE()
  ,GETDATE() )
  
  set @id_data_out_hdr=@@IDENTITY
  
  -- insert h status
  INSERT INTO tbl_data_out_hdr_h_status
         (id_data_out_hdr, status_date, status, create_by, create_date, update_by, update_date)
  VALUES     (@id_data_out_hdr, GETDATE(), 'DATA PROCESSED INVENTORY', @username, GETDATE(), @username, GETDATE())
  set @id_data_out_hdr_h_status =@@IDENTITY

  
 
  INSERT INTO tbl_data_out_dtl
  (
   id_data_out_hdr
   ,id_part_number
   ,part_name_customs
   ,part_number
   ,qty
   ,qty_supply
   ,unit_out
   ,unit_konversi
   ,pengali
   ,box
   ,pack
   ,assy_code
   ,type_items
   )
  select 
  @id_data_out_hdr
  ,(select top 1 id_assy_list from [dbo].[tbl_assy_list] where ASSY_CODE = ASSY_CODE)
  ,(select top 1 DESC_CARLINE from [dbo].[tbl_assy_list] where ASSY_CODE = ASSY_CODE)
  ,ASSY_NO
  ,TOTAL_SET
  ,TOTAL_SET
  ,SATUAN
  ,SATUAN
  ,1
  ,JUMLAH_COLI
  ,JUMLAH_COLI
  ,ASSY_CODE
  ,'FG'
  from [tbl_sa] where id_sa_hdr = @id_bc_out
 
  UPDATE    tbl_data_out_hdr
  SET              id_data_out_hdr_h_status = @id_data_out_hdr_h_status
  WHERE     (id_data_out_hdr = @id_data_out_hdr)

  
  update tbl_sa_hdr set status='DATA PROCESSED INVENTORY' where id_sa_hdr = @id_bc_out
 end 
 
 if  @typedok='BC27'
 begin
  insert into tbl_data_out_hdr(
    doc_out_no
    ,doc_out_date
    ,id_terkait
    ,doc_out_to_id
    ,[create_by]
    ,[update_by]
    ,[update_date]
    ,[create_date]
        
  ) values ( 
  @doc_out_no 
  ,@doc_out_date
  ,@id_bc_out
  ,@jnsbc  -- keluar sesuai bc
  ,@username
  ,@username
  ,GETDATE()
  ,GETDATE() )
  
  set @id_data_out_hdr=@@IDENTITY
  
  -- insert h status
  INSERT INTO tbl_data_out_hdr_h_status
         (id_data_out_hdr, status_date, status, create_by, create_date, update_by, update_date)
  VALUES     (@id_data_out_hdr, GETDATE(), 'DATA PROCESSED INVENTORY', @username, GETDATE(), @username, GETDATE())
  set @id_data_out_hdr_h_status =@@IDENTITY

 
  INSERT INTO tbl_data_out_dtl
  (
   id_data_out_hdr
   ,id_part_number
   ,part_name_customs
   ,part_number
   ,qty
   ,qty_supply
   ,unit_out
   ,unit_konversi
   ,pengali
   ,box
   ,pack
   ,assy_code
   ,type_items
   )
  select 
  @id_data_out_hdr
  ,(select top 1 [tbl_assy_list].id_assy_list from [tbl_assy_list] where [tbl_assy_list].ASSY_NO = URBRG1)
  ,(select top 1 [tbl_assy_list].DESC_CARLINE from [tbl_assy_list] where [tbl_assy_list].ASSY_NO = URBRG1)
  ,URBRG1
  ,JMSATUAN
  ,JMSATUAN
  ,JNSATUAN
  ,JNSATUAN
  ,1
  ,JMKOLI
  ,JMKOLI
  ,[KDBRG]
  ,'FG'
  from [dbo].tbl_bc_out_dtl where id_bc_out_hdr = @id_bc_out
 
  
  UPDATE    tbl_data_out_hdr
  SET              id_data_out_hdr_h_status = @id_data_out_hdr_h_status
  WHERE     (id_data_out_hdr = @id_data_out_hdr)

  
  update tbl_bc_out_hdr set statusdok='DATA PROCESSED INVENTORY' where id_bc_out_hdr = @id_bc_out   
 end
 
 if  @typedok='BC30'
 begin
  insert into tbl_data_out_hdr(
    doc_out_no
    ,doc_out_date
    ,id_terkait
    ,doc_out_to_id
    ,[create_by]
    ,[update_by]
    ,[update_date]
    ,[create_date]
        
  ) values ( 
  @doc_out_no 
  ,@doc_out_date
  ,@id_bc_out
  ,@jnsbc  -- keluar sesuai bc
  ,@username
  ,@username
  ,GETDATE()
  ,GETDATE() )
  
  set @id_data_out_hdr=@@IDENTITY
  
  -- insert h status
  INSERT INTO tbl_data_out_hdr_h_status
         (id_data_out_hdr, status_date, status, create_by, create_date, update_by, update_date)
  VALUES     (@id_data_out_hdr, GETDATE(), 'DATA PROCESSED INVENTORY', @username, GETDATE(), @username, GETDATE())
  set @id_data_out_hdr_h_status =@@IDENTITY

 
  INSERT INTO tbl_data_out_dtl
  (
   id_data_out_hdr
   ,id_part_number
   ,part_name_customs
   ,part_number
   ,qty
   ,qty_supply
   ,unit_out
   ,unit_konversi
   ,pengali
   ,box
   ,pack
   ,assy_code
   ,type_items
   )
  select 
  @id_data_out_hdr
  ,(select top 1 [dbo].[tbl_assy_list].id_assy_list from [dbo].[tbl_assy_list] where [dbo].[tbl_assy_list].ASSY_NO = [tbl_bc_out_dtl].URBRG1)
  ,(select top 1 [dbo].[tbl_assy_list].DESC_CARLINE from [dbo].[tbl_assy_list] where [dbo].[tbl_assy_list].ASSY_NO =  [tbl_bc_out_dtl].URBRG1)
  ,URBRG1
  ,JMSATUAN
  ,JMSATUAN
  ,JNSATUAN
  ,JNSATUAN
  ,1
  ,JMKOLI
  ,JMKOLI
  ,[KDBRG]
  ,'FG'
  from [dbo].[tbl_bc_out_dtl] where id_bc_out_hdr = @id_bc_out
 
  UPDATE    tbl_data_out_hdr
  SET              id_data_out_hdr_h_status = @id_data_out_hdr_h_status
  WHERE     (id_data_out_hdr = @id_data_out_hdr)

  
  update tbl_bc_out_hdr set statusdok='DATA PROCESSED INVENTORY' where id_bc_out_hdr = @id_bc_out   
 end
 
 COMMIT
END TRY
BEGIN CATCH
  -- Whoops, there was an error
  IF @@TRANCOUNT > 0
     ROLLBACK

  -- Raise an error with the details of the exception
  DECLARE @ErrMsg nvarchar(4000), @ErrSeverity int
  Set @ErrMsg = ERROR_MESSAGE()
  set @ErrSeverity = ERROR_SEVERITY()
  select @ErrMsg as description,@ErrSeverity as status
  RAISERROR(@ErrMsg, @ErrSeverity, 1)
END CATCH    

set @sts_no  ='00'
 set @sts_des ='Data Processed with ID '+CAST(@id_data_out_hdr as varchar(255))
 goto f
 
f:
set nocount off
 select @sts_no as status , @sts_des as description
END


--GO

--EXEC [dbo].[sp_stock_transfer]
-- @id_vgi_hdr = 23

--GO
GO