|
|
/*非油销售报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_salerpt' and xtype='p')
|
|
|
drop procedure p_rpt_salerpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_salerpt
|
|
|
(
|
|
|
@pfinacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pclscode varchar(1000),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sfinacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sclscode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sfinacode=replace(@pfinacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sclscode=replace(@pclscode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpgclass' and xtype='u')
|
|
|
drop table ##tmpgclass
|
|
|
create table ##tmpgclass (
|
|
|
clscode varchar(10),clsname varchar(20),uppercode1 varchar(10),uppername1 varchar(20),uppercode2 varchar(10),uppername2 varchar(20))
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplusale' and xtype='u')
|
|
|
drop table ##tmpplusale
|
|
|
create table ##tmpplusale (
|
|
|
accdate varchar(10),orgcode varchar(10),orgname varchar(30),plucode varchar(20),pluname varchar(40),
|
|
|
supcode varchar(15),supname varchar(100),counts numeric(19,4),cost numeric(19,4),netcost numeric(19,4),total numeric(19,4),
|
|
|
amount numeric(19,4),netamount numeric(19,4),normaldsc numeric(19,4),vipdsc numeric(19,4),pricedsc numeric(19,4),
|
|
|
grossprofit numeric(19,4),netprofit numeric(19,4),adjustprofit numeric(19,4),netadjustprofit numeric(19,4),
|
|
|
jtaxrate int,staxrate int,prctr varchar(10),finacode varchar(10),kccount numeric(19,4),price numeric(19,4),
|
|
|
clscode varchar(10),clsname varchar(20),uppercode1 varchar(10),uppername1 varchar(20),uppercode2 varchar(10),uppername2 varchar(20))
|
|
|
|
|
|
insert into ##tmpgclass (clscode,clsname,uppercode1,uppercode2)
|
|
|
select clscode,clsname,uppercode1,uppercode2 from t_gclass where clslevel=3
|
|
|
update a set uppername1=b.clsname
|
|
|
from ##tmpgclass a,t_gclass b where a.uppercode1=b.clscode
|
|
|
update a set uppername2=b.clsname
|
|
|
from ##tmpgclass a,t_gclass b where a.uppercode2=b.clscode
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_plusale_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='insert into ##tmpplusale(accdate,orgcode,orgname,plucode,pluname,supcode,supname,counts,cost,netcost,total,amount,netamount,normaldsc,vipdsc,pricedsc,grossprofit,netprofit,
|
|
|
adjustprofit,netadjustprofit,jtaxrate,staxrate,finacode,kccount,price,clscode,clsname,uppercode1,uppername1,uppercode2,uppername2,prctr)
|
|
|
select a.accdate,a.orgcode,b.orgname,a.plucode,d.pluname,a.supcode,c.supname,a.counts,a.cost,a.netcost,a.total,a.amount,a.netamount,a.normaldsc,a.vipdsc,a.pricedsc,a.grossprofit,a.netprofit,
|
|
|
a.adjustprofit,a.netadjustprofit,a.jtaxrate,a.staxrate,b.finacode,e.gcount+e.ccount,e.price,d.clscode,f.clsname,f.uppercode1,f.uppername1,f.uppercode2,f.uppername2,
|
|
|
''P''+b.finacode+''1''+case when b.orgtype=''2'' then b.param1 else b.orgcode end
|
|
|
from t_plusale_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' a
|
|
|
left join t_shop b on a.orgcode=b.orgcode
|
|
|
left join t_supplier c on a.supcode=c.supcode
|
|
|
left join t_plu d on a.plucode=d.plucode
|
|
|
left join t_plu_org e on a.plucode=e.plucode and a.orgcode=e.orgcode
|
|
|
left join ##tmpgclass f on d.clscode=f.clscode
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sfinacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and finacode in ('''+@sfinacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @sclscode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_gclass where clscode=d.clscode and uppercode1 in ('''+@sclscode+'''))'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and a.plucode in ('''+@splucode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
set @ssql='select finacode,orgcode,orgname,accdate,plucode,pluname,
|
|
|
sum(counts) counts,sum(total) total,sum(amount) as amount,
|
|
|
sum(normaldsc+vipdsc+pricedsc) as dsc,sum(netamount) as netamount,staxrate,
|
|
|
sum(amount-netamount) as taxamount,sum(normaldsc+vipdsc+pricedsc)/(1+jtaxrate/100.0) as netdsc,
|
|
|
sum(normaldsc+vipdsc+pricedsc)-sum(normaldsc+vipdsc+pricedsc)/(1+jtaxrate/100.0) as taxdsc,
|
|
|
sum(cost+adjustprofit) as cost,sum(netcost+netadjustprofit) as netcost,sum(grossprofit-adjustprofit) as grossprofit,
|
|
|
case when sum(amount)=0 then 0 else sum(grossprofit-adjustprofit)/sum(amount)*100 end as profitrate,
|
|
|
''FP'' as fptype,uppercode2,uppername2,uppercode1,uppername1,clscode,clsname,supcode,supname,prctr,kccount,price
|
|
|
from ##tmpplusale where 0=0
|
|
|
group by finacode,orgcode,orgname,accdate,plucode,pluname,jtaxrate,staxrate,uppercode2,uppername2,
|
|
|
uppercode1,uppername1,clscode,clsname,supcode,supname,prctr,kccount,price
|
|
|
order by finacode,orgcode,accdate,plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpgclass' and xtype='u')
|
|
|
drop table ##tmpgclass
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplusale' and xtype='u')
|
|
|
drop table ##tmpplusale
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*非油支付报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_tendrpt' and xtype='p')
|
|
|
drop procedure p_rpt_tendrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_tendrpt
|
|
|
(
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pclscode varchar(1000),
|
|
|
@pqryall varchar(1),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sclscode varchar(1000)
|
|
|
declare @sadd varchar(4000)
|
|
|
declare @tendcode varchar(4)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sclscode=replace(@pclscode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmppaydeilysum' and xtype='u')
|
|
|
drop table ##tmppaydeilysum
|
|
|
create table ##tmppaydeilysum (
|
|
|
orgcode varchar(10),accdate varchar(10),clscode varchar(10),tendcode varchar(4),amount numeric(19,4))
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmppaydeily' and xtype='u')
|
|
|
drop table ##tmppaydeily
|
|
|
create table ##tmppaydeily (
|
|
|
finacode varchar(10),finaname varchar(40),orgcode varchar(10),orgname varchar(30),accdate varchar(10),clscode varchar(10),clsname varchar(20),
|
|
|
amount numeric(19,4))
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set amount=b.amount
|
|
|
from ##tmppaydeilysum a,(select business_date,werks,clscode,mop_id,sum(amount) as amount
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
group by business_date,werks,clscode,mop_id) b where a.accdate=b.business_date and a.orgcode=b.werks and a.clscode=b.clscode and a.tendcode=b.mop_id'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmppaydeilysum(orgcode,accdate,clscode,tendcode,amount)
|
|
|
select werks,business_date,clscode,mop_id,sum(amount)
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
and not exists(select * from ##tmppaydeilysum where accdate=t.business_date and orgcode=t.werks and clscode=t.clscode and tendcode=t.mop_id)
|
|
|
and exists(select * from t_user_org where orgcode=t.werks and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and werks in ('''+@sorgcode+''')'
|
|
|
if @sclscode<>''
|
|
|
set @ssql=@ssql+' and clscode in ('''+@sclscode+''')'
|
|
|
if isnull(@pqryall,'')='0'
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=t.werks and overdate>=t.business_date)'
|
|
|
set @ssql=@ssql+' group by werks,business_date,clscode,mop_id'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set amount=b.amount
|
|
|
from ##tmppaydeily a,(select business_date,werks,clscode,sum(amount) as amount
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
group by business_date,werks,clscode) b where a.accdate=b.business_date and a.orgcode=b.werks and a.clscode=b.clscode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmppaydeily(finacode,finaname,orgcode,orgname,accdate,clscode,clsname,amount)
|
|
|
select b.finacode,c.finaname,a.werks,b.orgname,a.business_date,a.clscode,d.clsname,sum(a.amount)
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' a
|
|
|
left join t_shop b on a.werks=b.orgcode
|
|
|
left join t_financial_body c on b.finacode=c.finacode
|
|
|
left join t_gclass d on a.clscode=d.clscode
|
|
|
where a.business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and a.clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
and not exists(select * from ##tmppaydeily where orgcode=a.werks and accdate=a.business_date and clscode=a.clscode)
|
|
|
and exists(select * from t_user_org where orgcode=a.werks and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and b.orgcode in ('''+@sorgcode+''')'
|
|
|
if @sclscode<>''
|
|
|
set @ssql=@ssql+' and a.clscode in ('''+@sclscode+''')'
|
|
|
if isnull(@pqryall,'')='0'
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.werks and overdate>=a.business_date)'
|
|
|
set @ssql=@ssql+' group by b.finacode,c.finaname,a.werks,b.orgname,a.business_date,a.clscode,d.clsname'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
set @sadd=''
|
|
|
set @ssql=''
|
|
|
declare cur cursor for select tendcode from t_tend order by tendcode
|
|
|
open cur
|
|
|
fetch next from cur into @tendcode
|
|
|
while @@fetch_status=0
|
|
|
begin
|
|
|
set @sadd=@sadd+'alter table ##tmppaydeily add tend'+@tendcode+' numeric(19,4)'+char(10)
|
|
|
set @ssql=@ssql+'update a set tend'+@tendcode+'=b.amount from ##tmppaydeily a,##tmppaydeilysum b where a.orgcode=b.orgcode and a.accdate=b.accdate and a.clscode=b.clscode and b.tendcode='+@tendcode+char(10)
|
|
|
fetch next from cur into @tendcode
|
|
|
end
|
|
|
close cur
|
|
|
deallocate cur
|
|
|
exec(@sadd)
|
|
|
exec(@ssql)
|
|
|
|
|
|
select * from ##tmppaydeily order by finacode,orgcode,accdate,clscode
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmppaydeilysum' and xtype='u')
|
|
|
drop table ##tmppaydeilysum
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmppaydeily' and xtype='u')
|
|
|
drop table ##tmppaydeily
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*油站销售日报*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_dayrpt' and xtype='p')
|
|
|
drop procedure p_rpt_dayrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_dayrpt
|
|
|
(
|
|
|
@pfinacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pisdiff varchar(1),
|
|
|
@pqryall varchar(1),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sfinacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sfinacode=replace(@pfinacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdayrpt' and xtype='u')
|
|
|
drop table ##tmpdayrpt
|
|
|
create table ##tmpdayrpt (
|
|
|
accdate varchar(10),orgcode varchar(10),orgname varchar(30),finacode varchar(10),finaname varchar(40),
|
|
|
amount numeric(19,4),tendamount numeric(19,4))
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_flow_total_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set amount=amount+b.plutotal
|
|
|
from ##tmpdayrpt a,(select accdate,orgcode,sum(plutotal) as plutotal
|
|
|
from t_flow_item_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+'
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(orgcode,2)<>''2D''
|
|
|
group by accdate,orgcode) b where a.accdate=b.accdate and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpdayrpt(accdate,orgcode,amount)
|
|
|
select accdate,orgcode,sum(plutotal)
|
|
|
from t_flow_item_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' a
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(orgcode,2)<>''2D''
|
|
|
and not exists(select * from ##tmpdayrpt where accdate=a.accdate and orgcode=a.orgcode)
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if isnull(@pqryall,'')='0'
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and overdate>=a.accdate)'
|
|
|
set @ssql=@ssql+' group by accdate,orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
if exists(select name from sysobjects where name='t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set tendamount=b.amount
|
|
|
from ##tmpdayrpt a,(select business_date,werks,sum(amount) as amount
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
group by business_date,werks) b where a.accdate=b.business_date and a.orgcode=b.werks'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpdayrpt(accdate,orgcode,amount,tendamount)
|
|
|
select business_date,werks,0,sum(amount)
|
|
|
from t_int_flow_pay_deily_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where business_date between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(werks,2)<>''2D''
|
|
|
and not exists(select * from ##tmpdayrpt where accdate=t.business_date and orgcode=t.werks)
|
|
|
and exists(select * from t_user_org where orgcode=t.werks and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and werks in ('''+@sorgcode+''')'
|
|
|
if isnull(@pqryall,'')='0'
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=t.werks and overdate>=t.business_date)'
|
|
|
set @ssql=@ssql+' group by business_date,werks'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
if @pqryall='1'
|
|
|
begin
|
|
|
set @ssql='update a set amount=amount+b.plutotal
|
|
|
from ##tmpdayrpt a,(select accdate,orgcode,sum(plutotal) as plutotal
|
|
|
from t_flow_item
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(orgcode,2)<>''2D''
|
|
|
group by accdate,orgcode) b where a.accdate=b.accdate and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpdayrpt(accdate,orgcode,amount)
|
|
|
select accdate,orgcode,sum(plutotal)
|
|
|
from t_flow_item a
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and clscode not in (''1001'',''1002'') and left(orgcode,2)<>''2D''
|
|
|
and not exists(select * from ##tmpdayrpt where accdate=a.accdate and orgcode=a.orgcode)
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
set @ssql=@ssql+' group by accdate,orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
update a set finacode=b.finacode,orgname=b.orgname
|
|
|
from ##tmpdayrpt a,t_shop b where a.orgcode=b.orgcode
|
|
|
update a set finaname=b.finaname
|
|
|
from ##tmpdayrpt a,t_financial_body b where a.finacode=b.finacode
|
|
|
update ##tmpdayrpt set tendamount=isnull(tendamount,0)
|
|
|
|
|
|
set @ssql='select accdate,orgcode,orgname,amount,tendamount,amount-tendamount as diffamount,finacode,finaname
|
|
|
from ##tmpdayrpt where 0=0'
|
|
|
if @sfinacode<>''
|
|
|
set @ssql=@ssql+' and finacode in ('''+@sfinacode+''')'
|
|
|
if isnull(@pisdiff,'')='1'
|
|
|
set @ssql=@ssql+' and amount-tendamount<>0'
|
|
|
|
|
|
set @ssql=@ssql+' order by accdate,orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdayrpt' and xtype='u')
|
|
|
drop table ##tmpdayrpt
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*全网络所有SKU移动明细*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_plubook' and xtype='p')
|
|
|
drop procedure p_rpt_plubook
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_plubook
|
|
|
(
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pplucode varchar(2000),
|
|
|
@pbilltype varchar(2),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplubook' and xtype='u')
|
|
|
drop table ##tmpplubook
|
|
|
create table ##tmpplubook (
|
|
|
accdate varchar(10),orgcode varchar(10),plucode varchar(20),billno varchar(20),billtype varchar(1),unitcode varchar(10),
|
|
|
ywbilltype varchar(1),inbilltype varchar(2),r_billtype varchar(20),tblname varchar(6),serialno int,fscount numeric(19,4),fsnetcost numeric(19,4))
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='insert into ##tmpplubook(accdate,plucode,orgcode,billno,billtype,ywbilltype,tblname,serialno,fscount,fsnetcost)
|
|
|
select distinct accdate,plucode,orgcode,billno,billtype,'''','''+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+''',serialno,
|
|
|
case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end,
|
|
|
case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') and serialno <> 21151 then -fsnetcost else fsnetcost end
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' a
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and (billtype=''E'' and fscount<>0 or billtype<>''E'')
|
|
|
and billtype not in (''4'',''8'',''Z'')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode='C009'
|
|
|
set @ssql=@ssql+' and orgcode in (select orgcode from t_shop where finacode<>''2000'')'
|
|
|
else if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
-----2023-11-07，实时台账表中的ACCDate 为空，这个写数据也需要展现，故调整查询条件为：
|
|
|
set @ssql='insert into ##tmpplubook(accdate,plucode,orgcode,billno,billtype,ywbilltype,tblname,serialno,fscount,fsnetcost)
|
|
|
select distinct accdate,plucode,orgcode,billno,billtype,'''',''yyyymm'',serialno,
|
|
|
case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end,
|
|
|
case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fsnetcost else fsnetcost end
|
|
|
from t_gbk_yyyymm a
|
|
|
where bookdate between '''+@sbgndate+''' and '''+@senddate+''' and (billtype=''E'' and fscount<>0 or billtype<>''E'')
|
|
|
and billtype not in (''4'',''8'',''Z'')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode='C009'
|
|
|
set @ssql=@ssql+' and orgcode in (select orgcode from t_shop where finacode<>''2000'')'
|
|
|
else if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set ywbilltype=case when c.finacode<>''2000'' and b.billtype = ''2'' then ''9'' when c.finacode<>''2000'' and b.billtype <> ''2'' then ''8'' else b.billtype end
|
|
|
from ##tmpplubook a,t_accept_head b,t_shop c
|
|
|
where a.billno=b.billno and b.orgcode=c.orgcode and a.billtype=''0'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set ywbilltype=case when c.finacode<>''2000'' and b.billtype = ''2'' then ''9'' when c.finacode<>''2000'' and b.billtype <> ''2'' then ''8'' else b.billtype end
|
|
|
from ##tmpplubook a,t_return_head b,t_shop c
|
|
|
where a.billno=b.billno and b.orgcode=c.orgcode and a.billtype=''5'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
--跨财务主体的直送验收不产生虚拟配送单台账，动态生成台账，体现在内部销售
|
|
|
set @ssql='insert into ##tmpplubook(accdate,plucode,orgcode,billno,billtype,ywbilltype,tblname,serialno,fscount,fsnetcost)
|
|
|
select a.accdate,a.plucode,b.orgcode,b.billno,''E'',a.ywbilltype,a.tblname,a.serialno,a.fscount,a.fsnetcost
|
|
|
from ##tmpplubook a,t_dist_head b
|
|
|
where a.billno=b.remark and a.billtype=''0'' and a.ywbilltype=''9'' and a.orgcode=b.shopcode
|
|
|
and not exists(select * from ##tmpplubook where accdate=a.accdate and plucode=a.plucode and orgcode=b.orgcode and billno=b.billno and billtype=''E'')'
|
|
|
exec(@ssql)
|
|
|
--跨财务主体的直送退货不产生虚拟配退单台账，动态生成台账，体现在内部销售
|
|
|
set @ssql='insert into ##tmpplubook(accdate,plucode,orgcode,billno,billtype,ywbilltype,tblname,serialno,fscount,fsnetcost)
|
|
|
select a.accdate,a.plucode,b.orgcode,b.billno,''E'',a.ywbilltype,a.tblname,a.serialno,a.fscount,a.fsnetcost
|
|
|
from ##tmpplubook a,t_dist_head b
|
|
|
where a.billno=b.billno and a.billtype=''5'' and a.ywbilltype=''9'' and a.orgcode=b.shopcode
|
|
|
and not exists(select * from ##tmpplubook where accdate=a.accdate and plucode=a.plucode and orgcode=b.orgcode and billno=b.billno and billtype=''E'')'
|
|
|
exec(@ssql)
|
|
|
--跨财务主体的配送单，体现在内部销售
|
|
|
set @ssql='update a set ywbilltype=''9''
|
|
|
from ##tmpplubook a,t_dist_head b,t_shop c
|
|
|
where a.billno=b.billno and b.shopcode=c.orgcode and a.billtype=''E'' and c.finacode<>''2000'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
/* *
|
|
|
* 采购验收：中央仓采购（C001）、油站直采、子公司油站向中央仓采购（配送验收 ywbilltype='8'）、子公司油站直采（ywbilltype='9'）、中央仓向供应商的虚拟采购（ywbilltype='9'）
|
|
|
* 采购退货：中央仓采购退货（C002)、油站直采退货、子公司油站向中央仓退货（配送退货 ywbilltype='8'）、子公司油站直退（ywbilltype='9'）、中央仓向供应商的虚拟退货（ywbilltype='9'）
|
|
|
* 配送入库：中央仓收到油站退配(C002)、油站收到中央仓配送（集团内销售生成的配送单不在此处）
|
|
|
* 配送出库：中央仓向油站配送(C001/C002)、油站向中央仓退配（集团内销售生成的配送单不在此处）
|
|
|
* 调拨：调入站（正数）、调出站（负数）
|
|
|
* 销售：油站销售（销售-负数/销售退货-正数）、销售补录（正向数据-负数/反向数据-正数）、中央仓批发销售（负数）、中央仓批发销售退货（正数）
|
|
|
* 内部销售：跨财务主体的配送单（ywbilltype='9'）
|
|
|
* 盘点：临时盘点、月度盘点（盘盈-正数/盘亏-负数）
|
|
|
* 报损：报损（负数）
|
|
|
* 领用：领用（负数）
|
|
|
* 加工用料：原料成本（负数）
|
|
|
* 加工产出：产成品成本（正数）
|
|
|
* 移库：中央仓入库方（正数）、中央仓出库方（负数）
|
|
|
* */
|
|
|
set @ssql='update ##tmpplubook set
|
|
|
inbilltype=case when billtype=''0'' and ywbilltype in (''0'',''1'',''2'') then ''01''
|
|
|
when billtype=''0'' and ywbilltype =''8'' then ''01''
|
|
|
when billtype=''0'' and ywbilltype=''9'' then ''15''
|
|
|
when billtype=''5'' and ywbilltype in (''0'',''2'') then ''02''
|
|
|
when billtype=''5'' and ywbilltype =''8'' then ''02''
|
|
|
when billtype=''5'' and ywbilltype=''9'' then ''16''
|
|
|
when billtype=''E'' and fscount>0 and ywbilltype<>''9'' or billtype=''0'' and ywbilltype=''3'' then ''03''
|
|
|
when billtype=''E'' and fscount<0 and ywbilltype<>''9'' or billtype=''5'' and ywbilltype=''3'' then ''04''
|
|
|
when billtype=''F'' then ''05'' when billtype in (''6'',''A'',''B'') then ''06''
|
|
|
when billtype=''E'' and ywbilltype=''9'' then ''07'' when billtype=''2'' then ''08''
|
|
|
when billtype=''S'' then ''09'' when billtype=''7'' then ''10''
|
|
|
when billtype=''C'' then ''11'' when billtype=''D'' then ''12''
|
|
|
when billtype=''G'' then ''13'' when billtype=''4'' then ''14''
|
|
|
else ''99'' end,
|
|
|
r_billtype=case when billtype=''0'' and ywbilltype in (''0'',''1'',''2'',''8'') then ''采购验收''
|
|
|
when billtype=''0'' and ywbilltype=''9'' then ''直送采购验收''
|
|
|
when billtype=''5'' and ywbilltype in (''0'',''2'',''8'') then ''采购退货''
|
|
|
when billtype=''5'' and ywbilltype=''9'' then ''直送采购退货''
|
|
|
when billtype=''E'' and fscount>0 and ywbilltype<>''9'' or billtype=''0'' and ywbilltype=''3'' then ''配送入库''
|
|
|
when billtype=''E'' and fscount<0 and ywbilltype<>''9'' or billtype=''5'' and ywbilltype=''3'' then ''配送出库''
|
|
|
when billtype=''F'' then ''调拨'' when billtype in (''6'',''A'',''B'') then ''销售''
|
|
|
when billtype=''E'' and ywbilltype=''9'' then ''内部销售'' when billtype=''2'' then ''盘点''
|
|
|
when billtype=''S'' then ''报损'' when billtype=''7'' then ''领用''
|
|
|
when billtype=''C'' then ''加工用料'' when billtype=''D'' then ''加工产出''
|
|
|
when billtype=''G'' then ''移库'' when billtype=''4'' then ''调现存''
|
|
|
else ''其他'' end'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set unitcode=(select top 1 unitcode from t_unit where unitname=b.unit)
|
|
|
from ##tmpplubook a,t_plu b
|
|
|
where a.plucode=b.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='select a.plucode,b.pluname,a.orgcode,c.orgname,e.clscode,a.inbilltype,a.r_billtype,a.billno,a.accdate,a.fscount,a.unitcode,a.fsnetcost
|
|
|
from ##tmpplubook a
|
|
|
left join t_plu b on a.plucode=b.plucode
|
|
|
left join t_shop c on a.orgcode=c.orgcode
|
|
|
left join t_gclass d on b.clscode=d.clscode
|
|
|
left join t_gclass e on d.uppercode1=e.clscode
|
|
|
where 1=1'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @pbilltype<>''
|
|
|
set @ssql=@ssql+' and a.inbilltype='''+@pbilltype+''''
|
|
|
set @ssql=@ssql+' order by a.tblname,a.serialno,a.plucode,a.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplubook' and xtype='u')
|
|
|
drop table ##tmpplubook
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*全网络所有SKU的期末库存*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_plustock' and xtype='p')
|
|
|
drop procedure p_rpt_plustock
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_plustock
|
|
|
(
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplustock' and xtype='u')
|
|
|
drop table ##tmpplustock
|
|
|
create table ##tmpplustock (
|
|
|
plucode varchar(20),orgcode varchar(10),qccount numeric(19,4),incount numeric(19,4),outcount numeric(19,4),jccount numeric(19,4),
|
|
|
qcnetcost numeric(19,4),innetcost numeric(19,4),outnetcost numeric(19,4),jcnetcost numeric(19,4))
|
|
|
|
|
|
set @ssql='insert into ##tmpplustock(plucode,orgcode,qccount,incount,outcount,jccount,qcnetcost,innetcost,outnetcost,jcnetcost)
|
|
|
select plucode,orgcode,0,0,0,0,0,0,0,0 from t_plu_org t
|
|
|
where mngstock=''1'' and exists(select * from t_shop where orgcode=t.orgcode and status=''1'')
|
|
|
and exists(select * from t_user_org where orgcode=t.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@sbgndate,1,4)+substring(@sbgndate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set qccount=b.jccount,qcnetcost=b.jcnetcost
|
|
|
from ##tmpplustock a,t_gbk_'+substring(@sbgndate,1,4)+substring(@sbgndate,6,2)+' b
|
|
|
where a.plucode=b.plucode and a.orgcode=b.orgcode and b.billtype=''Z''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@senddate,1,4)+substring(@senddate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set jccount=b.jccount,jcnetcost=b.jcnetcost
|
|
|
from ##tmpplustock a,t_gbk_'+substring(@senddate,1,4)+substring(@senddate,6,2)+' b
|
|
|
where a.plucode=b.plucode and a.orgcode=b.orgcode and b.billtype=''Z''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
if substring(@stmpdate,1,7)=substring(@sbgndate,1,7)
|
|
|
begin
|
|
|
set @ssql='update a set qccount=a.qccount+b.fscount,qcnetcost=a.qcnetcost+b.fsnetcost
|
|
|
from ##tmpplustock a,(select plucode,orgcode,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end) as fscount,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fsnetcost else fsnetcost end) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate<'''+@sbgndate+''' and billtype not in (''4'',''8'',''Z'')
|
|
|
and exists(select * from t_user_org where orgcode=t.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
if substring(@stmpdate,1,7)=substring(@senddate,1,7)
|
|
|
begin
|
|
|
set @ssql='update a set jccount=a.jccount+b.fscount,jcnetcost=a.jcnetcost+b.fsnetcost
|
|
|
from ##tmpplustock a,(select plucode,orgcode,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end) as fscount,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fsnetcost else fsnetcost end) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate<='''+@senddate+''' and billtype not in (''4'',''8'',''Z'')
|
|
|
and exists(select * from t_user_org where orgcode=t.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
set @ssql='update a set incount=a.incount+b.incount,outcount=a.outcount+b.outcount,
|
|
|
innetcost=a.innetcost+b.innetcost,outnetcost=a.outnetcost+b.outnetcost
|
|
|
from ##tmpplustock a,(select plucode,orgcode,
|
|
|
sum(case when billtype in (''0'',''B'',''D'') then fscount when billtype=''2'' and fscount>0 then fscount when billtype in (''E'',''F'',''G'') and fscount<0 then -fscount else 0 end) as incount,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''S'') then -fscount when billtype=''2'' and fscount<0 then fscount when billtype=''C'' then fscount when billtype in (''E'',''F'',''G'') and fscount>0 then -fscount else 0 end) as outcount,
|
|
|
sum(case when billtype in (''0'',''B'',''D'') then fsnetcost when billtype=''2'' and fsnetcost>0 then fsnetcost when billtype in (''E'',''F'',''G'') and fsnetcost<0 then -fsnetcost else 0 end) as innetcost,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''S'') then -fsnetcost when billtype=''2'' and fsnetcost<0 then fsnetcost when billtype=''C'' then fsnetcost when billtype in (''E'',''F'',''G'') and fsnetcost>0 then -fsnetcost else 0 end) as outnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype not in (''4'',''8'',''Z'')
|
|
|
and exists(select * from t_user_org where orgcode=t.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and plucode in ('''+@splucode+''')'
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
set @ssql='select distinct a.orgcode,a.plucode,'''+@pbgndate+''' as bgndate,'''+@penddate+''' as enddate,
|
|
|
a.qccount,a.incount,a.outcount,a.jccount,
|
|
|
(select top 1 unitcode from t_unit where unitname=b.unit order by unitcode) as unitcode,
|
|
|
a.qcnetcost,a.innetcost,a.outnetcost,a.jcnetcost,''CNY'' as currunit
|
|
|
from ##tmpplustock a
|
|
|
left join t_plu b on a.plucode=b.plucode
|
|
|
where 0=0 order by orgcode,plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplustock' and xtype='u')
|
|
|
drop table ##tmpplustock
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*商品进销存报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_plujxc' and xtype='p')
|
|
|
drop procedure p_rpt_plujxc
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_plujxc
|
|
|
(
|
|
|
@pfinacode varchar(1000),
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pclscode varchar(1000),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sfinacode varchar(1000)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sclscode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sfilt varchar(8000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
-- if isnull(@porgcode,'')=''
|
|
|
-- begin
|
|
|
-- raiserror('必须选择油站',16,1)
|
|
|
-- return(1)
|
|
|
-- end
|
|
|
set @sfinacode=replace(@pfinacode,',',''',''')
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sclscode=replace(@pclscode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
set @sfilt=' and exists(select * from t_user_org where orgcode=t.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sfinacode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_shop where orgcode=t.orgcode and finacode in ('''+@sfinacode+'''))'
|
|
|
if @sregncode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=t.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_shop where orgcode=t.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @sfilt=@sfilt+' and orgcode in ('''+@sorgcode+''')'
|
|
|
if @sclscode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_plu m,t_gclass n where m.clscode=n.clscode and m.plucode=t.plucode and n.uppercode1 in ('''+@sclscode+'''))'
|
|
|
if @splucode<>''
|
|
|
set @sfilt=@sfilt+' and plucode in ('''+@splucode+''')'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplujxc' and xtype='u')
|
|
|
drop table ##tmpplujxc
|
|
|
create table ##tmpplujxc (
|
|
|
plucode varchar(20),orgcode varchar(10),qccount numeric(19,4),qcnetcost numeric(19,4),
|
|
|
jhcount numeric(19,4),jhnetcost numeric(19,4),thcount numeric(19,4),thnetcost numeric(19,4),
|
|
|
xscount numeric(19,4),xsnetcost numeric(19,4),drcount numeric(19,4),drnetcost numeric(19,4),
|
|
|
dccount numeric(19,4),dcnetcost numeric(19,4),pjhcount numeric(19,4),pjhnetcost numeric(19,4),
|
|
|
pscount numeric(19,4),psnetcost numeric(19,4),tccount numeric(19,4),tcnetcost numeric(19,4),
|
|
|
pthcount numeric(19,4),pthnetcost numeric(19,4),pycount numeric(19,4),pynetcost numeric(19,4),
|
|
|
pkcount numeric(19,4),pknetcost numeric(19,4),bscount numeric(19,4),bsnetcost numeric(19,4),
|
|
|
lycount numeric(19,4),lynetcost numeric(19,4),jgcount numeric(19,4),jgnetcost numeric(19,4),
|
|
|
cjgcount numeric(19,4),cjgnetcost numeric(19,4),hccount numeric(19,4),hcnetcost numeric(19,4),
|
|
|
zpscount numeric(19,4),zpsnetcost numeric(19,4),zthcount numeric(19,4),zthnetcost numeric(19,4),
|
|
|
jccount numeric(19,4),jcnetcost numeric(19,4))
|
|
|
|
|
|
set @ssql='insert into ##tmpplujxc(plucode,orgcode,qccount,qcnetcost,jhcount,jhnetcost,thcount,thnetcost,
|
|
|
xscount,xsnetcost,drcount,drnetcost,dccount,dcnetcost,pjhcount,pjhnetcost,pscount,psnetcost,
|
|
|
tccount,tcnetcost,pthcount,pthnetcost,pycount,pynetcost,pkcount,pknetcost,bscount,bsnetcost,
|
|
|
lycount,lynetcost,jgcount,jgnetcost,cjgcount,cjgnetcost,hccount,hcnetcost,zpscount,zpsnetcost,
|
|
|
zthcount,zthnetcost,jccount,jcnetcost)
|
|
|
select plucode,orgcode,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
|
|
from t_plu_org t where mngstock=''1'' and exists(select * from t_shop where orgcode=t.orgcode and status=''1'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@sbgndate,1,4)+substring(@sbgndate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set qccount=b.jccount,qcnetcost=b.jcnetcost
|
|
|
from ##tmpplujxc a,t_gbk_'+substring(@sbgndate,1,4)+substring(@sbgndate,6,2)+' b
|
|
|
where a.plucode=b.plucode and a.orgcode=b.orgcode and b.billtype=''Z''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@senddate,1,4)+substring(@senddate,6,2) and xtype='u')
|
|
|
begin
|
|
|
set @ssql='update a set jccount=b.jccount,jcnetcost=b.jcnetcost
|
|
|
from ##tmpplujxc a,t_gbk_'+substring(@senddate,1,4)+substring(@senddate,6,2)+' b
|
|
|
where a.plucode=b.plucode and a.orgcode=b.orgcode and b.billtype=''Z''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
set @stmpdate=@sbgndate
|
|
|
while substring(@stmpdate,1,7)<=substring(@senddate,1,7)
|
|
|
begin
|
|
|
if exists(select name from sysobjects where name='t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2) and xtype='u')
|
|
|
begin
|
|
|
if substring(@stmpdate,1,7)=substring(@sbgndate,1,7)
|
|
|
begin
|
|
|
set @ssql='update a set qccount=a.qccount+b.fscount,qcnetcost=a.qcnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end) as fscount,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fsnetcost else fsnetcost end) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate<'''+@sbgndate+''' and billtype not in (''4'',''8'',''Z'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
if substring(@stmpdate,1,7)=substring(@senddate,1,7)
|
|
|
begin
|
|
|
set @ssql='update a set jccount=a.jccount+b.fscount,jcnetcost=a.jcnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fscount else fscount end) as fscount,
|
|
|
sum(case when billtype in (''3'',''5'',''6'',''7'',''A'',''E'',''F'',''G'',''S'') then -fsnetcost else fsnetcost end) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate<='''+@senddate+''' and billtype not in (''4'',''8'',''Z'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
|
|
|
set @ssql='update a set jhcount=a.jhcount+b.fscount,jhnetcost=a.jhnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''0''
|
|
|
and exists(select * from t_accept_head where billno=t.billno and billtype in (''0'',''1'',''2''))'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set thcount=a.thcount+b.fscount,thnetcost=a.thnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''5''
|
|
|
and exists(select * from t_return_head where billno=t.billno and billtype in (''0'',''2''))'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set xscount=a.xscount+b.fscount,xsnetcost=a.xsnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,
|
|
|
sum(case when billtype=''B'' then -fscount else fscount end) as fscount,
|
|
|
sum(case when billtype=''B'' then -fsnetcost else fsnetcost end) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype in (''6'',''A'',''B'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set drcount=a.drcount+b.fscount,drnetcost=a.drnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,-sum(fscount) as fscount,-sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''F'' and fscount<0'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set drcount=a.drcount+b.fscount,drnetcost=a.drnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''F'' and fscount>0'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set pjhcount=a.pjhcount+b.fscount,pjhnetcost=a.pjhnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''0''
|
|
|
and exists(select * from t_accept_head p,t_shop q where p.orgcode=q.orgcode and billno=t.billno and p.billtype=''3'' and q.finacode=''2000'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set pscount=a.pscount+b.fscount,psnetcost=a.psnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''E''
|
|
|
and (exists(select * from t_dist_head p,t_shop q where p.shopcode=q.orgcode and billno=t.billno and p.zpcount>0 and q.finacode=''2000'')
|
|
|
or exists(select * from t_dist_head where billno=t.billno and zpcount=0 and zpamount>0))'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set tccount=a.tccount+b.fscount,tcnetcost=a.tcnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''5''
|
|
|
and exists(select * from t_return_head p,t_shop q where p.orgcode=q.orgcode and billno=t.billno and p.billtype=''3'' and q.finacode=''2000'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set pthcount=a.pthcount+b.fscount,pthnetcost=a.pthnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''E''
|
|
|
and (exists(select * from t_dist_head p,t_shop q where p.shopcode=q.orgcode and billno=t.billno and p.zpcount<0 and p.orgcode=''C002'' and q.finacode=''2000'')
|
|
|
or exists(select * from t_dist_head where billno=t.billno and zpcount=0 and zpamount<0))'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set pycount=a.pycount+b.fscount,pynetcost=a.pynetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''2'' and fscount>0'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set pkcount=a.pkcount+b.fscount,pknetcost=a.pknetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''2'' and fscount<0'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set bscount=a.bscount+b.fscount,bsnetcost=a.bsnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''S'''
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set lycount=a.lycount+b.fscount,lynetcost=a.lynetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''7'''
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set jgcount=a.jgcount+b.fscount,jgnetcost=a.jgnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''C'''
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set cjgcount=a.cjgcount+b.fscount,cjgnetcost=a.cjgnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''D'''
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set hccount=a.hccount+b.fscount,hcnetcost=a.hcnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''E''
|
|
|
and exists(select * from t_dist_head p,t_shop q where p.shopcode=q.orgcode and billno=t.billno and p.zpcount<0 and p.orgcode=''C001'' and q.finacode=''2000'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set zpscount=a.zpscount+b.fscount,zpsnetcost=a.zpsnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''E''
|
|
|
and exists(select * from t_dist_head p,t_shop q where p.shopcode=q.orgcode and billno=t.billno and p.zpcount>0 and q.finacode<>''2000'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update a set zthcount=a.zthcount+b.fscount,zthnetcost=a.zthnetcost+b.fsnetcost
|
|
|
from ##tmpplujxc a,(select plucode,orgcode,sum(fscount) as fscount,sum(fsnetcost) as fsnetcost
|
|
|
from t_gbk_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+' t
|
|
|
where accdate between '''+@sbgndate+''' and '''+@senddate+''' and billtype=''E''
|
|
|
and exists(select * from t_dist_head p,t_shop q where p.shopcode=q.orgcode and billno=t.billno and p.zpcount<0 and q.finacode<>''2000'')'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by plucode,orgcode) b where a.plucode=b.plucode and a.orgcode=b.orgcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
|
|
|
end
|
|
|
|
|
|
delete from ##tmpplujxc
|
|
|
where (abs(qccount)+abs(qcnetcost)+abs(jhcount)+abs(jhnetcost)+abs(thcount)+abs(thnetcost)+abs(xscount)+abs(xsnetcost)+
|
|
|
abs(drcount)+abs(drnetcost)+abs(dccount)+abs(dcnetcost)+abs(pjhcount)+abs(pjhnetcost)+abs(pscount)+abs(psnetcost)+
|
|
|
abs(tccount)+abs(tcnetcost)+abs(pthcount)+abs(pthnetcost)+abs(pycount)+abs(pynetcost)+abs(pkcount)+abs(pknetcost)+
|
|
|
abs(bscount)+abs(bsnetcost)+abs(lycount)+abs(lynetcost)+abs(jgcount)+abs(jgnetcost)+abs(cjgcount)+abs(cjgnetcost)+
|
|
|
abs(hccount)+abs(hcnetcost)+abs(zpscount)+abs(zpsnetcost)+abs(zthcount)+abs(zthnetcost)+abs(jccount)+abs(jcnetcost)) = 0
|
|
|
|
|
|
set @ssql='select distinct b.finacode,d.areaname as regnname,c.areaname,a.orgcode,b.orgname,
|
|
|
h.clscode as dclscode,h.clsname as dclsname,g.clscode,g.clsname,a.plucode,e.pluname,
|
|
|
(select top 1 unitcode from t_unit where unitname=e.unit order by unitcode) as unitcode,
|
|
|
a.qccount,a.qcnetcost,a.jhcount,a.jhnetcost,a.thcount,a.thnetcost,a.xscount,a.xsnetcost,
|
|
|
a.drcount,a.drnetcost,a.dccount,a.dcnetcost,a.pjhcount,a.pjhnetcost,a.pscount,a.psnetcost,
|
|
|
a.tccount,a.tcnetcost,a.pthcount,a.pthnetcost,a.pycount,a.pynetcost,a.pkcount,a.pknetcost,
|
|
|
a.bscount,a.bsnetcost,a.lycount,a.lynetcost,a.jgcount,a.jgnetcost,a.cjgcount,a.cjgnetcost,
|
|
|
a.hccount,a.hcnetcost,a.zpscount,zpsnetcost,zthcount,zthnetcost,a.jccount,a.jcnetcost
|
|
|
from ##tmpplujxc a
|
|
|
left join t_shop b on a.orgcode=b.orgcode
|
|
|
left join t_area c on b.areacode=c.areacode
|
|
|
left join t_area d on c.uppercode1=d.areacode
|
|
|
left join t_plu e on a.plucode=e.plucode
|
|
|
left join t_gclass f on e.clscode=f.clscode
|
|
|
left join t_gclass g on f.uppercode1=g.clscode
|
|
|
left join t_gclass h on g.uppercode1=h.clscode
|
|
|
where 0=0 order by b.finacode,a.orgcode,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpplujxc' and xtype='u')
|
|
|
drop table ##tmpplujxc
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*采购订单查询*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_orderrpt' and xtype='p')
|
|
|
drop procedure p_rpt_orderrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_orderrpt
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@psupcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pbillno varchar(1000),
|
|
|
@pbilltype varchar(2),
|
|
|
@pbillstate varchar(1),
|
|
|
@pplucode varchar(2000),
|
|
|
@pchkstatus varchar(1),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @ssupcode varchar(1000)
|
|
|
declare @sbillno varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @ssupcode=replace(@psupcode,',',''',''')
|
|
|
set @sbillno=replace(@pbillno,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmporderrpt' and xtype='u')
|
|
|
drop table ##tmporderrpt
|
|
|
create table ##tmporderrpt (
|
|
|
orgcode varchar(10),rzdate varchar(10),jhrzdate varchar(10),billno varchar(20),billtype varchar(2),
|
|
|
state varchar(1),supcode varchar(15),zdrname varchar(10),chkstatus varchar(1),plucode varchar(20),
|
|
|
barcode varchar(20),pluname varchar(40),unit varchar(10),pcount numeric(19,4),jprice numeric(19,4),
|
|
|
counts numeric(19,4),cost numeric(19,4),netcost numeric(19,4),jhcounts numeric(19,4),
|
|
|
jhcost numeric(19,4),jhnetcost numeric(19,4),jtaxrate numeric(19,4),ywbillno varchar(20))
|
|
|
|
|
|
set @ssql='insert into ##tmporderrpt(orgcode,rzdate,jhrzdate,billno,billtype,state,supcode,zdrname,chkstatus,plucode,
|
|
|
barcode,pluname,unit,pcount,jprice,counts,cost,netcost,jhcounts,jhcost,jhnetcost,jtaxrate)
|
|
|
select a.orgcode,a.rzdate,'''',a.billno,case when a.iszs=''1'' then ''03'' when a.supcode=''C2000'' then ''05'' else ''01'' end,
|
|
|
a.state,a.supcode,a.zdrname,a.chkstatus,b.plucode,b.barcode,b.pluname,b.unit,b.itemcnt,b.jprice,b.counts,b.cost,b.netcost,0,0,0,b.jtaxrate
|
|
|
from t_order_head a,t_order_body b
|
|
|
where a.billno=b.billno
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @ssupcode<>''
|
|
|
set @ssql=@ssql+' and a.supcode in ('''+@ssupcode+''')'
|
|
|
if @sbillno<>''
|
|
|
set @ssql=@ssql+' and a.billno in ('''+@sbillno+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pbilltype,'')='01'
|
|
|
set @ssql=@ssql+' and a.iszs=''0'' and a.supcode<>''C2000'''
|
|
|
else if isnull(@pbilltype,'')='03'
|
|
|
set @ssql=@ssql+' and a.iszs=''1'''
|
|
|
else if isnull(@pbilltype,'')='05'
|
|
|
set @ssql=@ssql+' and a.supcode=''C2000'''
|
|
|
else if isnull(@pbilltype,'')<>''
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
if isnull(@pbillstate,'')<>''
|
|
|
set @ssql=@ssql+' and a.state='''+@pbillstate+''''
|
|
|
if isnull(@pchkstatus,'')<>'1'
|
|
|
set @ssql=@ssql+' and a.rzdate between '''+@sbgndate+''' and '''+@senddate+''''
|
|
|
else
|
|
|
set @ssql=@ssql+' and isnull(a.rzdate,'''')='''' and a.chkstatus in (''0'',''9'') and a.lrdate between '''+@sbgndate+''' and '''+@senddate+''''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set jhrzdate=s.rzdate,jhcounts=s.counts,jhcost=s.cost,jhnetcost=s.netcost,ywbillno=s.billno
|
|
|
from ##tmporderrpt t,
|
|
|
(select a.billno,a.orderno,b.plucode,max(a.rzdate) as rzdate,sum(b.counts) as counts,sum(b.cost) as cost,sum(b.netcost) as netcost
|
|
|
from t_accept_head a,t_accept_body b
|
|
|
where a.billno=b.billno and a.rzdate >= '''+@sbgndate+''''
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @ssupcode<>''
|
|
|
set @ssql=@ssql+' and a.supcode in ('''+@ssupcode+''')'
|
|
|
if @sbillno<>''
|
|
|
set @ssql=@ssql+' and a.orderno in ('''+@sbillno+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
set @ssql=@ssql+' group by a.billno,a.orderno,b.plucode) s
|
|
|
where t.billno=s.orderno and t.plucode=s.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmporderrpt(orgcode,rzdate,jhrzdate,billno,billtype,state,supcode,zdrname,chkstatus,plucode,
|
|
|
barcode,pluname,unit,pcount,jprice,counts,cost,netcost,jhcounts,jhcost,jhnetcost,jtaxrate,ywbillno)
|
|
|
select a.orgcode,a.rzdate,a.rzdate,a.billno,case when a.billtype=''2'' then ''04'' when a.supcode=''C2000'' then ''06'' else ''02'' end,''0'',a.supcode,a.zdrname,a.chkstatus,
|
|
|
b.plucode,b.barcode,b.pluname,b.unit,b.itemcnt,b.jprice,(-1)*b.counts,(-1)*b.cost,(-1)*b.netcost,(-1)*b.counts,(-1)*b.cost,(-1)*b.netcost,b.jtaxrate,a.billno
|
|
|
from t_return_head a,t_return_body b
|
|
|
where a.billno=b.billno and a.billtype in (''0'',''2'')
|
|
|
and a.rzdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @ssupcode<>''
|
|
|
set @ssql=@ssql+' and a.supcode in ('''+@ssupcode+''')'
|
|
|
if @sbillno<>''
|
|
|
set @ssql=@ssql+' and a.billno in ('''+@sbillno+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pbilltype,'')='02'
|
|
|
set @ssql=@ssql+' and a.billtype=''0'' and a.supcode<>''C2000'''
|
|
|
else if isnull(@pbilltype,'')='04'
|
|
|
set @ssql=@ssql+' and a.billtype=''2'''
|
|
|
else if isnull(@pbilltype,'')='06'
|
|
|
set @ssql=@ssql+' and a.supcode=''C2000'''
|
|
|
else if isnull(@pbilltype,'')<>''
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
if isnull(@pbillstate,'')<>''
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='select a.orgcode,b.orgname,a.rzdate,a.jhrzdate,a.billtype,
|
|
|
case a.billtype when ''01'' then ''中央仓采购订单'' when ''02'' then ''中央仓采购退货单'' when ''03'' then ''便利店直送采购订单''
|
|
|
when ''04'' then ''便利店直送退货订单'' when ''05'' then ''母子公司采购订单'' when ''06'' then ''母子公司采购退货单''
|
|
|
else '''' end as c_billtype,
|
|
|
case a.state when ''1'' then ''执行中'' when ''2'' then ''执行完成'' when ''3'' then ''手工关闭'' when ''4'' then ''过期关闭'' when ''9'' then ''直送执行完成'' else '''' end as billstate,
|
|
|
a.billno,a.supcode,e.supname,a.zdrname,case when a.chkstatus in (''1'',''2'') then ''√'' else '''' end as chkflag,
|
|
|
a.plucode,a.barcode,a.pluname,a.counts,(select top 1 unitcode from t_unit where unitname=f.unit) as unitcode,a.unit,
|
|
|
a.jprice,a.cost,a.netcost,a.cost-a.netcost as taxamt,a.jhcost,a.jhnetcost,a.jhcounts,h.clscode,h.clsname,
|
|
|
case when a.billtype in (''02'',''04'',''06'') then ''×'' else '''' end as rtnflag,a.pcount,a.unit as punit,b.areacode,c.areaname,d.areacode as regncode,d.areaname as regnname,a.jtaxrate,
|
|
|
case when p.isaccounted = ''1'' then ''√'' else '''' end as accountflag
|
|
|
from ##tmporderrpt a
|
|
|
left join t_shop b on a.orgcode=b.orgcode
|
|
|
left join t_area c on b.areacode=c.areacode
|
|
|
left join t_area d on c.uppercode1=d.areacode
|
|
|
left join t_supplier e on a.supcode=e.supcode
|
|
|
left join t_plu f on a.plucode=f.plucode
|
|
|
left join t_gclass g on f.clscode=g.clscode
|
|
|
left join t_gclass h on g.uppercode1=h.clscode
|
|
|
left join t_pay_bill p on a.ywbillno=p.billno
|
|
|
order by a.orgcode,a.rzdate,a.jhrzdate,a.billno,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmporderrpt' and xtype='u')
|
|
|
drop table ##tmporderrpt
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*中央仓配送报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_distrpt' and xtype='p')
|
|
|
drop procedure p_rpt_distrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_distrpt
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pshopcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pjhbgndate varchar(10),
|
|
|
@pjhenddate varchar(10),
|
|
|
@pbillno varchar(1000),
|
|
|
@pplucode varchar(2000),
|
|
|
@pdifftype varchar(1),
|
|
|
@pjhstate varchar(1),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sshopcode varchar(1000)
|
|
|
declare @sbillno varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
declare @sjhbgndate varchar(10)
|
|
|
declare @sjhenddate varchar(10)
|
|
|
begin
|
|
|
set @sregncode=replace(@pregncode,',',''',''')
|
|
|
set @sareacode=replace(@pareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sshopcode=replace(@pshopcode,',',''',''')
|
|
|
set @sbillno=replace(@pbillno,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
set @sjhbgndate=@pjhbgndate
|
|
|
set @sjhenddate=@pjhenddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
if isnull(@sjhbgndate,'')=''
|
|
|
set @sjhbgndate='2023-08-01'
|
|
|
if isnull(@sjhenddate,'')=''
|
|
|
set @sjhenddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdistrpt' and xtype='u')
|
|
|
drop table ##tmpdistrpt
|
|
|
create table ##tmpdistrpt (
|
|
|
orgcode varchar(10),orgname varchar(30),shopcode varchar(10),rzdate varchar(10),jhrzdate varchar(10),billno varchar(20),
|
|
|
jhbillno varchar(20),plucode varchar(20),barcode varchar(20),pluname varchar(40),unit varchar(10),pcount numeric(19,4),
|
|
|
zpcount numeric(19,4),counts numeric(19,4),thbillno varchar(20),thcount numeric(19,4),thrzdate varchar(10))
|
|
|
|
|
|
set @ssql='insert into ##tmpdistrpt(orgcode,orgname,shopcode,rzdate,jhrzdate,billno,jhbillno,plucode,barcode,pluname,unit,pcount,zpcount,counts,thbillno,thcount,thrzdate)
|
|
|
select a.supcode,a.supname,a.orgcode,a.bizdate,a.rzdate,a.orderno,a.billno,b.plucode,b.barcode,b.pluname,b.unit,b.itemcnt,b.cgcount,
|
|
|
case when isnull(a.rzdate,'''')='''' then 0 else b.cgcount end,'''',0,''''
|
|
|
from t_accept_head a,t_accept_body b
|
|
|
where a.billno=b.billno and a.billtype=''3''
|
|
|
and a.bizdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and (a.rzdate between '''+@sjhbgndate+''' and '''+@sjhenddate+''' or isnull(a.rzdate,'''')='''')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.supcode in ('''+@sorgcode+''')'
|
|
|
if @sshopcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sshopcode+''')'
|
|
|
if @sbillno<>''
|
|
|
set @ssql=@ssql+' and a.orderno in ('''+@sbillno+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pdifftype,'')='1'
|
|
|
set @ssql=@ssql+' and b.cgcount<>b.counts'
|
|
|
if isnull(@pjhstate,'')='1'
|
|
|
set @ssql=@ssql+' and isnull(a.rzdate,'''')='''''
|
|
|
else if isnull(@pjhstate,'')='2'
|
|
|
set @ssql=@ssql+' and isnull(a.rzdate,'''')<>'''''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set thbillno=b.genbillno
|
|
|
from ##tmpdistrpt t,t_distdiffer_head a,t_distdiffer_body b
|
|
|
where t.jhbillno=a.ywbillno and a.billno=b.billno and t.plucode=b.plucode and a.differtype=''0'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set thcount=b.counts,thrzdate=a.rzdate
|
|
|
from ##tmpdistrpt t,t_return_head a,t_return_body b
|
|
|
where t.thbillno=a.billno and a.billno=b.billno and t.plucode=b.plucode and a.billtype=''3'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='select a.orgcode,a.orgname,a.billno,a.rzdate,a.plucode,a.pluname,a.barcode,a.unit,a.pcount,
|
|
|
a.zpcount,a.counts,a.jhrzdate,a.zpcount-a.counts as diffcount,a.thbillno,a.thcount,a.thrzdate,
|
|
|
b.areacode,c.areaname,d.areacode as regncode,d.areaname as regnname,a.shopcode,b.orgname as shopname,
|
|
|
case when isnull(a.jhrzdate,'''')='''' then ''未收货'' else ''已收货'' end as r_jhstate
|
|
|
from ##tmpdistrpt a
|
|
|
left join t_shop b on a.shopcode=b.orgcode
|
|
|
left join t_area c on b.areacode=c.areacode
|
|
|
left join t_area d on c.uppercode1=d.areacode
|
|
|
order by a.orgcode,a.rzdate,a.billno,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdistrpt' and xtype='u')
|
|
|
drop table ##tmpdistrpt
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*中央仓配送退货报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_distrtnrpt' and xtype='p')
|
|
|
drop procedure p_rpt_distrtnrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_distrtnrpt
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pshopcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pjhbgndate varchar(10),
|
|
|
@pjhenddate varchar(10),
|
|
|
@pbillno varchar(1000),
|
|
|
@pplucode varchar(2000),
|
|
|
@pdifftype varchar(1),
|
|
|
@pjhstate varchar(1),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sshopcode varchar(1000)
|
|
|
declare @sbillno varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
declare @sjhbgndate varchar(10)
|
|
|
declare @sjhenddate varchar(10)
|
|
|
begin
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sshopcode=replace(@pshopcode,',',''',''')
|
|
|
set @sbillno=replace(@pbillno,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
set @sjhbgndate=@pjhbgndate
|
|
|
set @sjhenddate=@pjhenddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
if isnull(@sjhbgndate,'')=''
|
|
|
set @sjhbgndate='2023-08-01'
|
|
|
if isnull(@sjhenddate,'')=''
|
|
|
set @sjhenddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdistrtnrpt' and xtype='u')
|
|
|
drop table ##tmpdistrtnrpt
|
|
|
create table ##tmpdistrtnrpt (
|
|
|
orgcode varchar(10),orgname varchar(30),shopcode varchar(10),rzdate varchar(10),jhrzdate varchar(10),billno varchar(20),
|
|
|
jhbillno varchar(20),plucode varchar(20),barcode varchar(20),pluname varchar(40),unit varchar(10),pcount numeric(19,4),
|
|
|
zpcount numeric(19,4),counts numeric(19,4),thbillno varchar(20),thcount numeric(19,4),thrzdate varchar(10))
|
|
|
|
|
|
set @ssql='insert into ##tmpdistrtnrpt(orgcode,orgname,shopcode,rzdate,jhrzdate,billno,jhbillno,plucode,barcode,pluname,unit,pcount,zpcount,counts,thbillno,thcount,thrzdate)
|
|
|
select a.supcode,a.supname,a.orgcode,a.bizdate,a.rzdate,'''',a.billno,b.plucode,b.barcode,b.pluname,b.unit,b.itemcnt,b.orncounts,
|
|
|
case when isnull(a.rzdate,'''')='''' then 0 else b.counts end,a.billno,0,''''
|
|
|
from t_return_head a,t_return_body b
|
|
|
where a.billno=b.billno and a.billtype=''3''
|
|
|
and a.bizdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and (a.rzdate between '''+@sjhbgndate+''' and '''+@sjhenddate+''' or isnull(a.rzdate,'''')='''')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.shopcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.shopcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.supcode in ('''+@sorgcode+''')'
|
|
|
if @sshopcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sshopcode+''')'
|
|
|
if @sbillno<>''
|
|
|
set @ssql=@ssql+' and a.orderno in ('''+@sbillno+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pdifftype,'')='1'
|
|
|
set @ssql=@ssql+' and b.orncounts<>b.counts'
|
|
|
if isnull(@pjhstate,'')='1'
|
|
|
set @ssql=@ssql+' and isnull(a.rzdate,'''')='''''
|
|
|
else if isnull(@pjhstate,'')='2'
|
|
|
set @ssql=@ssql+' and isnull(a.rzdate,'''')<>'''''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set billno=a.billno,thcount=b.zpcount,thrzdate=a.rzdate
|
|
|
from ##tmpdistrtnrpt t,t_dist_head a,t_dist_body b
|
|
|
where t.thbillno=a.billno and a.billno=b.billno and t.plucode=b.plucode and a.zpcount<0'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='select a.orgcode,a.orgname,a.billno,a.rzdate,a.plucode,a.pluname,a.barcode,a.unit,a.pcount,
|
|
|
a.zpcount,a.counts,a.jhrzdate,a.zpcount-a.counts as diffcount,a.thbillno,a.thcount,a.thrzdate,
|
|
|
b.areacode,c.areaname,d.areacode as regncode,d.areaname as regnname,a.shopcode,b.orgname as shopname,
|
|
|
case when isnull(a.jhrzdate,'''')='''' then ''未收货'' else ''已收货'' end as r_jhstate
|
|
|
from ##tmpdistrtnrpt a
|
|
|
left join t_shop b on a.shopcode=b.orgcode
|
|
|
left join t_area c on b.areacode=c.areacode
|
|
|
left join t_area d on c.uppercode1=d.areacode
|
|
|
order by a.orgcode,a.rzdate,a.billno,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpdistrtnrpt' and xtype='u')
|
|
|
drop table ##tmpdistrtnrpt
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*母子公司购销明细汇总*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_subsettle' and xtype='p')
|
|
|
drop procedure p_rpt_subsettle
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_subsettle
|
|
|
(
|
|
|
@pfinacode varchar(1000),
|
|
|
@pshopcode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pbilltype varchar(1),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sfinacode varchar(1000)
|
|
|
declare @sshopcode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sfinacode=replace(@pfinacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sshopcode=replace(@pshopcode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpsubsettle' and xtype='u')
|
|
|
drop table ##tmpsubsettle
|
|
|
create table ##tmpsubsettle (
|
|
|
billno varchar(20),orgcode varchar(10),shopcode varchar(10),billtype varchar(1),rzdate varchar(10),
|
|
|
plucode varchar(20),pluname varchar(40),jprice numeric(19,4),netjprice numeric(19,4),zpcount numeric(19,4),
|
|
|
cost numeric(19,4),netcost numeric(19,4),jhrzdate varchar(10),jhjprice numeric(19,4),jhnetjprice numeric(19,4),
|
|
|
jhcount numeric(19,4),jhcost numeric(19,4),jhnetcost numeric(19,4))
|
|
|
|
|
|
set @ssql='insert into ##tmpsubsettle(billno,orgcode,shopcode,billtype,rzdate,plucode,pluname,jprice,netjprice,
|
|
|
zpcount,cost,netcost,jhrzdate,jhjprice,jhnetjprice,jhcount,jhcost,jhnetcost)
|
|
|
select a.billno,a.orgcode,a.shopcode,case when t.billtype=''7'' then ''1'' else ''0'' end,a.rzdate,
|
|
|
b.plucode,b.pluname,b.jprice,b.netjprice,b.zpcount,b.cost,b.netcost,'''',0,0,0,0,0
|
|
|
from t_pay_bill t,t_dist_head a,t_dist_body b
|
|
|
where t.billno=a.billno and a.billno=b.billno and t.billtype in (''6'',''7'')
|
|
|
and a.rzdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and exists(select * from t_shop where orgcode=a.orgcode and finacode<>t.finacode)
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')
|
|
|
and exists(select * from t_user_org where orgcode=a.shopcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sfinacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.shopcode and finacode in ('''+@sfinacode+'''))'
|
|
|
if @sshopcode<>''
|
|
|
set @ssql=@ssql+' and a.shopcode in ('''+@sshopcode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and t.orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pbilltype,'')='0'
|
|
|
set @ssql=@ssql+' and t.billtype=''6'''
|
|
|
if isnull(@pbilltype,'')='1'
|
|
|
set @ssql=@ssql+' and t.billtype=''7'''
|
|
|
else if isnull(@pbilltype,'')='2'
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set jhrzdate=a.rzdate,jhjprice=b.jprice,jhnetjprice=b.netjprice,jhcount=b.counts,jhcost=b.cost,jhnetcost=b.netcost
|
|
|
from ##tmpsubsettle t,t_accept_head a,t_accept_body b
|
|
|
where t.billno=a.orderno and a.billno=b.billno and t.plucode=b.plucode
|
|
|
and isnull(a.rzdate,'''')<>'''' and t.billtype=''0'' and a.billtype=''3'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='update t set jhrzdate=a.rzdate,jhjprice=b.jprice,jhnetjprice=b.netjprice,jhcount=-b.counts,jhcost=-b.cost,jhnetcost=-b.netcost
|
|
|
from ##tmpsubsettle t,t_return_head a,t_return_body b
|
|
|
where t.billno=a.billno and a.billno=b.billno and t.plucode=b.plucode
|
|
|
and isnull(a.rzdate,'''')<>'''' and t.billtype=''1''
|
|
|
and not exists(select 1
|
|
|
from t_distdiffer_head tdh,t_distdiffer_body tdb
|
|
|
where tdh.billno=tdb.billno and isnull(tdh.rzdate,'''')<>'''' and tdb.genbillno=t.billno)'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpsubsettle(billno,orgcode,shopcode,billtype,rzdate,plucode,pluname,jprice,netjprice,
|
|
|
zpcount,cost,netcost,jhjprice,jhnetjprice,jhcount,jhcost,jhnetcost)
|
|
|
select a.billno,''C009'',t.orgcode,''2'',a.rzdate,b.plucode,b.pluname,
|
|
|
b.newjprice-b.jprice,b.newnetjprice-b.netjprice,b.tzcount,b.cjcost,b.netcjcost,0,0,0,0,0
|
|
|
from t_pay_bill t,t_adjbuyprice_head a,t_adjbuyprice_body b
|
|
|
where t.billno=a.billno and a.billno=b.billno and t.billtype in (''8'')
|
|
|
and a.rzdate between '''+@sbgndate+''' and '''+@senddate+'''
|
|
|
and exists(select * from t_shop where orgcode=''C009'' and finacode<>t.finacode)
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sfinacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.OrgCode and finacode in ('''+@sfinacode+'''))'
|
|
|
if @sshopcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sshopcode+''')'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and t.orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pbilltype,'')='0'
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
if isnull(@pbilltype,'')='1'
|
|
|
set @ssql=@ssql+' and 0=1'
|
|
|
else if isnull(@pbilltype,'')='2'
|
|
|
set @ssql=@ssql+' and t.billtype=''8'''
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='select b.finacode,c.finaname,a.shopcode,b.orgname as shopname,
|
|
|
case a.billtype when ''1'' then ''配送退货单'' when ''2'' then ''配送进价调整单'' else ''配送单'' end as c_billtype,a.billno,
|
|
|
a.plucode,a.pluname,f.clscode,f.clsname,d.staxrate,a.rzdate,a.zpcount,a.jprice,a.netjprice,a.cost,a.netcost,a.cost-a.netcost as taxamt,
|
|
|
a.jhrzdate,a.jhcount,a.jhjprice,a.jhnetjprice,a.jhcost,a.jhnetcost,a.jhcost-a.jhnetcost as jhtaxamt,a.orgcode,g.orgname
|
|
|
from ##tmpsubsettle a
|
|
|
left join t_shop b on a.shopcode=b.orgcode
|
|
|
left join t_financial_body c on b.finacode=c.finacode
|
|
|
left join t_plu d on a.plucode=d.plucode
|
|
|
left join t_gclass e on d.clscode=e.clscode
|
|
|
left join t_gclass f on e.uppercode1=f.clscode
|
|
|
left join t_shop g on a.orgcode=g.orgcode
|
|
|
order by b.finacode,a.shopcode,a.billtype,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpsubsettle' and xtype='u')
|
|
|
drop table ##tmpsubsettle
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*总部盘点结果报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_cykrpt' and xtype='p')
|
|
|
drop procedure p_rpt_cykrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_cykrpt
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pykreason varchar(2),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
set @ssql='select e.areaname as regnname,d.areaname,a.orgcode,c.orgname,a.billno,a.accdate,
|
|
|
b.plucode,f.pluname,h.clscode,h.clsname,b.jtaxrate,b.bookcount,b.realcount,b.ykcount,
|
|
|
b.netjprice,b.yknetcost,b.price,b.yktotal,b.remark+''-''+i.name as ykreason,b.describe
|
|
|
from t_differ_head a join t_differ_body b on a.billno=b.billno
|
|
|
left join t_shop c on a.orgcode=c.orgcode
|
|
|
left join t_area d on c.areacode=d.areacode
|
|
|
left join t_area e on d.uppercode1=e.areacode
|
|
|
left join t_plu f on b.plucode=f.plucode
|
|
|
left join t_gclass g on f.clscode=g.clscode
|
|
|
left join t_gclass h on g.uppercode1=h.clscode
|
|
|
left join (select q.item_value,q.name from dict_data p,dict_data_item q where p.id=q.p_id and p.code=''PD0006'') i on b.remark=i.item_value
|
|
|
where a.accdate between '''+@sbgndate+''' and '''+@senddate+''' and a.billtype in (''0'',''1'',''3'')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pykreason,'')<>''
|
|
|
set @ssql=@ssql+' and b.remark=''' + @pykreason + ''''
|
|
|
set @ssql=@ssql+' order by e.areacode,d.areacode,a.orgcode,b.plucode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*油站盘点结果报表*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_sykrpt' and xtype='p')
|
|
|
drop procedure p_rpt_sykrpt
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_sykrpt
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pykreason varchar(2),
|
|
|
@pplucode varchar(2000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
set @ssql='select e.areaname as regnname,d.areaname,a.orgcode,c.orgname,a.billno,a.rzdate,
|
|
|
b.plucode,f.pluname,h.clscode,h.clsname,b.jtaxrate,b.bookcount,b.realcount,b.ykcount,
|
|
|
b.price,b.yktotal,b.remark+''-''+i.name as ykreason,b.describe
|
|
|
from t_differ_head a join t_differ_body b on a.billno=b.billno
|
|
|
left join t_shop c on a.orgcode=c.orgcode
|
|
|
left join t_area d on c.areacode=d.areacode
|
|
|
left join t_area e on d.uppercode1=e.areacode
|
|
|
left join t_plu f on b.plucode=f.plucode
|
|
|
left join t_gclass g on f.clscode=g.clscode
|
|
|
left join t_gclass h on g.uppercode1=h.clscode
|
|
|
left join (select q.item_value,q.name from dict_data p,dict_data_item q where p.id=q.p_id and p.code=''PD0006'') i on b.remark=i.item_value
|
|
|
where a.rzdate between '''+@sbgndate+''' and '''+@senddate+''' and a.billtype in (''0'',''1'',''3'')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @ssql=@ssql+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and b.plucode in ('''+@splucode+''')'
|
|
|
if isnull(@pykreason,'')<>''
|
|
|
set @ssql=@ssql+' and b.remark=''' + @pykreason + ''''
|
|
|
set @ssql=@ssql+' order by e.areacode,d.areacode,a.orgcode,b.plucode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*日结前数据检查*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_overqry' and xtype='p')
|
|
|
drop procedure p_rpt_overqry
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_overqry
|
|
|
(
|
|
|
@pregncode varchar(1000),
|
|
|
@pareacode varchar(1000),
|
|
|
@porgcode varchar(1000),
|
|
|
@ps_SysUserCode varchar(20)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sregncode varchar(1000)
|
|
|
declare @sareacode varchar(1000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sfilt varchar(8000)
|
|
|
declare @stmpdate varchar(10)
|
|
|
declare @thismonth varchar(6)
|
|
|
declare @lastmonth varchar(6)
|
|
|
begin
|
|
|
set @sregncode=replace(@sregncode,',',''',''')
|
|
|
set @sareacode=replace(@sareacode,',',''',''')
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @stmpdate=convert(varchar(10),getdate(),120)
|
|
|
set @thismonth=substring(@stmpdate,1,4)+substring(@stmpdate,6,2)
|
|
|
set @stmpdate=convert(varchar(10),dateadd(month,-1,getdate()),120)
|
|
|
set @lastmonth=substring(@stmpdate,1,4)+substring(@stmpdate,6,2)
|
|
|
|
|
|
set @sfilt=' and exists(select * from t_shop where orgcode=a.orgcode and status=''1'')
|
|
|
and exists(select * from t_user_org where orgcode=a.orgcode and usercode='''+@ps_SysUserCode+''')'
|
|
|
if @sregncode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_shop m,t_area n where m.areacode=n.areacode and m.orgcode=a.orgcode and n.uppercode1 in ('''+@sregncode+'''))'
|
|
|
if @sareacode<>''
|
|
|
set @sfilt=@sfilt+' and exists(select * from t_shop where orgcode=a.orgcode and areacode in ('''+@sareacode+'''))'
|
|
|
if @sorgcode<>''
|
|
|
set @sfilt=@sfilt+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpoverqry' and xtype='u')
|
|
|
drop table ##tmpoverqry
|
|
|
create table ##tmpoverqry (
|
|
|
orgcode varchar(10),errtype varchar(2),plucode varchar(20),xscount numeric(19,4),kccount numeric(19,4))
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''0'','''',0,0
|
|
|
from t_shop a
|
|
|
where orgtype<>''2'' and overdate<convert(varchar(10),getdate()-1,120)
|
|
|
and not exists(select * from t_int_flow_total where orgcode=a.orgcode and accdate>a.overdate)'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''1'','''',0,0
|
|
|
from t_shop a
|
|
|
where orgtype<>''2'' and overdate<convert(varchar(10),getdate()-1,120)'
|
|
|
if exists(select name from sysobjects where name='t_int_flow_pay_deily_'+@thismonth and xtype='u') or exists(select name from sysobjects where name='t_int_flow_pay_deily_'+@lastmonth and xtype='u')
|
|
|
begin
|
|
|
set @ssql=@ssql+' and not exists(select * from ('
|
|
|
if exists(select name from sysobjects where name='t_int_flow_pay_deily_'+@thismonth and xtype='u')
|
|
|
set @ssql=@ssql+' select * from t_int_flow_pay_deily_'+@thismonth+' where werks=a.orgcode and business_date>a.overdate'
|
|
|
if exists(select name from sysobjects where name='t_int_flow_pay_deily_'+@lastmonth and xtype='u')
|
|
|
set @ssql=@ssql+' union select * from t_int_flow_pay_deily_'+@lastmonth+' where werks=a.orgcode and business_date>a.overdate'
|
|
|
set @ssql=@ssql+') b)'
|
|
|
end
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''2'',a.plucode,sum(a.pluqty),0
|
|
|
from t_int_flow_item a
|
|
|
where not exists(select * from t_plu where plucode=a.plucode)
|
|
|
and (plucode not like ''298%'' or plucode in (''298213'',''298214'',''298215'')) and plucode not like ''299%'' and plucode not in (''300809'') and plucode <> ''0''
|
|
|
and exists(select * from t_shop where orgcode=a.orgcode and overdate<a.accdate)'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
set @ssql=@ssql+' group by a.orgcode,a.plucode,a.pluname'
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''3'',a.plucode,0,0
|
|
|
from t_int_flow_item a,t_plu b,t_plu_org c
|
|
|
where a.plucode=b.plucode and a.plucode=c.plucode and a.orgcode=c.orgcode
|
|
|
and (isnull(c.supcode,'''')<>'''' and not exists(select * from t_supplier where supcode=c.supcode)
|
|
|
or isnull(b.supcode,'''')<>'''' and not exists(select * from t_supplier where supcode=b.supcode))
|
|
|
and exists(select * from t_shop where orgcode=a.orgcode and overdate<a.accdate)'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''4'',a.plucode,isnull(c.packpluqty,0)+isnull(d.pluqty,0),a.gcount+a.ccount
|
|
|
from t_plu_org a
|
|
|
left join t_plu b on a.plucode=b.plucode
|
|
|
left join (select i.orgcode,p.plucode,sum(i.pluqty*p.counts) packpluqty from t_plupack p,t_int_flow_item i
|
|
|
where p.packcode=i.plucode and exists(select * from t_shop where orgcode=i.orgcode and overdate<i.accdate) group by p.plucode,i.orgcode) c
|
|
|
on a.plucode=c.plucode and a.orgcode=c.orgcode
|
|
|
left join (select orgcode,plucode,sum(pluqty) as pluqty from t_int_flow_item j where exists(select * from t_shop where orgcode=j.orgcode and overdate<j.accdate)
|
|
|
group by plucode,orgcode) d on a.plucode=d.plucode and a.orgcode=d.orgcode
|
|
|
where b.plutype<>''3'' and b.plutype<>''4'' and a.mngstock=''1''
|
|
|
and a.gcount+a.ccount-isnull(c.packpluqty,0)-isnull(d.pluqty,0)<0
|
|
|
and isnull(c.packpluqty,0)+isnull(d.pluqty,0)<>0
|
|
|
and not exists(select * from t_mix_product where plucode=a.plucode)'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
select a.orgcode,''5'',a.plucode,b.counts*c.mixcnt,a.gcount+a.ccount
|
|
|
from t_plu_org a,t_mix_stuff b,(select orgcode,mixcode,mixcnt
|
|
|
from (select i.orgcode,p.mixcode,i.plucode,ceiling(sum(i.pluqty)/p.counts) as mixcnt,
|
|
|
row_number() over(partition by i.orgcode,p.mixcode,i.plucode order by ceiling(sum(i.pluqty)/p.counts) desc) as rowid
|
|
|
from t_int_flow_item i,t_mix_product p where i.plucode=p.plucode and exists(select * from t_shop where orgcode=i.orgcode and overdate<i.accdate)
|
|
|
group by i.orgcode,p.mixcode,i.plucode,p.counts) t where rowid=1) c
|
|
|
where a.plucode=b.plucode and a.orgcode=c.orgcode and b.mixcode=c.mixcode and b.counts*c.mixcnt>a.gcount+a.ccount'
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
|
|
|
----增加销售日报不等于支付日报的错误日志 ,错误类型为6
|
|
|
set @ssql='insert into ##tmpoverqry(orgcode,errtype,plucode,xscount,kccount)
|
|
|
Select orgcode,''6'',overdate,0,0
|
|
|
from t_over_error a
|
|
|
where Exists (Select * from t_shop p
|
|
|
where a.orgcode=p.orgcode
|
|
|
and a.overdate>p.overdate
|
|
|
and a.errreason like ''%金额不一致%'') '
|
|
|
set @ssql=@ssql+@sfilt
|
|
|
exec(@ssql)
|
|
|
|
|
|
|
|
|
set @ssql='select d.areaname as regnname,c.areaname,a.orgcode,b.orgname,b.overdate,
|
|
|
case errtype when ''0'' then ''本日不存在销售流水'' when ''1'' then ''本日不存在支付日报'' when ''2'' then ''流水中有商品不存在''
|
|
|
when ''3'' then ''流水中商品供应商不存在'' when ''4'' then ''存在负库存数据'' when ''5'' then ''BOM存在负库存数据''
|
|
|
when ''6'' then a.plucode+''日流水金额与支付日报金额不一致'' else ''其他'' end as r_errtype,
|
|
|
case errtype when ''6'' then '''' else a.plucode end as plucode ,
|
|
|
e.pluname,a.xscount,a.kccount,a.xscount-a.kccount as diffcount
|
|
|
from ##tmpoverqry a
|
|
|
left join t_shop b on a.orgcode=b.orgcode
|
|
|
left join t_area c on b.areacode=c.areacode
|
|
|
left join t_area d on c.uppercode1=d.areacode
|
|
|
left join t_plu e on a.plucode=e.plucode
|
|
|
order by d.areacode,c.areacode,a.orgcode,a.plucode'
|
|
|
exec(@ssql)
|
|
|
|
|
|
if exists(select name from tempdb..sysobjects where name='##tmpoverqry' and xtype='u')
|
|
|
drop table ##tmpoverqry
|
|
|
end
|
|
|
go
|
|
|
|
|
|
|
|
|
/*BOS通讯日志*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_int_log_bos' and xtype='p')
|
|
|
drop procedure p_rpt_int_log_bos
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_int_log_bos
|
|
|
(
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@plogtype varchar(1)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
set @ssql='select b.itemcode,b.itemname,c.orgcode,c.orgname,a.logdate,a.logtime,case a.logtype when ''S'' then ''成功'' else ''失败'' end as logtype,a.logmsg,a.sessioncode
|
|
|
from t_int_log a, t_int_item b, t_shop c
|
|
|
where a.typecode = b.typecode and a.itemcode = b.itemcode and a.orgcode = c.orgcode
|
|
|
and a.typecode = ''002''
|
|
|
and a.logdate between ''' + @sbgndate + ''' and ''' + @senddate + ''''
|
|
|
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
|
|
|
if @plogtype<>''
|
|
|
set @ssql=@ssql+' and a.logtype = ''' + @plogtype + ''''
|
|
|
|
|
|
set @ssql=@ssql+' order by a.logdate,a.orgcode,a.itemcode'
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
go
|
|
|
|
|
|
/*实时销量毛利预估*/
|
|
|
if exists(select * from sysobjects where name='p_rpt_int_flow_profit' and xtype='p')
|
|
|
drop procedure p_rpt_int_flow_profit
|
|
|
go
|
|
|
|
|
|
create procedure p_rpt_int_flow_profit
|
|
|
(
|
|
|
@porgcode varchar(1000),
|
|
|
@pbgndate varchar(10),
|
|
|
@penddate varchar(10),
|
|
|
@pclscode varchar(1000),
|
|
|
@pplucode varchar(2000)
|
|
|
)
|
|
|
as
|
|
|
declare @ssql varchar(8000)
|
|
|
declare @sorgcode varchar(1000)
|
|
|
declare @sclscode varchar(1000)
|
|
|
declare @splucode varchar(1000)
|
|
|
declare @sbgndate varchar(10)
|
|
|
declare @senddate varchar(10)
|
|
|
begin
|
|
|
set @sorgcode=replace(@porgcode,',',''',''')
|
|
|
set @sclscode=replace(@pclscode,',',''',''')
|
|
|
set @splucode=replace(@pplucode,',',''',''')
|
|
|
set @sbgndate=@pbgndate
|
|
|
set @senddate=@penddate
|
|
|
if isnull(@sbgndate,'')=''
|
|
|
set @sbgndate='2023-08-01'
|
|
|
if isnull(@senddate,'')=''
|
|
|
set @senddate='2099-12-31'
|
|
|
|
|
|
set @ssql='select a.orgcode,s.orgname,a.sdate,a.plucode,b.pluname,b.barcode,a.clscode,c.clsname,
|
|
|
d.clscode as midclscode,d.clsname as midclsname,a.pluqty,a.plutotal,
|
|
|
round(a.plutotal/(1+b.staxrate/100.00),2) as netamount,round(o.netjprice*a.pluqty,2) as netcost
|
|
|
from t_int_flow_item a,t_plu b,t_gclass c,t_gclass d,t_plu_org o,t_shop s
|
|
|
where a.plucode=b.plucode and a.clscode=c.clscode
|
|
|
and a.plucode=o.plucode and a.orgcode=o.orgcode
|
|
|
and c.uppercode1=d.clscode and a.orgcode=s.orgcode
|
|
|
and c.uppercode2=''20''
|
|
|
and a.sdate between ''' + @sbgndate + ''' and ''' + @senddate + ''''
|
|
|
|
|
|
if @sorgcode<>''
|
|
|
set @ssql=@ssql+' and a.orgcode in ('''+@sorgcode+''')'
|
|
|
|
|
|
if @sclscode<>''
|
|
|
set @ssql=@ssql+' and d.clscode in ('''+@sclscode+'''))'
|
|
|
|
|
|
if @splucode<>''
|
|
|
set @ssql=@ssql+' and a.plucode in ('''+@splucode+''')'
|
|
|
|
|
|
set @ssql='select a.orgcode,a.orgname,a.sdate,a.plucode,a.pluname,a.barcode,a.clscode,a.clsname,a.midclscode,a.midclsname,
|
|
|
sum(a.pluqty) as pluqty,sum(a.plutotal) as plutotal,sum(netamount) as netamount,sum(netcost) as netcost,
|
|
|
sum(netamount)-sum(netcost) as netprofit
|
|
|
from (' +@ssql+') a
|
|
|
group by a.orgcode,a.orgname,a.sdate,a.plucode,a.pluname,a.barcode,a.clscode,a.clsname,a.midclscode,a.midclsname
|
|
|
order by a.orgcode,a.sdate,a.plucode'
|
|
|
|
|
|
exec(@ssql)
|
|
|
end
|
|
|
go |
