dbo.sp_acc_ap_ar

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE PROCEDURE dbo.sp_acc_ap_ar
AS
BEGIN
declare @jml_ap_ar int
declare @jml_bs_pl int
declare @jml_cf int
set @jml_ap_ar = (
select count(*)
FROM            SAPPEMI.SAPPEMI.dbo.CC_001_APAR
 where  EXTRACT_DATE is null 
)

set @jml_bs_pl = (
select count(*)
FROM       SAPPEMI.SAPPEMI.dbo.CC_002_BSPL
where 
 EXTRACT_DATE is null
)

set @jml_cf = (
select count(*)
FROM            SAPPEMI.SAPPEMI.dbo.CC_003_CF
where  EXTRACT_DATE is null
)

 insert into [DB_PEMI].[dbo].[tbl_acc_ap_ar]
 (
  DataType
   , INVNO
   , INVDATE
   , GL_ACC
   , PERIOD
   , SAP_SOURCE
   , JOURNAL_ID
   , JOURNAL_DATE
   , JOURNAL_DESC
   , POSTING_KEY
   , CURR
   , DEBIT
   , CREDIT
   , BALANCE
   , DEBIT_USD
   , CREDIT_USD
   , BALANCE_USD
   , IMPORT_DATE
   , EXTRACT_DATE
   ,seq_no

 )
   SELECT       
    DataType
   , INVNO
   , INVDATE
   , GL_ACC
   , PERIOD
   , SAP_SOURCE
   , JOURNAL_ID
   , JOURNAL_DATE
   , JOURNAL_DESC
   , POSTING_KEY
   , CURR
   , DEBIT
   , CREDIT
   , BALANCE
   , DEBIT_USD
   , CREDIT_USD
   , BALANCE_USD
   , IMPORT_DATE 
   , EXTRACT_DATE
   ,SeqNo
 FROM            SAPPEMI.SAPPEMI.dbo.CC_001_APAR
 where  EXTRACT_DATE is null
 --CONVERT(varchar(10), IMPORT_DATE, 23) = CONVERT(varchar(10), DATEADD( day,@hari, GETDATE()), 23)


 update SAPPEMI.SAPPEMI.dbo.CC_001_APAR set EXTRACT_DATE = GETDATE() 
 where  EXTRACT_DATE is null

 update [tbl_acc_ap_ar] set EXTRACT_DATE = GETDATE() 
 where EXTRACT_DATE is null

-------BSPL
insert into  [DB_PEMI].[dbo].[tbl_acc_bs_pl](
      [GL_ACC]
      ,[GL_NAME]
      ,[PERIOD]
      ,[AMOUNT]
      ,[IMPORT_DATE]
      ,[EXTRACT_DATE]
   ,seq_no
)
SELECT       
 GL_ACC
, GL_NAME
, PERIOD
, AMOUNT
, IMPORT_DATE
, EXTRACT_DATE
,SeqNo
FROM       SAPPEMI.SAPPEMI.dbo.CC_002_BSPL
where 
 EXTRACT_DATE is null

update SAPPEMI.SAPPEMI.dbo.CC_002_BSPL set EXTRACT_DATE = GETDATE() 
where EXTRACT_DATE is  null

declare @extdate datetime
set @extdate =  GETDATE()
update [tbl_acc_bs_pl] set EXTRACT_DATE = GETDATE() 
where  EXTRACT_DATE is null

insert into  [dbo].[tbl_acc_coa](
 coa_sap
 ,name_account
 ,create_by
 ,update_by
 ,create_date
 ,update_date
) select 
 GL_ACC
 ,GL_NAME
 ,'syssap'
 ,'syssap'
 , GETDATE()
 , GETDATE()
from [tbl_acc_bs_pl] 
where  GL_ACC not in (select coa_sap from [tbl_acc_coa] group by coa_sap)
and EXTRACT_DATE = @extdate
group by 
GL_ACC, GL_NAME

---CF
insert into [DB_PEMI].[dbo].[tbl_acc_cf]
(
      [GL_ACC]
      ,[GL_NAME]
      ,[REASON_CODE]
      ,[REASON_NAME]
      ,[PERIOD]
      ,[DEBIT_AMOUNT]
      ,[CREDIT_AMOUNT]
      ,[IMPORT_DATE]
      ,[EXTRACT_DATE]
   ,seq_no
   
)
SELECT        
GL_ACC
, GL_NAME
, REASON_CODE
, REASON_NAME
, PERIOD
, DEBIT_AMOUNT
, CREDIT_AMOUNT
, IMPORT_DATE
, EXTRACT_DATE
, SeqNo
FROM            SAPPEMI.SAPPEMI.dbo.CC_003_CF
where  EXTRACT_DATE is null

update SAPPEMI.SAPPEMI.dbo.CC_003_CF set EXTRACT_DATE = GETDATE() 
where EXTRACT_DATE is null


update [tbl_acc_cf] set EXTRACT_DATE = @extdate
where   EXTRACT_DATE is  null


insert into  [dbo].[tbl_acc_coa](
 coa_sap
 ,name_account
 ,create_by
 ,update_by
 ,create_date
 ,update_date
) select 
 GL_ACC
 ,GL_NAME
 ,'syssap'
 ,'syssap'
 , GETDATE()
 , GETDATE()
from [tbl_acc_cf] 
where  GL_ACC not in (select coa_sap from [tbl_acc_coa] group by coa_sap)
and  EXTRACT_DATE = @extdate
group by 
GL_ACC, GL_NAME


select '00' as status, 'SUKSES ' + ' APAR: ' + CAST(@jml_ap_ar as varchar(50)) 
+ ' BSPL: ' +  CAST(@jml_bs_pl as varchar(50)) + ' CF: ' +  CAST(@jml_cf as varchar(50))
 as description 
  
END
GO