qdhezheng-shell-release/02_scripts/01_存储过程/日结插件.sql

--日结插件入口
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
  
  --销售明细
  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
  --销售成本
  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
  --支付方式
  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
  --现金缴存
  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
  --非油采购验收
  exec @irtnresult = p_int_gen_accept @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
  --非油采购退货
  exec @irtnresult = p_int_gen_return @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
  --历史进价调整
  exec @irtnresult = p_int_gen_buy_price_his @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
  --现存进价调整
  exec @irtnresult = p_int_gen_buy_price_now @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
  --领用
  exec @irtnresult = p_int_gen_draw @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
  --自然报损
  exec @irtnresult = p_int_gen_scrap @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
  --非自然报损
  exec @irtnresult = p_int_gen_damage @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
  --盘点
  exec @irtnresult = p_int_gen_differ @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
  --配送
  exec @irtnresult = p_int_gen_dist @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
  --配退
  exec @irtnresult = p_int_gen_dist_return @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
  --配送销售
  exec @irtnresult = p_int_gen_dist_sale @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
  --配送成本
  exec @irtnresult = p_int_gen_dist_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
  --调拨
  exec @irtnresult = p_int_gen_out_trans @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
  --批发销售
  exec @irtnresult = p_int_gen_wh_sale @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
  --批发成本
  exec @irtnresult = p_int_gen_wh_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
  
  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)
  declare @tsdat varchar(10)

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

  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,' +
             '       ''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,'''' as ZFNAME,case when Amount < 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,' +
             '       ''' + @tsdat + ''' 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)
  declare @tsdat varchar(10)

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

  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,''' + @tsdat + ''' 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
  begins
    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)
  declare @tsdat varchar(10)

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

  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,''' + @tsdat + ''' 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)
  declare @tsdat varchar(10)

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

  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,''' + @tsdat + ''' 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

if exists (select name from sysobjects where name='p_int_gen_accept' and xtype='p')
  drop procedure p_int_gen_accept
go
create procedure p_int_gen_accept
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --采购单汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo ' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
             '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F02'' as IFTYPE,FinaCode as BUKRS,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,ClsCode as MATNR,SupCode as LIFNR,case JyMode when ''0'' then ''Z01'' else ''Z03'' end as ZJYFS,' +
             '   replace(AccDate,''-'','''') as ZYWDAT,''F02'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode,head.SupCode,sup.JyMode,' +
             '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts' +
             '         from t_accept_head head, t_accept_body body, t_shop shop, t_plu plu, t_gclass class, t_supplier sup, t_financial_body fina' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and head.SupCode = sup.SupCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and shop.FinaCode = fina.FinaCode' +
             '          and head.BillType in (''1'',''2'')' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and fina.FinaType = ''0''' +
             '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,head.SupCode,sup.JyMode,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  --子公司配送单汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo ' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
             '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F02'' as IFTYPE,FinaCode as BUKRS,ShopCode as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+ShopCode as PRCTR,ClsCode as MATNR,SupCode as LIFNR,''Z02'' as ZJYFS,' +
             '   replace(AccDate,''-'','''') as ZYWDAT,''F02'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.NetCost) as NetCost,sum(body.ZpCount) as Counts,shop.OrgType,fina.SupCode' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class, t_financial_body fina' +
             '        where head.BillNo = body.BillNo' +
             '          and head.ShopCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and shop.FinaCode = fina.FinaCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount > 0' +
             '          and fina.FinaType = ''1''' +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType,fina.SupCode' +
             '       ) a';

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

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

if exists (select name from sysobjects where name='p_int_gen_return' and xtype='p')
  drop procedure p_int_gen_return
go
create procedure p_int_gen_return
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --退货单汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo' +
            '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
            '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
            'select ''' + @createdate + ''' as CREATEDATE,''F03'' as IFTYPE,FinaCode as BUKRS,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,ClsCode as MATNR,SupCode as LIFNR,case JyMode when ''0'' then ''Z01'' else ''Z03'' end as ZJYFS,' +
            '   replace(AccDate,''-'','''') as ZYWDAT,''F03'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
            '  from (' +
            '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode,head.SupCode,sup.JyMode,' +
            '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts' +
            '         from t_return_head head, t_return_body body, t_shop shop, t_plu plu, t_gclass class, t_supplier sup, t_financial_body fina' +
            '        where head.BillNo = body.BillNo ' +
            '          and head.OrgCode = shop.OrgCode ' +
            '          and head.SupCode = sup.SupCode' +
            '          and body.PluCode = plu.PluCode ' +
            '          and plu.ClsCode = class.ClsCode ' +
            '          and shop.FinaCode = fina.FinaCode ' +
            '          and head.BillType in (''0'',''2'') ' +
            '          and head.AccDate = ''' + @psaccdate + '''' + @where +
            '          and fina.FinaType = ''0''' +
            '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,head.SupCode,sup.JyMode,shop.OrgType' +
            '       ) a'

  exec(@sql)
  
  --子公司配送退货单汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo ' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
             '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
             'select ''' + @createdate + ''' as CREATEDATE,''F03'' as IFTYPE,FinaCode as BUKRS,ShopCode as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+ShopCode as PRCTR,ClsCode as MATNR,SupCode as LIFNR,''Z02'' as ZJYFS,' +
             '   replace(AccDate,''-'','''') as ZYWDAT,''F03'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,' +
             '          sum(-body.NetCost) as NetCost,sum(-body.ZpCount) as Counts,shop.OrgType,fina.SupCode' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class, t_financial_body fina' +
             '        where head.BillNo = body.BillNo' +
             '          and head.ShopCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and shop.FinaCode = fina.FinaCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount < 0' +
             '          and fina.FinaType = ''1''' +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType,fina.SupCode' +
             '       ) a';

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

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

if exists (select name from sysobjects where name='p_int_gen_buy_price_his' and xtype='p')
  drop procedure p_int_gen_buy_price_his
go
create procedure p_int_gen_buy_price_his
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --历史进价调整汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
             '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZUNFLG,ZYZLX)' +
             'select ''' + @createdate + ''' as CreateDate,''F14'' as IFTYPE,FinaCode as BUKRS,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,ClsCode as MATNR,SupCode as LIFNR,case JyMode when ''0'' then ''Z01'' else ''Z03'' end as ZJYFS,' +
             '   replace(AccDate,''-'','''') as ZYWDAT,''F14'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case when NetCost < 0 then ''Y'' else '''' end as ZUNFLG,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode, head.SupCode,sup.JyMode,' +
             '          sum(body.NetCjCost) as NetCost,sum(body.TzCount) as Counts' +
             '         from t_adjbuyprice_head head, t_adjbuyprice_body body, t_shop shop, t_plu plu, t_gclass class, t_supplier sup' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and head.SupCode = sup.SupCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.TzType = ''0''' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,head.SupCode,sup.JyMode,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总历史进价调整失败'
    return(-1)
  end

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

if exists (select name from sysobjects where name='p_int_gen_buy_price_now' and xtype='p')
  drop procedure p_int_gen_buy_price_now
go
create procedure p_int_gen_buy_price_now
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --现存进价调整汇总
  set @sql = 'insert into t_int_sap_drypurchaseinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,MATNR,LIFNR,ZJYFS,' +
             '   ZYWDAT,ZTYPE,WAERS,SLTWR,DWERT,MENGE,MEINS,ZTSDAT,ZGZDAT,ZUNFLG,ZYZLX)' +
             'select ''' + @createdate + ''' as CreateDate,''F15'' as IFTYPE,FinaCode as BUKRS,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS, ''1'' as ZSIGN,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,ClsCode as MATNR,SupCode as LIFNR,case JyMode when ''0'' then ''Z01'' else ''Z03'' end as ZJYFS,' +
             '   replace(AccDate,''-'','''') as ZYWDAT,''F15'' as ZTYPE,''CNY'' as WAERS,NetCost as SLTWR,0 as DWERT,Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case when NetCost < 0 then ''Y'' else '''' end as ZUNFLG,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode, head.SupCode,sup.JyMode,' +
             '          sum(body.NetCjCost) as NetCost,sum(body.TzCount) as Counts' +
             '         from t_adjbuyprice_head head, t_adjbuyprice_body body, t_shop shop, t_plu plu, t_gclass class, t_supplier sup' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and head.SupCode = sup.SupCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.TzType = ''1''' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,head.SupCode,sup.JyMode,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总现存进价调整失败'
    return(-1)
  end

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

if exists (select name from sysobjects where name='p_int_gen_draw' and xtype='p')
  drop procedure p_int_gen_draw
go
create procedure p_int_gen_draw
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --领用单汇总
  set @sql = 'insert into t_int_sap_stockconsumer' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZHQBS,KOSTL,PRCTR,ZLYLB,' +
             '   ZTYPE,BLDAT,MATNR,SLTWR,ZXSZJ,MENGE,WAERS,MEINS,' +
             '   MWSKZ,TSDAT,BUDAT,UNFLG,SGTXT,ZPLXH)' +
             'select ''' + @createdate + ''' as CreateDate,''F13'' as IFTYPE,FinaCode as BUKRS,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS, ''1'' as ZHQBS,CostCenter as KOSTL,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,LyType as ZLYLB,' +
             '   ''F13'' as ZTYPE,replace(AccDate,''-'','''') as BLDAT,ClsCode as MATNR,NetCost as SLTWR,Total as ZXSZJ,Counts as MENGE,''CNY'' as WAERS,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,' +
             '   case left(LyType,2) when ''A1'' then case JTaxRate when 0 then ''J0'' when 17 then ''J1'' when 13 then ''J2'' when 11 then ''J3'' when 6 then ''J4'' when 4 then ''J5'' when 3 then ''J6'' when 5 then ''J7'' when 16 then ''J8'' when ''10'' then ''J9'' when 9 then ''JA'' when 1 then ''JB'' end' +
             '       when ''A2'' then 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' +
             '       else ''X0'' end as MWSKZ,''' + @tsdat + ''' as TSDAT,replace(AccDate,''-'','''') as BUDAT,'''' as UNFLG,PurPose as SGTXT,'''' as ZPLXH' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,head.LyType,head.CostCenter,head.PurPose,class.UpperCode1 as ClsCode,body.JTaxRate,plu.STaxRate,' +
             '          sum(body.NetCost) as NetCost,sum(body.Total) as Total,sum(body.Counts) as Counts' +
             '         from t_draw_head head, t_draw_body body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.billno = body.billno ' +
             '          and head.OrgCode = shop.OrgCode ' +
             '          and body.PluCode = plu.PluCode ' +
             '          and plu.ClsCode = class.ClsCode ' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.AccDate,shop.FinaCode,head.OrgCode,head.LyType,head.CostCenter,head.PurPose,class.UpperCode1,shop.OrgType,body.JTaxRate,plu.STaxRate' +
             '       ) a'

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

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

if exists (select name from sysobjects where name='p_int_gen_scrap' and xtype='p')
  drop procedure p_int_gen_scrap
go
create procedure p_int_gen_scrap
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,MWSKZ,TMWSTS,ZTSDAT,ZGZDAT,ZCSBS,ZYZLX,UNFLG)' +
            'select ''' + @createdate + ''' as CreateDate,''F08'' as IFTYPE,FinaCode as BUKRS, ''1'' as ZSIGN,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F08'' as ZTYPE,ClsCode as MATNR,''Z01'' 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,''JB'' as MWSKZ,TaxTotal as TMWSTS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,'''' as UNFLG' +
            '  from (' +
            '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode,' +
            '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts,sum(body.Cost-body.NetCost) as TaxTotal' +
            '         from t_scrap_head head, t_scrap_body body, t_shop shop, t_plu plu, t_gclass class' +
            '        where head.BillNo = body.BillNo' +
            '          and head.OrgCode = shop.OrgCode' +
            '          and body.PluCode = plu.PluCode' +
            '          and plu.ClsCode = class.ClsCode' +
            '          and head.AccDate = ''' + @psaccdate + '''' + @where +
            '          and body.BsType = ''01''' +
            '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,shop.OrgType' +
            '       ) a'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总自然报损失败'
    return(-1)
  end

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

if exists (select name from sysobjects where name='p_int_gen_damage' and xtype='p')
  drop procedure p_int_gen_damage
go
create procedure p_int_gen_damage
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,MWSKZ,TMWSTS,ZTSDAT,ZGZDAT,ZCSBS,ZYZLX,UNFLG)' +
            'select ''' + @createdate + ''' as CreateDate,''F09'' as IFTYPE,FinaCode as BUKRS, ''1'' as ZSIGN,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F09'' as ZTYPE,ClsCode as MATNR,''Z01'' 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,''JB'' as MWSKZ,TaxTotal as TMWSTS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,'''' as UNFLG' +
            '  from (' +
            '       select head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode,' +
            '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts,sum(body.Cost-body.NetCost) as TaxTotal' +
            '         from t_scrap_head head, t_scrap_body body, t_shop shop, t_plu plu, t_gclass class' +
            '        where head.BillNo = body.BillNo' +
            '          and head.OrgCode = shop.OrgCode' +
            '          and body.PluCode = plu.PluCode' +
            '          and plu.ClsCode = class.ClsCode' +
            '          and head.AccDate = ''' + @psaccdate + '''' + @where +
            '          and body.BsType = ''02''' +
            '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,shop.OrgType' +
            '       ) a'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总非自然报损失败'
    return(-1)
  end

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

if exists (select name from sysobjects where name='p_int_gen_differ' and xtype='p')
  drop procedure p_int_gen_differ
go
create procedure p_int_gen_differ
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,''F10'' as IFTYPE,FinaCode as BUKRS, ''1'' as ZSIGN,case OrgType when ''2'' then ''2Y00'' else OrgCode end as WERKS,''P''+FinaCode+''1''+case OrgType when ''2'' then ''2Y00'' else OrgCode end as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F10'' as ZTYPE,ClsCode as MATNR,' +
             '   ''Z01'' 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,''' + @tsdat + ''' 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 head.AccDate,shop.FinaCode,shop.OrgType,head.OrgCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.YkNetCost) as NetCost,sum(body.YkCount) as Counts' +
             '         from t_differ_head head, t_differ_body body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.BillType in (''0'',''1'',''3'')' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.AccDate,shop.FinaCode,head.OrgCode,class.UpperCode1,shop.OrgType' +
             '       ) 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 = 'PKD' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F10' and ZJYFS = 'Z01' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

if exists (select name from sysobjects where name='p_int_gen_dist' and xtype='p')
  drop procedure p_int_gen_dist
go
create procedure p_int_gen_dist
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --配送单汇总
  set @sql = 'insert into t_int_sap_drydeliveryinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,ZSIGN,SDWRK,SPRCTR,WERKS,PRCTR,ZYWDAT,ZTYPE,' +
             '   MATNR,ZJYFS,DMBTR,WAERS,MENGE,DWERT,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
             'select ''' + @createdate + ''' as CreateDate,''F04'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,ShopCode as SDWRK,''P''+FinaCode+''1''+ShopCode as SPRCTR,''2Y00'' as WERKS,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F04'' as ZTYPE,' +
             '   ClsCode as MATNR,''Z01'' as ZJYFS,NetCost as DMBTR,''CNY'' as WAERS,Counts as MENGE,0 as DWERT,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.NetCost) as NetCost,sum(body.ZpCount) as Counts,shop.OrgType' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class, t_financial_body fina' +
             '        where head.BillNo = body.BillNo' +
             '          and head.ShopCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and shop.FinaCode = fina.FinaCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount > 0' +
             '          and fina.FinaType = ''0''' +
             '        group by head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

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

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

if exists (select name from sysobjects where name='p_int_gen_dist_return' and xtype='p')
  drop procedure p_int_gen_dist_return
go
create procedure p_int_gen_dist_return
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --配送退货单汇总
  set @sql = 'insert into t_int_sap_drydeliveryinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,ZSIGN,SDWRK,SPRCTR,WERKS,PRCTR,ZYWDAT,ZTYPE,' +
             '   MATNR,ZJYFS,DMBTR,WAERS,MENGE,DWERT,MEINS,ZTSDAT,ZGZDAT,ZYZLX)' +
             'select ''' + @createdate + ''' as CreateDate,''F05'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,ShopCode as SDWRK,''P''+FinaCode+''1''+ShopCode as SPRCTR,''2Y00'' as WERKS,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F05'' as ZTYPE,' +
             '   ClsCode as MATNR,''Z01'' as ZJYFS,NetCost as DMBTR,''CNY'' as WAERS,Counts as MENGE,0 as DWERT,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,' +
             '          sum(-body.NetCost) as NetCost,sum(-body.ZpCount) as Counts,shop.OrgType' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class, t_financial_body fina' +
             '        where head.BillNo = body.BillNo' +
             '          and head.ShopCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and shop.FinaCode = fina.FinaCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount < 0' +
             '          and fina.FinaType = ''0''' +
             '        group by head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

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

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

if exists (select name from sysobjects where name='p_int_gen_dist_sale' and xtype='p')
  drop procedure p_int_gen_dist_sale
go
create procedure p_int_gen_dist_sale
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,ZYZLX,' +
             '   ZFNAME,ZUNFLG,VBELN,KUNNR,KUNWE,MWSKZ)' +
             'select ''' + @createdate + ''' as CreateDate,''F01'' as IFTYPE,FinaCode as BUKRS,''2Y00'' as WERKS,''1'' as ZSIGN,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F01'' as ZTYPE,''Z30'' as ZCXLX,''Z20'' as ZJYFS,'''' as VVTYP,ClsCode as MATNR,' +
             '   Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,ZpAmount as PRICE,ZpAmount as SKTAK,0 as SKTBT,TaxAmount as TMWSTS,0 as GTTAX,''CNY'' as WAERS,0 as ZTOLAMT,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,' +
             '   '''' as ZFNAME,case when Counts < 0 then ''Y'' else '''' end as ZUNFLG,BillNo as VBELN,ShopCode as KUNNR,ShopCode as KUNWE,case JTaxRate 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 head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,body.JTaxRate,' +
             '          sum(body.ZpAmount) as ZpAmount,sum(body.ZpAmount-body.ZpNetAmount) as TaxAmount,sum(body.ZpCount) as Counts,shop.OrgType' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate is not null and head.AccDate <> ''''' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount <> 0' +
             '          and exists (select OrgCode from t_shop a, t_financial_body b where a.FinaCode = b.FinaCode and a.OrgCode = head.ShopCode and b.FinaType = ''1'')' +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType,body.JTaxRate' +
             '       ) a'

  exec(@sql)
  
  
  if @@error <>0
  begin
    set @psmsg = '汇总配送销售失败'
    return(-1)
  end
  
  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_drysalesinfo
     set DOCNO = 'PSX' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F01' and ZJYFS = 'Z20' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

if exists (select name from sysobjects where name='p_int_gen_dist_chg' and xtype='p')
  drop procedure p_int_gen_dist_chg
go
create procedure p_int_gen_dist_chg
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,VBELN,KUNNR,KUNWE,UNFLG)' +
             'select ''' + @createdate + ''' as CreateDate,''F11'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,''2Y00'' as WERKS,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F11'' as ZTYPE,ClsCode as MATNR,''Z20'' 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,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,' +
             '   case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,BillNo as VBELN,ShopCode as KUNNR,ShopCode as KUNWE,case when Counts < 0 then ''Y'' else '''' end as UNFLG' +
             '  from (' +
             '       select head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.NetCost) as NetCost,sum(body.ZpCount) as Counts,shop.OrgType' +
             '         from t_dist_head head, t_dist_body body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '          and body.ZpCount <> 0' +
             '          and exists (select OrgCode from t_shop a, t_financial_body b where a.FinaCode = b.FinaCode and a.OrgCode = head.ShopCode and b.FinaType = ''1'')' +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.ShopCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  if @@error <>0
  begin
    set @psmsg = '汇总配送成本失败'
    return(-1)
  end
  
  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_inventorychginfo
     set DOCNO = 'PSC' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F11' and ZJYFS = 'Z20' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

if exists (select name from sysobjects where name='p_int_gen_out_trans' and xtype='p')
  drop procedure p_int_gen_out_trans
go
create procedure p_int_gen_out_trans
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.OrgCode = ''' + @psorgcode + ''''
  end
  
  --调拨单汇总
  set @sql = 'insert into t_int_sap_drytransferinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,ZSIGN,SDWRK,SPRCTR,WERKS,PRCTR,ZYWDAT,' +
             '   ZTYPE,MATNR,ZJYFS,SLTWR,WEARS,MENGE,DWERT,MEINS,ZTSDAT,ZYZLX,UNFLG)' +
             'select ''' + @createdate + ''' as CreateDate,''F06'' as IFTYPE,FinaCode as BUKRS, ''1'' as ZSIGN,OutOrgCode as SDWRK,''P''+FinaCode+''1''+OutOrgCode as SPRCTR,InOrgCode as WERKS,''P''+FinaCode+''1''+InOrgCode as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,' +
             '   ''F06'' as ZTYPE,ClsCode as MATNR,''Z01'' 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,''' + @tsdat + ''' as ZTSDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,'''' as UNFLG' +
             '  from (' +
             '       select head.AccDate,shop.FinaCode,head.OutOrgCode,head.InOrgCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts,shop.OrgType' +
             '         from t_outtrans_head head, t_outtrans_body body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OutOrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.BillType = ''1''' +
             '          and head.IsOut = ''1''' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.AccDate,shop.FinaCode,head.OutOrgCode,head.InOrgCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

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

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

if exists (select name from sysobjects where name='p_int_gen_wh_sale' and xtype='p')
  drop procedure p_int_gen_wh_sale
go
create procedure p_int_gen_wh_sale
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,ZYZLX,' +
             '   ZFNAME,ZUNFLG,VBELN,KUNNR,KUNWE,MWSKZ)' +
             'select ''' + @createdate + ''' as CreateDate,''F01'' as IFTYPE,FinaCode as BUKRS,''2Y00'' as WERKS,''1'' as ZSIGN,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F01'' as ZTYPE,''Z30'' as ZCXLX,''Z21'' as ZJYFS,'''' as VVTYP,ClsCode as MATNR,' +
             '   Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,PfTotal as PRICE,PfTotal as SKTAK,0 as SKTBT,TaxAmount as TMWSTS,0 as GTTAX,''CNY'' as WAERS,0 as ZTOLAMT,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,' +
             '   '''' as ZFNAME,'''' as ZUNFLG,BillNo as VBELN,CustCode as KUNNR,CustCode as KUNWE,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 head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1 as ClsCode,plu.STaxRate,' +
             '          sum(body.PfTotal) as PfTotal,sum(body.PfTotal - body.NetPfTotal) as TaxAmount,sum(body.Counts) as Counts,shop.OrgType' +
             '         from t_whsale_head head, t_whsale_body2 body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1,shop.OrgType,plu.STaxRate' +
             '       ) a'

  exec(@sql)
  
  --批发退货单汇总
  set @sql = 'insert into t_int_sap_drysalesinfo' +
             '  (CREATEDATE,IFTYPE,BUKRS,WERKS,ZSIGN,PRCTR,ZYWDAT,ZTYPE,ZCXLX,ZJYFS,MATNR,' +
             '   MENGE,MEINS,PRICE,SKTAK,SKTBT,TMWSTS,GTTAX,WAERS,ZTOLAMT,ZTSDAT,ZGZDAT,ZYZLX,' +
             '   ZFNAME,ZUNFLG,VBELN,KUNNR,KUNWE,MWSKZ)' +
             'select ''' + @createdate + ''' as CreateDate,''F01'' as IFTYPE,FinaCode as BUKRS,''2Y00'' as WERKS,''1'' as ZSIGN,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F01'' as ZTYPE,''Z30'' as ZCXLX,''Z21'' as ZJYFS,ClsCode as MATNR,' +
             '   Counts as MENGE,case ClsCode when ''2018'' then ''L'' else ''EA'' end as MEINS,PfTotal as PRICE,PfTotal as SKTAK,0 as SKTBT,TaxAmount as TMWSTS,0 as GTTAX,''CNY'' as WAERS,0 as ZTOLAMT,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,' +
             '   '''' as ZFNAME,''Y'' as ZUNFLG,BillNo as VBELN,CustCode as KUNNR,CustCode as KUNWE,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 head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1 as ClsCode,plu.STaxRate,' +
             '          sum(-body.PfTotal) as PfTotal,sum(body.NetPfTotal - body.PfTotal) as TaxAmount,sum(body.ZrTotal-body.PfTotal) as SsTotal,sum(-body.Counts) as Counts,shop.OrgType' +
             '         from t_whreturn_head head, t_whreturn_body2 body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate is not null and head.AccDate <> ''''' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1,shop.OrgType,plu.STaxRate' +
             '       ) a'

  exec(@sql)
  
  
  if @@error <>0
  begin
    set @psmsg = '汇总批发销售失败'
    return(-1)
  end
  
  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_drysalesinfo
     set DOCNO = 'PFX' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F01' and ZJYFS = 'Z21' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go

if exists (select name from sysobjects where name='p_int_gen_wh_chg' and xtype='p')
  drop procedure p_int_gen_wh_chg
go
create procedure p_int_gen_wh_chg
(         
  @psorgcode varchar(10),
  @psaccdate varchar(10),
  @psmsg varchar(2000) out
)
as 
begin
  declare @where varchar(2000)
  declare @sql varchar(5000)
  declare @createdate varchar(20)
  declare @tsdat varchar(10)

  set @where = ''
  set @createdate = convert(varchar(20),getdate(),120)
  set @tsdat = convert(varchar(8),getdate(),112)

  if @psorgcode <> '' and @psorgcode is not null and @psorgcode <> '*'
  begin
    set @where = ' and head.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,VBELN,KUNNR,KUNWE)' +
             'select ''' + @createdate + ''' as CreateDate,''F11'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,''2Y00'' as WERKS,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F11'' as ZTYPE,ClsCode as MATNR,''Z21'' 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,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,'''' as UNFLG,BillNo as VBELN,CustCode as KUNNR,CustCode as KUNWE' +
             '  from (' +
             '       select head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1 as ClsCode,' +
             '          sum(body.NetCost) as NetCost,sum(body.Counts) as Counts,shop.OrgType' +
             '         from t_whsale_head head, t_whsale_body2 body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  --批发退货单汇总
  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,VBELN,KUNNR,KUNWE)' +
             'select ''' + @createdate + ''' as CreateDate,''F11'' as IFTYPE,FinaCode as BUKRS,''1'' as ZSIGN,''2Y00'' as WERKS,''P''+FinaCode+''1''+''2Y00'' as PRCTR,replace(AccDate,''-'','''') as ZYWDAT,''F11'' as ZTYPE,ClsCode as MATNR,''Z21'' 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,''' + @tsdat + ''' as ZTSDAT,replace(AccDate,''-'','''') as ZGZDAT,''X'' as ZCSBS,case OrgType when ''1'' then ''DO'' else ''COCO'' end as ZYZLX,'''' as UNFLG,BillNo as VBELN,CustCode as KUNNR,CustCode as KUNWE' +
             '  from (' +
             '       select head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1 as ClsCode,' +
             '          sum(-body.NetCost) as NetCost,sum(-body.Counts) as Counts,shop.OrgType' +
             '         from t_whreturn_head head, t_whreturn_body2 body, t_shop shop, t_plu plu, t_gclass class' +
             '        where head.BillNo = body.BillNo' +
             '          and head.OrgCode = shop.OrgCode' +
             '          and body.PluCode = plu.PluCode' +
             '          and plu.ClsCode = class.ClsCode' +
             '          and head.AccDate = ''' + @psaccdate + '''' + @where +
             '        group by head.BillNo,head.AccDate,shop.FinaCode,head.OrgCode,head.CustCode,class.UpperCode1,shop.OrgType' +
             '       ) a'

  exec(@sql)
  
  
  if @@error <>0
  begin
    set @psmsg = '汇总批发成本失败'
    return(-1)
  end
  
  --更新零管单号（3位业务前缀+6位日期+6流水号，物理记录）
  update t_int_sap_inventorychginfo
     set DOCNO = 'PFC' + ZYWDAT + convert(varchar(10),SERIALNO)
   where IFTYPE = 'F11' and ZJYFS = 'Z21' and DOCNO is null
 
  set @psmsg = ''
  return (1)  
end
go