dbo.sp_insertbc25

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE PROCEDURE dbo.sp_insertbc25
(@id_sa_hdr bigint, @username varchar(50))
AS
BEGIN
set CONCAT_NULL_YIELDS_NULL on
set ANSI_PADDING on
 if (select COUNT(*) from dbo.tbl_sa_hdr  where id_sa_hdr=@id_sa_hdr)< 1
 begin
  select '06' as status, 'Data Tidak Ditemukan' as description   
 end
 
 
declare @current_urut int = 1 
--set @current_urut =isnull( (select dbo.RunSQLStr(' exec [sp_bahan_baku_asal] @id_sa_hdr='+cast(@id_sa_hdr as VARCHAR(255)))),0)

exec sp_bahan_baku_asal_2 @id_sa_hdr,'SA_TEMP'

  declare @NPWP_PEMBELI varchar(50)
  declare @NAMA_PEMBELI varchar(50)
  declare @jmlinv int
  set @jmlinv = (SELECT     COUNT(*) AS cnt
  FROM         (SELECT     COUNT(INV_NO) AS Expr1
                       FROM          tbl_sa
                       WHERE      (id_sa_hdr = @id_sa_hdr)
                       GROUP BY INV_NO) AS derivedtbl_1)
  
  select top 1
  @NPWP_PEMBELI =  SUBSTRING(dbo.axRegexReplace(isnull(NPWP_PEMBELI,''),'[^\d]',''),1,15) 
  ,@NAMA_PEMBELI=NAMA_PEMBELI
  from dbo.tbl_sa
  where id_sa_hdr = @id_sa_hdr
  
 declare @kd_val varchar(5)
  declare @GROSSWEIGHT float
  declare @NETWEIGHT float
  declare @PRICE float
  declare @AMOUNT float
  declare @jmlbrg int
  
  SELECT 
  @GROSSWEIGHT=sum([GROSSWEIGHT])
      ,@NETWEIGHT=sum([NETWEIGHT])
      ,@PRICE=sum([PRICE])
      ,@AMOUNT=sum([AMOUNT])
      ,@kd_val=[KD_VAL]
   ,@jmlbrg=COUNT(ASSY_CODE)
  FROM [dbo].[tbl_sa]
  where id_sa_hdr = @id_sa_hdr
  group by 
  [KD_VAL]
 
 

  declare @kurs float
  declare  @result_kurs varchar(255)= dbo.get_rate_valuta(GETDATE(),@kd_val)
 

  declare @UsahaID varchar(10), @UsahaNpwp varchar(100), @UsahaNama varchar(100), @UsahaAlmt varchar(100)
  
  declare @PenerimaID varchar(10), @PenerimaNpwp varchar(100), @PenerimaNama varchar(100), @PenerimaAlmt varchar(100)
  
 

  select top 1 
 @UsahaID=KODE_ID,
 @UsahaNama=NAMA,
 @UsahaNpwp=NPWP,
 @UsahaAlmt=ALAMAT
  from openquery(TPBDB,'select * from referensi_pengusaha')  
 


  if (select count(*)
  from openquery(TPBDB,'select * from referensi_pengusaha')  
  where  SUBSTRING(dbo.axRegexReplace(isnull(NPWP,''),'[^\d]',''),1,15) = @NPWP_PEMBELI) > 0
  begin
   select top 1 
  @PenerimaID=KODE_ID,
  @PenerimaNama=NAMA,
  @PenerimaNpwp=SUBSTRING(dbo.axRegexReplace(isnull(NPWP,''),'[^\d]',''),1,15),
  @PenerimaAlmt=ALAMAT
   from openquery(TPBDB,'select * from referensi_pengusaha')  
   where SUBSTRING(dbo.axRegexReplace(isnull(NPWP,''),'[^\d]',''),1,15) = @NPWP_PEMBELI
  end else
  begin
 select top 1
   @PenerimaNpwp =  SUBSTRING(dbo.axRegexReplace(isnull(NPWP_PEMBELI,''),'[^\d]',''),1,15),
   @PenerimaNama=NAMA_PEMBELI,
   @PenerimaID = '1'
   from dbo.tbl_sa
   where id_sa_hdr = @id_sa_hdr
  end

 declare @id_sa_dtl bigint, @cnt_sa int
 set @cnt_sa = 1
 DECLARE db_cursor CURSOR FOR 
 SELECT id_sa 
 FROM  tbl_sa 
 WHERE id_sa_hdr = @id_sa_hdr
 OPEN db_cursor  
 FETCH NEXT FROM db_cursor INTO  @id_sa_dtl
 WHILE @@FETCH_STATUS = 0  
 BEGIN  
  update tbl_sa set SERI_BRG = @cnt_sa where id_sa = @id_sa_dtl and id_sa_hdr = @id_sa_hdr
 set @cnt_sa = @cnt_sa + 1
 FETCH NEXT FROM db_cursor INTO @id_sa_dtl
 END 
 CLOSE db_cursor  
 DEALLOCATE db_cursor   
 
  update dbo.tbl_sa_hdr set 
  NPWP_PEMBELI=@NPWP_PEMBELI,  
  NAMA_PEMBELI=@NAMA_PEMBELI, 
  jml_inv=@jmlinv,
  KdVal=@kd_val,
  --KdVal='USD',
  HargaRp=@AMOUNT,
  Bruto=@GROSSWEIGHT,
  Netto=@NETWEIGHT,
  JmBrg=@jmlbrg,
  Ndpbm = dbo.get_rate_valuta(GETDATE(),@kd_val),
  --Ndpbm = dbo.get_rate_valuta(GETDATE(),'USD'),
  KdKpbc = '150300',
  UsahaID=@UsahaID,
 UsahaNama=@UsahaNama,
 UsahaNpwp=@UsahaNpwp,
 UsahaAlmt=@UsahaAlmt,
 PenerimaID=@PenerimaID,
  PenerimaNpwp=@PenerimaNpwp,
  PenerimaNama=@PenerimaNama,
  PenerimaAlmt=@PenerimaAlmt,
  [KotaTtd]=(select top 1 KotaTtd from tblImportir),
  [NamaTtd]=(select top 1 Namattd from tblImportir),
  jnbarang='3',
  tujuankirim = '1', 
  typedok='BC25' ,
  status='DATA PROCESSED', update_date=GETDATE(), update_by=@username  where id_sa_hdr=@id_sa_hdr

 --BEGIN TRY
  

   
   --exec [sp_bahan_baku_asal] @id_sa_hdr=@id_sa_hdr
    
 --END TRY
 --BEGIN CATCH
 -- SELECT
 -- '06' AS status
 --,ERROR_MESSAGE() AS description;
    
 --END CATCH;
 
 select '00' as status, 'BC25 PROCCESSED' as description  
    
 
END
--go
  
-- BEGIN TRY
   
-- exec('[sp_insertbc25] @id_sa_hdr=93329, @username=admin ')
   
-- END TRY
-- BEGIN CATCH
-- SELECT
-- '06' AS status
-- ,ERROR_MESSAGE() AS description;
    
-- END CATCH;

--declare @idsa bigint, @idsahdr bigint
 --DECLARE db_cursor CURSOR FOR
 --SELECT id_sa, id_sa_hdr
 --FROM tbl_sa where id_sa_hdr = @id_sa_hdr
 --OPEN db_cursor
 --FETCH NEXT FROM db_cursor INTO @idsa, @idsahdr

-- WHILE @@FETCH_STATUS = 0
-- BEGIN
     
-- exec('[sp_bahan_baku_asal] @id_sa_hdr='+@idsahdr+', @id_sa='+@idsa+'')
--
-- FETCH NEXT FROM db_cursor INTO @idsa, @idsahdr
-- END

-- CLOSE db_cursor
-- DEALLOCATE db_cursor
 

GO