--日结插件入口
if exists (select name from sysobjects where name='p_sys_day_over_plugin' and xtype='p')
  drop procedure p_sys_day_over_plugin
go
create procedure p_sys_day_over_plugin 
(
  @orgcode varchar(10),
  @accdate varchar(10),
  @acctimes int, 
  @usercode varchar(10), 
  @vipdbname varchar(20), 
  @message varchar(200) out
)
as
  declare @psmsg varchar(200)
begin
  declare @curedition varchar(1)
  declare @finaltype varchar(1)
  declare @irtnresult int
  declare @srtnmsg varchar(200)
  declare @sautopdaccount varchar(1)
  declare @ssql varchar(2000)  
  set @sautopdaccount = isnull(@sautopdaccount,'0')
  set @finaltype = null
  
  --sap销售明细汇总
  exec @irtnresult = p_int_gen_flow_item @orgcode, @accdate, @srtnmsg out
  if @irtnresult <> 1
  begin
    insert into t_over_error (orgcode, overdate, overtime, errreason)
    values (@orgcode, @accdate, convert(varchar(10), getdate(), 24), @srtnmsg)
  end
  --sap销售成本汇总
  exec @irtnresult = p_int_gen_flow_chg @orgcode, @accdate, @srtnmsg out
  if @irtnresult <> 1
  begin
    insert into t_over_error (orgcode, overdate, overtime, errreason)
    values (@orgcode, @accdate, convert(varchar(10), getdate(), 24), @srtnmsg)
  end
  --sap支付方式汇总
  exec @irtnresult = p_int_gen_flow_pay @orgcode, @accdate, @srtnmsg out
  if @irtnresult <> 1
  begin
    insert into t_over_error (orgcode, overdate, overtime, errreason)
    values (@orgcode, @accdate, convert(varchar(10), getdate(), 24), @srtnmsg)
  end
  --sap现金缴存汇总
  exec @irtnresult = p_int_gen_flow_pay_cash @orgcode, @accdate, @srtnmsg out
  if @irtnresult <> 1
  begin
    insert into t_over_error (orgcode, overdate, overtime, errreason)
    values (@orgcode, @accdate, convert(varchar(10), getdate(), 24), @srtnmsg)
  end
  
  set @message = ''
  return (1)
end
go

--非油销售收入
if exists (select name from sysobjects where name='p_int_gen_flow_item' and xtype='p')
  drop procedure p_int_gen_flow_item
go
create procedure p_int_gen_flow_item
(					
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @tablename varchar(40)
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)

  set @tablename = 't_plusale_'+substring(@psaccdate,1,4)+substring(@psaccdate,6,2)
  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)

  if not exists(select * from sysobjects where name=@tablename)
  begin
    set @psmsg = '不存在表'+@tablename
    return(-1)
  end

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and sale.OrgCode = ''' + @psorgcode + ''''
  end

  set @sql = 'insert into t_int_sap_drysalesinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,ZYWDAT,ZTYPE,ZCXLX,ZJYFS,' +
             '   VVTYP,MATNR,MENGE,MEINS,PRICE,SKTAK,SKTBT,TMWSTS,GTTAX,WAERS,ZTOLAMT,' +
             '   ZTSDAT,ZGZDAT,ZFNAME,ZUNFLG,ZYZLX,MWSKZ)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F01'' as IFTYPE,FinaCode as BUKRS,OrgCode as WERKS,''1'' as ZSIGN,''P''+FinaCode+''1''+OrgCode as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F01'' as ZTYPE,''Z30'' as ZCXLX,''Z01'' as ZJYFS,' +
             '       '''' as VVTYP,ClsCode as MATNR,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,Total as PRICE,Total as SKTAK,0 as SKTBT,round(Total-Total/(1+STaxRate/100.00),2) as TMWSTS,0 as GTTAX,''CNY'' as WAERS,0 as ZTOLAMT,' +
             '       convert(varchar(8),getdate(),112) as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,'''' as ZFNAME,case when Counts < 0 then ''Y'' else '''' end as ZUNFLG,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,' +
             '       case STaxRate when 0 then ''X0'' when 17 then ''X1'' when 13 then ''X2'' when 2 then ''X3'' when 6 then ''X4'' when 11 then ''X5'' when 16 then ''X7'' when 10 then ''X8'' when 9 then ''X9'' end as MWSKZ' +
             '  from (' +
             '       select AccDate,FinaCode,OrgCode,ClsCode,STaxRate,OrgType,sum(Total) as Total,sum(Amount) as Amount,sum(Counts) as Counts' +
             '         from (' +
             '              select sale.AccDate,shop.FinaCode,sale.OrgCode,class.UpperCode1 as ClsCode,sale.STaxRate,' +
             '                     isnull((select JyMode from t_supplier where SupCode = sale.SupCode),''0'') as JyMode,' +
             '                     sale.Counts,sale.Total,sale.Amount,shop.OrgType' +
             '                from ' + @tablename + ' sale, t_shop shop, t_plu plu, t_gclass class' +
             '               where sale.OrgCode = shop.OrgCode' +
             '                 and sale.PluCode = plu.PluCode' +
             '                 and plu.ClsCode = class.ClsCode' +
             '                 and sale.AccDate = ''' + @psaccdate + '''' + @where +
             '              ) b' +
             '        where JyMode = ''0''' +
             '        group by AccDate,FinaCode,OrgCode,ClsCode,STaxRate,OrgType' +
             '       ) a' +
             ' where Amount <> 0 or Counts <> 0'

  exec(@sql)
  
  set @sql = 'insert into t_int_sap_drysalesinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,ZYWDAT,ZTYPE,ZCXLX,ZJYFS,' +
             '   VVTYP,MATNR,MENGE,MEINS,PRICE,SKTAK,SKTBT,TMWSTS,GTTAX,WAERS,ZTOLAMT,' +
             '   ZTSDAT,ZGZDAT,ZFNAME,ZUNFLG,ZYZLX,MWSKZ)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F01'' as IFTYPE,FinaCode as BUKRS,OrgCode as WERKS,''1'' as ZSIGN,''P''+FinaCode+''1''+OrgCode as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F01'' as ZTYPE,''Z30'' as ZCXLX,''Z03'' as ZJYFS,' +
             '       '''' as VVTYP,ClsCode as MATNR,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,Amount as PRICE,Total as SKTAK,DkTotal as SKTBT,round(DkTotal-DkTotal/(1+STaxRate/100.00),2) as TMWSTS,0 as GTTAX,''CNY'' as WAERS,0 as ZTOLAMT,' +
             '       convert(varchar(8),getdate(),112) as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,'''' as ZFNAME,case when Counts < 0 then ''Y'' else '''' end as ZUNFLG,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,' +
             '       case STaxRate when 0 then ''X0'' when 17 then ''X1'' when 13 then ''X2'' when 2 then ''X3'' when 6 then ''X4'' when 11 then ''X5'' when 16 then ''X7'' when 10 then ''X8'' when 9 then ''X9'' end as MWSKZ' +
             '  from (' +
             '       select AccDate,FinaCode,OrgCode,ClsCode,STaxRate,OrgType,sum(Total) as Total,sum(Amount) as Amount,sum(Total-Cost) as DkTotal,sum(Counts) as Counts' +
             '         from (' +
             '              select sale.AccDate,shop.FinaCode,sale.OrgCode,class.UpperCode1 as ClsCode,sale.STaxRate,' +
             '                     isnull((select JyMode from t_supplier where SupCode = sale.SupCode),''0'') as JyMode,' +
             '                     sale.Counts,sale.Cost,sale.Total,sale.Amount,shop.OrgType' +
             '                from ' + @tablename + ' sale, t_shop shop, t_plu plu, t_gclass class' +
             '               where sale.OrgCode = shop.OrgCode' +
             '                 and sale.PluCode = plu.PluCode' +
             '                 and plu.ClsCode = class.ClsCode' +
             '                 and sale.AccDate = ''' + @psaccdate + '''' + @where +
             '              ) b' +
             '        where JyMode = ''2''' +
             '        group by AccDate,FinaCode,OrgCode,ClsCode,STaxRate,OrgType' +
             '       ) a' +
             ' where Amount <> 0 or Counts <> 0'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总销售明细失败'
    return(-1)
  end

  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_drysalesinfo
     set DOCNO = 'XSD' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F01' and ZJYFS in ('Z01','Z03') and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

--非油库存成本
if exists (select name from sysobjects where name='p_int_gen_flow_chg' and xtype='p')
  drop procedure p_int_gen_flow_chg
go
create procedure p_int_gen_flow_chg
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @tablename varchar(40)
  declare @where varchar(2000)
  declare @sql varchar(2000)
  declare @createdate varchar(20)

  set @tablename = 't_plusale_'+substring(@psaccdate,1,4)+substring(@psaccdate,6,2)
  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)

  if not exists(select * from sysobjects where name=@tablename)
  begin
    set @psmsg = '不存在表'+@tablename
    return(-1)
  end

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and sale.OrgCode = ''' + @psorgcode + ''''
  end

  set @sql = 'insert into t_int_sap_inventorychginfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,ZSIGN,WERKS,PRCTR,ZYWDAT,ZTYPE,MATNR,ZJYFS,' +
             '   SLTWR,WEARS,MENGE,DWERT,MEINS,ZTSDAT,ZGZDAT,ZCSBS,ZYZLX,UNFLG)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F11'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,OrgCode as WERKS,''P''+FinaCode+''1''+OrgCode as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F11'' as ZTYPE,ClsCode as MATNR,case JyMode when ''0'' then ''Z01'' else ''Z03'' end as ZJYFS,' +
             '       NetCost as SLTWR,''CNY'' as WEARS,Counts as MENGE,0 as DWERT,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,convert(varchar(8),getdate(),112) as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,case when Counts < 0 then ''Y'' else '''' end as UNFLG' +
             '  from (' +
             '       select AccDate,FinaCode,OrgCode,ClsCode,JyMode,OrgType,sum(NetCost+NetAdjustProfit) as NetCost,sum(Counts) as Counts' +
             '         from (' +
             '              select sale.AccDate,shop.FinaCode,sale.OrgCode,class.UpperCode1 as ClsCode,' +
             '                     isnull((select JyMode from t_supplier where SupCode = sale.SupCode),''0'') as JyMode,' +
             '                     sale.NetCost,sale.NetAdjustProfit,sale.Counts,shop.OrgType' +
             '                from ' + @tablename + ' sale, t_shop shop, t_plu plu, t_gclass class' +
             '               where sale.OrgCode = shop.OrgCode' +
             '                 and sale.PluCode = plu.PluCode' +
             '                 and plu.ClsCode = class.ClsCode' +
             '                 and sale.AccDate = ''' + @psaccdate + '''' + @where +
             '              ) b' +
             '        where JyMode = ''0''' +
             '        group by AccDate,FinaCode,OrgCode,ClsCode,OrgType,JyMode' +
             '       ) a' +
             ' where NetCost <> 0 or Counts <> 0'

  exec(@sql)
  if @@error <>0
  begin
    set @psmsg = '汇总销售成本失败'
    return(-1)
  end

  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_inventorychginfo
     set DOCNO = 'XSC' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F11' and ZJYFS in ('Z01','Z03') and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

--非油支付
if exists (select name from sysobjects where name='p_int_gen_flow_pay' and xtype='p')
  drop procedure p_int_gen_flow_pay
go
create procedure p_int_gen_flow_pay
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @tablename varchar(40)
  declare @where varchar(2000)
  declare @sql varchar(2000)
  declare @createdate varchar(20)

  set @tablename = 't_int_flow_pay_deily_'+substring(@psaccdate,1,4)+substring(@psaccdate,6,2)
  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)

  if not exists(select * from sysobjects where name=@tablename)
  begin
    set @psmsg = '不存在表'+@tablename
    return(-1)
  end

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and shop.OrgCode = ''' + @psorgcode + ''''
  end

  set @sql = 'insert into t_int_sap_paymentreportinfo' +
             '  (CREATEDATE,IFTYPE,ZSIGN,ZTSDAT,BUKRS,PRCTR,KUNNR,' +
             '   SKART,ZYYDAT,WRBTR,WEARS,ZCXBS)' +
             'select ''' + @createdate + ''' as CREATEDATE,''Z01'' as IFTYPE,''1'' as ZSIGN,convert(varchar(8),getdate(),112) as ZTSDAT,FinaCode as BUKRS,''P''+FinaCode+''1''+OrgCode as PRCTR,OrgCode as KUNNR,' +
             '       PayCode,replace(AccDate,''-'','''') as ZYYDAT,Amount as WRBTR,''CNY'' as WEARS,case when Amount < 0 then ''Y'' else '''' end as ZCXBS' +
             '  from (' +
             '       select pay.BUSINESS_DATE as AccDate,shop.FinaCode,pay.WERKS as OrgCode,pay.MOP_ID as PayCode,sum(pay.AMOUNT) as Amount' +
             '         from ' + @tablename + ' pay, t_shop shop' +
             '        where pay.WERKS = shop.OrgCode' +
             '          and pay.ITEM_ID like ''20%''' + -- 只传非油品
             '          and pay.BUSINESS_DATE > ''2023-09-15''' +
             '          and pay.BUSINESS_DATE = ''' + @psaccdate + '''' + @where +
             '        group by pay.BUSINESS_DATE,shop.FinaCode,pay.WERKS,pay.MOP_ID' +
             '       ) a' +
             ' where Amount <> 0'

  exec(@sql)
  if @@error <>0
  begin
    set @psmsg = '汇总销售支付方式失败'
    return(-1)
  end

  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_paymentreportinfo
     set DOCNO = 'ZFD' + ZTSDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'Z01' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

--非油现金
if exists (select name from sysobjects where name='p_int_gen_flow_pay_cash' and xtype='p')
  drop procedure p_int_gen_flow_pay_cash
go
create procedure p_int_gen_flow_pay_cash
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @tablename varchar(40)
  declare @where varchar(2000)
  declare @sql varchar(2000)
  declare @createdate varchar(20)

  set @tablename = 't_int_flow_pay_deily_'+substring(@psaccdate,1,4)+substring(@psaccdate,6,2)
  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)

  if not exists(select * from sysobjects where name=@tablename)
  begin
    set @psmsg = '不存在表'+@tablename
    return(-1)
  end

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and shop.OrgCode = ''' + @psorgcode + ''''
  end
  
  set @sql = 'insert into t_int_sap_cashpaymentinfo' +
             '  (CREATEDATE,IFTYPE,ZSIGN,ZTSDAT,BUKRS,PRCTR,KUNNR,SKART,' +
             '   ZYRDAT,JCRQ,WRBTR,JCYYK,SYBTR,CDYSK,JKDOC,ZGZDAT,WAERS,ZCXBS)' +
             'select ''' + @createdate + ''' as CREATEDATE,''Z02'' as IFTYPE,''1'' as ZSIGN,convert(varchar(8),getdate(),112) as ZTSDAT,FinaCode as BUKRS,''P''+FinaCode+''1''+OrgCode as PRCTR,OrgCode as KUNNR,''1000001'' as SKART,' +
             '   replace(AccDate,''-'','''') as ZYRDAT,replace(AccDate,''-'','''') as JCRQ,Amount as WRBTR,Amount as JCYYK,0 as SYBTR,0 as CDYSK,'''' as JKDOC,replace(AccDate,''-'','''') as ZGZDAT,''CNY'' as WAERS,case when Amount < 0 then ''Y'' else '''' end as ZCXBS' +
             '  from (' +
             '       select pay.BUSINESS_DATE as AccDate,shop.FinaCode,pay.WERKS as OrgCode,sum(pay.AMOUNT) as Amount' +
             '         from ' + @tablename + ' pay, t_shop shop' +
             '        where pay.WERKS = shop.OrgCode' +
             '          and pay.MOP_ID = ''40''' +  -- 40-现金，该支付方式编码由BOS系统直接下发
             '          and pay.ITEM_ID like ''20%''' + -- 只传非油品
             '          and pay.BUSINESS_DATE > ''2023-09-15''' +
             '          and pay.BUSINESS_DATE = ''' + @psaccdate + '''' + @where +
             '        group by pay.BUSINESS_DATE,shop.FinaCode,pay.WERKS' +
             '       ) a' +
             ' where Amount <> 0'

  exec(@sql)
  if @@error <>0
  begin
    set @psmsg = '汇总现金支付失败'
    return(-1)
  end

  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_cashpaymentinfo
     set DOCNO = 'ZFX' + ZTSDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'Z02' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go