shell
/
qdhezheng-shell-release
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '1a7ea4bd76'
${ noResults }
qdhezheng-shell-release/02_scripts/01_存储过程/biz_proc.sql

5905 lines
256 KiB
Raw Normal View History Unescape

Initial Commit
1 year ago
/***************************************************************************
ҵ<EFBFBD><EFBFBD><EFBFBD>洢<EFBFBD><EFBFBD><EFBFBD>̽ű<EFBFBD>
****************************************************************************/
--<EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD>
if exists(select * from sysobjects where name = 'f_getstockpcno' and xtype = 'fn')
drop function f_getstockpcno
go
create function f_getstockpcno
(
@ps_billno varchar(max),
@ps_ywtype varchar(max),
@pi_serialno numeric(19,0)
)
returns varchar(max)
as
begin
declare
@vs_serialno varchar(40),
@return_value_argument varchar(max)
set @vs_serialno = '00000' + isnull(cast(round(@pi_serialno, 0) as varchar(max)), '')
set @vs_serialno = substring(@vs_serialno, len(@vs_serialno)-5+1, 5)
set @return_value_argument = (isnull(@ps_billno, '') + isnull(@ps_ywtype, '') + isnull(@vs_serialno, ''))
return @return_value_argument
end
go
--<EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if exists(select * from sysobjects where name = 'f_getbatchstk' and xtype = 'fn')
drop function f_getbatchstk
go
create function f_getbatchstk
(
@ps_orgcode varchar(max),
@ps_depcode varchar(max),
@ps_place varchar(max),
@ps_plucode varchar(max),
@ps_plutype varchar(max),
@ps_supcode varchar(max),
@ps_pcno varchar(max)
)
returns numeric(19,4)
as
begin
declare
@vf_kccount numeric(19, 4),
@vf_kcpccount numeric(19, 4),
@vs_pcno varchar(40),
@vf_kycount numeric(19, 4)
set @vs_pcno = isnull(@ps_pcno, '*')
if @ps_pcno = ''
set @vs_pcno = '*'
select @vf_kccount = isnull(sum(stkcount), 0)
from t_plu_batch with (nolock)
where orgcode = @ps_orgcode and
((isnull(@ps_depcode,'') = '') or ((isnull(@ps_depcode,'') <> '') and (depcode = @ps_depcode))) and
((isnull(@ps_supcode,'') = '') or ((isnull(@ps_supcode,'') <> '') and (supcode = @ps_supcode))) and
((isnull(@ps_place,'') = '') or ((isnull(@ps_place,'') <> '') and (place = @ps_place))) and plucode = @ps_plucode and
((isnull(@ps_plutype,'') = '') or ((@ps_plutype <> '') and (plutype = @ps_plutype))) and
((@vs_pcno = '*') or ((@vs_pcno <> '*') and (batchno = @vs_pcno))) and stkcount > 0
set @vf_kycount = @vf_kccount
return isnull(@vf_kycount, 0)
end
go
if exists(select * from sysobjects where name ='f_get_pack_jprice' and xtype='fn')
drop function f_get_pack_jprice
go
create function f_get_pack_jprice
(
@jpricetype varchar(1),
@packcode varchar(20),
@orgcode varchar(10)
)
returns numeric(19,4)
as
begin
declare @rnt numeric(19,4)
set @rnt = 0.0000
if @jpricetype = '0'
select @rnt = sum(b.counts * a.jprice) from t_plupack b,t_plu_org a
where a.plucode=b.plucode and a.orgcode = @orgcode and b.packcode = @packcode
group by b.packcode
else if @jpricetype = '1'
select @rnt = sum(b.counts * a.netjprice) from t_plupack b,t_plu_org a
where a.plucode=b.plucode and a.orgcode = @orgcode and b.packcode = @packcode
group by b.packcode
return(@rnt)
end
go
if exists(select * from sysobjects where name = 'f_substring' and xtype = 'fn')
drop function f_substring
go
create function f_substring(@sourcestr varchar(8000),@len int) returns varchar(8000)
as
begin
return(cast(substring(cast(@sourcestr as varbinary(8000)),1,@len) as varchar(100)))
end
go
if exists(select * from sysobjects where name = 'f_get_mncode' and xtype = 'fn')
drop function f_get_mncode
go
create function f_get_mncode
(
@str nvarchar(4000)
)
returns nvarchar(4000)
as
begin
declare @intlen int
declare @strret nvarchar(4000)
declare @temp nvarchar(100)
set @intlen = len(@str)
set @strret = ''
while @intlen > 0
begin
set @temp = ''
select @temp = case
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'z'
when substring(@str,@intlen,1) >= 'Ѿ' then 'y'
when substring(@str,@intlen,1) >= 'Ϧ' then 'x'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'w'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 't'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 's'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'r'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'q'
when substring(@str,@intlen,1) >= '<EFBFBD>r' then 'p'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'o'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'n'
when substring(@str,@intlen,1) >= '<EFBFBD>`' then 'm'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'l'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'k'
when substring(@str,@intlen,1) >= 'آ' then 'j'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'h'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'g'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'f'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'e'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'd'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'c'
when substring(@str,@intlen,1) >= '<EFBFBD><EFBFBD>' then 'b'
when substring(@str,@intlen,1) >= '߹' then 'a'
else rtrim(ltrim(substring(@str,@intlen,1)))
end
--['0'..'9', 'a'..'z', 'a'..'z', '-']
--<EFBFBD><EFBFBD><EFBFBD>ں<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if not ((ascii(@temp) between ascii('0') and ascii('9'))
or (ascii(@temp) between ascii('a') and ascii('z'))
or (ascii(@temp) between ascii('a') and ascii('z'))
or (ascii(@temp) = ascii('-')))
set @temp = ''
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
--if @temp = '(' or @temp = ')' set @temp = ''
select @strret = @temp + @strret
set @intlen = @intlen - 1
end
return lower(@strret)
end
go
if exists(select * from sysobjects where name = 'f_compare_image' and xtype = 'fn')
drop function f_compare_image
go
create function f_compare_image
(
@a1 image,
@a2 image)
returns int
as
begin
declare @n int, @i int, @j int
declare @b1 varbinary(8000), @b2 varbinary(8000)
set @n = 1
if datalength(@a1) <> datalength(@a2) -- different length
set @n = 0
else
begin
set @i = 0
set @j = (datalength(@a1) - 1) / 8000 + 1
while @i <= @j
begin
set @b1 = substring(@a1, @i * 8000 + 1, case @i when @j then datalength(@a1) % 8000 else 8000 end)
set @b2 = substring(@a2, @i * 8000 + 1, case @i when @j then datalength(@a2) % 8000 else 8000 end)
if @b1 <> @b2
begin
set @n = 0
break
end
set @i = @i + 1
end
end
return(@n)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_update_prn_format') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_update_prn_format
go
create procedure p_update_prn_format
@prntype varchar(1),
@prncode varchar(10),
@ver varchar(1),
@prnname varchar(40),
@remark varchar(40),
@newformat image
as
begin
declare @iisfind int
declare @imgformat varbinary(8000)
declare @prnformat varbinary(8000)
declare cur_loop cursor for
select prnformat from t_prn_format where prntype=@prntype and prncode=@prncode order by serialno
set @iisfind=0
set @imgformat=@newformat
open cur_loop
fetch next from cur_loop into @prnformat
while @@fetch_status=0
begin
if dbo.f_compare_image(@imgformat,@prnformat)=1
begin
set @iisfind=1
break
end
fetch next from cur_loop into @prnformat
end
close cur_loop
deallocate cur_loop
if @iisfind=0
insert into t_prn_format (prntype,prncode,ver,serialno,isdefault,prnname,remark,prnformat)
select @prntype,@prncode,@ver,(select isnull(max(serialno),0)+1 serialno from t_prn_format where prntype=@prntype and prncode=@prncode),'0',@prnname,@remark,@newformat
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_calc_staff_pct') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_calc_staff_pct
go
create procedure p_calc_staff_pct
@prjcode varchar(6),
@stafftype varchar(1),
@orgcode varchar(10),
@staffcode varchar(10),
@bgndate varchar(10),
@enddate varchar(10),
@message varchar(100) output
as
declare @s_sql varchar(8000)
declare @s_nexesql nvarchar(4000)
declare @s_exesql varchar(8000)
declare @s_tmpstr varchar(8000)
declare @s_tmpdate varchar(10)
declare @s_calcrtn varchar(1)
declare @i_rowcount int
declare @s_tcgrptype varchar(1)
begin
if exists(select name from tempdb..sysobjects where name='##tmptccalchz' and xtype='u')
exec ('drop table ##tmptccalchz')
create table ##tmptccalchz(
usercode varchar (6) not null,
username varchar (10) null,
counts numeric (19,4) not null default (0),
total numeric (19,4) not null default (0),
tctotal numeric (19,4) not null default (0))
if exists(select name from tempdb..sysobjects where name='##tmptccalcdtl' and xtype='u')
exec ('drop table ##tmptccalcdtl')
create table ##tmptccalcdtl
(usercode varchar(6) not null,username varchar(10) null,
plucode varchar(20) null, barcode varchar(20) null,pluname varchar(40) null,spec varchar(40) null,unit varchar(10) null,cargono varchar(20) null,
depcode varchar(10) null,depname varchar(16) null,clscode varchar(10) null,clsname varchar(20) null,
brandcode varchar(10) null,brandname varchar(20) null,supcode varchar(15) null,supname varchar(100) null,
counts numeric(19,4) not null default(0),total numeric(19,4) not null default(0),
israte varchar(1) not null default('1'),sgltctotal numeric(19,4) not null default(0),tctotal numeric(19,4) not null default(0),tcrate numeric (19,4) not null default(0),isfinished varchar(1))
exec ('delete from ##tmptccalcdtl')
set @s_tcgrptype = null
select top 1 @s_tcgrptype = grptype from t_pct_project_detail where prjcode=@prjcode and usertype=@stafftype and grptype <> 'p'
if @stafftype ='0'
select @s_calcrtn=itemvalue from t_syscfg where section='stafftc' and itemname='tc_clerkrtn'
else
select @s_calcrtn=itemvalue from t_syscfg where section='stafftc' and itemname='tc_pfrtn'
if @s_calcrtn='' or @s_calcrtn is null
select @s_calcrtn='0'
if @stafftype ='0'
begin
if @s_tcgrptype <> 't'
begin
select @s_tmpdate=@bgndate
while (left(@s_tmpdate,7)<=left(@enddate,7))
begin
select @s_tmpstr='t_flow_item_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)
if exists(select * from sysobjects where name=@s_tmpstr and xtype='u')
begin
select @s_sql='select clkcode,plucode,sum(pluqty) as counts,sum(plutotal) as total from ' + @s_tmpstr +'
where clkcode is not null and clkcode<>''''
and accdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and clkcode='''+@staffcode+''''
if @s_calcrtn='0'
select @s_sql=@s_sql+' and trantype in (''b'',''f'')'
else
select @s_sql=@s_sql+' and trantype in (''b'',''f'',''d'',''h'')'
select @s_sql=@s_sql+' group by clkcode,plucode'
set @s_exesql = ''
set @s_exesql = 'update a set a.total = a.total + b.total,a.counts = a.counts + b.counts
from ##tmptccalcdtl a, ('+@s_sql+') b where a.usercode = b.clkcode and a.plucode = b.plucode'
exec(@s_exesql)
set @s_exesql = ''
set @s_exesql = 'insert into ##tmptccalcdtl (usercode,plucode,total,counts)
select clkcode,plucode,total,counts
from ('+@s_sql+') b
where not exists(select * from ##tmptccalcdtl where usercode = b.clkcode and plucode = b.plucode)'
exec(@s_exesql)
end
select @s_tmpdate = convert(varchar(10),dateadd(mm,1,@s_tmpdate),120)
end
end
else
begin
select @s_tmpdate=@bgndate
while (left(@s_tmpdate,7)<=left(@enddate,7))
begin
select @s_tmpstr='t_flow_item_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)
if exists(select * from sysobjects where name=@s_tmpstr and xtype='u')
begin
select @s_sql='select distinct posno,orgcode,sdate,stime,serialno,trantype from ' + @s_tmpstr +'
where clkcode is not null and clkcode<>''''
and accdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and clkcode='''+@staffcode+''''
if @s_calcrtn='0'
select @s_sql=@s_sql+' and trantype in (''b'',''f'')'
else
select @s_sql=@s_sql+' and trantype in (''b'',''f'',''d'',''h'')'
set @s_sql = 'select c.clkcode,b.payflag,b.amount,a.total,c.plutotal,round((c.plutotal/a.total)*b.amount,2) as tctotal
from t_flow_total_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)+' a,t_flow_pay_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)+' b,'+@s_tmpstr+' c,
('+@s_sql+') d
where a.posno = b.posno and a.orgcode = b.orgcode and a.sdate = b.sdate and a.stime = b.stime and a.serialno = b.serialno and a.trantype=b.trantype and
a.posno = c.posno and a.orgcode = c.orgcode and a.sdate = c.sdate and a.stime = c.stime and a.serialno = c.serialno and a.trantype=c.trantype and
a.posno = d.posno and a.orgcode = d.orgcode and a.sdate = d.sdate and a.stime = d.stime and a.serialno = d.serialno and a.trantype=d.trantype'
set @s_sql = 'select clkcode,payflag,sum(tctotal) as tctotal
from ('+@s_sql+') t where t.clkcode is not null and t.clkcode <> '''' group by clkcode,payflag'
set @s_exesql = ''
set @s_exesql = 'update a set a.total = a.total + b.tctotal
from ##tmptccalcdtl a, ('+@s_sql+') b where a.usercode = b.clkcode and a.plucode = b.payflag'
exec(@s_exesql)
set @s_exesql = ''
set @s_exesql = 'insert into ##tmptccalcdtl (usercode,plucode,total)
select clkcode,payflag,tctotal as total
from ('+@s_sql+') b
where not exists(select * from ##tmptccalcdtl where usercode = b.clkcode and plucode = b.payflag)'
exec(@s_exesql)
end
select @s_tmpdate = convert(varchar(10),dateadd(mm,1,@s_tmpdate),120)
end
end
end
else if @stafftype ='2'
begin
if @s_tcgrptype <> 't'
begin
select @s_tmpdate=@bgndate
while (left(@s_tmpdate,7)<=left(@enddate,7))
begin
select @s_tmpstr='t_flow_item_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)
if exists(select * from sysobjects where name=@s_tmpstr and xtype='u')
begin
select @s_sql='select cshcode,plucode,sum(pluqty) as counts,sum(plutotal) as total from ' + @s_tmpstr +'
where cshcode is not null and cshcode<>''''
and accdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and cshcode='''+@staffcode+''''
if @s_calcrtn='0'
select @s_sql=@s_sql+' and trantype in (''b'',''f'')'
else
select @s_sql=@s_sql+' and trantype in (''b'',''f'',''d'',''h'')'
select @s_sql=@s_sql+' group by cshcode,plucode'
set @s_exesql = ''
set @s_exesql = 'update a set a.total = a.total + b.total,a.counts = a.counts + b.counts
from ##tmptccalcdtl a, ('+@s_sql+') b where a.usercode = b.cshcode and a.plucode = b.plucode'
exec(@s_exesql)
set @s_exesql = ''
set @s_exesql = 'insert into ##tmptccalcdtl (usercode,plucode,total,counts)
select cshcode,plucode,total,counts
from ('+@s_sql+') b
where not exists(select * from ##tmptccalcdtl where usercode = b.cshcode and plucode = b.plucode)'
exec(@s_exesql)
end
select @s_tmpdate = convert(varchar(10),dateadd(mm,1,@s_tmpdate),120)
end
end
else
begin
select @s_tmpdate=@bgndate
while (left(@s_tmpdate,7)<=left(@enddate,7))
begin
select @s_tmpstr='t_flow_item_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)
if exists(select * from sysobjects where name=@s_tmpstr and xtype='u')
begin
select @s_sql='select distinct posno,orgcode,sdate,stime,serialno,trantype from ' + @s_tmpstr +'
where cshcode is not null and cshcode<>''''
and accdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and cshcode='''+@staffcode+''''
if @s_calcrtn='0'
select @s_sql=@s_sql+' and trantype in (''b'',''f'')'
else
select @s_sql=@s_sql+' and trantype in (''b'',''f'',''d'',''h'')'
set @s_sql = 'select c.cshcode,b.payflag,b.amount,a.total,c.plutotal,round((c.plutotal/a.total)*b.amount,2) as tctotal
from t_flow_total_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)+' a,t_flow_pay_'+substring(@s_tmpdate,1,4)+substring(@s_tmpdate,6,2)+' b,'+@s_tmpstr+' c,
('+@s_sql+') d
where a.posno = b.posno and a.orgcode = b.orgcode and a.sdate = b.sdate and a.stime = b.stime and a.serialno = b.serialno and a.trantype=b.trantype and
a.posno = c.posno and a.orgcode = c.orgcode and a.sdate = c.sdate and a.stime = c.stime and a.serialno = c.serialno and a.trantype=c.trantype and
a.posno = d.posno and a.orgcode = d.orgcode and a.sdate = d.sdate and a.stime = d.stime and a.serialno = d.serialno and a.trantype=d.trantype'
set @s_sql = 'select cshcode,payflag,sum(tctotal) as tctotal
from ('+@s_sql+') t where t.cshcode is not null and t.cshcode <> '''' group by cshcode,payflag'
set @s_exesql = ''
set @s_exesql = 'update a set a.total = a.total + b.tctotal
from ##tmptccalcdtl a, ('+@s_sql+') b where a.usercode = b.cshcode and a.plucode = b.payflag'
exec(@s_exesql)
set @s_exesql = ''
set @s_exesql = 'insert into ##tmptccalcdtl (usercode,plucode,total)
select cshcode,payflag,tctotal as total
from ('+@s_sql+') b
where not exists(select * from ##tmptccalcdtl where usercode = b.cshcode and plucode = b.payflag)'
exec(@s_exesql)
end
select @s_tmpdate = convert(varchar(10),dateadd(mm,1,@s_tmpdate),120)
end
end
end
else if @stafftype ='1'
begin
select @s_sql='insert into ##tmptccalcdtl (usercode,plucode,total,counts)
select f.zdrcode,d.plucode,sum(d.pftotal) as total,sum(d.counts) as counts from t_whsale_head f,t_whsale_body d
where f.billno=d.billno and f.rzdate is not null and f.rzdate<>''''
and f.rzdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and f.orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and f.zdrcode='''+@staffcode+''''
select @s_sql=@s_sql+' group by f.zdrcode,d.plucode'
exec(@s_sql)
if @s_calcrtn='1'
begin
select @s_sql='select f.zdrcode,d.plucode,(-1)*sum(d.pftotal) as total,(-1)*sum(d.counts) as counts from t_whreturn_head f,t_whreturn_body d
where f.billno=d.billno and f.rzdate is not null and f.rzdate<>''''
and f.rzdate between '''+@bgndate+''' and '''+@enddate+''''
if @orgcode<>'<ȫ<><C8AB>>'
select @s_sql=@s_sql+' and f.orgcode='''+@orgcode+''''
if @staffcode<>''
select @s_sql=@s_sql+' and f.zdrcode='''+@staffcode+''''
select @s_sql=@s_sql+' group by f.zdrcode,d.plucode'
set @s_exesql = ''
set @s_exesql = 'update a set a.total = a.total + b.total,a.counts = a.counts + b.counts
from ##tmptccalcdtl a, ('+@s_sql+') b where a.usercode = b.zdrcode and a.plucode = b.plucode'
exec(@s_exesql)
set @s_exesql = ''
set @s_exesql = 'insert into ##tmptccalcdtl (usercode,plucode,total,counts)
select zdrcode,plucode,total,counts
from ('+@s_sql+') b
where not exists(select * from ##tmptccalcdtl where usercode = b.zdrcode and plucode = b.plucode)'
exec(@s_exesql)
end
end
if @s_tcgrptype <> 't'
begin
select @s_sql='update t set depcode=g.depcode,clscode=g.clscode,brandcode=g.brandcode ,supcode =g.supcode
from ##tmptccalcdtl t,t_plu g
where t.plucode=g.plucode '
exec(@s_sql)
end
if @s_tcgrptype <> 't'
begin
select @s_sql='update t set israte = p.israte,isfinished = ''1'',
tcrate=p.tcrate,
sgltctotal=p.tctotal,
tctotal=isnull(isnull(t.counts,0)*p.tctotal,0)
from ##tmptccalcdtl t,t_pct_project_detail p
where t.plucode=p.grpcode and p.prjcode='''+@prjcode+''' and p.usertype='''+@stafftype+''' and p.grptype=''p'' and p.tcmintotal = -1 and p.tcmaxtotal = -1'
exec(@s_sql)
select @s_sql='update t set israte = p.israte,isfinished = ''1'',
tcrate=p.tcrate,
sgltctotal = p.tctotal,
tctotal=isnull(isnull(t.counts,0)*p.tctotal,0)
from ##tmptccalcdtl t,t_pct_project_detail p
where t.plucode=p.grpcode and p.prjcode='''+@prjcode+''' and p.usertype='''+@stafftype+''' and p.grptype=''p'' and p.tcmintotal <> -1 and p.tcmaxtotal <> -1 and t.total >= p.tcmintotal and t.total < p.tcmaxtotal'
exec(@s_sql)
end
select @s_sql='update t set israte = p.israte,isfinished = ''9'',
tcrate=p.tcrate,
sgltctotal = p.tctotal,
tctotal=isnull(isnull(t.counts,0)*p.tctotal,0)
from ##tmptccalcdtl t,(select p1.grpcode,p1.israte,p1.tcrate,p1.tctotal,t1.total,p1.grptype,t1.usercode from '
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' (select usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by usercode) t1'
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' (select depcode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by depcode,usercode) t1'
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' (select clscode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by clscode,usercode) t1'
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' (select brandcode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by brandcode,usercode) t1'
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' (select plucode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by plucode,usercode) t1'
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' (select supcode ,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by supcode ,usercode) t1'
set @s_sql = @s_sql +',t_pct_project_detail p1
where p1.prjcode='''+@prjcode+''' and p1.usertype='''+@stafftype+''' and p1.grptype<>''p'' and p1.tcmintotal <> -1 and p1.tcmaxtotal <> -1 and t1.total >= p1.tcmintotal and t1.total < p1.tcmaxtotal'
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' and p1.grptype = ''a'') p'
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' and p1.grpcode = t1.depcode) p'
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' and p1.grpcode = t1.clscode) p'
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' and p1.grpcode = t1.brandcode) p'
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' and p1.grpcode = t1.plucode) p'
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' and p1.grpcode = t1.supcode ) p'
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' where p.grptype = ''a'' and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' where p.grpcode = t.depcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' where p.grpcode = t.clscode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' where p.grpcode = t.brandcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' where p.grpcode = t.plucode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' where p.grpcode = t.supcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
exec(@s_sql)
exec('update ##tmptccalcdtl set isfinished = ''1''
where isnull(isfinished,'''') = ''9''')
select @s_sql='update t set israte = p.israte,isfinished = ''9'',
tcrate=p.tcrate,
sgltctotal=p.tctotal,
tctotal=isnull(isnull(t.counts,0)*p.tctotal,0)
from ##tmptccalcdtl t,(select p1.grpcode,p1.israte,p1.tcrate,p1.tctotal,t1.total,p1.grptype,t1.usercode from '
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' (select usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by usercode) t1'
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' (select depcode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by depcode,usercode) t1'
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' (select clscode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by clscode,usercode) t1'
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' (select brandcode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by brandcode,usercode) t1'
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' (select plucode,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by plucode,usercode) t1'
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' (select supcode ,usercode,sum(total) as total from ##tmptccalcdtl where isnull(isfinished,'''')<>''1'' group by supcode ,usercode) t1'
set @s_sql = @s_sql +',t_pct_project_detail p1
where p1.prjcode='''+@prjcode+''' and p1.usertype='''+@stafftype+''' and p1.grptype<>''p'' and p1.tcmintotal = -1 and p1.tcmaxtotal = -1'
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' and p1.grptype = ''a'') p'
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' and p1.grpcode = t1.depcode) p'
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' and p1.grpcode = t1.clscode) p'
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' and p1.grpcode = t1.brandcode) p'
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' and p1.grpcode = t1.plucode) p'
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' and p1.grpcode = t1.supcode ) p'
if @s_tcgrptype = 'a'
set @s_sql = @s_sql + ' where p.grptype = ''a'' and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'd'
set @s_sql = @s_sql + ' where p.grpcode = t.depcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'c'
set @s_sql = @s_sql + ' where p.grpcode = t.clscode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'b'
set @s_sql = @s_sql + ' where p.grpcode = t.brandcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 't'
set @s_sql = @s_sql + ' where p.grpcode = t.plucode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
else if @s_tcgrptype = 'v'
set @s_sql = @s_sql + ' where p.grpcode = t.supcode and p.usercode = t.usercode and isnull(t.isfinished,'''')<>''1'''
exec(@s_sql)
exec('update ##tmptccalcdtl set isfinished = ''1''
where isnull(isfinished,'''') = ''9''')
set @s_sql='update ##tmptccalcdtl set tctotal = case when israte = ''1'' then round(total*tcrate/100.00,2) else tctotal end'
exec(@s_sql)
select @s_sql='truncate table ##tmptccalchz'
exec(@s_sql)
select @s_sql='insert into ##tmptccalchz (usercode,username,counts,total,tctotal)
select usercode,(select username from t_user where usercode=t.usercode) as username,
isnull(round(sum(counts),2),0) as counts,
isnull(round(sum(total),2),0) as total,
isnull(round(sum(tctotal),2),0) as tctotal
from ##tmptccalcdtl t group by usercode '
exec(@s_sql)
if @s_tcgrptype <> 't'
exec('update t set username = s.username,barcode = g.barcode,pluname = g.pluname,spec=g.spec,unit = g.unit,
cargono = g.cargono,depname=d.depname,clsname=c.clsname,brandname=b.brandname,supname=v.supname
from ##tmptccalcdtl t left join t_dept d on t.depcode=d.depcode
left join t_gclass c on t.clscode=c.clscode
left join t_brand b on t.brandcode=b.brandcode
left join t_supplier v on t.supcode =v.supcode
left join t_plu g on t.plucode=g.plucode
left join t_user s on t.usercode=s.usercode ')
else
begin
exec('update t set username = s.username,pluname = g.tendname
from ##tmptccalcdtl t left join t_tend g on t.plucode=g.tendcode
left join t_user s on t.usercode=s.usercode ')
end
exec('select usercode,username,counts,total,tctotal,tctotal as tztotal,convert(varchar(50),'''') as remark
from ##tmptccalchz order by tctotal desc,usercode')
exec('select usercode,username,plucode,barcode,pluname,spec,unit,cargono,
depcode,depname,clscode,clsname,brandcode,brandname,supcode ,supname,
israte,tcrate,isnull(round(sum(counts),2),0) as counts,isnull(round(sum(total),2),0) as total,sgltctotal,isnull(round(sum(tctotal),2),0) as tctotal
from ##tmptccalcdtl
group by usercode,username,plucode,depcode,clscode,brandcode,supcode ,
israte,barcode,pluname,spec,unit,cargono,depname,clsname,brandname,supname,tcrate,sgltctotal
order by tctotal desc,usercode')
set @s_sql='if exists(select name from sysobjects where name=''##tmptccalcdtl'' and xtype=''u'')
drop table ##tmptccalcdtl'
exec(@s_sql)
set @s_sql='if exists(select name from sysobjects where name=''##tmptccalchz'' and xtype=''u'')
drop table ##tmptccalchz'
exec(@s_sql)
return (1)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_show_vip_yjph') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_show_vip_yjph
go
create procedure p_show_vip_yjph
@pvipdbname varchar(20),
@pbgndate varchar(10),
@penddate varchar(10),
@pispre varchar(1),
@pnum int,
@ptotal numeric(19,4),
@pqrysql varchar(8000),
@porgcode varchar(10)
as
declare @ssql varchar(8000)
declare @stmpdate varchar(10)
declare @srpttable varchar(20)
declare @scangoon varchar(1)
declare @sver varchar(1)
begin
select @sver = itemvalue from t_syscfg where section = 'system' and itemname = 'ver'
if exists(select name from tempdb..sysobjects where name='##tmpvipyjdata' and xtype='u')
drop table ##tmpvipyjdata
create table ##tmpvipyjdata
(vipcode varchar(20) not null,vipname varchar(20) null,mobile1 varchar(20) null,mobile2 varchar(20) null,storetotal numeric(19,4),picktotal numeric(19,4),tendtotal numeric(19,4),
paytotal numeric(19,4),flxftotal numeric(19,4), xfjftotal numeric(19,4),fljftotal numeric(19,4), fltotal numeric(19,4))
set @stmpdate=@pbgndate
while (substring(@stmpdate,1,4)+substring(@stmpdate,6,2))<=(substring(@penddate,1,4)+substring(@penddate,6,2))
begin
set @srpttable = 't_viprpt_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)
set @ssql='if exists(select name from '+@pvipdbname+'..sysobjects where name='''+@srpttable+''' and xtype=''u'')
insert into ##tmpvipyjdata(vipcode,vipname,mobile1,mobile2,storetotal,picktotal,tendtotal,paytotal,
flxftotal,xfjftotal,fljftotal,fltotal)
select a.vipcode,a.vipname,isnull(mobile1,''''),isnull(mobile2,''''),sum(b.storetotal) as storetotal,sum(b.picktotal) as picktotal,
sum(b.tendtotal) as tendtotal,sum(b.paytotal) as paytotal,
sum(b.flxftotal) as flxftotal,sum(b.xfjftotal) as xfjftotal,
sum(b.fljftotal) as fljftotal,sum(b.fltotal) as fltotal
from '+@pvipdbname+'..t_vip a,'+@pvipdbname+'..'+@srpttable+' b
where a.vipcode=b.vipcode and b.accdate between '''+@pbgndate+''' and '''+ @penddate+''''
if @porgcode <> '<ȫ<><C8AB>>'
begin
if @sver = '1'
set @ssql = @ssql + ' and b.orgcode='''+@porgcode+''''
else
set @ssql = @ssql + ' and b.orgcode=''*'''
end
else
set @ssql = @ssql + ' and b.orgcode=''*'''
set @ssql = @ssql+
'group by a.vipcode,a.vipname,isnull(mobile1,''''),isnull(mobile2,'''')'
exec (@ssql)
set @stmpdate=convert(char(10),dateadd(month,1,@stmpdate),120)
end
set @ssql='select '
if @pnum <> 0
set @ssql = @ssql+'top '+convert(varchar(10),@pnum)
set @ssql = @ssql + ' * from (
select t1.vipcode as <EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t1.vipname as <EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,isnull(t1.mobile1,'''') <EFBFBD>ֻ<EFBFBD><EFBFBD><EFBFBD>1,isnull(t1.mobile2,'''') <EFBFBD>ֻ<EFBFBD><EFBFBD><EFBFBD>2,
sum(t1.storetotal) as <EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(t1.picktotal) as ȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(t1.tendtotal) as <EFBFBD><EFBFBD><EFBFBD>ѽ<EFBFBD><EFBFBD><EFBFBD>,
sum(t1.paytotal) as ֧<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(t1.flxftotal) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѽ<EFBFBD><EFBFBD><EFBFBD>,sum(t1.fltotal) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
sum(t1.xfjftotal) as <EFBFBD><EFBFBD><EFBFBD>ѻ<EFBFBD><EFBFBD>ֶ<EFBFBD><EFBFBD><EFBFBD>,sum(t1.fljftotal) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><EFBFBD><EFBFBD>,t2.orgcode as <EFBFBD><EFBFBD><EFBFBD>ۻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t2.sxdate as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from ##tmpvipyjdata t1 left join '+@pvipdbname+'..t_vip t2 on t1.vipcode = t2.vipcode group by t1.vipcode,t1.vipname,isnull(t1.mobile1,''''),isnull(t1.mobile2,''''),t2.orgcode,t2.sxdate )a where 1=1 '
if @ptotal <> 0
if @pispre = '1'
set @ssql = @ssql+ 'and <20><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD> >= '+convert(varchar(10),@ptotal)
else
set @ssql = @ssql+ 'and <20><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD> <= '+convert(varchar(10),@ptotal)
if @pqrysql <> ''
set @ssql = @ssql + 'and '+@pqrysql
set @ssql = @ssql +
' order by <20><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD> desc,<2C><>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD> asc '
exec (@ssql)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_show_vip_xfmx]') and objectproperty(id, N'isprocedure') = 1)
drop procedure [dbo].[p_show_vip_xfmx]
go
create procedure p_show_vip_xfmx
@pvipdbname varchar(20),
@pbgndate varchar(10),
@penddate varchar(10),
@ptimesop varchar(2),
@ptimes int,
@ptotalop varchar(2),
@ptotal numeric(19,4),
@pqrysql varchar(8000),
@porgcode varchar(10),
@pclscode varchar(10),
@pdepcode varchar(10),
@pvipcode varchar(20),
@pishz varchar(1)
as
declare @ssql varchar(8000)
declare @stmpdate varchar(10)
declare @stmpenddate varchar(10)
declare @stotaltable varchar(20)
declare @sitemtable varchar(20)
begin
if exists(select name from tempdb..sysobjects where name='##tmpvipxfdata' and xtype='u')
drop table ##tmpvipxfdata
create table ##tmpvipxfdata
(posno varchar(6) not null,sdate varchar(10) not null,stime varchar(8) not null,serialno varchar(50) not null,trantype varchar(1) not null,orgcode varchar(10) not null,
orgname varchar(30) null,vipcode varchar(20) not null,vipname varchar(20) null,mobile1 varchar(20) null,mobile2 varchar(20) null,
plucode varchar(20) not null,pluname varchar(40) null,spec varchar(40) null,clscode varchar(10) null,clsname varchar(20) null,
depcode varchar(10) not null, depname varchar(20) null,brandcode varchar(10) null,brandname varchar(20) null,pluprice numeric(19,4) ,
pluqty numeric(19,4),plutotal numeric(19,4),pludsc numeric(19,4), sxorgcode varchar(10),sxdate varchar(10),jftotal numeric(19,4),
regclkcode varchar(6),regclkname varchar(10),regorgcode varchar(10),regorgname varchar(30))
set @stmpdate = convert(varchar(10), dateadd(month,-1,@pbgndate), 120)
set @stmpenddate = convert(varchar(10), dateadd(month,1,@penddate), 120)
while (substring(@stmpdate,1,4)+substring(@stmpdate,6,2))<=(substring(@stmpenddate,1,4)+substring(@stmpenddate,6,2))
begin
set @stotaltable = 't_flow_total_'+substring(@stmpdate,1,4)+substring(@stmpdate,6,2)
set @sitemtable = 't_flow_item_' +substring(@stmpdate,1,4)+substring(@stmpdate,6,2)
set @ssql='if exists(select name from sysobjects where name='''+@stotaltable+''' and xtype=''u'')
insert into ##tmpvipxfdata(posno,sdate,stime,serialno,trantype,orgcode,orgname,vipcode,vipname,mobile1,mobile2,plucode,pluname,spec,clscode,clsname,depcode,depname,
brandcode,brandname,pluprice,pluqty,plutotal,pludsc,sxorgcode,sxdate,jftotal,regclkcode,regclkname,regorgcode,regorgname)
select t.posno,t.sdate,t.stime,t.serialno,t.trantype,t.orgcode,sub.orgname,t.custcode,v.vipname,isnull(mobile1,'''') mobile1,isnull(mobile2,'''') mobile2,
s.plucode,g.pluname,g.spec,s.clscode,c.clsname,s.depcode,d.depname,g.brandcode ,b.brandname,s.pluprice,s.pluqty,
s.plutotal,s.pludsc,v.orgcode as sxorgcode,v.sxdate,isnull(jf.jftotal,0) as jftotal,v.regclkcode,v.regclkname,v.regorgcode,v.regorgname
from '+@stotaltable+' t join '+@sitemtable+' s
on t.serialno=s.serialno and t.posno=s.posno and t.orgcode=s.orgcode and t.sdate=s.sdate and t.stime = s.stime and t.trantype=s.trantype
and t.custflag=''2'' and isnull(t.custcode,'''') <> '''' and t.sdate between '''+@pbgndate+''' and '''+ @penddate+'''
join '+@pvipdbname+'..t_vip v on t.custcode=v.vipcode
join t_plu g on s.plucode=g.plucode
left join t_gclass c on s.clscode=c.clscode
left join t_dept d on s.depcode=d.depcode
left join t_brand b on g.brandcode =b.brandcode
left join t_shop sub on s.orgcode=sub.orgcode
left join '+@pvipdbname+'..t_vippt_item_flow jf
on s.serialno=jf.serialno and s.posno=jf.posno and s.orgcode=jf.orgcode and s.sdate=jf.sdate and s.stime = jf.stime and s.trantype=jf.trantype and t.custcode=jf.vipcode
and s.plucode = jf.plucode and cast(s.pageno as int) = cast(jf.pageno as int) and cast(s.itemno as int) = cast(jf.itemno as int)
where 1=1 and t.trantype in (''b'',''d'',''f'',''h'') '
if @porgcode <> '<ȫ<><C8AB>>'
set @ssql = @ssql + ' and t.orgcode='''+@porgcode+''''
if @pclscode <> '000000'
set @ssql = @ssql + ' and c.clscode in (select clscode from t_gclass where clscode='+@pclscode+' or uppercode1='+@pclscode+' or uppercode2='+@pclscode+' or uppercode3='+@pclscode+' or uppercode4='+@pclscode+' or uppercode5='+@pclscode+') '
if @pdepcode <> '000000'
set @ssql = @ssql + ' and d.depcode in (select depcode from t_dept where depcode ='+@pdepcode+' or uppercode1='+@pdepcode+' or uppercode2='+@pdepcode+' or uppercode3='+@pdepcode+' or uppercode4='+@pdepcode+') '
if @pvipcode <> ''
set @ssql = @ssql + ' and t.custcode='''+@pvipcode+''''
exec (@ssql)
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
end
if @pishz <> '1'
begin
set @ssql=' select * from (
select orgcode,orgname,vipcode ,vipname ,sdate ,mobile1 , mobile2 ,
plucode ,pluname ,spec ,clscode,clsname,depcode ,depname ,
brandcode ,brandname ,pluprice ,pluqty,plutotal,pludsc ,jftotal,regclkcode,regclkname,regorgcode,regorgname
from ##tmpvipxfdata where 1=1 '
if @ptimes <> 0
begin
set @ssql = @ssql +
' and vipcode in
(select vipcode from
(select vipcode from ##tmpvipxfdata
where trantype=''b''
group by posno,sdate,stime,serialno,trantype,orgcode,vipcode) a
group by vipcode
having count(1) '+@ptimesop+convert(varchar(10),@ptimes)+')'
end
if @ptotal <> 0
begin
set @ssql = @ssql +
' and vipcode in
(select vipcode from ##tmpvipxfdata
group by vipcode
having sum(isnull(plutotal,0)) '+@ptotalop+convert(varchar(10),@ptotal)+')'
end
set @ssql = @ssql + ') a where 1=1 '
if @pqrysql <> ''
set @ssql = @ssql + 'and '+@pqrysql
set @ssql = @ssql +
' order by vipcode,orgcode'
exec (@ssql)
end
else
begin
set @ssql='select * from (
select times.vipcode,vipname,mobile1,mobile2,times,total,jftotal,sxorgcode,sxdate,regclkcode,regclkname,regorgcode,regorgname
from
(select vipcode,vipname,mobile1,mobile2,count(1) times,sxorgcode,sxdate,regclkcode,regclkname,regorgcode,regorgname from
(select vipcode,vipname,mobile1,mobile2,sxorgcode,sxdate,regclkcode,regclkname,regorgcode,regorgname from ##tmpvipxfdata
where trantype=''b''
group by posno,sdate,stime,serialno,trantype,orgcode,vipcode,vipname,mobile1,mobile2,sxorgcode,sxdate,regclkcode,regclkname,regorgcode,regorgname) a
group by vipcode,vipname,mobile1,mobile2,sxorgcode,sxdate,regclkcode,regclkname,regorgcode,regorgname '
if @ptimes <> 0
begin
set @ssql=@ssql+' having count(1) '+@ptimesop+convert(varchar(10),@ptimes)+') times'
end
else
begin
set @ssql=@ssql+' ) times'
end
set @ssql=@ssql+' join
(select vipcode,sum(isnull(plutotal,0)) total,sum(isnull(jftotal,0)) as jftotal from ##tmpvipxfdata
group by vipcode'
if @ptotal <> 0
begin
set @ssql=@ssql+' having sum(isnull(plutotal,0)) '+@ptotalop+convert(varchar(10),@ptotal)+') total'
end
else
begin
set @ssql=@ssql+') total'
end
set @ssql=@ssql+' on times.vipcode=total.vipcode ) a where 1=1 '
if @pqrysql <> ''
set @ssql = @ssql + 'and '+@pqrysql
set @ssql = @ssql +
' order by vipcode '
exec (@ssql)
end
end
go
if exists (select * from sysobjects where name='p_bulid_item_tend' and xtype='p')
drop procedure p_bulid_item_tend
go
create procedure p_bulid_item_tend
@stablename varchar(20),
@soutmessage varchar(100) out
as
declare @sdate varchar(10)
declare @ssql varchar(8000)
begin
select @sdate=convert(varchar(10),getdate(),20)
if not exists(select * from sysobjects where name=@stablename and xtype='u')
begin
set @ssql='
create table '+@stablename+'
(orgcode varchar(10) not null,
posno varchar(6) not null,
sdate varchar(10) not null,
stime varchar(8) not null,
serialno varchar(50) not null,
trantype varchar(1) not null,
pageno varchar(2) not null,
itemno varchar(5) not null,
accdate varchar(10) not null,
plucode varchar(20) not null,
barcode varchar(20) null,
pluname varchar(40) null,
depcode varchar(10) null,
depname varchar(16) null,
clscode varchar(10) null,
clsname varchar(20) null,
supcode varchar(15) null,
supname varchar(100) null,
brandcode varchar(10) null,
brandname varchar(20) null,
pludsctype varchar(1) null,
pluqty numeric(19,4) null default 0,
plutotal numeric(19,4) null default 0,
zf0 numeric(19,4) null default 0,
zf1 numeric(19,4) null default 0,
zf2 numeric(19,4) null default 0,
zf3 numeric(19,4) null default 0,
zf4 numeric(19,4) null default 0,
zf5 numeric(19,4) null default 0,
zf6 numeric(19,4) null default 0,
zf7 numeric(19,4) null default 0,
zf8 numeric(19,4) null default 0,
zf9 numeric(19,4) null default 0,
zf10 numeric(19,4) null default 0,
zf11 numeric(19,4) null default 0,
zf12 numeric(19,4) null default 0,
zf13 numeric(19,4) null default 0,
zfd numeric(19,4) null default 0,
zfe numeric(19,4) null default 0,
zff numeric(19,4) null default 0,
zfj numeric(19,4) null default 0,
zfm numeric(19,4) null default 0,
zfq numeric(19,4) null default 0,
zft numeric(19,4) null default 0,
zfu numeric(19,4) null default 0,
zfv numeric(19,4) null default 0,
zfw numeric(19,4) null default 0,
zfx numeric(19,4) null default 0,
zfy numeric(19,4) null default 0,
zfz numeric(19,4) null default 0,
remark varchar(200) null,
constraint [pk_'+@stablename+'] primary key nonclustered
(orgcode,posno,sdate,stime,serialno,trantype,pageno,itemno,accdate))'
exec(@ssql)
if @@error <> 0
begin
set @soutmessage = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ' + @stablename + ' ʧ<><CAA7>'
return 0
end
else
return 1
end
end
go
if exists (select * from sysobjects where name='p_tend_rpt' and xtype='p')
drop procedure p_tend_rpt
go
create procedure p_tend_rpt
@saccdate varchar(10)
as
declare @sdate varchar(10)
declare @stablename varchar(20)
declare @ssql varchar(8000)
declare @createtendrpt varchar(1)
declare @soutmsg varchar(100)
begin
select @createtendrpt = isnull(itemvalue,'') from t_syscfg where section = 'system' and itemname = 'createtendrpt'
if @createtendrpt <> '1'
begin
return (1)
end
select @sdate=@saccdate
set @stablename='t_itemtend_'+substring(@sdate,1,4)+substring(@sdate,6,2)
exec p_bulid_item_tend @stablename ,@soutmsg out
if @@error <> 0 goto lbl_fail
if exists(select name from sysobjects where name='tmplspay' and xtype='u')
drop table tmplspay
create table tmplspay
(posno varchar(6) not null,
orgcode varchar(10) not null,
sdate varchar(10) not null,
stime varchar(8) not null,
serialno varchar(50) not null,
accdate varchar(10) not null,
trantype varchar(1) not null,
paytotal numeric (19,4) null default 0,
zf0 numeric(19,4) null default 0,
zf1 numeric(19,4) null default 0,
zf2 numeric(19,4) null default 0,
zf3 numeric(19,4) null default 0,
zf4 numeric(19,4) null default 0,
zf5 numeric(19,4) null default 0,
zf6 numeric(19,4) null default 0,
zf7 numeric(19,4) null default 0,
zf8 numeric(19,4) null default 0,
zf9 numeric(19,4) null default 0,
zfy numeric(19,4) null default 0,
zfx numeric(19,4) null default 0,
zfz numeric(19,4) null default 0,
zfw numeric(19,4) null default 0,
zfd numeric(19,4) null default 0,
zfq numeric(19,4) null default 0,
zfv numeric(19,4) null default 0,
zfu numeric(19,4) null default 0,
zfe numeric(19,4) null default 0,
zfj numeric(19,4) null default 0,
zft numeric(19,4) null default 0,
zff numeric(19,4) null default 0,
zfm numeric(19,4) null default 0,
zf10 numeric(19,4) null default 0,
zf11 numeric(19,4) null default 0,
zf12 numeric(19,4) null default 0,
zf13 numeric(19,4) null default 0,
constraint [pk_tmplspay] primary key nonclustered
(posno,orgcode,sdate,stime,serialno,trantype,accdate))
if @@error <> 0 goto lbl_fail
insert into tmplspay (posno,orgcode,sdate,stime,serialno,accdate,trantype,zf0,zf1,zf2,zf3,zf4,zf5,zf6,zf7,zf8,zf9,zfy,zfx,zfw,zfd,zfq,zfz,zfv,zfu,zfe,zfj,zft,zff,zfm,zf10,zf11,zf12,zf13)
select posno,orgcode,sdate,stime,serialno,accdate,trantype,sum(zf0),sum(zf1),sum(zf2),sum(zf3),sum(zf4),sum(zf5),sum(zf6),sum(zf7),sum(zf8),sum(zf9),sum(zfy),
sum(zfx),sum(zfw),sum(zfd),sum(zfq),sum(zfz),sum(zfv),sum(zfu),sum(zfe),sum(zfj),sum(zft),sum(zff),sum(zfm),sum(zf10),sum(zf11),sum(zf12),sum(zf13) from
(select posno,orgcode,sdate,stime,serialno,accdate,trantype,
case p.payflag when '0' then p.amount else 0 end as zf0,
case p.payflag when '1' then p.amount else 0 end as zf1,
case p.payflag when '2' then p.amount else 0 end as zf2,
case p.payflag when '3' then p.amount else 0 end as zf3,
case p.payflag when '4' then p.amount else 0 end as zf4,
case p.payflag when '5' then p.amount else 0 end as zf5,
case p.payflag when '6' then p.amount else 0 end as zf6,
case p.payflag when '7' then p.amount else 0 end as zf7,
case p.payflag when '8' then p.amount else 0 end as zf8,
case p.payflag when '9' then p.amount else 0 end as zf9,
case p.payflag when 'y' then p.amount else 0 end as zfy,
case p.payflag when 'x' then p.amount else 0 end as zfx,
case p.payflag when 'w' then p.amount else 0 end as zfw,
case p.payflag when ':' then p.amount else 0 end as zfd,
case p.payflag when '=' then p.amount else 0 end as zfq,
case p.payflag when 'z' then p.amount else 0 end as zfz,
case p.payflag when 'v' then p.amount else 0 end as zfv,
case p.payflag when 'u' then p.amount else 0 end as zfu,
case p.payflag when '<' then p.amount else 0 end as zfe,
case p.payflag when '?' then p.amount else 0 end as zfj,
case p.payflag when 't' then p.amount else 0 end as zft,
case p.payflag when 'f' then p.amount else 0 end as zff,
case p.payflag when 'm' then p.amount else 0 end as zfm,
case p.payflag when 'a' then p.amount else 0 end as zf10,
case p.payflag when 'b' then p.amount else 0 end as zf11,
case p.payflag when 'c' then p.amount else 0 end as zf12,
case p.payflag when 'd' then p.amount else 0 end as zf13
from t_flow_endpay p where p.tag = '1' and trantype <> ':' and trantype <> '=' ) a
group by posno,orgcode,sdate,stime,serialno,accdate,trantype
if @@error <> 0 goto lbl_fail
update tmplspay set paytotal = zf0 + zf1 + zf2 + zf3 + zf4 + zf5 + zf6 + zf7 + zf8 + zf9 + zfy + zfx + zfz + zfw + zfd + zfq + zfv + zfu + zfe + zfj + zft + zff + zfm +zf10 + zf11 + zf12 + zf13
if @@error <> 0 goto lbl_fail
if exists(select name from sysobjects where name='tmplsitem' and xtype='u')
drop table tmplsitem
create table tmplsitem
(posno varchar(6) not null,
orgcode varchar(10) not null,
sdate varchar(10) not null,
stime varchar(8) not null,
serialno varchar(50) not null,
pageno varchar(2) not null,
itemno varchar(5) not null,
accdate varchar(10) not null,
trantype varchar(1) not null,
plucode varchar(20) not null,
pluname varchar(40) null,
barcode varchar(20) null,
pludsctype varchar(1) null,
pluqty numeric(19,4) null default 0,
plutotal numeric(19,4) null default 0,
zf0 numeric(19,4) null default 0,
zf1 numeric(19,4) null default 0,
zf2 numeric(19,4) null default 0,
zf3 numeric(19,4) null default 0,
zf4 numeric(19,4) null default 0,
zf5 numeric(19,4) null default 0,
zf6 numeric(19,4) null default 0,
zf7 numeric(19,4) null default 0,
zf8 numeric(19,4) null default 0,
zf9 numeric(19,4) null default 0,
zfy numeric(19,4) null default 0,
zfx numeric(19,4) null default 0,
zfz numeric(19,4) null default 0,
zfw numeric(19,4) null default 0,
zfd numeric(19,4) null default 0,
zfq numeric(19,4) null default 0,
zfv numeric(19,4) null default 0,
zfu numeric(19,4) null default 0,
zfe numeric(19,4) null default 0,
zfj numeric(19,4) null default 0,
zft numeric(19,4) null default 0,
zff numeric(19,4) null default 0,
zfm numeric(19,4) null default 0,
zf10 numeric(19,4) null default 0,
zf11 numeric(19,4) null default 0,
zf12 numeric(19,4) null default 0,
zf13 numeric(19,4) null default 0,
orderno int identity(1,1) not null,
constraint [pk_tmplsitem] primary key nonclustered
(posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,accdate))
if @@error <> 0 goto lbl_fail
insert into tmplsitem (posno,orgcode,sdate,stime,serialno,pageno,itemno,accdate,trantype,plucode,barcode,pluname,pludsctype,pluqty,plutotal)
select posno,orgcode,sdate,stime,serialno,pageno,itemno,accdate,trantype,plucode,barcode,pluname,pludsctype,pluqty,plutotal
from t_flow_enditem i where i.tag = '1' and trantype <> '=' and trantype <> ':' order by posno,orgcode,sdate,stime,serialno,trantype,accdate,plutotal desc
if @@error <> 0 goto lbl_fail
update i set
zf0 = round(p.zf0 * (i.plutotal / p.paytotal), 2),
zf1 = round(p.zf1 * (i.plutotal / p.paytotal), 2),
zf2 = round(p.zf2 * (i.plutotal / p.paytotal), 2),
zf3 = round(p.zf3 * (i.plutotal / p.paytotal), 2),
zf4 = round(p.zf4 * (i.plutotal / p.paytotal), 2),
zf5 = round(p.zf5 * (i.plutotal / p.paytotal), 2),
zf6 = round(p.zf6 * (i.plutotal / p.paytotal), 2),
zf7 = round(p.zf7 * (i.plutotal / p.paytotal), 2),
zf8 = round(p.zf8 * (i.plutotal / p.paytotal), 2),
zf9 = round(p.zf9 * (i.plutotal / p.paytotal), 2),
zfy = round(p.zfy * (i.plutotal / p.paytotal), 2),
zfx = round(p.zfx * (i.plutotal / p.paytotal), 2),
zfw = round(p.zfw * (i.plutotal / p.paytotal), 2),
zfz = round(p.zfz * (i.plutotal / p.paytotal), 2),
zfd = round(p.zfd * (i.plutotal / p.paytotal), 2),
zfq = round(p.zfq * (i.plutotal / p.paytotal), 2),
zfv = round(p.zfv * (i.plutotal / p.paytotal), 2),
zfu = round(p.zfu * (i.plutotal / p.paytotal), 2),
zfe = round(p.zfe * (i.plutotal / p.paytotal), 2),
zfj = round(p.zfj * (i.plutotal / p.paytotal), 2),
zft = round(p.zft * (i.plutotal / p.paytotal), 2),
zff = round(p.zff * (i.plutotal / p.paytotal), 2),
zfm = round(p.zfm * (i.plutotal / p.paytotal), 2),
zf10 = round(p.zf10 * (i.plutotal / p.paytotal), 2),
zf11 = round(p.zf11 * (i.plutotal / p.paytotal), 2),
zf12 = round(p.zf12 * (i.plutotal / p.paytotal), 2),
zf13 = round(p.zf13 * (i.plutotal / p.paytotal), 2)
from tmplsitem i,tmplspay p
where i.posno = p.posno and i.orgcode = p.orgcode and i.sdate = p.sdate and i.stime = p.stime
and i.serialno = p.serialno and i.accdate = p.accdate and i.trantype = p.trantype
and p.paytotal <> 0
if @@error <> 0 goto lbl_fail
if exists(select name from sysobjects where name='maxplu' and xtype='u')
drop table maxplu
create table maxplu
(posno varchar(6) not null,
orgcode varchar(10) not null,
sdate varchar(10) not null,
stime varchar(8) not null,
serialno varchar(50) not null,
accdate varchar(10) not null,
trantype varchar(1) not null,
orderno varchar(8) not null,
constraint [pk_maxplu] primary key nonclustered
(posno,orgcode,sdate,stime,serialno,trantype,accdate))
if @@error <> 0 goto lbl_fail
insert maxplu(posno,orgcode,sdate,stime,serialno,accdate,trantype,orderno) select posno,orgcode,sdate,stime,serialno,accdate,trantype,min(orderno) orderno
from tmplsitem group by posno,orgcode,sdate,stime,serialno,accdate,trantype
if exists(select name from sysobjects where name='tmplsitemmaxplu' and xtype='u')
drop table tmplsitemmaxplu
create table tmplsitemmaxplu
(posno varchar(6) not null,
orgcode varchar(10) not null,
sdate varchar(10) not null,
stime varchar(8) not null,
serialno varchar(50) not null,
pageno varchar(2) not null,
itemno varchar(5) not null,
accdate varchar(10) not null,
trantype varchar(1) not null,
plucode varchar(20) not null,
pluname varchar(40) null,
barcode varchar(20) null,
pludsctype varchar(1) null,
pluqty numeric(19,4) null default 0,
plutotal numeric(19,4) null default 0,
zf0 numeric(19,4) null default 0,
zf1 numeric(19,4) null default 0,
zf2 numeric(19,4) null default 0,
zf3 numeric(19,4) null default 0,
zf4 numeric(19,4) null default 0,
zf5 numeric(19,4) null default 0,
zf6 numeric(19,4) null default 0,
zf7 numeric(19,4) null default 0,
zf8 numeric(19,4) null default 0,
zf9 numeric(19,4) null default 0,
zfy numeric(19,4) null default 0,
zfx numeric(19,4) null default 0,
zfz numeric(19,4) null default 0,
zfw numeric(19,4) null default 0,
zfd numeric(19,4) null default 0,
zfq numeric(19,4) null default 0,
zfv numeric(19,4) null default 0,
zfu numeric(19,4) null default 0,
zfe numeric(19,4) null default 0,
zfj numeric(19,4) null default 0,
zft numeric(19,4) null default 0,
zff numeric(19,4) null default 0,
zfm numeric(19,4) null default 0,
zf10 numeric(19,4) null default 0,
zf11 numeric(19,4) null default 0,
zf12 numeric(19,4) null default 0,
zf13 numeric(19,4) null default 0,
orderno varchar(8) not null,
constraint [pk_tmplsitemmaxplu] primary key nonclustered
(posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,accdate))
if @@error <> 0 goto lbl_fail
insert tmplsitemmaxplu(posno,orgcode,sdate,stime,serialno,pageno,itemno, accdate,trantype,plucode,pluname,barcode,pludsctype,pluqty,plutotal,zf0,zf1,zf2,zf3,zf4,zf5,zf6,zf7,zf8,zf9,zfy,zfx,zfz,zfw,zfd,zfq ,zfv,zfu,zfe,zfj,zft,zff,zfm,zf10,zf11,zf12,zf13,orderno)
select t_flow_item.posno,t_flow_item.orgcode,t_flow_item.sdate,t_flow_item.stime,t_flow_item.serialno,pageno,itemno,t_flow_item. accdate,t_flow_item.trantype,plucode,pluname,barcode,pludsctype,pluqty,plutotal,zf0,zf1,zf2,zf3,zf4,zf5,zf6,zf7,zf8,zf9,zfy,zfx,zfz,zfw,zfd,zfq ,zfv,zfu,zfe,zfj,zft,zff,zfm,zf10,zf11,zf12,zf13,t_flow_item.orderno from tmplsitem t_flow_item, maxplu
where t_flow_item.posno = maxplu.posno and t_flow_item.orgcode = maxplu.orgcode and t_flow_item.sdate = maxplu.sdate and t_flow_item.stime = maxplu.stime and t_flow_item.serialno = maxplu.serialno and t_flow_item.accdate = maxplu.accdate and t_flow_item.trantype = maxplu.trantype and t_flow_item.orderno = maxplu.orderno
update tmplsitemmaxplu set
zf0 = zf0 + diff.diff0,zf1 = zf1 + diff.diff1, zf2 = zf2 + diff.diff2,
zf3 = zf3 + diff.diff3,zf4 = zf4 + diff.diff4, zf5 = zf5 + diff.diff5,
zf6 = zf6 + diff.diff6,zf7 = zf7 + diff.diff7, zf8 = zf8 + diff.diff8,
zf9 = zf9 + diff.diff9,zfy = zfy + diff.diffy, zfx = zfx + diff.diffx,
zfz = zfz + diff.diffz,zfw = zfw + diff.diffw, zfd = zfd + diff.diffd,
zfq = zfq + diff.diffq,zfv = zfv + diff.diffv, zfu = zfu + diff.diffu,
zfe = zfe + diff.diffe,zfj = zfj + diff.diffj, zft = zft + diff.difft, zff = zff + diff.difff,zfm = zfm + diff.diffm,
zf10 = zf10 + diff.diff10, zf11 = zf11 + diff.diff11, zf12 = zf12 + diff.diff12, zf13 = zf13 + diff.diff13
from
(select p.posno,p.orgcode,p.sdate,p.stime,p.serialno,p.accdate,p.trantype,
p.zf0 - i.zf0 as diff0, p.zf1 - i.zf1 as diff1, p.zf2 - i.zf2 as diff2,
p.zf3 - i.zf3 as diff3, p.zf4 - i.zf4 as diff4, p.zf5 - i.zf5 as diff5,
p.zf6 - i.zf6 as diff6, p.zf7 - i.zf7 as diff7, p.zf8 - i.zf8 as diff8,
p.zf9 - i.zf9 as diff9, p.zfy - i.zfy as diffy, p.zfx - i.zfx as diffx,
p.zfz - i.zfz as diffz, p.zfw - i.zfw as diffw, p.zfd - i.zfd as diffd,
p.zfq - i.zfq as diffq, p.zfv - i.zfv as diffv, p.zfu - i.zfu as diffu,
p.zfe - i.zfe as diffe, p.zfj - i.zfj as diffj, p.zft - i.zft as difft, p.zff - i.zff as difff,p.zfm - i.zfm as diffm,
p.zf10 - i.zf10 as diff10, p.zf11 - i.zf11 as diff11, p.zf12 - i.zf12 as diff12,p.zf13 - i.zf13 as diff13
from
(select posno,orgcode,sdate,stime,serialno,accdate,trantype,
sum(zf0) zf0,sum(zf1) zf1,sum(zf2) zf2,sum(zf3) zf3,sum(zf4) zf4,sum(zf5) zf5,sum(zf6) zf6,
sum(zf7) zf7,sum(zf8) zf8,sum(zf9) zf9,sum(zfy) zfy,sum(zfx) zfx,sum(zfz) zfz ,sum(zfw) zfw,
sum(zfd) zfd,sum(zfq) zfq,sum(zfv) zfv,sum(zfu) zfu,sum(zfe) zfe,sum(zfj) zfj,sum(zft) zft, sum(zff) zff,sum(zfm) zfm,
sum(zf10) zf10,sum(zf11) zf11,sum(zf12) zf12,sum(zf13) zf13
from tmplsitem group by posno,orgcode,sdate,stime,serialno,accdate,trantype) i,
tmplspay p where i.posno = p.posno and i.orgcode = p.orgcode and i.sdate = p.sdate and i.stime = p.stime
and i.serialno = p.serialno and i.accdate = p.accdate and i.trantype =p.trantype) diff,
tmplsitemmaxplu
where tmplsitemmaxplu.posno = diff.posno
and tmplsitemmaxplu.orgcode = diff.orgcode
and tmplsitemmaxplu.sdate = diff.sdate
and tmplsitemmaxplu.stime = diff.stime
and tmplsitemmaxplu.serialno = diff.serialno
and tmplsitemmaxplu.accdate = diff.accdate
and tmplsitemmaxplu.trantype = diff.trantype
if @@error <> 0 goto lbl_fail
set @ssql='
insert into '+@stablename+'(posno,orgcode,sdate,stime,serialno,pageno,itemno,plucode,accdate,trantype,pluname,barcode,clscode,clsname,depcode,depname,brandcode,
brandname,supcode ,supname,pludsctype,pluqty,plutotal,
zf0,zf1,zf2,zf3,zf4,zf5,zf6,zf7,zf8,zf9,zfy,zfx,zfz,zfw,zfd,zfq,zfv,zfu,zfe,zfj,zft,zff,zfm,zf10,zf11,zf12,zf13)
select distinct i.posno,i.orgcode,i.sdate,i.stime,i.serialno,i.pageno,i.itemno,i.plucode,i.accdate,i.trantype,i.pluname,i.barcode,
gds.clscode,gds.clsname,gds.depcode,gds.depname,gds.brandcode,
gds.brandname,gds.supcode ,gds.supname,i.pludsctype,i.pluqty,i.plutotal,
i.zf0,i.zf1,i.zf2,i.zf3,i.zf4,i.zf5,i.zf6,i.zf7,i.zf8,i.zf9,i.zfy,i.zfx,i.zfz,i.zfw,i.zfd,i.zfq,i.zfv,i.zfu,i.zfe,i.zfj,i.zft,i.zff,i.zfm,i.zf10,i.zf11,i.zf12,i.zf13
from tmplsitem i
left join
(select g.plucode,g.pluname,g.depcode,d.depname,g.clscode,c.clsname,g.brandcode,b.brandname,g.supcode,v.supname
from t_plu g
left join t_dept d on g.depcode=d.depcode
left join t_gclass c on g.clscode=c.clscode
left join t_brand b on g.brandcode=b.brandcode
left join t_supplier v on g.supcode=v.supcode) gds on i.plucode=gds.plucode
where not exists(select posno from '+@stablename+'
where posno=i.posno and orgcode=i.orgcode and sdate=i.sdate and stime=i.stime and serialno=i.serialno
and pageno=i.pageno and itemno=i.itemno and trantype=i.trantype and accdate=i.accdate)'
exec(@ssql)
if @@error <> 0 goto lbl_fail
if exists(select name from sysobjects where name='tmplspay' and xtype='u')
drop table tmplspay
if exists(select name from sysobjects where name='tmplsitem' and xtype='u')
drop table tmplsitem
if exists(select name from sysobjects where name='tmplsitemmaxplu' and xtype='u')
drop table tmplsitemmaxplu
if exists(select name from sysobjects where name='maxplu' and xtype='u')
drop table maxplu
return 1
lbl_fail:
return 0
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_qry_by4') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_vip_qry_by4
go
create procedure p_vip_qry_by4
@vs_bgndate varchar(10),
@vs_enddate varchar(10),
@vipdbname varchar(20),
@viptype varchar(2000),
@vf_contotal numeric(19,2),
@vi_contimes numeric(19,0),
@vs_qry varchar(200),
@vs_orderby varchar(100),
@vs_edition varchar(10)
as
declare
@vs_nowdate varchar(10),
@stmpdate varchar(10),
@vs_where varchar(2000),
@vs_qrysql varchar(8000),
@i integer,
@vs_vipcode varchar(20),
@vs_clsid varchar(20),
@vs_clsname varchar(40)
begin
set @vs_nowdate = convert(char(10),getdate(),120)
set @vs_where=' 1=1 '
if @vs_bgndate > @vs_enddate
begin
raiserror('<EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>С<EFBFBD>ڵ<EFBFBD><EFBFBD>ڽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>鿴',16,1)
end;
if @vs_bgndate<>''
set @vs_where = @vs_where + ' and e.sdate>=''' + @vs_bgndate + ''''
if @vs_enddate<>''
set @vs_where = @vs_where + ' and e.sdate<=''' + @vs_enddate + ''''
create table #trptcon_tmp
(vipcode varchar(20) null,
contotal numeric(19,2) default(0),
trantimes numeric(19,0) default(0))
create table #trptconplu_tmp
(vipcode varchar(20) null,
plucode varchar(20) null)
set @stmpdate=@vs_bgndate
while left(@stmpdate,7)<=left(@vs_enddate,7)
begin
if exists(select name from sysobjects where name='t_flow_total_'+left(@stmpdate,4)+substring(@stmpdate,6,2) and xtype='u')
begin
set @vs_qrysql='insert into #trptcon_tmp(vipcode,contotal,trantimes)
select custcode,isnull(sum(total),0),isnull(count(orgcode),0)
from t_flow_total_' + substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+ ' e
where ' + @vs_where +' and (custcode<>'''' and custcode is not null) group by custcode'
exec(@vs_qrysql)
end
if exists(select name from sysobjects where name='t_flow_item_'+left(@stmpdate,4)+substring(@stmpdate,6,2) and xtype='u')
begin
set @vs_qrysql='insert into #trptconplu_tmp(vipcode,plucode)
select e.custcode,i.plucode
from t_flow_item_' + substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+ ' i,t_flow_total_'
+ substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+ ' e
where ' + @vs_where +
' and i.orgcode=e.orgcode and i.posno=e.posno and i.sdate=e.sdate and i.stime=e.stime and i.trantype=e.trantype '+
' and i.serialno=e.serialno and i.accdate=e.accdate'+
' and (e.custcode<>'''' and e.custcode is not null) group by e.custcode,i.plucode'
exec(@vs_qrysql)
end
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
end
create table #tvipconby4
(vipcode varchar(20) null,
vipname varchar(40) null,
tel varchar(20) null,
mobile1 varchar(20) null,
mobile2 varchar(20) null,
vipsex varchar(10) null,
contotal numeric(19,2) default (0),
trantimes numeric(19,0) default (0),
avgvipprice numeric(19,2) default (0),
viptype1 int default (0),
viptype2 int default (0),
viptype3 int default (0),
viptype4 int default (0),
firstclass varchar(40) null,
secondclass varchar(40) null
)
insert into #tvipconby4(vipcode,vipname,contotal,trantimes,avgvipprice,viptype1)
select vipcode,vipcode,sum(contotal),sum(trantimes),
case when sum(trantimes)=0 then 0 else sum(contotal)/sum(trantimes) end,1--'֪<EFBFBD><EFBFBD>'
from #trptcon_tmp
group by vipcode having sum(contotal)>=@vf_contotal and sum(trantimes)>=@vi_contimes
insert into #tvipconby4(vipcode,vipname,contotal,trantimes,avgvipprice,viptype2)
select vipcode,vipcode,sum(contotal),sum(trantimes),
case when sum(trantimes)=0 then 0 else sum(contotal)/sum(trantimes) end,1--'<EFBFBD>ٺ<EFBFBD>'
from #trptcon_tmp
group by vipcode having sum(contotal)<@vf_contotal and sum(trantimes)>=@vi_contimes
insert into #tvipconby4(vipcode,vipname,contotal,trantimes,avgvipprice,viptype3)
select vipcode,vipcode,sum(contotal),sum(trantimes),
case when sum(trantimes)=0 then 0 else sum(contotal)/sum(trantimes) end,1--'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
from #trptcon_tmp
group by vipcode having sum(contotal)>=@vf_contotal and sum(trantimes)<@vi_contimes
insert into #tvipconby4(vipcode,vipname,contotal,trantimes,avgvipprice,viptype4)
select vipcode,vipcode,sum(contotal),sum(trantimes),
case when sum(trantimes)=0 then 0 else sum(contotal)/sum(trantimes) end,1--'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
from #trptcon_tmp
group by vipcode having sum(contotal)<@vf_contotal and sum(trantimes)<@vi_contimes
set @vs_qrysql='update a set a.vipname=b.vipname,a.vipsex=b.vipsex,a.tel=b.tel,a.mobile1=b.mobile1,a.mobile2=b.mobile2
from #tvipconby4 a,'+@vipdbname+'.dbo.t_vip b with(nolock)
where a.vipcode=b.vipcode and (a.vipcode<>'''' and a.vipcode is not null)'
exec(@vs_qrysql)
if exists (select * from tempdb..sysobjects where name like '#vipclass%')
drop table #vipclass
create table #vipclass
(vipcode varchar(20),
clscode varchar(10),
clsname varchar(20),
clsidcount integer)
if @vs_edition = '3'
begin
insert into #vipclass(vipcode,clscode,clsname,clsidcount)
select vipcode,c.depcode as clscode,max(depname) as clsname,count(a.plucode) as clsidcount
from #trptconplu_tmp a,t_plu b,t_dept c
where a.plucode=b.plucode and b.depcode=c.depcode
group by vipcode,c.depcode,c.depname
end
else
begin
insert into #vipclass(vipcode,clscode,clsname,clsidcount)
select vipcode,c.brandcode as clscode,max(brandname) as clsname,count(a.plucode) as clsidcount
from #trptconplu_tmp a,t_plu b,t_brand c
where a.plucode=b.plucode and b.brandcode =c.brandcode
group by vipcode,c.brandcode,c.brandname
end
declare chcurtmp cursor for select vipcode from #tvipconby4
open chcurtmp
fetch chcurtmp into @vs_vipcode
while @@fetch_status>=0
begin
select top 1 @vs_clsid=case when isnull(clscode,'')='' then 'none' else clscode end,
@vs_clsname=case when isnull(clsname,'')='' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>' else clsname end
from #vipclass where vipcode=@vs_vipcode order by clsidcount desc
update #tvipconby4 set firstclass= rtrim(@vs_clsid)+'-'+rtrim(@vs_clsname) where vipcode=@vs_vipcode
select top 1 @vs_clsid=case when isnull(clscode,'')='' then 'none' else clscode end,
@vs_clsname=case when isnull(clsname,'')='' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>' else clsname end
from #vipclass where vipcode=@vs_vipcode and clscode<> @vs_clsid order by clsidcount desc
update #tvipconby4 set secondclass= rtrim(@vs_clsid)+'-'+rtrim(@vs_clsname) where vipcode=@vs_vipcode
fetch chcurtmp into @vs_vipcode
end
deallocate chcurtmp
set @vs_qrysql='select vipcode,vipname,tel,mobile1,mobile2,
vipsex=(case vipsex when ''0'' then ''<EFBFBD><EFBFBD>'' when ''1'' then ''Ů'' when ''2'' then ''δ֪'' else vipsex end),
contotal,trantimes,avgvipprice,viptype1,viptype2,viptype3,viptype4,firstclass,secondclass from #tvipconby4 where 1=1'
if @viptype <>''
set @vs_qrysql=@vs_qrysql+' and (1<>1 '+@viptype + ')'
if @vs_qry<>''
set @vs_qrysql=@vs_qrysql+' and '+@vs_qry
if @vs_orderby<>'' and @vs_orderby is not null
begin
set @vs_qrysql=@vs_qrysql+' order by '+@vs_orderby
end
else
begin
set @vs_qrysql=@vs_qrysql+' order by viptype4,viptype3,viptype2,viptype1'
end
exec(@vs_qrysql)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_vip_rfm_qry') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_vip_rfm_qry
go
create procedure p_vip_rfm_qry
@vs_vipdbname varchar(20),
@vs_cardtypecode varchar(4),
@vs_topnum varchar(10),
@vs_vipcode varchar(20),
@vs_qry varchar(200),
@vs_orderby varchar(100)
as
declare
@vs_sql varchar(8000),
@vs_where varchar(2000),
@vs_where1 varchar(2000),
@vs_nowdate varchar(10),
@vs_yearago varchar(10),
@vs_accbgndate varchar(10),
@vs_accenddate varchar(10),
@stmpdate varchar(10),
@vs_accyearandmonth varchar(6)
begin
set @vs_nowdate = convert(varchar(10),getdate(),120)
set @vs_yearago = convert(varchar(10),getdate()-365,120)
set @vs_sql = ''
set @vs_where = ' a.sdate>= ''' + @vs_yearago + ''' and a.sdate<=''' + @vs_nowdate + ''''
set @vs_where1=' 1=1 '
if @vs_vipcode<>'' and @vs_vipcode<>'%' and @vs_vipcode is not null
set @vs_where = @vs_where + ' and a.custcode=''' + @vs_vipcode+''''
create table #trptcon
(vipcode varchar(20) null,
vipname varchar(50) null,
tel varchar(20) null,
mobile1 varchar(20) null,
mobile2 varchar(20) null,
cardtypecode varchar(20) null,
cardtypename varchar(20) null,
trantimes numeric(19,0) not null default (0),
contotal numeric(19,2) not null default (0),
signdate datetime null,
lstcondate datetime null)
set @stmpdate=@vs_yearago
while left(@stmpdate,7)<=left(@vs_nowdate,7)
begin
if exists(select name from sysobjects where name='t_flow_total_'+left(@stmpdate,4)+substring(@stmpdate,6,2) and xtype='u')
begin
set @vs_sql='insert into #trptcon(vipcode,contotal,trantimes,lstcondate)
select custcode,isnull(sum(total),0),isnull(count(orgcode),0),max(sdate)
from t_flow_total_' + substring(@stmpdate,1,4)+substring(@stmpdate,6,2)+ ' a
where ' + @vs_where +' and (custcode<>'''' and custcode is not null)'
if @vs_cardtypecode<>'' and @vs_cardtypecode<>'%' and @vs_cardtypecode is not null
set @vs_sql=@vs_sql+ ' and custcode in (select b.vipcode from '+@vs_vipdbname+'..t_vip b where b.viptype='''+@vs_cardtypecode+''')'
set @vs_sql=@vs_sql+ ' group by custcode'
exec(@vs_sql)
end
set @stmpdate=convert(varchar(10),dateadd(month,1,@stmpdate),120)
end
create table #trptcon2
(vipcode varchar(20) null,
vipname varchar(50) null,
tel varchar(20) null,
mobile1 varchar(20) null,
mobile2 varchar(20) null,
cardtypecode varchar(20) null,
cardtypename varchar(20) null,
trantimes numeric(19, 0) not null default(0),
contotal numeric(19, 2) not null default(0),
signdate datetime null,
lstcondate datetime null)
insert into #trptcon2(vipcode, contotal, trantimes, lstcondate)
select vipcode, sum(contotal), sum(trantimes), max(lstcondate)
from #trptcon group by vipcode
set @vs_sql='update a set a.cardtypecode=b.viptype,a.vipname=b.vipname,a.signdate=b.signdate,
a.tel=b.tel,a.mobile1=b.mobile1,a.mobile2=b.mobile2
from #trptcon2 a,'+@vs_vipdbname+'..t_vip b with(nolock)
where a.vipcode=b.vipcode '
exec(@vs_sql)
set @vs_sql='update a set a.cardtypename=b.lxname
from #trptcon2 a,'+@vs_vipdbname+'..t_viptype b with(nolock)
where a.cardtypecode=b.lxcode '
exec(@vs_sql)
if @vs_topnum<>'' and @vs_topnum is not null
begin
set @vs_sql= 'select top ' + @vs_topnum
end
else
begin
set @vs_sql= 'select '
end
set @vs_sql=@vs_sql+' cc.vipcode,cc.vipname,cc.cardtypename,cc.tel,cc.mobile1,cc.mobile2,
round(case when sum(cc.trantimes)=0 then 0 else sum(cc.contotal)/sum(cc.trantimes) end,2) as conavg,
sum(cc.trantimes) as trantimes,sum(cc.contotal) as contotal,
cast(round(case when sum(cc.trantimes)=0 then 0
when datediff(day,max(cc.signdate),getdate())+1<365 then (datediff(day,max(cc.signdate),getdate())+1)/sum(cc.trantimes)
else 365/sum(cc.trantimes) end,0) as numeric(10,0)) as concyc,cc.lstcondate,
(case when cc.lstcondate is null then 365 else datediff(day,cc.lstcondate,getdate()) end) as stopdays,
cast(round(case when sum(cc.trantimes)=0 then 0
when datediff(day,max(cc.signdate),getdate())+1<365 then (datediff(day,max(cc.signdate),getdate())+1)/sum(cc.trantimes)
else 365/sum(cc.trantimes) end,0) as numeric(10,0))-(case when cc.lstcondate is null then 365 else datediff(day,cc.lstcondate,getdate()) end) as danger
from #trptcon2 cc
d where ' +@vs_where1
if @vs_qry<>''
set @vs_sql=@vs_sql+' and '+@vs_qry
set @vs_sql=@vs_sql+' group by cc.vipcode,cc.vipname,cc.cardtypename,cc.lstcondate,cc.tel,cc.mobile1,cc.mobile2'
if @vs_orderby<>'' and @vs_orderby is not null
begin
set @vs_sql=@vs_sql+' order by '+@vs_orderby
end
else
begin
set @vs_sql=@vs_sql+' order by stopdays desc,trantimes desc,contotal desc'
end
exec(@vs_sql)
end
go
if exists(select * from sysobjects where name = 'p_get_aplu_kystock' and xtype = 'p')
drop procedure p_get_aplu_kystock
go
create procedure p_get_aplu_kystock @psorgcode varchar(10),@psplucode varchar(20),@psplace varchar(1),@pskycount numeric(19,4) output,@pserrmsg varchar(1000) output,@pscolorcode varchar(10),@pssizecode varchar(10)
as
declare @splucode varchar(20)
declare @sorgcode varchar(10)
declare @scolorcode varchar(10)
declare @ssizecode varchar(10)
declare @smngstock varchar(1)
begin
set @splucode = @psplucode
set @sorgcode = @psorgcode
set @scolorcode = @pscolorcode
set @ssizecode = @pssizecode
select @smngstock = isnull(mngstock,'') from t_plu_org where plucode = @splucode and orgcode = @psorgcode
if @smngstock = '0'
begin
set @pskycount = 9999999999
set @pserrmsg = ''
return(1)
end
if @psplace = ''
begin
if (@scolorcode <>'') and (@ssizecode<>'')
begin
select @pskycount = isnull((oc.ccount+oc.gcount),0) - isnull(i.pluqty,0) -- -isnull(p.pfcount,0)
from t_plu_org o,t_plu_org_cs oc left join t_plu g on g.plucode =oc.plucode
left join (select orgcode,plucode,colorcode,sizecode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode,colorcode,sizecode) i on oc.plucode = i.plucode and i.orgcode = oc.orgcode and i.colorcode=oc.colorcode and i.sizecode=oc.sizecode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode and oc.plucode=o.plucode and oc.orgcode=o.orgcode and oc.colorcode = @scolorcode and oc.sizecode = @ssizecode
end
else
begin
select @pskycount = (o.ccount+o.gcount) - isnull(l.packpluqty,0) - isnull(i.pluqty,0) -- -isnull(p.pfcount,0)
from t_plu_org o left join t_plu g on g.plucode =o.plucode
left join (select i.orgcode,p.plucode,sum(i.pluqty*p.counts) packpluqty from t_plupack p,t_flow_item i where p.packcode = i.plucode group by p.plucode,i.orgcode ) l on o.plucode = l.plucode and l.orgcode = o.orgcode
left join (select i.orgcode,p.innercode,sum(i.pluqty*p.itemcnt) as mppluqty from t_flow_item i ,(select plucode ,innercode ,itemcnt from t_plu where plutype = '4' or iszfcode = '2') p where p.plucode = i.plucode group by p.innercode,i.orgcode ) mp
on o.plucode = mp.innercode and mp.orgcode = o.orgcode
left join (select orgcode,plucode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode) i on o.plucode = i.plucode and i.orgcode = o.orgcode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode
end
end
else if @psplace = '0'
begin
if (@scolorcode <>'') and (@ssizecode<>'')
begin
select @pskycount = isnull(oc.gcount,0) - isnull(i.pluqty,0) -- -isnull(p.pfcount,0)
from t_plu_org o,t_plu_org_cs oc left join t_plu g on g.plucode =oc.plucode
left join (select orgcode,plucode,colorcode,sizecode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode,colorcode,sizecode) i on oc.plucode = i.plucode and i.orgcode = oc.orgcode and i.colorcode=oc.colorcode and i.sizecode=oc.sizecode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode and oc.plucode=o.plucode and oc.orgcode=o.orgcode and oc.colorcode = @scolorcode and oc.sizecode = @ssizecode
end
else
begin
select @pskycount = o.gcount - isnull(l.packpluqty,0) - isnull(mp.mppluqty,0) - isnull(i.pluqty,0) -- -isnull(p.pfcount,0)
from t_plu_org o left join t_plu g on g.plucode =o.plucode
left join (select i.orgcode,p.plucode,sum(i.pluqty*p.counts) packpluqty from t_plupack p,t_flow_item i where p.packcode = i.plucode group by p.plucode,i.orgcode ) l on o.plucode = l.plucode and l.orgcode = o.orgcode
left join (select i.orgcode,p.innercode,sum(i.pluqty*p.itemcnt) as mppluqty from t_flow_item i ,(select plucode ,innercode ,itemcnt from t_plu where plutype = '4' or iszfcode = '2') p where p.plucode = i.plucode group by p.innercode,i.orgcode ) mp
on o.plucode = mp.innercode and mp.orgcode = o.orgcode
left join (select orgcode,plucode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode) i on o.plucode = i.plucode and i.orgcode = o.orgcode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode
end
end
else if @psplace = '1'
begin
if (@scolorcode <>'') and (@ssizecode<>'')
begin
select @pskycount = isnull(oc.ccount,0) - isnull(i.pluqty,0) -- -isnull(p.pfcount,0)
from t_plu_org o,t_plu_org_cs oc left join t_plu g on g.plucode =oc.plucode
left join (select orgcode,plucode,colorcode,sizecode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode,colorcode,sizecode) i on oc.plucode = i.plucode and i.orgcode = oc.orgcode and i.colorcode=oc.colorcode and i.sizecode=oc.sizecode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode and oc.plucode=o.plucode and oc.orgcode=o.orgcode and oc.colorcode = @scolorcode and oc.sizecode = @ssizecode
end
else
begin
select @pskycount = o.ccount-isnull(i.pluqty,0)-isnull(l.packpluqty,0) - isnull(mp.mppluqty,0)
from t_plu_org o left join t_plu g on g.plucode =o.plucode
left join (select orgcode,plucode,sum(pluqty) as pluqty from t_flow_item group by plucode,orgcode) i on o.plucode = i.plucode and i.orgcode = o.orgcode
left join (select i.orgcode,p.plucode,sum(i.pluqty*p.counts) packpluqty from t_plupack p,t_flow_item i where p.packcode = i.plucode group by p.plucode,i.orgcode ) l on o.plucode = l.plucode and l.orgcode = o.orgcode
left join (select i.orgcode,p.innercode,sum(i.pluqty*p.itemcnt) as mppluqty from t_flow_item i ,(select plucode ,innercode ,itemcnt from t_plu where plutype = '4' or iszfcode = '2') p where p.plucode = i.plucode group by p.innercode,i.orgcode ) mp
on o.plucode = mp.innercode and mp.orgcode = o.orgcode
where o.orgcode = @sorgcode and o.isright = '1' and plutype<>'3' and o.mngstock= '1' and o.plucode = @splucode
end
end
if @@error <> 0
begin
set @pserrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>ÿ<EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
return(1)
end
go
if exists(select * from sysobjects where name ='p_check_plu_stock_rz' and xtype='p')
drop procedure p_check_plu_stock_rz
go
create procedure p_check_plu_stock_rz
(
@psorgcode varchar(10),
@psbillno varchar(20),
@psplace varchar(1),
@psbillform varchar(100),
@psbilldetail varchar(100),
@psstaffcode varchar(10),
@psmsg varchar(2000) out
)
as
begin
declare @tmptblname varchar(100)
declare @ssql varchar(8000)
declare @nssql nvarchar(4000)
declare @spackcode varchar(20)
declare @splucode varchar(20)
declare @fcounts numeric(19,4)
declare @splutype varchar(1)
declare @fkycount numeric(19,4)
declare @finfcount numeric(19,4)
declare @fbillcounts numeric(19,4)
declare @serrmsg varchar(200)
set @tmptblname = @psbillform+@psbillno
set @psmsg = ''
if not exists(select * from sysobjects where name = @tmptblname and xtype = 'u')
begin
set @ssql = 'create table '+@tmptblname+
' (packcode varchar(20),plucode varchar(20),billcounts numeric(19,4),itemcnt numeric(19,4),counts numeric(19,4),plutype varchar(1))'
exec(@ssql)
if @@error <> 0
begin
set @psmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
end
set @ssql = 'delete from '+@tmptblname
exec(@ssql)
if @@error <> 0
begin
set @psmsg = 'ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if @psbillform = 't_whsale_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' (d.counts+d.zpcount) as billcounts,isnull(p.counts,1) as itemcnt,'+
' (d.counts + d.zpcount) * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype'+
' from t_whsale_body d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,t_whsale_head h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_return_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_outtrans_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.outorgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_cut_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_draw_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_dist_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
else if @psbillform = 't_produce_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
盈亏负库存校验
4 months ago
else if @psbillform = 't_differ_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' (d.bookcount-d.realcount ) as billcounts,isnull(p.counts,1) as itemcnt,'+
' (d.bookcount-d.realcount ) * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
Initial Commit
1 year ago
else if @psbillform = 't_scrap_head'
set @ssql =
'insert into '+@tmptblname+
' select isnull(p.packcode,d.plucode) as packcode,isnull(p.plucode,d.plucode) as plucode,'+
' d.counts as billcounts,isnull(p.counts,1) as itemcnt,'+
' d.counts * isnull(p.counts,1) as counts,'+
' case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''') and (isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype '+
' from '+@psbilldetail+' d left join t_plupack p on d.plucode = p.packcode'+
' left join t_plu g on d.plucode = g.plucode '+
' left join t_plu_org o on d.plucode = o.plucode and o.orgcode = '''+@psorgcode+''' '+
' left join t_supplier v on g.supcode =v.supcode '+
' left join t_supplier v1 on o.supcode =v1.supcode '+
' ,'+@psbillform+' h '+
' where h.billno = '''+@psbillno+''' and h.billno=d.billno and h.orgcode = '''+@psorgcode+''' and ((o.mngstock = ''1'') or (g.plutype=''3''))'
exec(@ssql)
if @@error <> 0
begin
set @psmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
set @ssql = 'declare cur cursor for select packcode,plucode,counts,plutype from '+@tmptblname
exec(@ssql)
open cur
fetch next from cur into @spackcode,@splucode,@fcounts,@splutype
while @@fetch_status = 0
begin
set @nssql = N'select @tmpfbillcounts = sum(counts) from '+@tmptblname+' where plucode = '''+@splucode+''' group by plucode'
exec sp_executesql @nssql,
N'@tmpfbillcounts numeric(19,4) output',
@fbillcounts output
exec p_get_aplu_kystock @psorgcode,@splucode,@psplace,@fkycount output,@serrmsg output,'',''
set @finfcount = @fkycount
set @fkycount = @fkycount - @fbillcounts
if @@error <> 0
begin
set @psmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if @fkycount < 0
begin
if exists(select * from t_sys_right_func r,t_sys_user_sub u where r.ugrpcode=u.ugrpcode and u.usercode=@psstaffcode and r.funcode='op07')
begin
if @splutype = '3'
begin
if @psmsg = ''
set @psmsg = '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+@spackcode+'<EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>'+@splucode + ' ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + convert(varchar(100),@finfcount)
else
set @psmsg = @psmsg + char(13) + char(10) + '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+@spackcode+'<EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>'+@splucode + ' ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + convert(varchar(100),@finfcount)
end
else
begin
if @psmsg = ''
set @psmsg = '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>'+@splucode + ' ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + convert(varchar(100),@finfcount)
else
set @psmsg = @psmsg + char(13) + char(10) + '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>'+@splucode + ' ʵ<>ʿ<EFBFBD><CABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + convert(varchar(100),@finfcount)
end
end
else
begin
if @splutype = '3'
begin
if @psmsg = ''
set @psmsg = '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+@spackcode+'<EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>'+@splucode
else
set @psmsg = @psmsg + char(13) + char(10) + '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+@spackcode+'<EFBFBD><EFBFBD><EFBFBD>У<EFBFBD>'+@splucode
end
else
begin
if @psmsg = ''
set @psmsg = '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>'+@splucode
else
set @psmsg = @psmsg + char(13) + char(10) + '<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>'+@splucode
end
end
end
fetch next from cur into @spackcode,@splucode,@fcounts,@splutype
end
close cur
deallocate cur
set @ssql = 'drop table '+@tmptblname
exec(@ssql)
return(1)
end
go
if exists(select * from sysobjects where name ='p_search_plu_info' and xtype='p')
drop procedure p_search_plu_info
go
create procedure p_search_plu_info
(
@psorgcode varchar(10),
@psplucode varchar(20),
@pspluname varchar(40),
@psbarcode varchar(20),
@psspec varchar(40),
@psunit varchar(10),
@psmultbar varchar(1),
@psusercode varchar(6)
)
as
begin
declare @sdepcode varchar(10)
select g.plucode,g.mncode,g.depcode,d.depname,g.remark,o.orgcode,
case when @pspluname<>'' then @pspluname else g.pluname end as pluname,
case when @pspluname<>'' then @psbarcode else g.barcode end as barcode,
case when @pspluname<>'' then @psspec else g.spec end as spec,
case when @pspluname<>'' then @psunit else convert(varchar,'') end as unitname,
isnull(pb.bincode,'') as bincode,isnull(wb.binbarcode,'') as binbarcode,
g.askcnt,o.lowstock,o.topstock,g.prodarea,o.cost,o.netcost,o.total,g.psprice as gpsprice,o.psprice,
o.mngstock,g.mngcs,
d.uppercode1,d.uppercode2,d.uppercode3,d.uppercode4,
g.cargono,g.unit,
case when isnull(o.supcode ,'')='' then g.supcode
when s.orgtype='2' and v1.suptype='9' then g.supcode
else o.supcode end as supcode,
case when isnull(o.supcode ,'')='' then v.supname
when s.orgtype='2' and v1.suptype='9' then v.supname
else v1.supname end as supname,
g.jtaxrate,g.staxrate,o.ojprice,o.price,
case when isnull(v1.jymode,'') = '2' then '2' when (isnull(v1.jymode,'') = '' and isnull(v.jymode,'') = '2') then '2' else g.plutype end as plutype,
g.keepdays,rtrim(ltrim(g.plustatus)) as plustatus,
g.price as gprice,g.jprice as gjprice,g.netjprice as gnetjprice,
g.vipprice as gvipprice,o.vipprice as vipprice,g.pfprice as gpfprice,o.pfprice as pfprice,
g.clscode,c.clsname,g.brandcode as brandcode,b.brandname,
o.iscg,o.isxs,o.isth,o.iscgth,o.ispsth,o.isask as isyh,o.cgmode,o.jprice,o.netjprice,g.packprice,
o.ccount,o.gcount,o.dms,o.dms1,o.dms2,o.dms3,o.jhcycle,isweight,o.isright,@psmultbar as multbar,g.erpmaterialno,o.hjprice,o.ljprice,g.dkrate,
g.grossweight,g.netweight,g.minaskcount,g.ordercnt
from t_plu g left join t_plu_org o on g.plucode = o.plucode and o.orgcode = @psorgcode
left join t_shop s on s.orgcode = o.orgcode
left join t_dept d on g.depcode = d.depcode
left join t_gclass c on g.clscode=c.clscode
left join t_supplier v on g.supcode =v.supcode
left join t_supplier v1 on o.supcode =v1.supcode
left join t_brand b on g.brandcode =b.brandcode
left join t_plu_bin pb on g.PluCode = pb.plucode and pb.orgcode = @psorgcode
left join t_ware_bin wb on pb.bincode = wb.bincode and pb.orgcode = wb.orgcode
where g.plustatus<>'2' and (g.plucode=@psplucode and g.plucode<>'')
order by g.plucode
select @sdepcode=depcode from t_plu where plucode=@psplucode
select d.depcode from t_dept d
where d.depcode = @sdepcode and exists(select depcode from t_sys_right_dept r
where r.usercode = @psusercode and (d.depcode=r.depcode or d.uppercode1=r.depcode or d.uppercode2=r.depcode
or d.uppercode3=r.depcode or d.uppercode4=r.depcode ))
select unit as punit,itemcnt from t_plu
where innercode = @psplucode and plutype = '4'
order by itemcnt desc
end
go
if exists(select * from sysobjects where name ='p_search_plu_info_with_whl_sale' and xtype='p')
drop procedure p_search_plu_info_with_whl_sale
go
create procedure p_search_plu_info_with_whl_sale
(
@psorgcode varchar(10),
@psplucode varchar(20),
@pspfsalebillno varchar(20),
@psneedsale varchar(1),
@psselectbarmultplu varchar(1),
@pspluname varchar(40),
@psbarcode varchar(20),
@psspec varchar(40),
@psunit varchar(10),
@psmultbar varchar(1),
@psusercode varchar(6)
)
as
begin
declare @sdepcode varchar(10)
if @psneedsale='1'
begin
if @psselectbarmultplu='1'
select t_whsale_body.plucode,t_whsale_body.barcode,t_whsale_body.pluname,t_whsale_body.pfprice,t_plu.mncode ,t_plu.depcode,t_whsale_body.depname,t_plu.clscode,t_gclass.clsname,
t_dept.uppercode1,t_dept.uppercode2,t_dept.uppercode3,t_dept.uppercode4,t_plu.cargono,t_whsale_body.spec,t_plu.depcode,t_plu.prodarea,t_plu.unit,
t_plu_org.price,t_plu_org.jprice,t_plu_org.netjprice,
case when isnull(v1.jymode,'') = '2' then '2' when (isnull(v1.jymode,'') = '' and isnull(t_supplier.jymode,'') = '2') then '2' else t_plu.plutype end as plutype,
rtrim(ltrim(t_plu.plustatus)) as plustatus,t_plu_org.ccount,t_plu_org.gcount,t_plu.supcode ,t_supplier.supname,
t_plu_org.cost,t_plu_org.netcost,t_plu_org.total,t_plu_org.mngstock,t_plu.mngcs,convert(varchar,'') as unitname,
t_whsale_body.counts,t_whsale_body.zpcount,t_whsale_body.pftotal,t_whsale_body.zrtotal,t_whsale_body.punit,t_whsale_body.pcount,
t_plu.jtaxrate,t_whsale_body.itemcnt,sglcount,t_whsale_body.remark,t_plu_org.isright,@psmultbar as multbar
from t_whsale_body ,
t_plu left join t_plu_org on t_plu.plucode = t_plu_org.plucode and t_plu_org.orgcode = @psorgcode
left join t_dept on t_plu.depcode = t_dept.depcode
left join t_supplier on t_plu.supcode =t_supplier.supcode
left join t_supplier v1 on t_plu_org.supcode =v1.supcode
left join t_gclass on t_plu.clscode=t_gclass.clscode
where t_whsale_body.plucode=t_plu.plucode
and (t_plu.plustatus<>'2') and t_whsale_body.billno=@pspfsalebillno
and ((t_plu.plucode=@psplucode and t_plu.plucode<>''))
order by t_plu.plucode
else
select t_whsale_body.plucode,t_whsale_body.barcode,t_whsale_body.pluname,t_whsale_body.pfprice,t_plu.mncode ,t_plu.depcode,t_whsale_body.depname,t_plu.clscode,t_gclass.clsname,
t_dept.uppercode1,t_dept.uppercode2,t_dept.uppercode3,t_dept.uppercode4,t_plu.cargono,t_whsale_body.spec,t_plu.depcode,t_plu.prodarea,t_plu.unit,
t_plu_org.price,t_plu_org.jprice,t_plu_org.netjprice,
case when isnull(v1.jymode,'') = '2' then '2' when (isnull(v1.jymode,'') = '' and isnull(t_supplier.jymode,'') = '2') then '2' else t_plu.plutype end as plutype,
rtrim(ltrim(t_plu.plustatus)) as plustatus,t_plu_org.ccount,t_plu_org.gcount,t_plu.supcode ,t_supplier.supname,
t_plu_org.cost,t_plu_org.netcost,t_plu_org.total,t_plu_org.mngstock,t_plu.mngcs,convert(varchar,'') as unitname,
t_whsale_body.counts,t_whsale_body.zpcount,t_whsale_body.pftotal,t_whsale_body.zrtotal,t_whsale_body.punit,t_whsale_body.pcount,
t_plu.jtaxrate,t_whsale_body.itemcnt,sglcount,t_whsale_body.remark,t_plu_org.isright,@psmultbar as multbar
from t_whsale_body ,
t_plu left join t_plu_org on t_plu.plucode = t_plu_org.plucode and t_plu_org.orgcode = @psorgcode
left join t_dept on t_plu.depcode = t_dept.depcode
left join t_supplier on t_plu.supcode =t_supplier.supcode
left join t_supplier v1 on t_plu_org.supcode =v1.supcode
left join t_gclass on t_plu.clscode=t_gclass.clscode
where t_whsale_body.plucode=t_plu.plucode
and (t_plu.plustatus<>'2') and t_whsale_body.billno=@pspfsalebillno
and ((t_plu.plucode=@psplucode and t_plu.plucode<>''))
order by t_plu.plucode
end
else
begin
if @psselectbarmultplu='1'
select t_plu.plucode,t_plu.mncode ,
case when @pspluname<>'' then @pspluname else t_plu.pluname end as pluname,
case when @pspluname<>'' then @psbarcode else t_plu.barcode end as barcode,
case when @pspluname<>'' then @psspec else t_plu.spec end as spec,
case when @pspluname<>'' then @psunit else convert(varchar,'') end as unitname,
t_plu_org.pfprice,t_plu.depcode,t_dept.depname,t_plu.clscode,t_gclass.clsname,
t_dept.uppercode1,t_dept.uppercode2,t_dept.uppercode3,t_dept.uppercode4,t_plu.cargono,t_plu.depcode,t_plu.prodarea,t_plu.unit,
t_plu_org.price,t_plu_org.jprice,t_plu_org.netjprice,
case when isnull(v1.jymode,'') = '2' then '2' when (isnull(v1.jymode,'') = '' and isnull(t_supplier.jymode,'') = '2') then '2' else t_plu.plutype end as plutype,
rtrim(ltrim(t_plu.plustatus)) as plustatus,t_plu.supcode ,t_supplier.supname,t_plu_org.gcount,t_plu_org.ccount,
0.00 as counts,0.00 as zpcount,0.00 as pftotal,0.00 as zrtotal,' ' as punit,0.00 as pcount,
t_plu.jtaxrate,0 as itemcnt,0.00 as sglcount,' ' as remark,t_plu_org.mngstock,t_plu.mngcs,t_plu_org.isright,@psmultbar as multbar,t_plu.erpmaterialno
from t_plu left join t_plu_org on t_plu.plucode = t_plu_org.plucode and t_plu_org.orgcode = @psorgcode
left join t_dept on t_plu.depcode = t_dept.depcode
left join t_supplier on t_plu.supcode =t_supplier.supcode
left join t_supplier v1 on t_plu_org.supcode =v1.supcode
left join t_gclass on t_plu.clscode=t_gclass.clscode
where (t_plu.plustatus<>'2') and ((t_plu.plucode=@psplucode and t_plu.plucode<>''))
order by t_plu.plucode
else
select t_plu.plucode,t_plu.mncode ,
case when @pspluname<>'' then @pspluname else t_plu.pluname end as pluname,
case when @pspluname<>'' then @psbarcode else t_plu.barcode end as barcode,
case when @pspluname<>'' then @psspec else t_plu.spec end as spec,
case when @pspluname<>'' then @psunit else convert(varchar,'') end as unitname,
t_plu_org.pfprice,t_plu.depcode,t_dept.depname,t_plu.clscode,t_gclass.clsname,
t_dept.uppercode1,t_dept.uppercode2,t_dept.uppercode3,t_dept.uppercode4,t_plu.cargono,t_plu.depcode,t_plu.prodarea,t_plu.unit,
t_plu_org.price,t_plu_org.jprice,t_plu_org.netjprice,
case when isnull(v1.jymode,'') = '2' then '2' when (isnull(v1.jymode,'') = '' and isnull(t_supplier.jymode,'') = '2') then '2' else t_plu.plutype end as plutype,
rtrim(ltrim(t_plu.plustatus)) as plustatus,t_plu.supcode ,t_supplier.supname,t_plu_org.gcount,t_plu_org.ccount,
0.00 as counts,0.00 as zpcount,0.00 as pftotal,0.00 as zrtotal,' ' as punit,0.00 as pcount,
t_plu.jtaxrate,0 as itemcnt,0.00 as sglcount,' ' as remark,t_plu_org.mngstock,t_plu.mngcs,t_plu_org.isright,@psmultbar as multbar,t_plu.erpmaterialno
from t_plu left join t_plu_org on t_plu.plucode = t_plu_org.plucode and t_plu_org.orgcode = @psorgcode
left join t_dept on t_plu.depcode = t_dept.depcode
left join t_supplier on t_plu.supcode =t_supplier.supcode
left join t_supplier v1 on t_plu_org.supcode =v1.supcode
left join t_gclass on t_plu.clscode=t_gclass.clscode
where (t_plu.plustatus<>'2') and ((t_plu.plucode=@psplucode and t_plu.plucode<>''))
order by t_plu.plucode
end
select @sdepcode=depcode from t_plu where plucode=@psplucode
select d.depcode from t_dept d
where d.depcode = @sdepcode and exists(select depcode from t_sys_right_dept r
where r.usercode = @psusercode and (d.depcode=r.depcode or d.uppercode1=r.depcode or d.uppercode2=r.depcode
or d.uppercode3=r.depcode or d.uppercode4=r.depcode ))
select unit as punit,itemcnt from t_plu
where plucode = @psplucode and plutype = '4'
end
go
if exists(select * from sysobjects where name ='p_search_plu_info_with_other' and xtype='p')
drop procedure p_search_plu_info_with_other
go
create procedure p_search_plu_info_with_other
(
@psorgcode varchar(10),
@psplucode varchar(20),
@psusercode varchar(6)
)
as
begin
declare @sdepcode varchar(10)
select g.plucode,g.depcode,g.pluname,o.price,o.isright,rtrim(ltrim(g.plustatus)) as plustatus
from t_plu g left join t_plu_org o on g.plucode = o.plucode and o.orgcode = @psorgcode
where g.plustatus<>'2' and (g.plucode=@psplucode and g.plucode<>'')
order by g.plucode
select @sdepcode=depcode from t_plu where plucode=@psplucode
select d.depcode from t_dept d
where d.depcode = @sdepcode and exists(select depcode from t_sys_right_dept r
where r.usercode = @psusercode and (d.depcode=r.depcode or d.uppercode1=r.depcode or d.uppercode2=r.depcode
or d.uppercode3=r.depcode or d.uppercode4=r.depcode ))
select unit as punit,itemcnt from t_plu
where plucode = @psplucode and plutype = '4'
end
go
if exists(select * from sysobjects where name = 'p_before_dsc_account' and xtype = 'p')
drop procedure p_before_dsc_account
go
create procedure p_before_dsc_account
(
@sdsccode varchar(20),
@srtnmsg varchar(8000) output
)
as
begin
declare @splucode varchar(20)
declare @syhtype varchar(1)
set @srtnmsg = ''
if not exists(select * from sysobjects where name = 'dscpludetail_foraccount' and xtype = 'u')
begin
create table dscpludetail_foraccount
(accdsccode varchar(20),
billno varchar(20),
grptype varchar(1),
grptypename varchar(10),
grpcode varchar(20),
plucode varchar(20),
isrepeat varchar(1) default('1'))
end
if not exists(select * from sysobjects where name = 'dscpludetail_foraccount_other' and xtype = 'u')
begin
create table dscpludetail_foraccount_other
(accdsccode varchar(20),
billno varchar(20),
grptype varchar(1),
grptypename varchar(10),
grpcode varchar(20),
plucode varchar(20))
end
select @syhtype = yhtype from t_prom_head where billno = @sdsccode
delete from dscpludetail_foraccount where accdsccode = @sdsccode
insert into dscpludetail_foraccount(accdsccode,billno,grptype,grpcode,plucode,grptypename)
select @sdsccode,billno,grptype,d.grpcode,case when d.grptype = 'g' then g.plucode
when d.grptype = 'x' then g2.plucode
when d.grptype = 'w' then g3.plucode
when d.grptype = 'y' then g1.plucode
when d.grptype = 'p' then d.grpcode
end as plucode,
case when d.grptype = 'g' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
when d.grptype = 'x' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
when d.grptype = 'w' then 'Ʒ<EFBFBD><EFBFBD>'
when d.grptype = 'y' then 'Ʒ<EFBFBD><EFBFBD>'
when d.grptype = 'p' then '<EFBFBD><EFBFBD>Ʒ'
end as grptypename
from t_prom_body d left join t_prom_gather_detail g on d.grpcode = g.gathercode and d.grptype = 'g'
left join t_plu g1 on d.grpcode = g1.clscode and d.grptype = 'y'
left join t_plu g2 on d.grpcode = g2.depcode and d.grptype = 'x'
left join t_plu g3 on d.grpcode = g3.brandcode and d.grptype = 'w'
where billno = @sdsccode
update dscpludetail_foraccount set isrepeat = '0'
where accdsccode = @sdsccode and plucode in (
select plucode from dscpludetail_foraccount
group by plucode
having count(*) =1)
set @srtnmsg = ''
set @splucode = ''
select @srtnmsg=case when (isnull(@splucode,'') = plucode) and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg + char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4><EFBFBD>'
when (isnull(@splucode,'') = plucode) and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg + char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg = '') and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4><EFBFBD>'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg = '') and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg <> '') and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg+char(13)+'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4><EFBFBD>'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg <> '') and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg+char(13)+'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
end,@splucode = plucode
from dscpludetail_foraccount
where accdsccode = @sdsccode and isrepeat = '1' and @syhtype <> '9'
order by plucode
if @srtnmsg <> ''
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>ڱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>г<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>'+char(13)+@srtnmsg
delete from dscpludetail_foraccount where accdsccode = @sdsccode
return(-1)
end
delete from dscpludetail_foraccount_other where accdsccode = @sdsccode
insert into dscpludetail_foraccount_other(accdsccode,billno,grptype,grpcode,plucode,grptypename)
select @sdsccode,billno,grptype,d.grpcode,case when d.grptype = 'g' then g.plucode
when d.grptype = 'x' then g2.plucode
when d.grptype = 'w' then g3.plucode
when d.grptype = 'y' then g1.plucode
when d.grptype = 'p' then d.grpcode
end as plucode,
case when d.grptype = 'g' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
when d.grptype = 'x' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
when d.grptype = 'w' then 'Ʒ<EFBFBD><EFBFBD>'
when d.grptype = 'y' then 'Ʒ<EFBFBD><EFBFBD>'
when d.grptype = 'p' then '<EFBFBD><EFBFBD>Ʒ'
end as grptypename
from t_prom_body d left join t_prom_gather_detail g on d.grpcode = g.gathercode and d.grptype = 'g'
left join t_plu g1 on d.grpcode = g1.clscode and d.grptype = 'y'
left join t_plu g2 on d.grpcode = g2.depcode and d.grptype = 'x'
left join t_plu g3 on d.grpcode = g3.brandcode and d.grptype = 'w'
where d.billno in
(select distinct h.billno
from t_prom_head h,t_prom_time t,t_prom_org o,
(select orgcode from t_prom_org where billno = @sdsccode) o1,
(select bgndate,enddate,bgntime,endtime,weekdays from t_prom_time where billno = @sdsccode) t1
where h.billno = t.billno and h.billno = o.billno and isnull(h.rzdate,'') <> '' and h.yhtype in ('1','2','6','7','9') and h.billno <> @sdsccode and
(@syhtype = '9' or h.yhtype <> @syhtype) and o.orgcode = o1.orgcode and
((t.bgndate between t1.bgndate and t1.enddate or t.enddate between t1.bgndate and t1.enddate) and (substring(t.weekdays,1,1) = substring(t1.weekdays,1,1) or
substring(t.weekdays,2,1) = substring(t1.weekdays,2,1) or
substring(t.weekdays,3,1) = substring(t1.weekdays,3,1) or
substring(t.weekdays,4,1) = substring(t1.weekdays,4,1) or
substring(t.weekdays,5,1) = substring(t1.weekdays,5,1) or
substring(t.weekdays,6,1) = substring(t1.weekdays,6,1) or
substring(t.weekdays,7,1) = substring(t1.weekdays,7,1)))
)
delete from dscpludetail_foraccount_other
where not exists(select * from dscpludetail_foraccount where accdsccode = dscpludetail_foraccount_other.accdsccode and
billno <> dscpludetail_foraccount_other.billno and plucode = dscpludetail_foraccount_other.plucode)
delete from dscpludetail_foraccount where accdsccode = @sdsccode
set @srtnmsg = ''
set @splucode = ''
select @srtnmsg=case when (isnull(@splucode,'') = plucode) and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg + char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4><EFBFBD>'
when (isnull(@splucode,'') = plucode) and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg + char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg = '') and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg = '') and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg <> '') and (grptypename <> '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg+char(13)+'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>е<EFBFBD>'+grptypename+'['+grpcode+']<5D>д<EFBFBD><D0B4><EFBFBD>'
when (isnull(@splucode,'') <> plucode) and (@srtnmsg <> '') and (grptypename = '<EFBFBD><EFBFBD>Ʒ') then
@srtnmsg+char(13)+'<EFBFBD><EFBFBD>Ʒ['+plucode+']<5D>ظ<EFBFBD>'+char(13) + '--<2D>ڵ<EFBFBD><DAB5><EFBFBD>['+billno+']<5D>д<EFBFBD><D0B4>ڸõ<DAB8>Ʒ'
end,@splucode = plucode
from dscpludetail_foraccount_other
where accdsccode = @sdsccode
order by plucode
if @srtnmsg <> ''
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>г<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>'+char(13)+@srtnmsg
delete from dscpludetail_foraccount_other where accdsccode = @sdsccode
return(-1)
end
return(1)
end
go
if exists(select * from sysobjects where name = 'f_format_str' and xtype = 'fn')
drop function f_format_str
go
create function f_format_str
(
@sfillstr varchar(100),
@ssourcestr varchar(100),
@ifilllen int
)
returns varchar(100)
as
begin
declare @rtnstr varchar(100)
set @rtnstr =@sfillstr + @ssourcestr
set @rtnstr = substring(@rtnstr,len(@rtnstr)-@ifilllen + 1,@ifilllen)
return @rtnstr
end
go
if exists (select * from sysobjects where name ='f_get_billno' and xtype = 'p')
drop procedure f_get_billno
go
create procedure f_get_billno
(
@sbilltype varchar(20),
@sorgcode varchar(10),
@shandasautoreturn varchar(1),
@snewbillno varchar(20) output
)
as
begin
declare @sreturnvalue varchar(20)
declare @sbillno_prefixpart varchar(20)
declare @sbillno_orgcodepart varchar(20)
declare @sbillno_datepart varchar(20)
declare @sbillno_serialnopart varchar(20)
declare @sbillno_serialnomax varchar(20)
declare @sbilltype_isrule varchar(1)
declare @ibilltype_nolength int
declare @sbilltype_prefix varchar(20)
declare @sbilltype_datefmt varchar(20)
declare @ibilltype_serialno int
declare @scurdate varchar(10)
declare @sbilltype_date varchar(10)
declare @serror_msg varchar(1000);
declare @irealsn_length int;
set @scurdate = convert(varchar(10),getdate(),21)
select @sbilltype_isrule = isrule,
@ibilltype_nolength = case when isrule='1' then nolength else 20 end,
@sbilltype_prefix = case when isrule='1' then prefix else billcode end,
@sbilltype_datefmt = case when isrule='1' then datefmt else 'yyyymmdd' end,
@ibilltype_serialno = serialno,
@sbilltype_date = sdate
from t_bill_type with(updlock)
where billcode = @sbilltype
if @sbilltype_isrule = '0' and @shandasautoreturn = '0'
begin
set @sreturnvalue = ''
end
else
begin
set @sbilltype_datefmt = isnull(@sbilltype_datefmt,'')
set @sbillno_prefixpart = isnull(@sbilltype_prefix,'')
set @sbillno_orgcodepart = @sorgcode
set @sbillno_serialnopart = ''
set @sbillno_datepart = ''
if @sbilltype_datefmt = 'yyyymmdd'
set @sbillno_datepart = substring(@scurdate,1,4)+substring(@scurdate,6,2)+substring(@scurdate,9,2)
else if @sbilltype_datefmt = 'yyyymm'
set @sbillno_datepart = substring(@scurdate,1,4)+substring(@scurdate,6,2)
else if @sbilltype_datefmt = 'yyyy'
set @sbillno_datepart = substring(@scurdate,1,4)
else if @sbilltype_datefmt = 'yymmdd'
set @sbillno_datepart = substring(@scurdate,3,2)+substring(@scurdate,6,2)+substring(@scurdate,9,2)
else if @sbilltype_datefmt = 'yymm'
set @sbillno_datepart = substring(@scurdate,3,2)+substring(@scurdate,6,2)
else if @sbilltype_datefmt = 'yy'
set @sbillno_datepart = substring(@scurdate,3,2)
else if @sbilltype_datefmt = ''
set @sbillno_datepart = ''
if @sbilltype_date = @scurdate
begin
update t_bill_type set serialno = serialno + 1 where billcode = @sbilltype
set @sbillno_serialnopart = convert(varchar(20),@ibilltype_serialno)
end
else
begin
update t_bill_type set serialno = 2 ,sdate = @scurdate where billcode = @sbilltype
set @sbillno_serialnopart = '1'
end
set @irealsn_length = @ibilltype_nolength-len(@sbillno_prefixpart)-len(@sbillno_orgcodepart)-len(@sbilltype_datefmt)
set @sbillno_serialnopart = dbo.f_format_str('00000000000000000000',@sbillno_serialnopart,@irealsn_length)
set @sbillno_serialnomax = substring('99999999999999999999', 1, @irealsn_length);
if @sbillno_serialnopart = @sbillno_serialnomax
begin
set @serror_msg = '<EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŵﵽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵϵͳ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
raiserror(@serror_msg, 16, 1);
end
set @sreturnvalue = @sbillno_prefixpart+@sbillno_orgcodepart+@sbillno_datepart+@sbillno_serialnopart
end
set @snewbillno = @sreturnvalue
end
go
if exists(select * from sysobjects where name ='f_get_auto_plucode' and xtype='p')
drop procedure f_get_auto_plucode
go
create procedure f_get_auto_plucode
(
@psplutype varchar(1),
@psclscode varchar(10),
@psdepcode varchar(10),
@psisweight varchar(1),
@psnewplucode varchar(20) output
)
as
begin
declare @rnt varchar(20)
declare @curorgcode varchar(10)
declare @pluruletype varchar(1)
declare @pluinputrule varchar(1)
declare @iplumaxserial int
declare @ipluminserial int
declare @srulecode varchar(10)
declare @sprecode varchar(20)
declare @nlevel int
declare @ilevelnum int
declare @imaxserial int
declare @optplulen int
declare @optplulenfixed varchar(1)
declare @optdplulen int
declare @optdplulenfixed varchar(1)
declare @i int
set @rnt = ''
set @srulecode = ''
select @pluruletype = itemvalue from t_syscfg where itemname = 'plurule'
select @pluinputrule = itemvalue from t_syscfg where itemname = 'pluinputrule'
select @optplulen = convert(int,itemvalue) from t_syscfg where itemname = 'plulen'
select @optplulenfixed = itemvalue from t_syscfg where itemname = 'plulenfixed'
select @optdplulen = convert(int,itemvalue) from t_syscfg where itemname = 'dplulen'
select @optdplulenfixed = itemvalue from t_syscfg where itemname = 'dplulenfixed'
select @curorgcode = itemvalue from t_syscfg where itemname = 'branchno'
select @iplumaxserial = convert(int,itemvalue) from t_syscfg where itemname = 'plumaxserial'
select @ipluminserial = convert(int,itemvalue) from t_syscfg where itemname = 'pluminserial'
if @psisweight = '0'
begin
if @pluruletype = '0'
return(-1)
if @pluinputrule = '1'
return(-1)
set @nlevel = 0
if @pluruletype = '1'
begin
select @nlevel = deplevel from t_dept where depcode = @psdepcode
select top 1 @ilevelnum =levelnum from t_dep_level where iscode='1' order by levelnum
select @srulecode = case when @nlevel - @ilevelnum = 4 then uppercode4
when @nlevel - @ilevelnum = 3 then uppercode3
when @nlevel - @ilevelnum = 2 then uppercode2
when @nlevel - @ilevelnum = 1 then uppercode1
else depcode end
from t_dept
where depcode = @psdepcode
set @sprecode = @srulecode
end
else if @pluruletype = '2'
begin
select @nlevel = clslevel from t_gclass where clscode = @psclscode
select top 1 @ilevelnum = levelnum from t_gclass_level where iscode='1' order by levelnum
select @srulecode = case when @nlevel - @ilevelnum = 5 then uppercode5
when @nlevel - @ilevelnum = 4 then uppercode4
when @nlevel - @ilevelnum = 3 then uppercode3
when @nlevel - @ilevelnum = 2 then uppercode2
when @nlevel - @ilevelnum = 1 then uppercode1
else clscode end
from t_gclass
where clscode = @psclscode
set @sprecode = @srulecode
end
else if @pluruletype = '3'
begin
set @srulecode = 'x'
set @sprecode = ''
end
else if @pluruletype = '4'
begin
set @srulecode = replace(@curorgcode,'c','')
set @sprecode = @srulecode
end
set @imaxserial = null
select @imaxserial = maxserial from t_max_serial where ruletype= @pluruletype and rulecode = @srulecode
if @imaxserial is not null
begin
set @imaxserial = @imaxserial + 1
if @imaxserial < @ipluminserial
set @imaxserial = @ipluminserial
end
else
begin
set @imaxserial = @ipluminserial
end
if len(@sprecode) > @optplulen
set @sprecode = substring(@sprecode, 1, @optplulen)
set @rnt = @sprecode + dbo.f_format_str('00000000000000000000',convert(varchar(20),@imaxserial),@optplulen - len(@sprecode))
if @psplutype = '0'
begin
if @optplulen <> 0 and @optplulenfixed = '1'
set @rnt = dbo.f_format_str('00000000000000000000',@rnt,@optplulen)
if @optplulen <> 0 and @optplulenfixed = '0' and len(@rnt) > @optplulen
set @rnt = substring(@rnt, 1, @optplulen)
end
else
begin
if (@optdplulen <> 0) and (@optdplulenfixed = '1')
set @rnt = dbo.f_format_str('00000000000000000000',@rnt,@optdplulen)
if (@optdplulen <> 0) and (@optdplulenfixed = '0') and (len(@rnt) > @optdplulen)
set @rnt = substring(@rnt, 1, @optdplulen)
end
set @i = 0
if exists(select * from t_plu where plucode = @rnt or barcode = @rnt) or
exists(select * from t_plu_org where plucode = @rnt) or
exists(select * from t_barcode_ref where plucode = @rnt or barcode = @rnt)
begin
while exists(select * from t_plu where plucode = @rnt or barcode = @rnt) or
exists(select * from t_plu_org where plucode = @rnt) or
exists(select * from t_barcode_ref where plucode = @rnt or barcode = @rnt)
begin
set @rnt = @sprecode + convert(varchar(20),convert(int,replace(@rnt,@sprecode,'')) + 1)
set @i = @i + 1
end
end
set @imaxserial = @imaxserial + @i
if exists(select * from t_max_serial where ruletype= @pluruletype and rulecode = @srulecode)
update t_max_serial set maxserial= @imaxserial where ruletype= @pluruletype and rulecode = @srulecode
else
insert into t_max_serial(ruletype,rulecode,maxserial) values(@pluruletype,@srulecode,@imaxserial)
end
else
begin
if @optdplulen <= 0
return(-1)
if not exists ( select maxserial from t_max_serial where ruletype='w' and rulecode='000000')
insert into t_max_serial(ruletype,rulecode,maxserial) values('w','000000','1')
set @imaxserial = null
select @imaxserial = maxserial from t_max_serial where ruletype='w' and rulecode='000000'
if @imaxserial is null
set @rnt = dbo.f_format_str('00000000000000000000','0',@optdplulen)
else
begin
set @rnt = dbo.f_format_str('00000000000000000000',convert(varchar(20),@imaxserial),@optdplulen)
if exists(select * from t_plu where plucode = @rnt or barcode = @rnt) or
exists(select * from t_plu_org where plucode = @rnt) or
exists(select * from t_barcode_ref where plucode = @rnt or barcode = @rnt)
begin
while exists(select * from t_plu where plucode = @rnt or barcode = @rnt) or
exists(select * from t_plu_org where plucode = @rnt) or
exists(select * from t_barcode_ref where plucode = @rnt or barcode = @rnt)
begin
set @rnt = convert(varchar(20),convert(int,@rnt) + 1)
end
end
end
set @imaxserial = convert(int,@rnt) + 1
update t_max_serial set maxserial= @imaxserial where ruletype='w' and rulecode='000000'
end
set @psnewplucode = @rnt
return(1)
end
go
if exists (select * from sysobjects where id = object_id('p_adjust_job_create') and objectproperty(id, 'isprocedure') = 1)
drop procedure p_adjust_job_create
go
create procedure p_adjust_job_create
(
@sysdbname varchar(20),
@billno varchar(20)
)
with encryption
as
begin
declare @err varchar(200)
declare @jobname varchar(40)
declare @jobproc varchar(8000)
declare @startdate int
declare @starttime int
declare @enddate int
declare @endtime int
declare @jobscript varchar(100)
declare @dbrealname varchar(20)
select @dbrealname = name from master.dbo.sysdatabases where name=@sysdbname
select
@startdate=convert(int,substring(isnull(sxdate,convert(char(10),getdate(),20)),1,4)
+substring(isnull(sxdate,convert(char(10),getdate(),20)),6,2)
+substring(isnull(sxdate,convert(char(10),getdate(),20)),9,2)),
@starttime=case when isnull(sxtime,'')='' then 0 else convert(int,substring(sxtime,1,2)+substring(sxtime,4,2)+substring(sxtime,7,2)) end,
@enddate=99991231,
@endtime=235959,
@jobname=N'<EFBFBD>ƻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + @billno,
@jobscript=N'<EFBFBD>ƻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>۵<EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
@jobproc=N'p_adjust_auto_rz ''' + @billno + ''''
from t_adjprice_head
where billno=@billno
begin transaction
declare @jobid binary(16)
declare @returncode int
select @returncode = 0
if (select count(*) from msdb.dbo.syscategories where name = '[uncategorized (local)]') < 1
execute msdb.dbo.sp_add_category @name = '[uncategorized (local)]'
-- delete the job with the same name (if it exists)
select @jobid = job_id
from msdb.dbo.sysjobs
where (name = @jobname)
if (@jobid is not null)
begin
-- check if the job is a multi-server job
if (exists (select * from msdb.dbo.sysjobservers
where (job_id = @jobid) and (server_id <> 0)))
begin
-- there is, so abort the script
set @err='unable to import job '+@jobname+' since there is already a multi-server job with this name.'
raiserror (@err, 16, 1)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
end
else
-- delete the [local] job
execute msdb.dbo.sp_delete_job @job_name =@jobname
select @jobid = null
end
begin
-- add the job
execute @returncode = msdb.dbo.sp_add_job @job_id = @jobid output , @job_name =@jobname, @owner_login_name = 'sa', @description = @jobscript, @category_name = '[uncategorized (local)]', @enabled = 1, @notify_level_email = 0, @notify_level_page = 0, @notify_level_netsend = 0, @notify_level_eventlog = 2, @delete_level= 3
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the job steps
execute @returncode = msdb.dbo.sp_add_jobstep @job_id = @jobid,@step_id = 1, @step_name =@jobname, @command =@jobproc, @database_name = @dbrealname, @server = '', @database_user_name = 'dbo', @subsystem = 'tsql', @cmdexec_success_code = 0, @flags = 2, @retry_attempts = 3 , @retry_interval = 1, @output_file_name = 'c:\sqlagentlog.txt', @on_success_step_id = 0, @on_success_action = 1, @on_fail_step_id = 0, @on_fail_action = 2
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
execute @returncode = msdb.dbo.sp_update_job @job_id = @jobid, @start_step_id = 1
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the job schedules
execute @returncode = msdb.dbo.sp_add_jobschedule @job_id = @jobid, @name = '<EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', @enabled = 1,
@freq_type = 1, @active_start_date = @startdate, @active_start_time = @starttime, @freq_interval = 0,
@freq_subday_type = 1, @freq_subday_interval = 0, @freq_relative_interval = 0, @freq_recurrence_factor = 1,
@active_end_date = @enddate, @active_end_time = @endtime
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the target servers
execute @returncode = msdb.dbo.sp_add_jobserver @job_id = @jobid, @server_name = '(local)'
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
end
commit transaction
return(1)
end
go
if exists (select * from sysobjects where id = object_id('p_db_backup_job_create') and objectproperty(id, 'isprocedure') = 1)
drop procedure p_db_backup_job_create
go
create procedure p_db_backup_job_create
(
@jobname varchar(40),
@sysdbname varchar(20),
@vipdbname varchar(20),
@bkpath varchar(100),
@bktime varchar(10)
)
with encryption
as
begin
declare @err varchar(200)
declare @jobproc varchar(8000)
declare @jobprocvip varchar(8000)
declare @startdate int
declare @starttime int
declare @jobscript varchar(100)
declare @dbrealsysname varchar(20)
declare @dbrealvipname varchar(20)
select @dbrealsysname = name from master.dbo.sysdatabases where name=@sysdbname
select @dbrealvipname = name from master.dbo.sysdatabases where name=@vipdbname
select
@startdate=convert(int,convert(char(10),getdate(),112)),
@starttime=convert(int,@bktime),
@jobscript=N'<EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݵ<EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
@jobproc=N'backup database ['+@sysdbname+'] to disk = '''+@bkpath+'.dbk'' with init, nounload, noskip, stats=10, noformat',
@jobprocvip=N'backup database ['+@vipdbname+'] to disk = '''+@bkpath+'vip.dbk'' with init, nounload, noskip, stats=10, noformat'
begin transaction
declare @jobid binary(16)
declare @returncode int
select @returncode = 0
if (select count(*) from msdb.dbo.syscategories where name = '[uncategorized (local)]') < 1
execute msdb.dbo.sp_add_category @name = '[uncategorized (local)]'
-- delete the job with the same name (if it exists)
select @jobid = job_id
from msdb.dbo.sysjobs
where (name = @jobname)
if (@jobid is not null)
begin
-- check if the job is a multi-server job
if (exists (select * from msdb.dbo.sysjobservers where (job_id = @jobid) and (server_id <> 0)))
begin
-- there is, so abort the script
set @err='unable to import job '+@jobname+' since there is already a multi-server job with this name.'
raiserror (@err, 16, 1)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
end
else
-- delete the [local] job
execute msdb.dbo.sp_delete_job @job_name =@jobname
select @jobid = null
end
begin
-- add the job
execute @returncode = msdb.dbo.sp_add_job @job_name=@jobname,
@enabled=1,
@notify_level_eventlog=2,
@notify_level_email=0,
@notify_level_netsend=0,
@notify_level_page=0,
@delete_level=0,
@description=@jobscript,
@category_name=N'[uncategorized (local)]',
@owner_login_name=N'sa', @job_id = @jobid output
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the job steps
execute @returncode = msdb.dbo.sp_add_jobstep @job_id=@jobid, @step_name='<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>',
@step_id=1,
@cmdexec_success_code=0,
@on_success_action=3,
@on_success_step_id=0,
@on_fail_action=2,
@on_fail_step_id=0,
@retry_attempts=3,
@retry_interval=1,
@os_run_priority=0, @subsystem=N'tsql',
@command=@jobproc,
@database_name=N'master',
@output_file_name='c:\sqlagentlog.txt',
@flags=0
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
execute @returncode = msdb.dbo.sp_add_jobstep @job_id=@jobid, @step_name='<EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD>',
@step_id=2,
@cmdexec_success_code=0,
@on_success_action=1,
@on_success_step_id=0,
@on_fail_action=2,
@on_fail_step_id=0,
@retry_attempts=3,
@retry_interval=1,
@os_run_priority=0, @subsystem=N'tsql',
@command=@jobprocvip,
@database_name=N'master',
@output_file_name='c:\sqlagentlog.txt',
@flags=0
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
execute @returncode = msdb.dbo.sp_update_job @job_id = @jobid, @start_step_id = 1
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the job schedules
execute @returncode = msdb.dbo.sp_add_jobschedule @job_id=@jobid, @name=N'<EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
@enabled=1,
@freq_type=4,
@freq_interval=1,
@freq_subday_type=1,
@freq_subday_interval=0,
@freq_relative_interval=0,
@freq_recurrence_factor=0,
@active_start_date=@startdate,
@active_end_date=99991231,
@active_start_time=@starttime,
@active_end_time=235959
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
-- add the target servers
execute @returncode = msdb.dbo.sp_add_jobserver @job_id = @jobid, @server_name = '(local)'
if (@@error <> 0 or @returncode <> 0)
if (@@trancount > 0)
begin
rollback transaction
return(-1)
end
end
commit transaction
return(1)
end
go
if exists (select * from sysobjects where name='p_show_sale_data' and xtype='p')
drop procedure p_show_sale_data
go
create procedure [dbo].p_show_sale_data
(
@psusercode varchar(6),
@psorgcode varchar(2000),
@psdate varchar(10),
@psmsg varchar(2000) out
)
as
declare @ssql varchar(2000)
begin
if exists (select 1 from tempdb..sysobjects where name = '#tmpsaledata' and xtype = 'u')
drop table #tmpsaledata
create table #tmpsaledata
(stime varchar(5),
total numeric(19,4),
cost numeric(19,4),
plugross numeric(19,4),
cusflux numeric(19,4))
set @ssql = '
insert into #tmpsaledata(stime,total,cost,plugross,cusflux)
--1.Ӫҵ<EFBFBD><EFBFBD>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
select tbla.stime,total,cost,total-cost,cusflux
from
(
select stime,sum(total) as total,sum(cusflux) as cusflux
from
(
select substring(stime,1,5) as stime,total,case when trantype in(''b'',''d'') then 1 else -1 end as cusflux
from t_flow_total
where sdate = '''+@psdate+''' and trantype in (''b'',''d'',''f'',''h'')
and charindex(orgcode + ''-''+posno,'''+@psorgcode+''') > 0
)a
group by stime
)tbla
join
--2.<EFBFBD>ɱ<EFBFBD>
(
select stime,sum(case when plutype <> ''2'' then jprice*pluqty else round(b.plutotal*(100-isnull(dkrate,0))/100,2) end ) as cost
from
(
select substring(stime,1,5) as stime,s.pluqty,
case when isnull(v1.jymode,'''') = ''2'' then ''2'' when (isnull(v1.jymode,'''') = '''' and isnull(v.jymode,'''') = ''2'') then ''2'' else g.plutype end as plutype,
isnull(dkrate,0) dkrate,s.plutotal,
case when isnull(plutype,'''') =''3'' then dbo.f_get_pack_jprice(''0'',s.plucode,s.orgcode) else isnull(o.jprice,0) end jprice
from t_flow_item s
left join t_plu g on s.plucode = g.plucode
left join t_plu_org o on s.plucode = o.plucode and s.orgcode = o.orgcode
left join t_supplier v on g.supcode =v.supcode
left join t_supplier v1 on o.supcode =v1.supcode
where trantype in (''b'',''d'',''f'',''h'')
and sdate = '''+@psdate+'''
and charindex(s.orgcode + ''-''+posno,'''+@psorgcode+''') > 0
) b
group by stime
) tblb on tbla.stime = tblb.stime
'
exec (@ssql)
select a.stime as ʱ<EFBFBD><EFBFBD>,round(sum(b.total),2) as <EFBFBD><EFBFBD><EFBFBD>۶<EFBFBD>,round(sum(b.plugross),2) as ë<EFBFBD><EFBFBD>,sum(b.cusflux) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from #tmpsaledata a join #tmpsaledata b on a.stime >= b.stime
group by a.stime,a.total,a.cost,a.plugross,a.cusflux
order by a.stime
if exists (select 1 from tempdb..sysobjects where name = '##tmpsaledata' and xtype = 'u')
drop table #tmpsaledata
end
go
if exists(select * from sysobjects where name = 'p_get_dscprice_forlbl' and xtype = 'p')
drop procedure p_get_dscprice_forlbl
go
create procedure p_get_dscprice_forlbl
(
@psorgcode varchar(10),
@psplucode varchar(20),
@pstblname varchar(100),
@psdate varchar(10),
@psprntype varchar(1),
@psisshow varchar(1),
@pscsbarcode varchar(40),
@psrtnmsg varchar(1000) output
)
as
declare @ssql varchar(8000)
declare @sver varchar(1)
begin
select @sver = itemvalue from t_syscfg where itemname = 'ver' and section = 'system'
if exists(select * from tempdb..sysobjects where id = object_id(N'tempdb..#tmpdscprice') and xtype = 'u')
drop table #tmpdscprice
create table #tmpdscprice
( indexno numeric (19,0) identity (1, 1) not null,
orgcode varchar(10),
plucode varchar(20),
billno varchar(20),
dscname varchar(40),
bgndate varchar(10),
enddate varchar(10),
bgntime varchar(8),
endtime varchar(8),
rzdate varchar(10),
rztime varchar(8),
dscprice numeric(19,4))
if @@error <> 0
begin
set @psrtnmsg ='<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return -1
end
set @ssql =
'
insert into #tmpdscprice(orgcode,plucode,billno,dscname,bgndate,enddate,bgntime,endtime,rzdate,rztime,dscprice)
select h.orgcode,g.plucode,p.billno,p.dscname,min(tm.bgndate) as bgndate,
max(tm.enddate) enddate,min(tm.bgntime) bgntime,max(tm.endtime) endtime,p.rzdate,p.rztime,
case when grptype=''p'' then yhprice
when dstype=''0'' then round(h.price*(1-dscrate/100),2) else round(o.jprice*(1+dscrate/100),2)
end as dscprice
from
t_prom_head p
,t_prom_body d '
if @sver = '1'
set @ssql = @ssql + ',t_prom_org s '
set @ssql = @ssql + ',t_prom_time tm,t_plu g,t_plu_org o'
if @psisshow = '1'
set @ssql = @ssql + ',(select distinct h.orgcode,h.plucode,h.barcode,h.csbarcode,h.price from t_label_prn_task h where prntype = '''+@psprntype+''') h'
else
begin
if @psprntype = '0' and @pscsbarcode <> ''
set @ssql = @ssql + ',(select o.orgcode,g.plucode,g.barcode, c.csbarcode as csbarcode,o.price from t_plu g '+
'join t_plu_org o on g.plucode = o.plucode '+
'join t_plu_org_cs c on g.plucode = c.plucode and o.orgcode = c.orgcode ' +
'where g.plucode = '''+@psplucode+''' and o.orgcode = '''+@psorgcode+''' and c.csbarcode = '''+@pscsbarcode+''') h'
else
set @ssql = @ssql + ',(select o.orgcode,g.plucode,g.barcode, ''*'' as csbarcode,o.price from t_plu g '+
'join t_plu_org o on g.plucode = o.plucode '+
'where g.plucode = '''+@psplucode+''' and o.orgcode = '''+@psorgcode+''') h'
end
set @ssql = @ssql + ' where exists (select billno from t_prom_time
where billno=p.billno
and '''+@psdate+''' between bgndate and enddate
and convert(varchar(8),getdate(),108)<=endtime
and substring(weekdays,case when datepart(dw,'''+@psdate+''') =1 then 7 else datepart(dw,'''+@psdate+''')-1 end, 1) = ''1'')
and p.custtype=''0'' and p.yhtype=''0''
and ((grptype = ''a'') or
(grptype=''d'' and grpcode = g.depcode) or
(grptype=''p'' and grpcode = h.plucode and (d.csbarcode = h.csbarcode or d.csbarcode = ''*'')) or
(grptype=''b'' and grpcode = g.brandcode ) or
(grptype=''s'' and grpcode = g.supcode ) or
(grptype=''c'' and grpcode = g.clscode))
and not exists (select billno from t_prom_body where billno=p.billno and grpcode = h.plucode and grptype=''n'')
and ('''+@psorgcode+''' = ''<ȫ<EFBFBD><EFBFBD>>'' or h.orgcode = '''+@psorgcode+''')
and ('''+@psplucode+''' = '''' or h.plucode = '''+@psplucode+''' or h.barcode = '''+@psplucode+''' or h.csbarcode = '''+@psplucode+''')
and h.plucode = g.plucode
and p.billno = d.billno '
if @sver = '1'
set @ssql = @ssql + ' and p.billno = s.billno and s.orgcode = h.orgcode '
set @ssql = @ssql + 'and p.billno = tm.billno
and g.plucode = o.plucode
and o.orgcode = h.orgcode
and rzdate<>'''' and rzdate is not null
group by h.orgcode,g.plucode,p.billno,p.dscname,grptype,yhprice,dstype,h.plucode,d.dscrate,o.jprice,h.price,p.rzdate,p.rztime
order by h.orgcode,g.plucode,
case when grptype=''p'' then ''1'' else ''0'' end desc,
p.rzdate desc,p.rztime desc,dscprice asc'
exec (@ssql)
if @@error <> 0
begin
set @psrtnmsg ='<EFBFBD><EFBFBD><EFBFBD>´<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return -1
end
set @ssql = 'truncate table '+ @pstblname
exec (@ssql)
set @ssql = 'insert into '+@pstblname+'(orgcode,plucode,billno,dscname,bgndate,bgntime,enddate,endtime,dscprice)
select a.orgcode,a.plucode,a.billno,a.dscname,a.bgndate,a.bgntime,a.enddate,a.endtime,a.dscprice from #tmpdscprice a join
(select min(indexno) indexno,orgcode,plucode from #tmpdscprice group by orgcode,plucode) b
on a.indexno = b.indexno'
exec (@ssql)
if @@error <> 0
begin
set @psrtnmsg ='<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return -1
end
return 1
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_deal_pda_pd_data]') and objectproperty(id, N'isprocedure') = 1)
drop procedure [dbo].[p_deal_pda_pd_data]
go
create procedure p_deal_pda_pd_data
@iserialno int,
@susercode varchar(6),
@susername varchar(10),
@srtnmsg varchar(8000) out
as
begin
declare @scurorgcode varchar(10)
declare @scurver varchar(1)
declare @irows int
declare @idetailserialno int
declare @spdno varchar(20)
declare @sorgcode varchar(10)
declare @sbillno varchar(20)
declare @splace varchar(1)
select @scurorgcode = itemvalue from t_syscfg where section = 'system' and itemname = 'branchno'
select @scurver = itemvalue from t_syscfg where section = 'system' and itemname = 'ver'
set @srtnmsg = ''
delete from t_intf_check_data where serialno = @iserialno and isnull(pdno,'') = ''
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
if @scurver = '0'
begin
delete from t_intf_check_data where serialno = @iserialno and isnull(orgcode,'') <> @scurorgcode
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
end
delete a
from t_intf_check_data a left join t_shop b on a.orgcode = b.orgcode
where a.serialno = @iserialno and b.orgcode is null
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><EFBFBD>в<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><EFBFBD>в<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a left join t_check_task b on a.pdno = b.pdno and a.orgcode = b.orgcode
where a.serialno = @iserialno and b.pdno is null
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><EFBFBD>в<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><EFBFBD>в<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a left join t_check_task b on a.pdno = b.pdno and a.orgcode = b.orgcode
where a.serialno = @iserialno and b.pdstatus = '1'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
if exists(select top 1 * from t_intf_check_data where serialno = @iserialno)
begin
set @spdno = ''
set @sorgcode = ''
declare cur_dealpddata cursor for select distinct pdno,orgcode from t_intf_check_data where serialno = @iserialno
open cur_dealpddata
fetch next from cur_dealpddata into @spdno,@sorgcode
while @@fetch_status = 0
begin
delete a
from t_intf_check_data a left join t_plu b on a.plucode = b.plucode
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and b.plucode is null
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a left join t_plu_org b on a.plucode = b.plucode and a.orgcode = b.orgcode and b.isright = '1'
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and b.plucode is null
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒû<EFBFBD>о<EFBFBD>ӪȨ<EFBFBD>ޣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒû<EFBFBD>о<EFBFBD>ӪȨ<EFBFBD>ޣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a, t_plu b
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and a.plucode = b.plucode and b.plustatus = '2'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>Ѿ<EFBFBD><EFBFBD><EFBFBD>̭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>Ѿ<EFBFBD><EFBFBD><EFBFBD>̭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a, t_plu b
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and a.plucode = b.plucode and b.plustatus = '9'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒδ<EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒδ<EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a, t_plu b
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and a.plucode = b.plucode and b.plutype = '3'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete a
from t_intf_check_data a left join (select t2.plucode from t_check_task t1,t_check_snap t2 where t1.pdno = @spdno and t1.orgcode = @sorgcode and t1.pdno = t2.pdno) b on a.plucode = b.plucode
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and b.plucode is null
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
end
delete t_intf_check_data where counts =0
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
end
if exists(select top 1 * from t_intf_check_data where serialno = @iserialno and pdno = @spdno and orgcode = @sorgcode)
begin
set @sbillno = ''
exec f_get_billno 'pd',@sorgcode,'1',@sbillno output
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD>ݺ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD>ݺ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
if @sbillno <> ''
begin
set @idetailserialno = 0
set @splace = ''
select @splace = place from t_check_task where orgcode = @sorgcode and pdno = @spdno
update t_intf_check_data set pluserialno = @idetailserialno,@idetailserialno = @idetailserialno + 1
where serialno = @iserialno and pdno = @spdno and orgcode = @sorgcode
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
insert into t_check_body(billno,serialno,plucode,pluname,barcode,cargono,spec,unit,jprice,netjprice,price,ocount,counts,sglcount,cost,netcost,total,depcode,depname)
select @sbillno,pluserialno,g.plucode,g.pluname,a.barcode,g.cargono,g.spec,g.unit,o.jprice,o.netjprice,p.price,p.ocount,a.counts,a.counts,0,0,0,isnull(g.depcode,''),isnull(d.depname,'')
from t_intf_check_data a,t_plu_org o,t_check_snap p,t_plu g left join t_dept d on g.depcode = d.depcode
where a.serialno = @iserialno and a.pdno = @spdno and a.orgcode = @sorgcode and
a.plucode = o.plucode and a.orgcode = o.orgcode and a.plucode = p.plucode and a.pdno = p.pdno and
a.plucode = g.plucode and o.isright = '1' and a.counts <> 0
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
if exists(select top 1 * from t_check_body where billno = @sbillno)
begin
insert into t_check_head(billno,lrdate,lrtime,rzdate,accdate,orgcode,billtype,pdno,place,gentype,devcode,counts,cost,netcost,total,zdrcode,zdrname,shrcode,shrname,usercode,username,prntimes,chkstatus,remark)
values(@sbillno,convert(varchar(10),getdate(),126),convert(varchar(8),getdate(),8),'','',@sorgcode,'0',@spdno,@splace,'1','',0,0,0,0,@susercode,@susername,'','',@susercode,@susername,0,'0','<EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD>ͷʧ<CDB7>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD>ͷʧ<CDB7>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
delete from t_check_body where billno = @sbillno
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
update t_check_body set cost=round(jprice*counts,2),netcost=round(netjprice*counts,2),total=round(price*counts,2)
where billno = @sbillno
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
delete from t_check_body where billno = @sbillno
delete from t_check_head where billno = @sbillno
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
update b set b.counts = a.counts,b.cost = a.cost,b.netcost = a.netcost,b.total=a.total
from (select billno,sum(counts) as counts,sum(cost) as cost,sum(netcost) as netcost,sum(total) as total
from t_check_body where billno = @sbillno group by billno) a,t_check_head b
where a.billno = b.billno
if @@error <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD>ͷʧ<CDB7>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD>ͷʧ<CDB7>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
delete from t_check_body where billno = @sbillno
delete from t_check_head where billno = @sbillno
fetch next from cur_dealpddata into @spdno,@sorgcode
continue
end
end
end
else
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD>ݺ<EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>['+@sorgcode+']<5D><><EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD><EFBFBD>['+@spdno+']<5D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>̵<EFBFBD><CCB5><EFBFBD><EFBFBD>ݺ<EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD>'
end
fetch next from cur_dealpddata into @spdno,@sorgcode
end
else
fetch next from cur_dealpddata into @spdno,@sorgcode
end
close cur_dealpddata
deallocate cur_dealpddata
delete from t_intf_check_data where serialno = @iserialno
end
return(1)
end
go
if exists (select * from sysobjects where id = object_id('p_create_kcpdsnap_cs_detail') and objectproperty(id, 'isprocedure') = 1)
drop procedure p_create_kcpdsnap_cs_detail
go
create procedure p_create_kcpdsnap_cs_detail
(
@porgcode varchar(10),
@ppdno varchar(20),
@prtnmsg varchar(2000) output
)
as
begin
declare @sorgmngcsstock varchar(1)
declare @splace varchar(1)
set @prtnmsg = ''
select @sorgmngcsstock = mngcsstock from t_shop where orgcode= @porgcode
select @splace = place from t_check_task where orgcode = @porgcode and pdno = @ppdno
if @sorgmngcsstock = '1'
begin
insert into t_check_snap_cs(pdno,plucode,csbarcode,colorcode,sizecode,ocounts,pcounts)
select distinct @ppdno,o.plucode,o.csbarcode,colorcode,sizecode,case @splace when '0' then gcount else ccount end ,0
from t_plu_org_cs o,
(select t.pdno,t.plucode,g.mngcs from t_check_snap t left join t_plu g on t.plucode = g.plucode where t.pdno = @ppdno) k
where orgcode=@porgcode and o.plucode = k.plucode and k.mngcs = '1'
if @@error <> 0
begin
set @prtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒʧ<EFBFBD><EFBFBD>'
return(-1)
end
insert into t_check_snap_cs(pdno,plucode,csbarcode,colorcode,sizecode,ocounts,pcounts)
select distinct @ppdno,o.plucode,g.csbarcode,g.colorcode,g.sizecode,0,0
from t_plu_org o, t_plu_cs g,
(select t.pdno,t.plucode,g.mngcs from t_check_snap t left join t_plu g on t.plucode = g.plucode where t.pdno = @ppdno) k
where orgcode=@porgcode and o.plucode = g.plucode and o.plucode = k.plucode and k.mngcs = '1' and
not exists(select plucode from t_plu_org_cs where plucode=g.plucode and colorcode=g.colorcode and sizecode=g.sizecode and orgcode = @porgcode)
if @@error <> 0
begin
set @prtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><EFBFBD><EFBFBD>뵫û<EFBFBD><EFBFBD>ɫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒʧ<EFBFBD><EFBFBD>'
return(-1)
end
insert into t_check_snap_cs(pdno,plucode,csbarcode,colorcode,sizecode,ocounts,pcounts)
select distinct @ppdno,o.plucode,g.barcode as csbarcode,'00','00',case @splace when '0' then gcount else ccount end,0
from t_plu_org o, t_plu g, (select t.pdno,t.plucode,g.mngcs from t_check_snap t left join t_plu g on t.plucode = g.plucode where t.pdno = @ppdno) k
where k.pdno = @ppdno and orgcode=@porgcode and o.plucode = g.plucode and o.plucode = k.plucode and k.mngcs = '0'
if @@error <> 0
begin
set @prtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒʧ<EFBFBD><EFBFBD>'
return(-1)
end
end
else
begin
insert into t_check_snap_cs(pdno,plucode,csbarcode,colorcode,sizecode,ocounts,pcounts)
select distinct @ppdno,o.plucode,g.barcode as csbarcode,'00','00',case @splace when '0' then gcount else ccount end,0
from t_plu_org o, t_plu g, (select t.pdno,t.plucode,g.mngcs from t_check_snap t left join t_plu g on t.plucode = g.plucode where t.pdno = @ppdno) k
where k.pdno = @ppdno and orgcode=@porgcode and o.plucode = g.plucode and o.plucode = k.plucode
if @@error <> 0
begin
set @prtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
end
return(1)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_create_order_quote_by_dsc') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_create_order_quote_by_dsc
go
create procedure p_create_order_quote_by_dsc
(
@sdsccode varchar(20),
@sbgndate varchar(10),
@senddate varchar(10),
@susercode varchar(6),
@susername varchar(10),
@ibillcount int output,
@srtnmsg varchar(1000) output
)
as
begin
declare @svendorcode varchar(15)
declare @sbillno varchar(20)
declare @sorgcode varchar(10)
declare @scheckmode varchar(1)
set @ibillcount = 0
set @scheckmode = '0'
select @scheckmode = chkmode from t_bill_type where billcode = 'oq'
set @srtnmsg = ''
select @sorgcode = itemvalue from t_syscfg where itemname='branchno'
if isnull(@sbgndate,'') = ''
begin
set @srtnmsg = '<EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
if isnull(@senddate,'') = ''
begin
set @srtnmsg = '<EFBFBD><EFBFBD>ֹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
declare cur_createquote cursor for
select distinct case when isnull(c.supcode,'') = '' then b.supcode else c.supcode end as supcode
from t_prom_body a,t_plu b,t_plu_org c, t_prom_org d
where a.billno = @sdsccode and d.billno = @sdsccode and a.grptype = 'p' and a.grpcode = b.plucode and a.grpcode = c.plucode and c.orgcode = d.orgcode
open cur_createquote
fetch next from cur_createquote into @svendorcode
while @@fetch_status = 0
begin
if isnull(@svendorcode,'')=''
begin
fetch next from cur_createquote into @svendorcode
continue
end
exec f_get_billno 'oq',@sorgcode,'1',@sbillno output
if @@error <> 0
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD>ɵ<EFBFBD><EFBFBD>ݺ<EFBFBD>ʧ<EFBFBD><EFBFBD>'
close cur_createquote
deallocate cur_createquote
return(-1)
end
insert into t_orderquote_body(billno,serialno,plucode,barcode,pluname,depcode,depname,spec,cargono,unit,jtaxrate,remark)
select distinct @sbillno,a.serialno,a.grpcode as plucode,b.barcode,b.pluname,b.depcode,(select depname from t_dept where depcode=b.depcode) as depname,
b.spec,b.cargono,b.unit,jtaxrate,'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' as remark
from t_prom_body a,t_plu b,t_plu_org c, t_prom_org d
where a.billno = @sdsccode and d.billno = @sdsccode and a.grptype = 'p' and a.grpcode = b.plucode and a.grpcode = c.plucode and c.orgcode = d.orgcode and
case when isnull(c.supcode ,'') = '' then b.supcode else c.supcode end = @svendorcode
if @@error <> 0
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
close cur_createquote
deallocate cur_createquote
return(-1)
end
if not exists(select * from t_orderquote_body where billno = @sbillno)
begin
set @srtnmsg = @srtnmsg + char(13) + '<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>'+@svendorcode+'û<EFBFBD>в<EFBFBD>ѯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
fetch next from cur_createquote into @svendorcode
continue
end
insert into t_orderquote_org(billno,serialno,plucode,orgcode,jprice,netjprice,remark)
select a.billno,a.serialno,a.plucode,c.orgcode,b.jprice,b.netjprice,'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' as remark
from t_orderquote_body a,t_prom_body b,t_prom_org c
where a.billno = @sbillno and a.plucode = b.grpcode and b.billno = @sdsccode and c.billno = @sdsccode and b.grptype = 'p'
if @@error <> 0
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
close cur_createquote
deallocate cur_createquote
return(-1)
end
if not exists(select * from t_orderquote_org where billno = @sbillno)
begin
set @srtnmsg = @srtnmsg + char(13) + '<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>'+@svendorcode+'û<EFBFBD>в<EFBFBD>ѯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
delete from t_orderquote_body where billno = @sbillno
fetch next from cur_createquote into @svendorcode
continue
end
insert into t_orderquote_head(billno,orgcode,supcode,supname,quotetype,bgndate,enddate,chkstatus,
shrcode,shrname,rzdate,rztime,lrdate,lrtime,usercode,username,zdrcode,zdrname,remark,dsccode)
select @sbillno,@sorgcode,@svendorcode,supname,'1' as quotetype,@sbgndate,@senddate,case when @scheckmode = '0' then '1' else '0' end as chkstatus,
case when @scheckmode = '0' then @susercode else null end as chkstatus,case when @scheckmode = '0' then @susername else null end as shrname,
'' as rzdate,'' as rztime,convert(varchar(10),getdate(),126) as lrdate,convert(varchar(8),getdate(),8) as lrtime,
@susercode as usercode,@susername as username,@susercode as zdrcode,@susername as zdrname,'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' as remark,@sdsccode as dsccode
from t_supplier
where supcode = @svendorcode
if @@error <> 0
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><EFBFBD><EFBFBD>۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
close cur_createquote
deallocate cur_createquote
return(-1)
end
if not exists(select * from t_orderquote_head where billno = @sbillno)
begin
set @srtnmsg = @srtnmsg + char(13) + '<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>'+@svendorcode+'û<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><EFBFBD>۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
delete from t_orderquote_body where billno = @sbillno
delete from t_orderquote_org where billno = @sbillno
fetch next from cur_createquote into @svendorcode
continue
end
exec p_rz_oq @sorgcode,@sbillno,'',@srtnmsg output
if @@error <> 0
begin
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD>۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
close cur_createquote
deallocate cur_createquote
return(-1)
end
set @ibillcount = @ibillcount + 1
fetch next from cur_createquote into @svendorcode
end
close cur_createquote
deallocate cur_createquote
if isnull(@srtnmsg,'') = ''
return(1)
else
return(0)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_deal_pda_lblprn_task_data') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_deal_pda_lblprn_task_data
go
create procedure p_deal_pda_lblprn_task_data
@iserialno int,
@susercode varchar(6),
@susername varchar(10),
@srtnmsg varchar(8000) out
as
begin
declare @scurorgcode varchar(10)
declare @scurver varchar(1)
declare @irows int
declare @idetailserialno int
declare @spdno varchar(20)
declare @sorgcode varchar(10)
declare @sbillno varchar(20)
declare @splace varchar(1)
select @scurorgcode = itemvalue from t_syscfg where section = 'system' and itemname = 'branchno'
select @scurver = itemvalue from t_syscfg where section = 'system' and itemname = 'ver'
set @srtnmsg = ''
set @irows = 0
delete from t_intf_lblprntask_data where serialno = @iserialno and isnull(plucode,'') = '' and prntype = '1'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_lblprntask_data
where not exists(select plucode from t_plu where plucode = t_intf_lblprntask_data.plucode) and serialno = @iserialno and prntype = '1'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_lblprntask_data
where not exists(select plucode from t_plu_org where plucode = t_intf_lblprntask_data.plucode and orgcode = t_intf_lblprntask_data.orgcode and isright = '1') and serialno = @iserialno and prntype = '1'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
insert into t_label_prn_task(plucode,pluname,barcode,prncount,orgcode,price,vipprice,unit,spec,prodarea,prntype,remark)
select m.plucode,isnull(r.pluname,g.pluname) as pluname,m.barcode,m.prncount,m.orgcode,o.price,o.vipprice,g.unit,isnull(r.spec,g.spec) as spec,g.prodarea,'1' as prntype,m.remark
from t_intf_lblprntask_data m left join t_plu g on m.plucode = g.plucode
left join t_barcode_ref r on m.plucode = r.plucode and m.barcode = r.barcode
left join t_plu_org o on m.plucode = o.plucode and m.orgcode = o.orgcode
where m.prntype = '1' and serialno = @iserialno
delete from t_intf_lblprntask_data where serialno = @iserialno and isnull(plucode,'') = '' and prntype = '0'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_lblprntask_data
where not exists(select plucode from t_plu where plucode = t_intf_lblprntask_data.plucode) and serialno = @iserialno and prntype = '0'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_lblprntask_data
where not exists(select plucode from t_plu_org where plucode = t_intf_lblprntask_data.plucode and orgcode = t_intf_lblprntask_data.orgcode and isright = '1') and serialno = @iserialno and prntype = '0'
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
insert into t_label_prn_task(plucode,pluname,barcode,prncount,orgcode,price,vipprice,unit,spec,prodarea,prntype,remark)
select m.plucode,isnull(r.pluname,g.pluname) as pluname,m.barcode,m.prncount,m.orgcode,o.price,o.vipprice,g.unit,isnull(r.spec,g.spec) as spec,g.prodarea,'0' as prntype,m.remark
from t_intf_lblprntask_data m left join t_plu g on m.plucode = g.plucode
left join t_barcode_ref r on m.plucode = r.plucode and m.barcode = r.barcode
left join t_plu_org o on m.plucode = o.plucode and m.orgcode = o.orgcode
where m.prntype = '0' and serialno = @iserialno
delete from t_intf_lblprntask_data where serialno = @iserialno
return(1)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_deal_pda_pdcard_plu_data') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_deal_pda_pdcard_plu_data
go
create procedure p_deal_pda_pdcard_plu_data
@iserialno int,
@susercode varchar(6),
@susername varchar(10),
@srtnmsg varchar(8000) out
as
begin
declare @irows int
declare @sorgcode varchar(10)
declare @scardcode varchar(20)
declare @imaxserialno int
declare @iloop int
set @srtnmsg = ''
set @irows = 0
delete from t_intf_cardplu_data where serialno = @iserialno and isnull(plucode,'') = ''
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_cardplu_data where serialno = @iserialno and isnull(orgcode,'') = ''
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_cardplu_data where serialno = @iserialno and isnull(cardcode,'') = ''
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD>ܱ<EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD>ܱ<EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_cardplu_data
where not exists(select plucode from t_plu where plucode = t_intf_cardplu_data.plucode) and serialno = @iserialno
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_cardplu_data
where not exists(select plucode from t_plu_org where plucode = t_intf_cardplu_data.plucode and orgcode = t_intf_cardplu_data.orgcode and isright = '1') and serialno = @iserialno
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӪȨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
delete from t_intf_cardplu_data
where not exists(select cardcode from t_chkcard where cardcode = t_intf_cardplu_data.cardcode and orgcode = t_intf_cardplu_data.orgcode ) and serialno = @iserialno
set @irows = @@rowcount
if @irows <> 0
begin
if @srtnmsg = ''
set @srtnmsg = '<EFBFBD><EFBFBD>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><EFBFBD>룬<EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
else
set @srtnmsg = @srtnmsg + '|<7C><>'+convert(varchar(30),@irows)+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܱ<EFBFBD><EFBFBD>룬<EFBFBD><EFBFBD><EFBFBD>ܵ<EFBFBD><EFBFBD><EFBFBD>'
end
update a set a.pluorderno = b.maxserialno
from t_intf_cardplu_data a,
(select orgcode,cardcode,max(serialno) as maxserialno from t_chkcard_plu
group by orgcode,cardcode) b
where a.orgcode = b.orgcode and a.cardcode = b.cardcode
declare cur_setorderno cursor for select distinct orgcode,cardcode from t_intf_cardplu_data
open cur_setorderno
fetch next from cur_setorderno into @sorgcode,@scardcode
set @iloop = 0
while @@fetch_status = 0
begin
update t_intf_cardplu_data set pluorderno = @imaxserialno + @iloop,@imaxserialno = pluorderno,@iloop = @iloop + 1
where orgcode = @sorgcode and cardcode = @scardcode
fetch next from cur_setorderno into @sorgcode,@scardcode
set @iloop = 0
end
close cur_setorderno
deallocate cur_setorderno
insert into t_chkcard_plu(orgcode,cardcode,serialno,plucode,pluname,barcode,spec)
select m.orgcode,m.cardcode,m.pluorderno,m.plucode,isnull(g.pluname,r.pluname) as pluname,m.barcode,isnull(g.spec,r.spec) as spec
from t_intf_cardplu_data m left join t_plu g on m.plucode = g.plucode
left join t_barcode_ref r on m.plucode = r.plucode and m.barcode = r.barcode
where serialno = @iserialno
delete from t_intf_cardplu_data where serialno = @iserialno
return(1)
end
go
if exists(select * from sysobjects where name = 'p_qry_sup_stock' and xtype = 'p')
drop procedure p_qry_sup_stock
go
create procedure p_qry_sup_stock
(
@psorgcode varchar(10),
@psplucode varchar(20),
@psvendorcode varchar(15),
@psisrealstock varchar(1),
@psrtnmsg varchar(1000) output
)
as
declare @ssql varchar(8000)
begin
if exists(select * from tempdb..sysobjects where id = object_id(N'tempdb..#tmporg') and xtype = 'u')
drop table #tmporg
select orgcode,orgname into #tmporg from t_shop
where (@psorgcode <> 'c00000' and orgcode = @psorgcode ) or (@psorgcode = 'c00000' and orgtype = '2')
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if exists(select * from sysobjects where id = object_id(N'tempdb..#tmpvendorplu') and xtype = 'u')
drop table #tmpvendorplu
select supcode,plucode into #tmpvendorplu from t_supaccept_detail c
where (@psvendorcode = '' or supcode = @psvendorcode) and (@psplucode = '' or plucode = @psplucode)
and exists(select 1 from #tmporg where orgcode = c.orgcode) and counts <> ftcounts group by supcode,plucode
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if exists(select * from sysobjects where id = object_id(N'tempdb..#tmpvendorplustock') and xtype = 'u')
drop table #tmpvendorplustock
select * into #tmpvendorplustock from t_supaccept_detail c
where exists (select 1 from #tmpvendorplu where plucode = c.plucode and supcode = c.supcode)
and exists (select 1 from #tmporg where orgcode = c.orgcode) and c.counts <> c.ftcounts
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if exists (select * from sysobjects where id = object_id(N'tempdb..#tmppluvendorstock') and xtype = 'u')
drop table #tmppluvendorstock
select * into #tmppluvendorstock
from t_supaccept_detail c
where exists (select 1 from #tmpvendorplu where plucode = c.plucode)
and exists (select 1 from #tmporg where orgcode = c.orgcode) and c.counts <> c.ftcounts
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>¸<EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>̿<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if exists (select * from sysobjects where id = object_id(N'tempdb..#tmpgoodsorg') and xtype = 'u')
drop table #tmpgoodsorg
create table #tmpgoodsorg
(plucode varchar(20),
stockcount numeric(19,4))
if @psisrealstock <> '1'
insert into #tmpgoodsorg
select plucode,sum(d.gcount + d.ccount) as stockcount from t_plu_org d
where exists (select 1 from #tmpvendorplu where d.plucode = plucode)
and exists (select 1 from #tmporg where d.orgcode = orgcode) group by d.plucode
else
insert into #tmpgoodsorg
select plucode,sum(stockcount) as stockcount from
(select plucode,sum(d.gcount + d.ccount) as stockcount from t_plu_org d
where exists (select 1 from #tmpvendorplu where plucode = d.plucode)
and exists (select 1 from #tmporg where orgcode = d.orgcode) group by d.plucode
union all
select plucode,-1*sum(pluqty) as stockcount from t_flow_item d
where exists (select 1 from #tmpvendorplu where plucode = d.plucode)
and exists (select 1 from #tmporg where orgcode = d.orgcode) group by plucode
) a group by plucode
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>Ŀ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if exists(select * from tempdb..sysobjects where id = object_id(N'tempdb..#tmpstockdest') and xtype = 'u')
drop table #tmpstockdest
create table #tmpstockdest
(indexno int,
billno varchar(20) not null default('*'),
supcode varchar(15) not null,
supname varchar(100) null,
plucode varchar(20) not null,
pluname varchar(40) null,
orgcode varchar(10) not null,
orgname varchar(30) null,
stockcount numeric(19,4) not null default(0),
acceptcount numeric(19,4) not null default(0),
jprice numeric(19,4) not null default(0),
netjprice numeric(19,4) not null default(0),
price numeric(19,4) not null default(0))
insert into #tmpstockdest(indexno,billno,supcode,supname,plucode,pluname,orgcode,orgname,
stockcount,acceptcount,jprice,netjprice,price)
select indexno,billno,supcode,supname,plucode,pluname,orgcode,orgname,
case when (stockcount - deccounts) > 0 then
case when (stockcount - deccounts) - owncounts >=0 then owncounts else stockcount - deccounts end
else 0 end as stockcount, counts,jprice,netjprice,price
from
(select c.indexno,c.billno, c.plucode,c.pluname,c.supcode ,c.supname,c.orgcode,c.orgname,
c.jprice,c.netjprice,c.price,c.counts,
(c.counts-c.ftcounts) as owncounts,isnull(o.stockcount,0) as stockcount,
sum(isnull(d.counts,0) - isnull(d.ftcounts,0)) as deccounts
from #tmpvendorplustock c
left join #tmppluvendorstock d on c.plucode = d.plucode and c.indexno < d.indexno
left join #tmpgoodsorg o on c.plucode = o.plucode
group by c.indexno,c.billno, c.plucode,c.pluname,c.supcode ,c.supname,isnull(o.stockcount,0),c.counts,c.ftcounts,
c.orgcode,c.orgname,c.jprice,c.netjprice,c.price
) a
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>Ŀ<EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
if @psplucode <> '' and @psvendorcode = ''
begin
insert into #tmpstockdest(plucode,pluname,supcode ,supname,orgcode,orgname,stockcount,acceptcount,jprice,netjprice,price)
select s.plucode,s.pluname, 'none','<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>',@psorgcode,'',avg(o.stockcount) - sum(counts - ftcounts) ,0,0,0,0
from #tmppluvendorstock s,#tmpgoodsorg o
where s.plucode = o.plucode
group by s.plucode,s.pluname
having avg(o.stockcount) - sum(counts - ftcounts) > 0
if @@error <> 0
begin
set @psrtnmsg = '<EFBFBD><EFBFBD><EFBFBD>²<EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return(-1)
end
end
select a.plucode,a.pluname,b.barcode,b.spec,b.unit,a.supcode ,a.supname,sum(a.stockcount) as counts,sum(stockcount * a.jprice) as cost,sum(stockcount*a.netjprice) as netcost,sum(stockcount * a.price) as total
from #tmpstockdest a,t_plu b where a.plucode=b.plucode
group by b.barcode,b.spec,b.unit,a.supcode ,a.supname,a.plucode,a.pluname
return(1)
end
go
if exists(select * from sysobjects where name = 'p_calc_vip_pt' and xtype = 'p')
drop procedure p_calc_vip_pt
go
create procedure p_calc_vip_pt
(
@svipdbname varchar(100),
@sserialno varchar(8),
@sposno varchar(6),
@sorgcode varchar(10),
@sdate varchar(10),
@stime varchar(8),
@strantype varchar(1),
@serrmsg varchar(2000) out
)
as
begin
declare @ssql nvarchar(4000)
declare @svipcode varchar(20)
declare @svipcanjf varchar(1)
declare @irecordcount int
declare @scurdate varchar(10)
declare @svipbirthday varchar(10)
declare @sposcfg_dscjf varchar(1)
declare @iposcfg_morejfset varchar(10)
declare @sitemplucode varchar(20)
declare @sitemclscode varchar(10)
declare @sitemdepcode varchar(10)
declare @sitembrand varchar(10)
declare @citempludsc numeric(19,4)
declare @citemplutotal numeric(19,4)
declare @sitempageno varchar(2)
declare @sitemitemno varchar(5)
declare @ctrade_total numeric(19,4)
declare @cpay_canjftotal numeric(19,4)
declare @ccanjfpayrate numeric(19,4)
declare @sitempludsctype varchar(1)
declare @ctmpflxftotal numeric(19,4)
declare @ctmpyxrate numeric(19,4)
declare @cjfaddrate numeric(19,4)
declare @cviptypejfaddrate numeric(19,4)
declare @ctmpjftotal numeric(19,4)
declare @sjfistrunc varchar(1)
declare @sclsuppercode1 varchar(10)
declare @sclsuppercode2 varchar(10)
declare @sclsuppercode3 varchar(10)
declare @sclsuppercode4 varchar(10)
declare @sclsuppercode5 varchar(10)
declare @sdepuppercode1 varchar(10)
declare @sdepuppercode2 varchar(10)
declare @sdepuppercode3 varchar(10)
declare @sdepuppercode4 varchar(10)
set @ctmpflxftotal = 0.00
set @ctmpyxrate = 0.00
set @ctmpjftotal = 0.00
set @scurdate = convert(varchar(10),getdate(),126)
set @svipcode = ''
select @svipcode = custcode from t_flow_total
where serialno = @sserialno and posno = @sposno and orgcode = @sorgcode and sdate = @sdate and stime = @stime and trantype = @strantype
if @svipcode = ''
return(1)
set @svipcanjf = ''
set @ssql = N'select @scanjf = b.canjf, @jfaddrate = jfaddrate from '+@svipdbname+'..t_vip a left join '+@svipdbname+'..t_viptype b on a.viptype = b.lxcode where a.vipcode = '''+@svipcode+''''
exec sp_executesql @ssql,N'@scanjf varchar(1) output,@jfaddrate numeric(19,4) output',@svipcanjf out,@cviptypejfaddrate out
if @svipcanjf <> '1'
return(1)
select @sposcfg_dscjf = itemvalue from t_poscfg where posno = @sposno and orgcode = @sorgcode and itemname = 'dsc jf' and section = 'vip'
select @iposcfg_morejfset = itemvalue from t_poscfg where posno = @sposno and orgcode = @sorgcode and itemname = 'morejfset' and section = 'system'
select @sjfistrunc = case when itemvalue = 'no' then '0' else '1' end from t_poscfg where posno = @sposno and orgcode = @sorgcode and section = 'vip' and itemname = 'vipjfistrunc'
declare cur_calcvipjf_item cursor for select a.pageno,a.itemno,a.plucode,a.clscode,a.depcode,isnull(b.brandcode ,''),pludsc,plutotal,pludsctype,isnull(d.uppercode1,''),isnull(d.uppercode2,'') ,isnull(d.uppercode3,''),isnull(d.uppercode4,''),isnull(c.uppercode1,''),isnull(c.uppercode2,''),isnull(c.uppercode3,''),isnull(c.uppercode4,''),isnull(c.uppercode5,'')
from t_flow_item a left join t_plu b on a.plucode = b.plucode
left join t_dept d on b.depcode = d.depcode
left join t_gclass c on b.clscode = c.clscode
where serialno = @sserialno and posno = @sposno and orgcode = @sorgcode and sdate = @sdate and stime = @stime and trantype = @strantype
open cur_calcvipjf_item
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
while @@fetch_status = 0
begin
set @sitemclscode = case when isnull(@sitemclscode,'') = '' then 'none' else @sitemclscode end
set @sitemdepcode = case when isnull(@sitemdepcode,'') = '' then 'none' else @sitemdepcode end
set @sitembrand = case when isnull(@sitembrand,'') = '' then 'none' else @sitembrand end
if @sposcfg_dscjf = '0'
begin
if @sitempludsctype <> '' and @sitempludsctype <> 'b'
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '1'
begin
if (@sitempludsctype <> '1') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '2'
begin
if (@sitempludsctype <> '2') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '3'
begin
if (@sitempludsctype <> '1') and (@sitempludsctype <> '2') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '4'
begin
if (@sitempludsctype <> '9') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '5'
begin
if (@sitempludsctype <> '1') and (@sitempludsctype <> '9') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '6'
begin
if (@sitempludsctype <> '2') and (@sitempludsctype <> '9') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
else if @sposcfg_dscjf = '7'
begin
if (@sitempludsctype <> '1') and (@sitempludsctype <> '2') and (@sitempludsctype <> '9') and (@sitempludsctype <> '') and (@sitempludsctype <> 'b')
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
end
set @irecordcount = 0
set @ssql = N'select @irecordcount = count(*) from '+@svipdbname+'..t_vippt_rate where grpcode = '''+@sitemplucode+''' and grptype = ''9'''
exec sp_executesql @ssql,N'@irecordcount int output',@irecordcount out
if @@error<>0
begin
set @serrmsg = '<EFBFBD>ж<EFBFBD><EFBFBD><EFBFBD>Ʒ['+@sitemplucode+']<5D>Dz<EFBFBD><C7B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
return(-1)
end
if isnull(@irecordcount,0) > 0
begin
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
continue
end
set @ctmpyxrate = null
set @ssql = N'select @yxrate = yxrate from '+@svipdbname+'..t_vippt_rate where grpcode = '''+@sitemplucode+''' and grptype = ''3'''
exec sp_executesql @ssql,N'@yxrate numeric(19,4) output',@ctmpyxrate out
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ʒ['+@sitemplucode+']<5D>ĵ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
return(-1)
end
if not @ctmpyxrate is null
begin
set @ctmpflxftotal = @ctmpflxftotal + @citemplutotal
set @ctmpjftotal = round(@citemplutotal * @ctmpyxrate / 100.00, 2)
set @ssql = N' insert into '+@svipdbname + '..t_vippt_item_flow(vipcode,posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,plucode,barcode,pluname,depcode,clscode,brandcode,jftotal,plutotal)'
+' select '''+@svipcode+''',posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,plucode,barcode,pluname,depcode,clscode,'''+case when @sitembrand = 'none' then '' else @sitembrand end+''',@jftotal,plutotal'
+' from t_flow_item '
+' where pageno = '''+@sitempageno+''' and itemno = '''+@sitemitemno+''' and plucode = '''+@sitemplucode+''' and sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql,N'@jftotal numeric(19,4)',@ctmpjftotal
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ['+@sitemplucode+']<5D>ĵ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>'
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
return(-1)
end
end
else
begin
set @ctmpyxrate = null
set @ssql = N' select @yxrate = yxrate from '+@svipdbname+'..t_vippt_rate '
+' where ((grpcode = '''+@sitemclscode+''' or grpcode = '''+ @sclsuppercode1+''' or grpcode = '''+ @sclsuppercode2+''' or grpcode = '''+ @sclsuppercode3+''' or grpcode = '''+ @sclsuppercode4+''' or grpcode = '''+ @sclsuppercode5+''') and grptype = ''1'') or '
+' ((grpcode = '''+@sitemdepcode+''' or grpcode = '''+ @sdepuppercode1+''' or grpcode = '''+ @sdepuppercode2+''' or grpcode = '''+ @sdepuppercode3+''' or grpcode = '''+ @sdepuppercode4+''') and grptype = ''0'') or '
+' (grpcode = '''+@sitembrand+''' and grptype = ''2'')'
exec sp_executesql @ssql,N'@yxrate numeric(19,4) output',@ctmpyxrate out
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ʒ['+@sitemplucode+']<5D>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
return(-1)
end
if not @ctmpyxrate is null
begin
set @ctmpflxftotal = @ctmpflxftotal + @citemplutotal
set @ctmpjftotal = round(@citemplutotal * @ctmpyxrate / 100.00, 2)
set @ssql = N' insert into '+@svipdbname + '..t_vippt_item_flow(vipcode,posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,plucode,barcode,pluname,depcode,clscode,brandcode,jftotal,plutotal)'
+' select '''+@svipcode+''',posno,orgcode,sdate,stime,serialno,pageno,itemno,trantype,plucode,barcode,pluname,depcode,clscode,'''+case when @sitembrand = 'none' then '' else @sitembrand end+''',@jftotal,plutotal'
+' from t_flow_item '
+' where pageno = '''+@sitempageno+''' and itemno = '''+@sitemitemno+''' and plucode = '''+@sitemplucode+''' and sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql,N'@jftotal numeric(19,4)',@ctmpjftotal
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ['+@sitemplucode+']<5D>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>'
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
return(-1)
end
end
end
fetch next from cur_calcvipjf_item into @sitempageno,@sitemitemno,@sitemplucode,@sitemclscode,@sitemdepcode,@sitembrand,@citempludsc,@citemplutotal,@sitempludsctype,@sdepuppercode1,@sdepuppercode2,@sdepuppercode3,@sdepuppercode4,@sclsuppercode1,@sclsuppercode2,@sclsuppercode3,@sclsuppercode4,@sclsuppercode5
end
close cur_calcvipjf_item
deallocate cur_calcvipjf_item
if @ctmpflxftotal =0
return(1)
set @cjfaddrate = 0
set @ctmpyxrate = null
set @ssql = N'select @yxrate = yxrate from '+@svipdbname+'..t_vippt_rate where grpcode = ''birthday'' and grptype = ''4'''
exec sp_executesql @ssql,N'@yxrate numeric(19,4) output',@ctmpyxrate out
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD>ն౶<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
if not @ctmpyxrate is null
begin
set @svipbirthday = ''
set @ssql = N'select @vipbirthday = nextbirth from '+@svipdbname+'..t_vip where vipcode = '''+@svipcode+''''
exec sp_executesql @ssql,N'@vipbirthday varchar(10) output',@svipbirthday out
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
if @svipbirthday = @scurdate
begin
set @cjfaddrate = @ctmpyxrate
end
end
set @ctmpyxrate = 0
set @ssql = N'select top 1 @yxrate = yxrate from '+@svipdbname+'..t_vippt_rate where grptype = ''5'' and '''+@scurdate+''' between bgndate and enddate'
exec sp_executesql @ssql,N'@yxrate numeric(19,4) output',@ctmpyxrate out
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD>ѯ<EFBFBD><EFBFBD><EFBFBD>ն౶<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
set @ctmpyxrate = isnull(@ctmpyxrate,0)
if @iposcfg_morejfset = '0'
begin
if @cjfaddrate < @ctmpyxrate
set @cjfaddrate = @ctmpyxrate
end
else if @iposcfg_morejfset = '1'
set @cjfaddrate = @cjfaddrate + @ctmpyxrate
else if @iposcfg_morejfset = '2'
begin
if @cjfaddrate = 0
set @cjfaddrate = @ctmpyxrate
else
set @cjfaddrate = @ctmpyxrate * @cjfaddrate / 100.00
end
select @ctrade_total = total from t_flow_total
where serialno = @sserialno and posno = @sposno and orgcode = @sorgcode and sdate = @sdate and stime = @stime and trantype = @strantype
set @ctrade_total = isnull(@ctrade_total,0)
set @cpay_canjftotal = 0
select @cpay_canjftotal = sum(case when a.payflag <> 'w' then a.payamount else 0 end) + sum(case when a.payflag <> 'w' then 0 else a.amount end)
from t_flow_pay a left join t_tend b on a.payflag = b.tendcode
where a.serialno = @sserialno and a.posno = @sposno and a.orgcode = @sorgcode and a.sdate = @sdate and a.stime = @stime and a.trantype = @strantype and
b.canpt = '1'
if @ctrade_total = 0 or @cpay_canjftotal = 0
set @ccanjfpayrate = 0
else
set @ccanjfpayrate = @cpay_canjftotal / @ctrade_total
if @cjfaddrate <> 0
begin
set @ssql = N'update '+@svipdbname + '..t_vippt_item_flow set jftotal = round(jftotal * @jfaddrate / 100.00,2) '
+' where sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql,N'@jfaddrate numeric(19,4)',@cjfaddrate
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>պͽ<EFBFBD><EFBFBD>ձ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>౶<EFBFBD><EFBFBD><EFBFBD>ֳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
end
if @cviptypejfaddrate > 0
begin
set @ssql = N'update '+@svipdbname + '..t_vippt_item_flow set jftotal = jftotal + round(jftotal * @jfaddrate / 100.00,2) '
+' where sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql,N'@jfaddrate numeric(19,4)',@cviptypejfaddrate
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>౶<EFBFBD><EFBFBD><EFBFBD>ֳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
end
set @ssql = N'update '+@svipdbname + '..t_vippt_item_flow set jftotal = round(jftotal * @jfaddrate,2) '
+' where sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql,N'@jfaddrate numeric(19,4)',@ccanjfpayrate
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD>ݿɻ<EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽռ<EFBFBD>ȼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>౶<EFBFBD><EFBFBD><EFBFBD>ֳ<EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
set @ssql = N' insert into '+@svipdbname + '..t_vippt_flow(orgcode,posno,sdate,stime,serialno,trantype,vipcode,accdate,total,flxftotal,xfjftotal,succflg,posaccdate)'
+' select orgcode,posno,sdate,stime,serialno,trantype,vipcode,'''',@total,sum(plutotal),sum(jftotal),''0'','''+@scurdate+''' from '+@svipdbname + '..t_vippt_item_flow'
+' where sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
+' group by sdate,stime,serialno,posno,orgcode,trantype,vipcode'
exec sp_executesql @ssql,N'@total numeric(19,4)',@ctrade_total
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
if @sjfistrunc = '1'
begin
set @ssql = N' update '+@svipdbname + '..t_vippt_flow set xfjftotal = floor(xfjftotal)'
+' where sdate = '''+@sdate+''' and stime = '''+@stime+''' and '
+' serialno = '''+@sserialno+''' and posno = '''+@sposno+''' and orgcode = '''+@sorgcode+''' and trantype = '''+@strantype+''''
exec sp_executesql @ssql
if @@error<>0
begin
set @serrmsg = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return(-1)
end
end
return(1)
end
go
if exists (select * from dbo.sysobjects where (id = object_id(N'p_remind_fkc')) and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_fkc
go
create procedure p_remind_fkc
(
@orgcode varchar(10),
@sysusercode varchar(6)
)
as
declare @sql varchar(2000)
begin
set @sql='select orgcode <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,(select orgname from t_shop where orgcode=o.orgcode) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
g.plucode as <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,g.pluname <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,(ccount+gcount) <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_plu_org o,t_plu g
where o.plucode=g.plucode and (o.ccount+o.gcount)<0 and o.orgcode in (select orgcode from t_user_org where usercode = '''+@sysusercode+''') '
if @orgcode <> '' and @orgcode is not null
set @sql=@sql + ' and o.orgcode=''' + @orgcode + ''''
set @sql=@sql + ' order by o.orgcode,o.plucode'
exec (@sql)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_vip_birthdy') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_vip_birthdy
go
create procedure p_remind_vip_birthdy
(
@vipdbname varchar(20),
@indays int
)
as
declare @sql varchar(8000)
begin
select @sql='
select vipcode <EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,vipname <EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,case when birthtype=''0'' then ''<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''
when birthtype=''1'' then ''ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' end as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,birth <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,nextbirth <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
datediff(day,getdate(), nextbirth) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ջ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
addr ͨѶ<EFBFBD><EFBFBD>ַ,tel <EFBFBD>̶<EFBFBD><EFBFBD>绰,mobile1 <EFBFBD>ֻ<EFBFBD><EFBFBD><EFBFBD>1,mobile2 <EFBFBD>ֻ<EFBFBD><EFBFBD><EFBFBD>2
from '+@vipdbname+'..t_vip
where nextbirth<>'''' and nextbirth is not null
and nextbirth>=''1900-01-01''
and isdate(nextbirth)=''1''
and nextbirth like ''[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]''
and datediff(day,getdate(), nextbirth)<='+cast(@indays as varchar)+'
and datediff(day,getdate(), nextbirth)>=0'
exec(@sql)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_kcalarm') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_kcalarm
go
create procedure [dbo].[p_remind_kcalarm]
(
@sysorgcode varchar(10),
@sysusercode varchar(6)
)
as
begin
declare @sql varchar(8000)
select @sql='
select o.plucode as <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,g.pluname as <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,o.orgcode as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,s.orgname as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
g.topstock as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,g.lowstock as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,(o.gcount + o.ccount) as <EFBFBD><EFBFBD>ǰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_plu_org o left join t_plu g on o.plucode = g.plucode
left join t_shop s on o.orgcode = s.orgcode
left join t_dept d on g.depcode = d.depcode,t_sys_right_dept
where 1=1 and (g.plutype<>''3'' and o.mngstock=''1'') and ((((o.gcount+o.ccount)>=o.topstock)and(o.topstock<>0))or(((o.gcount+o.ccount)<=o.lowstock)and(o.lowstock<>0)))
and o.orgcode in (select orgcode from t_user_org where usercode = '''+@sysusercode+''')
and o.orgcode = '''+@sysorgcode+'''
and (d.uppercode1=t_sys_right_dept.depcode or d.uppercode2=t_sys_right_dept.depcode
or d.uppercode3=t_sys_right_dept.depcode or d.uppercode4=t_sys_right_dept.depcode
or d.depcode=t_sys_right_dept.depcode) and t_sys_right_dept.usercode='''+@sysusercode+'''
order by g.depcode,o.plucode '
exec(@sql)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_accept_unrz') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_accept_unrz
go
create procedure p_remind_accept_unrz
(
@sysusercode varchar(6)
)
as
begin
select orgcode as <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,billno as <EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><EFBFBD><EFBFBD>,bizdate as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,zdrname as <EFBFBD>Ƶ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_accept_head
where (rzdate='' or rzdate is null) and orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_outofdate_order') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_outofdate_order
go
create procedure p_remind_outofdate_order
(
@sysusercode varchar(6)
)
as
begin
select supcode <EFBFBD><EFBFBD>Ӧ<EFBFBD>̱<EFBFBD><EFBFBD><EFBFBD>,supname <EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,billno <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>,validdate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD>,datediff(day,validdate,getdate()) <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
'ִ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>' <EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬,zdrname ҵ<EFBFBD><EFBFBD>Ա,username <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա from t_order_head
where state='1' and billtype='0' and isnull(validdate,'') <> '' and datediff(day,getdate(),validdate)<=1 and
orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_today_yfk') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_today_yfk
go
create procedure p_remind_today_yfk
(
@sysusercode varchar(6)
)
as
begin
select j.supcode <EFBFBD><EFBFBD>Ӧ<EFBFBD>̱<EFBFBD><EFBFBD><EFBFBD>,v.supname <EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,billno <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>,paydate Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
cost Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,isnull(jscost,0) <EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>,
cost-isnull(jscost,0)-isnull(zrcost,0) δ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_pay_bill j left join t_supplier v on j.supcode = v.supcode
where isfinished <> '1' and isnull(paydate,'') <> '' and datediff(day,getdate(),paydate)<=0 and
j.orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_today_ysk') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_today_ysk
go
create procedure p_remind_today_ysk
(
@sysusercode varchar(6)
)
as
begin
select custcode <EFBFBD>ͻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,custname <EFBFBD>ͻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,billno <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>,paydate Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
pftotal-isnull(zrtotal,0) Ӧ<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>,isnull(jstotal,0) <EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>,
pftotal-isnull(zrtotal,0)-isnull(jstotal,0) δ<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>,zdrname ҵ<EFBFBD><EFBFBD>Ա
from t_whsale_head
where isfinished <> '1' and datediff(day,getdate(),paydate)<=0 and isnull(rzdate,'') <> '' and
orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_newplu') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_newplu
go
create procedure p_remind_newplu
(
@sysusercode varchar(6)
)
as
begin
select o.orgcode <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,s.orgname <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,g.plucode <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,g.pluname <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,spec <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,o.jprice <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,o.price <EFBFBD>ۼ<EFBFBD>,o.yjdate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
dms <EFBFBD>վ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,gcount+ccount <EFBFBD><EFBFBD><EFBFBD>п<EFBFBD><EFBFBD><EFBFBD>,
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=(select sum(isnull(d.counts,0)) counts
from t_accept_head f join t_accept_body d on f.billno=d.billno
where isnull(f.rzdate,'') <> '' and f.orgcode=o.orgcode and d.plucode=o.plucode )
from t_plu g join t_plu_org o on g.plucode = o.plucode left join t_shop s on o.orgcode=s.orgcode
where g.plustatus = '' and g.plutype<>'3' and o.orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
order by o.orgcode,g.plucode
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_remind_outofdate_ec') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_remind_outofdate_ec
go
create procedure p_remind_outofdate_ec
(
@vipdbname varchar(30),
@days int,
@sysusercode varchar(6)
)
as
begin
declare @sql varchar(8000)
select @sql='
select billno <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>,billname <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,bgndate <EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,enddate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,orgcode <EFBFBD><EFBFBD><EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,orgname <EFBFBD><EFBFBD><EFBFBD>л<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
datediff(day,convert(char(10),getdate(),120), enddate) as <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from '+@vipdbname+'..t_vipec_head h
where rzdate is not null and rzdate <> '''' and orgcode in (select orgcode from t_user_org where usercode = '''+@sysusercode+''')
and datediff(day,convert(char(10),getdate(),120), enddate)<=' + cast(@days as varchar) + '
and datediff(day,convert(char(10),getdate(),120), enddate)>=0 '
exec(@sql)
end
go
if exists(select * from sysobjects where name ='p_remind_adjust_plan' and xtype='p')
drop procedure p_remind_adjust_plan
go
create procedure p_remind_adjust_plan
(
@sysusercode varchar(6)
)
as
begin
select '<EFBFBD>ۼ۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + a.billno + '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڡ<EFBFBD>' + a.sxdate + ' ' + a.sxtime + '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD><EFBFBD>뼰ʱ<EFBFBD><EFBFBD>ӡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ<EFBFBD>͵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>ۡ<EFBFBD>' as <EFBFBD>ƻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
billno as <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>
from t_adjprice_head a
where a.isplan='1' and a.rzdate is not null and a.rzdate<>'' and isnull(exectime,'')=''
and (sxdate + ' ' + sxtime > convert(varchar(20),getdate(),120)) and orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
order by a.orgcode,a.sxdate,a.sxtime
end
go
if exists(select * from sysobjects where name ='p_remind_adjust_plan_noexec' and xtype='p')
drop procedure p_remind_adjust_plan_noexec
go
create procedure p_remind_adjust_plan_noexec
(
@sysusercode varchar(6)
)
as
begin
select '<EFBFBD>ۼ۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + a.billno + '<EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>ڵ<EFBFBD>δִ<EFBFBD><EFBFBD><EFBFBD>¼۸<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>á<EFBFBD><EFBFBD>ƻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD><EFBFBD>Ĺ<EFBFBD><EFBFBD>ܽ<EFBFBD><EFBFBD>е<EFBFBD><EFBFBD>ۡ<EFBFBD>' as <EFBFBD>ƻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δִ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
billno as <EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD>
from t_adjprice_head a
where a.isplan='1' and a.rzdate is not null and a.rzdate<>'' and isnull(exectime,'')=''
and (sxdate + ' ' + sxtime < convert(varchar(20),getdate(),120)) and orgcode in (select orgcode from t_user_org where usercode = @sysusercode)
order by a.orgcode,a.sxdate,a.sxtime
end
go
if exists(select * from sysobjects where name ='p_remind_ask_fnotify' and xtype='p')
drop procedure p_remind_ask_fnotify
go
create procedure p_remind_ask_fnotify
(
@sysusercode varchar(6)
)
as
begin
select distinct f.billno Ҫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,f.orgcode <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,s.orgname <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_ask_head f left join t_shop s on f.orgcode=s.orgcode,t_ask_body d
left join t_plu on d.plucode=t_plu.plucode left join t_dept on t_dept.depcode=t_plu.depcode
left join t_sys_right_dept on t_dept.uppercode1=t_sys_right_dept.depcode
or t_dept.uppercode2=t_sys_right_dept.depcode
or t_dept.uppercode3=t_sys_right_dept.depcode
or t_dept.uppercode4=t_sys_right_dept.depcode
or t_dept.depcode=t_sys_right_dept.depcode
where f.billno = d.billno and f.rzdate <> '' and f.state <> '1'
and f.rzdate = convert(varchar(10),getdate(),120)
and isnull(d.cgdate,'') = '' and isnull(d.psdate,'') = ''
and t_sys_right_dept.usercode = @sysusercode
order by 2,1
end
go
if exists(select * from sysobjects where name ='p_remind_goods_days_alarm' and xtype='p')
drop procedure p_remind_goods_days_alarm
go
create procedure p_remind_goods_days_alarm
(
@sysver varchar(1),
@sysusercode varchar(6),
@sysorgcode varchar(10),
@mindays int,
@maxdays int,
@predays int
)
as
declare @tmptable table
(billno varchar(20),plucode varchar(20),serialno int,bizdate varchar(10),
orgcode varchar(10),orgname varchar(30) null,supname varchar(100) null,
supcode varchar(15),orderno varchar(20),sqauremode varchar(1),paydate varchar(10),
barcode varchar(20),pluname varchar(40),cargono varchar(20),depcode varchar(10) null,depname varchar(16) null,
spec varchar(40), unit varchar(10),keepdays integer null,
jprice numeric(19,4) null,netjprice numeric(19,4) null,newjprice numeric(19,4) null,price numeric(19,4) null,vipprice numeric(19,4) null,jtaxrate integer null,
productdate varchar(10),qualitydate varchar(10),diffdays integer,counts numeric(19,4) null,xccount numeric(19,4) null,
primary key(billno,plucode,orgcode,serialno))
declare @acceptno varchar(20)
declare @plucode varchar(20)
declare @orgcode varchar(10)
declare @serialno int
declare @kccount numeric(19,4)
declare @counts numeric(19,4)
declare @qualitydate varchar(10)
declare @tmpplucode varchar(20)
declare @tmporgcode varchar(10)
declare @tmpkccount numeric(19,4)
declare @tmpxccount numeric(19,4)
begin
if @mindays > @maxdays
return -1
if @predays > @mindays
return -1
set @tmpkccount = 0
set @tmpxccount = 0
set @tmpplucode = ''
set @tmporgcode = ''
declare cur_loop cursor for
select ad.billno,o.plucode,o.orgcode,ad.serialno,o.ccount+o.gcount as kccount,ad.counts as counts,isnull(ad.qualitydate,'') as qualitydate
from t_plu_org o left join t_plu g on o.plucode = g.plucode left join t_dept d on g.depcode = d.depcode
left join t_shop s on o.orgcode = s.orgcode left join t_accept_body ad on ad.plucode = o.plucode
left join t_accept_head af on af.orgcode = o.orgcode and af.billno = ad.billno,t_sys_right_dept
where ((o.orgcode=@sysorgcode and @sysver='0') or (o.orgcode=@sysorgcode and isdbdeploy='1' and @sysver='1'))
and g.keepdays<>0 and isright='1' and o.gcount+o.ccount>0 and af.rzdate is not null and af.rzdate<>''
and datediff(day,af.bizdate,convert(varchar(10),getdate(),120))<=730
and o.orgcode in (select orgcode from t_user_org where usercode=@sysusercode)
and (d.uppercode1=t_sys_right_dept.depcode or d.uppercode2=t_sys_right_dept.depcode
or d.uppercode3=t_sys_right_dept.depcode or d.uppercode4=t_sys_right_dept.depcode
or d.depcode=t_sys_right_dept.depcode) and t_sys_right_dept.usercode=@sysusercode
order by o.plucode,af.bizdate desc,af.billno desc
open cur_loop
fetch next from cur_loop into @acceptno,@plucode,@orgcode,@serialno,@kccount,@counts,@qualitydate
while @@fetch_status = 0
begin
if (@tmpplucode <> @plucode) or (@tmporgcode <> @orgcode)
begin
set @tmpplucode = @plucode
set @tmporgcode = @orgcode
set @tmpkccount = @kccount
end
if (@tmpkccount <= @counts) and (@tmpkccount > 0)
begin
set @tmpxccount = @tmpkccount
end
else
begin
if @tmpkccount > @counts
set @tmpxccount = @counts
else
set @tmpxccount = 0
end
set @tmpkccount = @tmpkccount - @tmpxccount
if (@tmpxccount = 0)
begin
fetch next from cur_loop into @acceptno,@plucode,@orgcode,@serialno,@kccount,@counts,@qualitydate
while ((@@fetch_status = 0) and (@tmpplucode = @plucode) and (@tmporgcode = @orgcode))
begin
fetch next from cur_loop into @acceptno,@plucode,@orgcode,@serialno,@kccount,@counts,@qualitydate
end
continue
end
else
begin
if @qualitydate <> ''
begin
insert into @tmptable(billno,bizdate,orgcode,orgname,supcode ,
supname,orderno,sqauremode,paydate,plucode,
serialno,barcode,pluname,cargono,spec,unit,
jprice,netjprice,newjprice,price,vipprice,jtaxrate,keepdays, productdate,qualitydate,
diffdays,counts,xccount,depcode,depname)
select @acceptno,af.bizdate as bizdate,@orgcode,s.orgname as orgname,af.supcode as supcode ,
af.supname as supname,af.orderno as orderno,af.sqauremode as sqauremode,af.paydate as paydate,@plucode,
ad.serialno as serialno,g.barcode as barcode,g.pluname as pluname,g.cargono as cargono,g.spec as spec,g.unit as unit,
ad.jprice as jprice,ad.netjprice as netjprice,o.jprice as newjprice,o.price as price,o.vipprice,g.jtaxrate as jtaxrate,
g.keepdays as keepdays,ad.productdate as productdate,ad.qualitydate as qualitydate,
datediff(day,getdate(),isnull(ad.qualitydate,'')) as diffdays,ad.counts as counts,@tmpxccount,g.depcode,d.depname
from t_plu_org o left join t_plu g on o.plucode = g.plucode left join t_dept d on g.depcode = d.depcode
left join t_shop s on o.orgcode = s.orgcode left join t_accept_body ad on ad.plucode = o.plucode
left join t_accept_head af on af.orgcode = o.orgcode and af.billno = ad.billno,t_sys_right_dept
where ((o.orgcode=@sysorgcode and @sysver='0') or (o.orgcode=@sysorgcode and isdbdeploy='1' and @sysver='1'))
and g.keepdays<>0 and isright='1' and o.gcount+o.ccount>0 and af.rzdate is not null and af.rzdate<>''
and datediff(day,af.bizdate,convert(varchar(10),getdate(),120))<=730
and o.orgcode in (select orgcode from t_user_org where usercode=@sysusercode)
and (d.uppercode1=t_sys_right_dept.depcode or d.uppercode2=t_sys_right_dept.depcode
or d.uppercode3=t_sys_right_dept.depcode or d.uppercode4=t_sys_right_dept.depcode
or d.depcode=t_sys_right_dept.depcode) and t_sys_right_dept.usercode=@sysusercode
and af.billno=@acceptno and o.plucode=@plucode and o.orgcode=@orgcode and ad.serialno=@serialno
end
end
fetch next from cur_loop into @acceptno,@plucode,@orgcode,@serialno,@kccount,@counts,@qualitydate
end
close cur_loop
deallocate cur_loop
select b.plucode <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.pluname <EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.barcode <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.cargono <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.billno <EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><EFBFBD><EFBFBD>,
b.bizdate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.orgcode [<EFBFBD><EFBFBD><EFBFBD><EFBFBD>|<EFBFBD><EFBFBD><EFBFBD><EFBFBD>],b.orgname [<EFBFBD><EFBFBD><EFBFBD><EFBFBD>|<EFBFBD><EFBFBD><EFBFBD><EFBFBD>],
b.supcode [<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>|<EFBFBD><EFBFBD><EFBFBD><EFBFBD>],b.supname [<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>|<EFBFBD><EFBFBD><EFBFBD><EFBFBD>],b.orderno <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
case b.sqauremode when '0' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' when '1' then '<EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD><EFBFBD><EFBFBD>' when '2' then '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ' end <EFBFBD><EFBFBD><EFBFBD>㷽ʽ,
b.paydate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.spec <EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.unit <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ,b.jprice [<EFBFBD><EFBFBD><EFBFBD><EFBFBD>|<EFBFBD><EFBFBD>˰],
b.netjprice [<EFBFBD><EFBFBD><EFBFBD><EFBFBD>|<EFBFBD><EFBFBD>˰],b.price <EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>,b.jtaxrate <EFBFBD><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><EFBFBD>,b.keepdays <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
b.productdate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.qualitydate <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.diffdays <EFBFBD><EFBFBD>Ч<EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.counts <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,b.xccount <EFBFBD>ִ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_plu g,@tmptable b
where g.plucode=b.plucode and g.plustatus <> '2' and g.plustatus <> '9'
and b.keepdays>=@mindays and b.keepdays<@maxdays
and datediff(day,convert(varchar(10),getdate(),120),b.qualitydate)<=@predays
end
go
if exists(select * from sysobjects where name ='p_remind_ps_afnotify' and xtype='p')
drop procedure p_remind_ps_afnotify
go
create procedure p_remind_ps_afnotify
(
@sysusercode varchar(6)
)
as
begin
select distinct h.billno <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><EFBFBD><EFBFBD>,h.orgcode <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
(select orgname from t_shop where orgcode=h.orgcode) <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
(case when isnull(h.qrdate,'') = '' then 'δȷ<EFBFBD><EFBFBD>' else '<EFBFBD><EFBFBD>ȷ<EFBFBD><EFBFBD>' end) ȷ<EFBFBD><EFBFBD>״̬,
h.cost <EFBFBD>ϼƺ<EFBFBD>˰<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
from t_accept_head h left join t_accept_body b
on h.billno=b.billno
where billtype='3'
and exists(select orgcode from t_user_org where orgcode=h.orgcode and usercode=@sysusercode)
and exists(select d.depcode from t_dept d,t_sys_right_dept x where b.depcode=d.depcode and (d.uppercode1=x.depcode
or d.uppercode2=x.depcode or d.uppercode3=x.depcode or d.uppercode4=x.depcode or d.depcode=x.depcode) and x.usercode=@sysusercode)
and (h.lrdate = convert(varchar(10),getdate(),120) or h.rzdate = convert(varchar(10),getdate(),120))
order by 2,4,1
end
go
if exists(select * from sysobjects where name ='p_getbatchstk_data' and xtype='p')
drop procedure p_getbatchstk_data
go
create procedure p_getbatchstk_data
@dectype varchar(max),
@orgcode varchar(max),
@depcode varchar(max),
@place varchar(max),
@plucode varchar(max),
@itemcnt numeric(19,4),
@batchno varchar(max),
@srcbatchno varchar(max),
@plutype varchar(max),
@contrno varchar(max),
@supcode varchar(max),
@jymode varchar(max),
@decmode varchar(max),
@pi_result int output,
@ps_message varchar(max) output
as
begin
begin try
set @pi_result = null
set @ps_message = null
set @pi_result = -1
/*=================ȡ<><C8A1><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=================*/
if @dectype in ('deckc','deckcxs')
begin
if @decmode = '0' --<EFBFBD>Ƚ<EFBFBD><EFBFBD>ȳ<EFBFBD><EFBFBD><EFBFBD>ʽ
select
a.depcode,
a.srcbatchno,
a.batchno,
a.stkcount,
a.jprice,
a.netjprice,
a.cost,
a.netcost,
a.stkcount as kycount,
a.contrno,
a.supcode,
a.jymode,
a.plutype,
a.itemcnt
from t_plu_batch a
with ( updlock )
where
a.orgcode = @orgcode and
a.depcode = @depcode and
--a.place = @place and
a.plucode = @plucode and
(@batchno = '*' or (@batchno <> '*' and a.batchno = @batchno)) and
a.plutype = @plutype and
a.stkcount > 0
order by a.jhdate asc
else
begin
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȳ<EFBFBD> <EFBFBD>ݲ<EFBFBD>֧<EFBFBD><EFBFBD>
set @ps_message = '<EFBFBD>ݲ<EFBFBD>֧<EFBFBD>ֺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȳ<EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
set @pi_result = -1
return
end
end
/*=================ȡ<><C8A1><EFBFBD>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=================*/
if @dectype = 'deckcth'
begin
if @decmode = '0' --<EFBFBD>Ƚ<EFBFBD><EFBFBD>ȳ<EFBFBD><EFBFBD><EFBFBD>ʽ
select
a.depcode,
a.srcbatchno,
a.batchno,
a.stkcount,
a.jprice,
a.netjprice,
a.cost,
a.netcost,
a.stkcount as kycount,
a.contrno,
a.supcode,
a.jymode,
a.plutype,
a.itemcnt
from t_plu_batch a
with ( updlock )
where
a.orgcode = @orgcode and
a.depcode = @depcode and
a.supcode = @supcode and
--a.place = @place and
a.plucode = @plucode and
(@batchno = '*' or (@batchno <> '*' and a.batchno = @batchno)) and
a.plutype = @plutype and
a.stkcount > 0
order by a.jhdate asc
else
begin
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȳ<EFBFBD> <EFBFBD>ݲ<EFBFBD>֧<EFBFBD><EFBFBD>
set @ps_message = '<EFBFBD>ݲ<EFBFBD>֧<EFBFBD>ֺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȳ<EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
set @pi_result = -1
return
end
end
set @pi_result = 1
end try
begin catch
declare
@errornumber int
set @errornumber = error_number()
declare
@errormessage nvarchar(4000)
set @errormessage = error_message()
begin
begin
set @pi_result = -1
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݻ<EFBFBD>ȡʧ<EFBFBD><EFBFBD>' + ':' + isnull(
@errormessage, '')
return
end
end
end catch
end
go
if exists(select * from sysobjects where name ='p_getbillstkdec_data' and xtype='p')
drop procedure p_getbillstkdec_data
go
create procedure p_getbillstkdec_data
@billno varchar(max),
@ywtype varchar(max),
@orgcode varchar(max) output,
@place varchar(max) output,
@contrno varchar(max) output,
@supcode varchar(max) output,
@jymode varchar(max) output,
@dectype varchar(max) output,
@uppctype varchar(max) /*<EFBFBD><EFBFBD><EFBFBD>θ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ε<EFBFBD><EFBFBD>ۼƣ<EFBFBD>0:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1:<3A><><EFBFBD><EFBFBD>2:<3A>˻<EFBFBD>3:<3A><><EFBFBD><EFBFBD>4:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*/ output,
@tablename varchar(max) output,
@pi_result int output,
@ps_message varchar(max) output
as
declare @shop_orgtype varchar(1)
declare @shop_isdbdeploy varchar(1)
begin
begin try
set @orgcode = ''
set @place = ''
set @contrno = ''
set @supcode = ''
set @jymode = ''
set @dectype = ''
set @uppctype = ''
set @tablename = ''
set @pi_result = -1
set @ps_message = ''
if @ywtype not in (
'ps','th','rjyw','rjxs')
begin
set @ps_message = 'ҵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD><EFBFBD><EFBFBD>' + isnull(@ywtype, '') + '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч'
return
end
set @uppctype = '0'
set @dectype = 'deckc'
if @ywtype in ('ps')
begin
if @ywtype = 'ps'
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD>'
select @orgcode = orgcode, @supcode = orgcode, @place = '1'
from t_dist_head
where billno = @billno
set @tablename = 't_dist_head'
select serialno,depcode,zpcount,'*' as batchno,'0' as plutype,plucode,pluname,spec,unit,itemcnt
from t_dist_body
where billno = @billno
end
if @ywtype = 'th'
begin
set @uppctype = '2'
set @dectype = 'deckcth'
select @orgcode = orgcode,@supcode = supcode,
@ywtype = case billtype when '0' then 'th' when '2' then 'zth' when '3' then 'pth' end, @place = '1'
from t_return_head
where billno = @billno
select @shop_orgtype=orgtype,
@shop_isdbdeploy=isdbdeploy
from t_shop where orgcode = @orgcode
if @ywtype = 'th'
begin
if @shop_orgtype='2'
set @place = '1'
else
set @place = '0'
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>'
end
else if @ywtype = 'zth'
begin
set @place = '0'
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>'
end
else if @ywtype = 'pth'
begin
set @place = '0'
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>'
end
set @tablename = 't_return_head'
select serialno,depcode,counts,'*' as batchno,'0' as plutype,plucode,pluname,spec,unit,itemcnt
from t_return_body
where billno = @billno
end
if @ywtype = 'rjyw'
begin
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD>'
set @uppctype = '4'
set @dectype = 'deckc'
set @supcode = '*'
select @orgcode = orgcode, @place = place
from ##dayover_plubatch_head
where billno = @billno
set @tablename = '##dayover_plubatch_head'
select serialno,depcode,proccount,batchno,plutype,plucode,pluname,spec,unit,itemcnt
from ##dayover_plubatch_body
where billno = @billno
end
if @ywtype = 'rjxs'
begin
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
set @uppctype = '3'
set @dectype = 'deckcxs'
set @supcode = '*'
select @orgcode = orgcode, @place = place
from ##dayover_plubatch_head
where billno = @billno
set @tablename = '##dayover_plubatch_head'
select serialno,depcode,proccount,batchno,plutype,plucode,pluname,spec,unit,itemcnt
from ##dayover_plubatch_body
where billno = @billno
end
set @pi_result = 1
end try
begin catch
declare
@errornumber int
set @errornumber = error_number()
declare
@errormessage nvarchar(4000)
set @errormessage = error_message()
begin
begin
set @pi_result = -1
set @ps_message = '<EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>浥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + @ps_message + ':' + isnull(
@errormessage, '')
return
end
end
end catch
end
go
if exists(select * from sysobjects where name ='p_decbatchstk' and xtype='p')
drop procedure p_decbatchstk
go
create procedure p_decbatchstk
@billno varchar(max),
@ywtype varchar(max),
@usercode varchar(max),
@userrname varchar(max),
@procdate datetime,
@pi_result int output,
@ps_message varchar(max) output
as
begin
declare
@cur_bill cursor,
@cur_stock cursor
begin try
set @pi_result = null
set @ps_message = null
declare
@serialno numeric(19, 0),
@vs_plucode varchar(20),
@vs_pluname varchar(40),
@vs_spec varchar(40),
@vs_unit varchar(6),
@vf_clcount numeric(19, 4),
@vf_itemcnt numeric(19, 4),
@vs_batchno varchar(40),
@vs_plutype varchar(4),
@vf_jprice numeric(19, 4),
@vf_netjprice numeric(19, 4),
@vf_cost numeric(19, 2),
@vf_netcost numeric(19, 2),
@vs_orgcode varchar(10),
@vs_orgname varchar(100),
@vs_place varchar(10),
@vs_contrno varchar(40),
@vs_supcode varchar(15),
@vs_jymode varchar(1),
@vs_dectype varchar(20),
@vs_uppctype varchar(1),
@vs_tablename varchar(40),
@vf_jtaxrate numeric(19,4)
set @vs_dectype = 'deckc'
declare
@stock_orgcode varchar(10),
@stock_depcode varchar(10),
@stock_place varchar(10),
@stock_plucode varchar(20),
@stock_itemcnt numeric(19, 4),
@stock_batchno varchar(40),
@stock_srcbatchno varchar(40),
@stock_plutype varchar(4),
@stock_contrno varchar(40),
@stock_supcode varchar(15),
@stock_jymode varchar(1),
@stock_kccount numeric(19, 4),
@stock_jprice numeric(19, 4),
@stock_netjprice numeric(19, 4),
@stock_cost numeric(19, 2),
@stock_netcost numeric(19, 2),
@stock_kycount numeric(19, 4)
declare
@tmp_stkcount numeric(19, 4),
@tmp_cost numeric(19, 2),
@tmp_netcost numeric(19, 2),
@vs_ckbillno varchar(20),
@vi_ordnum int,
@vi_kccount numeric(19, 4),
@vi_tmpcount numeric(19, 4),
@vi_cnt integer,
@vs_proctype integer
create table #pc_bill
(serialno numeric (19, 0) not null default ((0)),
depcode varchar (10) null,
pscount numeric (19, 4) not null default ((0)),
batchno varchar (40) not null default ('*'),
plutype varchar (1) default ('0'),
plucode varchar (20) not null,
pluname varchar (40) null,
spec varchar (40) null,
unit varchar (10) null,
itemcnt numeric (19, 4) not null default ((0)))
create table #pc_pckc
(depcode varchar (10) null,
sourcebatchno varchar (40) not null default ('*'),
batchno varchar (40) not null default ('*'),
stkcount numeric (19, 4) not null default ((0)),
jprice numeric (19, 4) not null default ((0)),
netjprice numeric (19, 4) not null default ((0)),
cost numeric (19, 2) not null default ((0)),
netcost numeric (19, 2) not null default ((0)),
kycount numeric (19, 4) not null default ((0)),
contrno varchar (40) null,
supcode varchar (15) not null,
jymode varchar (1) not null default ('0'),
plutype varchar (4) not null default ('0'),
itemcnt numeric (19, 4) not null default ((0)))
set @pi_result = -1
delete from #pc_bill
insert into [#pc_bill]
execute p_getbillstkdec_data
@billno = @billno,
@ywtype = @ywtype,
@orgcode = @vs_orgcode output,
@place = @vs_place output,
@contrno = @vs_contrno output,
@supcode = @vs_supcode output,
@jymode = @vs_jymode output,
@dectype = @vs_dectype output,
@uppctype = @vs_uppctype output,
@tablename = @vs_tablename output,
@pi_result = @pi_result output,
@ps_message = @ps_message output
if @pi_result <> 1
return
set @cur_bill = cursor for
select * from [#pc_bill]
open @cur_bill
set @pi_result = -1
if not cursor_status('variable', N'@cur_bill') > -1
begin
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return
end
set @stock_orgcode = @vs_orgcode
set @stock_place = @vs_place
set @stock_supcode = @vs_supcode
set @vs_proctype = 1
exec f_get_billno 'pc',@vs_orgcode,'1',@vs_ckbillno output
set @vi_ordnum = 1
while 1 = 1
begin
fetch @cur_bill into @serialno, @stock_depcode, @vf_clcount, @stock_batchno, @stock_plutype, @vs_plucode, @vs_pluname, @vs_spec, @vs_unit, @stock_itemcnt
if @@fetch_status <> 0
break
if isnull(@stock_itemcnt, 0) = 0
set @stock_itemcnt = 1
set @stock_plucode = @vs_plucode
if @vs_dectype in ('deckc','deckcxs')
set @vi_kccount = dbo.f_getbatchstk(@stock_orgcode, @stock_depcode, @stock_place, @stock_plucode, @stock_plutype, '', @stock_batchno)
else if @vs_dectype = 'deckcth'
set @vi_kccount = dbo.f_getbatchstk(@stock_orgcode, @stock_depcode, @stock_place, @stock_plucode, @stock_plutype, @stock_supcode,@stock_batchno)
if @vf_clcount >= 0
begin
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>0˵<EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
set @vs_proctype = 1 --<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
set @vi_tmpcount = @vi_kccount - @vf_clcount
if @vi_tmpcount < 0
begin
/**set @ps_message = isnull(@stock_plucode, '') + '-' + isnull(@vs_pluname, '')
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>' + isnull(@ps_message, '') + '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>治<EFBFBD>㣬<EFBFBD><EFBFBD>֧<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + isnull(cast(@vi_kccount as varchar(max)), '') + '<EFBFBD><EFBFBD>'
if cursor_status('variable', n'@cur_bill') > -1
begin
close @cur_bill
deallocate @cur_bill
end
return */
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫָ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD>Dz<EFBFBD><EFBFBD><EFBFBD><EFBFBD>޿<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߿<EFBFBD><EFBFBD>治<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
--Ҳ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD>ֻ<EFBFBD>Ǽ򵥴<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD>
select
/*@vs_supcode = case when isnull(o.supcode ,'')='' then g.supcode
when s.orgtype='2' and v1.suptype='9' then g.supcode
else o.supcode end,*/
@vf_jprice = isnull(case o.ojprice when 0 then o.jprice else o.ojprice end,g.jprice),
@vf_netjprice = round(isnull(case o.ojprice when 0 then o.jprice else o.ojprice end,g.jprice)/(1+g.jtaxrate/100.00),4),
@vf_jtaxrate = g.jtaxrate
from t_plu g left join t_plu_org o on g.plucode = o.plucode and o.orgcode = @stock_orgcode
left join t_shop s on s.orgcode = o.orgcode
left join t_supplier v on g.supcode =v.supcode
left join t_supplier v1 on o.supcode =v1.supcode
where g.plucode = @stock_plucode
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӳ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ν<EFBFBD><EFBFBD><EFBFBD>
insert into t_plu_batch(orgcode,depcode,supcode,jymode,contrno,batchtype,billno,serialno,place,
plucode,plutype,batchno,srcbatchno,stkcount,jtaxrate,jprice,netjprice,cost,netcost,punit,itemcnt,
productdate,jhdate,jhcount)
values(@stock_orgcode,@stock_depcode,
case @vs_dectype when 'deckcth' then @stock_supcode else '*' end,
'0','','v',@billno,@serialno,@stock_place,
@stock_plucode,@stock_plutype,dbo.f_getstockpcno(@billno,'1',@vi_ordnum),dbo.f_getstockpcno(@billno,'1',@vi_ordnum),
abs(@vi_tmpcount),@vf_jtaxrate,@vf_jprice,@vf_netjprice,
round(abs(@vi_tmpcount)*@vf_jprice,2),round(abs(@vi_tmpcount)*@vf_netjprice,2),
'',1,null,getdate(),0) --ע<EFBFBD><EFBFBD><EFBFBD>ۼƽ<EFBFBD><EFBFBD><EFBFBD>д0
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>
end
end
else
begin
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><0˵<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
set @vs_proctype = 0 --<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><EFBFBD>δ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if @vi_kccount <= 0
begin
select @vi_cnt=count(*)
from t_plu_batch with (nolock)
where
orgcode = @stock_orgcode and
((isnull(@stock_depcode,'') = '') or ((isnull(@stock_depcode,'') <> '') and (depcode = @stock_depcode))) and
((isnull(@stock_supcode,'') = '') or ((isnull(@stock_supcode,'') <> '') and (supcode = @stock_supcode))) and
((isnull(@stock_place,'') = '') or ((isnull(@stock_place,'') <> '') and (place = @stock_place))) and
plucode = @stock_plucode and
((isnull(@stock_plutype,'') = '') or ((@stock_plutype <> '') and (plutype = @stock_plutype))) and
((@stock_batchno = '*') or ((@stock_batchno <> '*') and (batchno = @stock_batchno))) and
stkcount > 0
if @vi_cnt = 0
begin
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿ<EFBFBD><EFBFBD>棬<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD>۸񣬴<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>洦<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӦΪ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><EFBFBD>ȳ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ε<EFBFBD>ԭʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѱ<EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
--<EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><EFBFBD>ܲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>γɱ<EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD>ԭʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊԭ<EFBFBD>ܲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޿<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD><EFBFBD>ܲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>򵥴<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><EFBFBD>֤<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
select
@vf_jprice = isnull(case o.ojprice when 0 then o.jprice else o.ojprice end,g.jprice),
@vf_netjprice = round(isnull(case o.ojprice when 0 then o.jprice else o.ojprice end,g.jprice)/(1+g.jtaxrate/100.00),4),
@vf_jtaxrate = g.jtaxrate
from t_plu g left join t_plu_org o on g.plucode = o.plucode and o.orgcode = @stock_orgcode
left join t_shop s on s.orgcode = o.orgcode
left join t_supplier v on g.supcode =v.supcode
left join t_supplier v1 on o.supcode =v1.supcode
where g.plucode = @stock_plucode
insert into t_plu_batch(orgcode,depcode,supcode,jymode,contrno,batchtype,billno,serialno,place,
plucode,plutype,batchno,srcbatchno,stkcount,jtaxrate,jprice,netjprice,cost,netcost,punit,itemcnt,
productdate,jhdate,jhcount,xscount,othcount)
values(@stock_orgcode,@stock_depcode,@stock_supcode,'0','','v',@billno,@serialno,@stock_place,
@stock_plucode,@stock_plutype,dbo.f_getstockpcno(@billno,'2',@vi_ordnum),dbo.f_getstockpcno(@billno,'2',@vi_ordnum),
abs(@vf_clcount),@vf_jtaxrate,@vf_jprice,@vf_netjprice,
round(abs(@vf_clcount)*@vf_jprice,2),round(abs(@vf_clcount)*@vf_netjprice,2),
'',1,null,getdate(),
case @ywtype when 'rjyw' then 0 when 'rjxs' then 0 else abs(@vf_clcount) end, --<EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD>ҵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>
case @ywtype when 'rjxs' then @vf_clcount else 0 end, --<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>
case @ywtype when 'rjyw' then @vf_clcount else 0 end) --<EFBFBD>ս<EFBFBD>ҵ<EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>
--<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>Ҫд<EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if @ywtype = 'rjxs'
begin
insert into t_supsale_detail(billno,serialno,supcode,supname,suptype,plucode,pluname,datatype,
accdate,acctimes,orgcode,orgname,counts,cost,netcost,remark)
select
@vs_ckbillno,@vi_ordnum,@stock_supcode,
isnull((select supname from t_supplier where supcode = @stock_supcode),''),
isnull((select suptype from t_supplier where supcode = @stock_supcode),0),
@vs_plucode,@vs_pluname,'1',accdate,acctimes,
@vs_orgcode,
isnull((select orgname from t_shop where orgcode = @vs_orgcode),''),
@vf_clcount,
round(@vf_clcount*@vf_jprice,2),
round(@vf_clcount*@vf_netjprice,2),
'<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><EFBFBD><EFBFBD>'
from ##dayover_plubatch_head
where billno = @billno
end
set @vi_ordnum = @vi_ordnum + 1
continue
end
end
end
/*=================ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=================*/
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD>ÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
delete from #pc_pckc
insert into [#pc_pckc]
execute p_getbatchstk_data
@dectype = @vs_dectype,
@orgcode = @stock_orgcode,
@depcode = @stock_depcode,
@place = @stock_place,
@plucode = @stock_plucode,
@itemcnt = @stock_itemcnt,
@batchno = @stock_batchno,
@srcbatchno = @stock_srcbatchno,
@plutype = @stock_plutype,
@contrno = @stock_contrno,
@supcode = @stock_supcode,
@jymode = @stock_jymode,
@decmode = '0',
@pi_result = @pi_result output,
@ps_message = @ps_message output
if @pi_result <> 1
return
set @pi_result = -1
--<EFBFBD>α<EFBFBD>ָ<EFBFBD><EFBFBD><EFBFBD>洢<EFBFBD><EFBFBD><EFBFBD>̲<EFBFBD>ѯ<EFBFBD><EFBFBD><EFBFBD>صĽ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
set @cur_stock = cursor for
select * from [#pc_pckc]
open @cur_stock
--if not cursor_status('variable', n'@cur_stock') > -1
-- return
while 1 = 1
begin
fetch @cur_stock
into @stock_depcode, @stock_srcbatchno, @stock_batchno, @stock_kccount, @stock_jprice, @stock_netjprice, @stock_cost, @stock_netcost, @stock_kycount, @stock_contrno, @stock_supcode, @stock_jymode, @stock_plutype, @stock_itemcnt
if @@fetch_status <> 0
break
if @vf_clcount = 0
break
if @stock_kycount > 0
begin
if @vf_clcount >= @stock_kycount
begin
/*ʹ<EFBFBD><EFBFBD>kycount*/
set @vf_clcount = @vf_clcount - @stock_kycount
set @tmp_stkcount = @stock_kycount
end
else
begin
/*ʹ<EFBFBD><EFBFBD>clcount*/
set @tmp_stkcount = @vf_clcount
set @vf_clcount = 0
end
set @tmp_cost = @stock_cost * (@tmp_stkcount / @stock_kccount)
set @tmp_netcost = @stock_netcost * (@tmp_stkcount / @stock_kccount)
/*=================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=================*/
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
update t_plu_batch set
stkcount = stkcount - @tmp_stkcount,
cost = cost - @tmp_cost,
netcost = netcost - @tmp_netcost,
emptydate = case stkcount when @tmp_stkcount then @procdate else null end,
jhcount = jhcount + case @vs_uppctype when '1' then abs(@tmp_stkcount) else 0 end,
thcount = thcount + case @vs_uppctype when '2' then abs(@tmp_stkcount) else 0 end,
xscount = xscount + case @vs_uppctype when '3' then @tmp_stkcount else 0 end, --<EFBFBD><EFBFBD><EFBFBD>ۺ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD>ϲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>abs
othcount = othcount + case @vs_uppctype when '4' then @tmp_stkcount else 0 end --<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>abs
where
orgcode = @stock_orgcode and depcode = @stock_depcode and place = @stock_place and batchno = @stock_batchno
/*=================<3D><><EFBFBD>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>ϸ<EFBFBD><CFB8>=================*/
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD>'
insert t_batchproc_body(
billno, serialno, depcode, supcode, plucode, pluname, spec, unit, plutype, batchno, srcbatchno,
contrno, jymode, proccount, jprice, netjprice, cost, netcost, refserialno, itemcnt)
values (
@vs_ckbillno, @vi_ordnum, @stock_depcode, @stock_supcode, @vs_plucode, @vs_pluname, @vs_spec, @vs_unit, @stock_plutype, @stock_batchno, @stock_srcbatchno,
@stock_contrno, @stock_jymode, abs(@tmp_stkcount), @stock_jprice, @stock_netjprice, abs(@tmp_cost), abs(@tmp_netcost), @serialno, @stock_itemcnt)
--<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if @vs_dectype = 'deckcxs'
begin
insert t_supsale_detail(
billno, serialno, supcode, supname, suptype, plucode, pluname, datatype,
accdate, acctimes, orgcode, orgname, counts, cost, netcost, remark)
select
@vs_ckbillno, @vi_ordnum, @stock_supcode,
isnull((select supname from t_supplier where supcode = @stock_supcode),''),
isnull((select suptype from t_supplier where supcode = @stock_supcode),0),
@vs_plucode, @vs_pluname, '1', accdate, acctimes, @vs_orgcode,
isnull((select orgname from t_shop where orgcode = @vs_orgcode),''),
@tmp_stkcount, @tmp_cost, @tmp_netcost, '<EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><EFBFBD><EFBFBD>'
from ##dayover_plubatch_head
where billno = @billno
end
set @vi_ordnum = @vi_ordnum + 1
end
end
if cursor_status('variable', N'@cur_stock') > -1
begin
close @cur_stock
deallocate @cur_stock
end
if @vf_clcount <> 0
begin
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ(' + isnull(@vs_plucode, '') + '-' + isnull(@vs_pluname, '') + ')<29><><EFBFBD>治<EFBFBD>㣬<EFBFBD>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
if cursor_status('variable', N'@cur_bill') > -1
begin
close @cur_bill
deallocate @cur_bill
end
return
end
end
if cursor_status('variable', N'@cur1806_bill') > -1
begin
close @cur_bill
deallocate @cur_bill
end
/*=================<3D><><EFBFBD>ɿ<EFBFBD><C9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>=================*/
set @ps_message = '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>(<28><><EFBFBD><EFBFBD>)<29><><EFBFBD><EFBFBD>'
select @tmp_stkcount = sum(proccount), @tmp_cost = sum(cost), @tmp_netcost = sum(netcost)
from t_batchproc_body
where billno = @vs_ckbillno
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD>涼<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Dz<EFBFBD>д<EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD>ģ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>null<EFBFBD><EFBFBD>д<EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><EFBFBD><EFBFBD>ͷ
if @tmp_stkcount is not null
insert t_batchproc_head(
billno, billtype, ywtype, ywbillno, procdate, orgcode, place,
proccount, cost, netcost, usercode, username, tag)
values (
@vs_ckbillno, @vs_proctype, @ywtype, @billno, @procdate, @vs_orgcode, @vs_place,
@tmp_stkcount, @tmp_cost, @tmp_netcost, @usercode, @userrname, '0')
set @pi_result = 1
end try
begin catch
declare @errornumber int
set @errornumber = error_number()
declare @errormessage nvarchar(4000)
set @errormessage = error_message()
begin
begin
set @pi_result = -1
if cursor_status('variable', N'@cur_stock') > -1
begin
close @cur_stock
deallocate @cur_stock
end
if cursor_status('variable', N'@cur_bill') > -1
begin
close @cur_bill
deallocate @cur_bill
end
set @ps_message = isnull(@ps_message, '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ֪<EFBFBD><EFBFBD><EFBFBD><EFBFBD>:') + isnull(@errormessage, '')
set @ps_message = substring(@ps_message, 1, 2000)
return
end
end
end catch
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_coupon_sale_lock') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_coupon_sale_lock
go
create procedure p_coupon_sale_lock
@datatype varchar(1),
@billno varchar(20),
@cupcode varchar(20),
@vipcode varchar(20),
@msgserialno varchar(12),
@orgcode varchar(10),
@posno varchar(6),
@usercode varchar(6),
@xfls varchar(100),
@verifymark varchar(13),
@lockmark varchar(20),
@smessage varchar(100) output
with encryption
as
declare @snowdate varchar(10)
declare @rzdate varchar(10)
declare @bgndate varchar(10)
declare @enddate varchar(10)
declare @isused varchar(1)
declare @oldverifymark varchar(13)
declare @sql varchar(8000)
declare @canuse varchar(1)
declare @locked varchar(1)
declare @irnt integer
begin
set @snowdate = convert(varchar(10),getdate(),120)
select @rzdate = f.rzdate
from t_coupon_head f,t_coupon_org o
where f.billno = o.billno and f.billno = @billno and o.orgcode = @orgcode
set @irnt = @@rowcount
if isnull(@rzdate,'') = ''
begin
select @smessage = '<EFBFBD><EFBFBD>ȯδ<EFBFBD><EFBFBD>Ч'
return (-1)
end
if @irnt = 0
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if @datatype = 0
begin
select @bgndate = f.rcvdate,@enddate = f.enddate,@isused = f.status,@oldverifymark = f.verifymark,
@locked = case when isnull(f.lockmark,'') = '' then '0' else '1' end
from t_vip_coupon f
where f.billno = @billno and f.cupcode = @cupcode and f.vipcode = @vipcode
end
else
begin
select @bgndate = f.rcvdate,@enddate = f.enddate,@isused = f.status,@oldverifymark = f.verifymark,
@locked = case when isnull(f.lockmark,'') = '' then '0' else '1' end
from t_cash_coupon f
where f.billno = @billno and f.cupcode = @cupcode
end
set @irnt = @@rowcount
if @irnt = 0
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if @irnt > 1
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD>Ų<EFBFBD>Ψһ'
return (-1)
end
if (@bgndate > @snowdate) or (@enddate < @snowdate)
begin
select @smessage = '<EFBFBD><EFBFBD>ȯδ<EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if @locked = '1'
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if (@isused = '3')
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD>ѱ<EFBFBD>ʹ<EFBFBD><EFBFBD>'
return (-1)
end
if (@isused= '2')
begin
select @smessage = '<EFBFBD><EFBFBD>ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if (@oldverifymark <> @verifymark)
begin
select @smessage = '<EFBFBD><EFBFBD>ȯУ<EFBFBD><EFBFBD>λ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
return (-1)
end
if @datatype = 0
begin
update f set lockmark = @lockmark,msgserialno = @msgserialno,serialno = @xfls,orgcode=@orgcode,posno = @posno,clkcode = @usercode,status = '4'
from t_vip_coupon f
where f.billno = @billno and f.cupcode = @cupcode and f.vipcode = @vipcode
end
else
begin
update f set lockmark = @lockmark,msgserialno = @msgserialno,serialno = @xfls,orgcode=@orgcode,posno = @posno,clkcode = @usercode,status = '4'
from t_cash_coupon f
where f.billno = @billno and f.cupcode = @cupcode
end
if @@error<>0
begin
select @smessage='ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
return (-1)
end
else
return (0)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_coupon_confirm') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_coupon_confirm
go
create procedure p_coupon_confirm
@datatype varchar(1),
@cupcoden varchar(1000),
@msgserialno varchar(12),
@smessage varchar(100) output
with encryption
as
declare @snowdate varchar(10)
declare @ssql varchar(8000)
begin
if @datatype= '0'
begin
set @ssql = 'update f set status = ''3'',verifymark = lockmark,lockmark = '''',msgserialno = ''''
from t_vip_coupon f
where f.cupcode in ' + @cupcoden + ' and f.msgserialno = ''' + @msgserialno + ''''
end
else
begin
set @ssql = 'update f set status = ''3'',verifymark = lockmark,lockmark = '''',msgserialno = ''''
from t_cash_coupon f
where f.cupcode in ' + @cupcoden + ' and f.msgserialno = ''' + @msgserialno + ''''
end
exec(@ssql)
if @@error<>0
begin
select @smessage = 'ȯȷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
return (-1)
end
else
return (0)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_coupon_cancel') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_coupon_cancel
go
create procedure p_coupon_cancel
@datatype varchar(1),
@cupcoden varchar(1000),
@msgserialno varchar(12),
@smessage varchar(100) output
with encryption
as
declare @ssql varchar(8000)
begin
if @datatype= '0'
begin
set @ssql = 'update f set lockmark = '''',msgserialno = '''',orgcode = '''',serialno = '''',clkcode='''',posno='''',status = ''1''
from t_vip_coupon f
where f.cupcode in ' + @cupcoden + ' and f.msgserialno = ''' + @msgserialno + ''' '
end
else
begin
set @ssql = 'update f set lockmark = '''',msgserialno = '''',orgcode = '''',serialno = '''',clkcode='''',posno='''',status = ''1''
from t_cash_coupon f
where f.cupcode in ' + @cupcoden + ' and f.msgserialno = ''' + @msgserialno + ''' '
end
exec(@ssql)
if @@error<>0
begin
select @smessage = 'ȯȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
return (-1)
end
else
return (0)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_coupon_open_lock') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_coupon_open_lock
go
create procedure p_coupon_open_lock
@datatype varchar(1),
@billno varchar(20),
@cupcode varchar(20),
@vipcode varchar(20),
@opentype varchar(1),
@smessage varchar(100) output
with encryption
as
declare @ssql varchar(8000)
begin
if @datatype= '0'
begin
select cupcode from t_vip_coupon f
where f.billno = @billno and f.cupcode = @cupcode and f.vipcode = @vipcode and (isnull(f.lockmark,'') <> '')
end
else
begin
select cupcode from t_cash_coupon f
where f.billno = @billno and f.cupcode = @cupcode and (isnull(f.lockmark,'') <> '')
end
if @@rowcount = 0
begin
select @smessage = '<EFBFBD><EFBFBD>ȯδ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (-1)
end
if @datatype= '0'
begin
if @opentype = '0'
begin
update f set status = '3',verifymark = lockmark,lockmark = '',msgserialno = ''
from t_vip_coupon f
where f.billno = @billno and f.cupcode = @cupcode and f.vipcode = @vipcode
end
else
begin
update f set status = '1',lockmark = '',msgserialno = '',orgcode = '',serialno = '',clkcode='',posno=''
from t_vip_coupon f
where f.billno = @billno and f.cupcode = @cupcode and f.vipcode = @vipcode
end
end
else
begin
if @opentype = '0'
begin
update f set status = '3',verifymark = lockmark,lockmark = '',msgserialno = ''
from t_cash_coupon f
where f.billno = @billno and f.cupcode = @cupcode
end
else
begin
update f set status = '1',lockmark = '',msgserialno = '',orgcode = '',serialno = '',clkcode='',posno=''
from t_cash_coupon f
where f.billno = @billno and f.cupcode = @cupcode
end
end
if @@error<>0
begin
select @smessage = 'ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
return (-1)
end
else
return (0)
end
go
--<EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if exists (select * from dbo.sysobjects where id = object_id(N'p_turn_picking') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_turn_picking
go
create procedure p_turn_picking
@sbillno varchar(20),
@sorgcode varchar(10),
@sbillsrc varchar(1),
@psusercode varchar(6),
@psremark varchar(200),
@piflag int out,
@psmsg varchar(2000) out
as
begin
declare @detail_areacode varchar(10)
declare @newbillno varchar(20)
declare @scurdate varchar(10)
declare @scurtime varchar(8)
declare @susername varchar(20)
declare @count int
declare @errmsg varchar(1800)
declare @plucode varchar(20)
declare @pluname varchar(40)
if @sorgcode=''
begin
select @sorgcode=orgcode from t_dist_head where billno = @sbillno
end
if (@sbillno='') or (@sorgcode='') or (@psusercode='')
begin
set @piflag=0
set @psmsg='<EFBFBD><EFBFBD><EFBFBD>ݺš<EFBFBD><EFBFBD>ֿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>롢¼<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>߶<EFBFBD><DFB6><EFBFBD>Ϊ<EFBFBD><CEAA>'
return (0)
end
set @count = 0
select @count = (count(*)) from t_picking_head where zpbillno = @sbillno
if (@count > 0 )
begin
set @piflag=0
set @psmsg='<EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD>'+@sbillno+'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
return (0)
end
set @errmsg=''
declare cur_checkbilldata cursor for select d.plucode,d.pluname from t_dist_body d left join
(select plucode,bincode from t_plu_bin where orgcode = @sorgcode) b on d.plucode = b.plucode
where isnull(b.bincode,'')='' and billno = @sbillno
open cur_checkbilldata
fetch next from cur_checkbilldata into @plucode,@pluname
while @@fetch_status=0
begin
if @errmsg=''
set @errmsg=''+@plucode+'-'+@pluname+';'
else
set @errmsg=@errmsg+char(13)+''+@plucode+'-'+@pluname+';'
fetch next from cur_checkbilldata into @plucode,@pluname
end
close cur_checkbilldata
deallocate cur_checkbilldata
if (@errmsg <> '' )
begin
set @piflag=0
set @psmsg='<EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD>'+@sbillno+'û<EFBFBD><EFBFBD>ά<EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><EFBFBD>Ϣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD>У<EFBFBD>'+ @errmsg
return (0)
end
select @susername=username from t_user where usercode=@psusercode
set @piflag=0
declare cur cursor for select distinct(pb.areacode) as areacode from t_dist_body d
left join ( select plucode,bincode,(select areacode from t_ware_bin where bincode = t.bincode)as areacode from t_plu_bin t where t.orgcode = @sorgcode)pb on pb.plucode = d.plucode
where d.billno = @sbillno
open cur
fetch next from cur into @detail_areacode
while @@fetch_status=0
begin
if(isnull(@detail_areacode,'') <> '')
begin
while 1=1
begin
exec f_get_billno 'PK',@sorgcode,'1',@newbillno output
if exists(select 1 from t_picking_head where billno=@newbillno)
continue
else
break
end
if @@error<>0
begin
set @piflag=0
set @psmsg='<EFBFBD><EFBFBD><EFBFBD>ɼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><EFBFBD>'
return (0)
end
select @scurdate=convert(varchar(10),getdate(),23),@scurtime =convert(varchar(8),getdate(),108)
insert into t_picking_body (billno,serialno,plucode,pluname,barcode,cargono,spec,unit,punit,itemcnt,pcount,sglcount,counts,zpcount,bincode,boxno,depcode,depname,remark )
select @newbillno,d.serialno as serialno,d.plucode,d.pluname,d.barcode,d.cargono,d.spec,d.unit,d.punit,d.ItemCnt,0,0,0,d.zpcount,pb.bincode as bincode,'',d.DepCode,d.DepName,''
from t_dist_body d
left join ( select plucode,bincode,(select areacode from t_ware_bin where bincode = t.bincode)as areacode from t_plu_bin t where t.orgcode = @sorgcode )pb on d.plucode = pb.plucode
where d.billno = @sbillno and pb.areacode = @detail_areacode
order by pb.bincode
insert into t_picking_head(billno,orgcode,zpbillno,state,areacode,billsrc,lrdate,lrtime,bizdate,depcode,depname,counts,chkstatus,usercode,username,zdrcode,zdrname,remark)
select @newbillno,@sorgcode,billno,'0',@detail_areacode,@sbillsrc,@scurdate,@scurtime,@scurdate,h.depcode,h.depname,0,'0',@psusercode,@susername,@psusercode,@susername,'<EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD>'+@sbillno+'<EFBFBD>Զ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
from t_dist_head h where h.billno = @sbillno
end
fetch next from cur into @detail_areacode
end
close cur
deallocate cur
update t_dist_head set pickstate = '1' where BillNo = @sbillno
if @@error<>0
begin
set @piflag=0
set @psmsg='<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD>״̬ʧ<EFBFBD><EFBFBD>'
return (0)
end
set @piflag=1
return (1)
end
go
if exists (select * from dbo.sysobjects where id = object_id(N'p_update_new_prn_format') and objectproperty(id, N'isprocedure') = 1)
drop procedure p_update_new_prn_format
go
create procedure p_update_new_prn_format
@prntype varchar(1),
@prncode varchar(10),
@ver varchar(1),
@prnname varchar(40),
@remark varchar(40),
@isnewformat varchar(1),
@newformat image
as
begin
declare @iisfind int
declare @imgformat varbinary(8000)
declare @prnformat varbinary(8000)
declare cur_loop cursor for
select prnformat from t_prn_format where prntype=@prntype and prncode=@prncode order by serialno
set @iisfind=0
set @imgformat=@newformat
open cur_loop
fetch next from cur_loop into @prnformat
while @@fetch_status=0
begin
if dbo.f_compare_image(@imgformat,@prnformat)=1
begin
set @iisfind=1
break
end
fetch next from cur_loop into @prnformat
end
close cur_loop
deallocate cur_loop
if @iisfind=0
insert into t_prn_format (prntype,prncode,ver,serialno,isdefault,prnname,remark,isnewformat,prnformat)
select @prntype,@prncode,@ver,(select isnull(max(serialno),0)+1 serialno from t_prn_format where prntype=@prntype and prncode=@prncode),'0',@prnname,@remark,@isnewformat,@newformat
end
go