dbo.sp_insertmodulbc30

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE PROCEDURE dbo.sp_insertmodulbc30
(@car as varchar(26), @idx as bigint, @conn varchar(MAX),@userid varchar(10))    
AS
BEGIN
   declare @countdata int
   declare @detilitemcount int

   set @countdata = (select COUNT(*) as cnt from dbo.tbl_bc_out_hdr where id_bc_out_hdr = @idx and statusdok = 'DATA BARU') 
   
   IF @countdata <> 1 
   BEGIN
 select '01' as status, ' DATA Not Found or Already Exist' as hasil
 return
   END
   
    if (select count(*) from  tbl_bc_out_dtl  where id_bc_out_hdr = @idx  ) = 0
   BEGIN
 select '01' as status, ' DATA DETIL TIDAK ADA' as hasil
 return
   END

   SET ANSI_NULLS ON
   SET ANSI_WARNINGS ON
   
   exec (
' INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+ @conn +
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebHdr ( [CAR] ,[JnEks] ,[KatEks] ,[JNPEB] ,[JNEKSOld] ,[JNLAIN] ,[JNDAG] ,[JNBYR] ,[IDEKS] ,[NPWPEKS] ,[NamaEks] ,[AlmtEks] ,[NoSiup] ,[TgSiup] ,[JnPerus] ,[NoTdp] ,[TgTdp] ,[Niper] ,[StatusH] ,[IdQq] ,[NpwpQq] ,[NamaQq] ,[AlmtQq] ,[NiperQq] ,[NAMABELI] ,[ALMTBELI] ,[NEGBELI] ,[IDPPJK] ,[NPWPPPJK] ,[NamaPpjk] ,[AlmtPpjk] ,[NoPpjk] ,[TgPpjk] ,[MODA] ,[TGEKS] ,[CARRIER] ,[VOY] --,[NOSHIPORD] --,[TGSHIPORD] ,[PELMUAT] ,[PELBONGKAR] ,[PELTRANSIT] ,[NOINV] ,[TGINV] ,[NOLPSE] ,[TGLPSE] ,[PROPBRG] ,[NEGTUJU] ,[FLSIE] ,[FLKARANT] ,[FLSM] ,[FLIZLAIN] ,[DELIVERY] ,[KDVAL] ,[KdHrg] ,[NilInv] ,[FREIGHT] ,[ASURANSI] ,[KdAss] ,[FOB] ,[MERK] ,[JMCONT] ,[BRUTO] ,[NETTO] ,[JMBRG] ,[JMBRGCTH] ,[JMBRGGAB] ,[JMBRGPJT] ,[NODAFT] ,[TGDAFT] ,[KDKTR] ,[KTRGATE] ,[NILPE] ,[KDBANK] ,[LOKBANK] ,[NOSSP] ,[TGSSP] ,[JNTPB] ,[LOKTPB] ,[KDLOKBRG] ,[KDKTRMUAT] ,[KDKTRPRIKS] ,[TGSIAP] ,[WKSIAP] ,[ASALDATA] ,[TPNAME] ,[PEBOK] ,[LENGKAP] ,[JNPARTOF] ,[BENDERA] ,[TTDPEB] ,[STATUS] ,[SNRF] ,[NOBCF] ,[TGBCF] ,[SERIBCF] ,[NOMOREDI] ,[KMDT] ,[VOLUME] ,[KDHANGGAR] ,[KONS] ,[JMLKMSPEB] ,[PELMUATEKS] ,[NILKURS] ,[PNBP] ,[NOBC11] ,[TGBC11] ,[POSBC11] ,[SUBPOSBC11] , NAMABELI2 , ALMTBELI2 , NEGBELI2 , PERNYATAAN ,[KDKTREKS] ,[PELTUJUAN] -- ,curah -- ,NOSHIPORD -- ,TGSHIPORD --,TGL_BERLAKU_TOD --,VERSIMODUL --,NILMAKLON --,NILPAJAKLAIN --,URCARABAYAR --,GUDANGPLB --,flKdVAL --,flFOB --,flNilMaklon --,NilPs ) select top 1 '''+ @car +
''' ,[JnEks] ,[KatEks] ,[JNPEB] ,[JNEKSOld] ,[JNLAIN] ,[JNDAG] ,[JNBYR] ,[IDEKS] ,[NPWPEKS] ,[NamaEks] ,[AlmtEks] ,[NoSiup] ,[TgSiup] ,[JnPerus] ,[NoTdp] ,[TgTdp] ,[Niper] ,[StatusH] ,[IdQq] ,[NpwpQq] ,[NamaQq] ,[AlmtQq] ,[NiperQq] ,[NAMABELI2] ,[ALMTBELI2] ,[NEGBELI2] ,[IDPPJK] ,[NPWPPPJK] ,[NamaPpjk] ,[AlmtPpjk] ,[NoPpjk] ,[TgPpjk] ,[MODA] ,[TGEKS] ,[CARRIER] ,[VOY] --,[NOSHIPORD] --,[TGSHIPORD] ,[PELMUAT] ,[PELBONGKAR] ,[PELTRANSIT] ,[NOINV] ,[TGINV] ,[NOLPSE] ,[TGLPSE] ,[PROPBRG] ,[NEGTUJU] ,0 as [FLSIE] ,0 as [FLKARANT] ,0 as [FLSM] ,0 as [FLIZLAIN] ,[DELIVERY] ,[KDVAL] ,[KdHrg] ,[NilInv] ,[FREIGHT] ,[ASURANSI] ,[KdAss] ,[FOB] ,[MERK] ,[JMCONT] ,[BRUTO] ,[NETTO] ,[JMBRG] ,[JMBRGCTH] ,[JMBRGGAB] ,[JMBRGPJT] ,[NODAFT] ,[TGDAFT] ,[KDKTR] ,[KTRGATE] ,[NILPE] ,[KDBANK] ,[LOKBANK] ,[NOSSP] ,[TGSSP] ,[JNTPB] ,[LOKTPB] ,''6'' ,[KDKTRMUAT] ,''150300'' ,[TGSIAP] ,[WKSIAP] ,[ASALDATA] ,[TPNAME] ,[PEBOK] ,[LENGKAP] ,[JNPARTOF] ,[BENDERA] ,[TTDPEB] ,[STATUS] ,[SNRF] ,[NOBCF] ,[TGBCF] ,[SERIBCF] ,[NOMOREDI] ,[KMDT] ,[VOLUME] ,[KDHANGGAR] ,[KONS] ,[JMLKMSPEB] ,[PELMUATEKS] ,[NILKURS] ,[PNBP] ,[NOBC11] ,[TGBC11] ,[POSBC11] ,[SUBPOSBC11] ,[NAMABELI] ,[ALMTBELI] ,[NEGBELI] ,1 ,[KDKTR] ,[PELBONGKAR] --,'''' --,'''' --,'''' -- ,'''' -- ,''0608'' -- ,0 -- ,0 -- ,'''' -- ,'''' -- ,0 -- ,0 -- ,1 -- ,0 FROM [dbo].[tbl_bc_out_hdr] where id_bc_out_hdr = '+@idx+
' INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+@conn+
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebDtl ( [CAR] ,[SERIBRG] ,[HS] ,[URBRG1] ,[URBRG2] ,[URBRG3] ,[URBRG4] ,[DMERK] ,[SIZE] ,[TYPE] ,[KDBRG] ,[KDIZIN] ,[NOIZIN] ,[TGIZIN] ,[JMKOLI] ,[JNKOLI] ,[DNilInv] ,[FOBPERBRG] ,[FOBPERSAT] ,[KDPE] ,[TARIPPE] ,[HPATOK] ,[JMSATUAN] ,[JNSATUAN] ,[NETDET] ,[JMSATPE] ,[JNSATPE] ,[KDVALPE] ,[NILVALPE] ,[PEPERBRG] ,[DTLOK] ,[NCV] ,[DVolume] ,[NegAsal] , [DRHASALBRG] ) select '''+ @car +
''' ,[SERIBRG] ,[HS] ,[URBRG1] ,[URBRG2] ,[URBRG3] ,[URBRG4] ,[DMERK] ,[SIZE] ,[TYPE] ,[KDBRG] ,[KDIZIN] ,[NOIZIN] ,[TGIZIN] ,[JMKOLI] ,[JNKOLI] ,[DNilInv] ,[FOBPERBRG] ,[FOBPERSAT] ,[KDPE] ,[TARIPPE] ,[HPATOK] ,[JMSATUAN] ,[JNSATUAN] ,[NETDET] ,[JMSATPE] ,[JNSATPE] ,[KDVALPE] ,[NILVALPE] ,[PEPERBRG] ,-1 as [DTLOK] ,0 as [NCV] ,[DVolume] ,[NegAsal] , ''3603'' FROM [dbo].[tbl_bc_out_dtl] where [id_bc_out_hdr] = '+@idx+
' INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+@conn+
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebDok ( [CAR] ,[KdDok] ,[NoDok] ,[TgDok] ) select '''+ @car +
''' ,[KdDok] ,[NoDok] ,[TgDok] FROM [dbo].[tbl_bc_out_dok] where [id_bc_out_hdr] = '+@idx+
' INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+@conn+
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebDHE ( [CAR] ,[SeriDhe] ,[KdBank] ,[UrBank] ) values ( '''+ @car +
''' ,1 ,''042'' ,''BANK OF TOKYO'' ) if (select count(*) FROM [dbo].[tbl_bc_out_con] where [id_bc_out_hdr] = '+@idx+
' and NoCont is not null) > 0 begin INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+@conn+
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebCon ( [CAR] ,[NoCont] ,[Size] ,[Type] ,[NoSegel] ,[Stuff] ,[JnPartOf] ) select '''+ @car +
''' ,[NoCont] ,[Size] ,[Type] ,[NoSegel] ,[Stuff] ,[JnPartOf] FROM [dbo].[tbl_bc_out_con] where [id_bc_out_hdr] = '+@idx+
' and NoCont is not null end if (select count(*) from tbl_bc_out_kms where [JmKemas] is not null) >0 begin INSERT INTO OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+@conn+
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblPebKms ( [CAR] ,[JnKemas] ,[JmKemas] ) select '''+ @car +
''' ,[JnKemas] ,[JmKemas] FROM [dbo].[tbl_bc_out_kms] where [id_bc_out_hdr] = '+@idx+
' END ')
  
  declare @now datetime
     set @now = GETDATE()
  UPDATE tbl_bc_out_hdr set CAR = @car, Status = '00', statusdok='DATA PROCESSED' where id_bc_out_hdr = @idx
     UPDATE tbl_bc_out_dtl set CAR = @car where id_bc_out_hdr = @idx
     UPDATE tbl_bc_out_dok set CAR = @car where id_bc_out_hdr = @idx
     
     INSERT INTO tbl_bc_out_hdr_h_status
                      (id_bc_out_hdr, statusdok, status_date
                      ,[create_by]
       ,[create_date]
       ,[update_by]
       ,[update_date])
     VALUES     (@idx, (select top 1 statusdok from tbl_bc_out_hdr where id_bc_out_hdr = @idx), @now
   ,@userid
   ,@now
   ,@userid
   ,@now
     
   )
 
     
     select '00' as status, ' Sukses'+' NO AJU BARU: '+@car as hasil
 
END
GO