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.
422 lines
17 KiB
422 lines
17 KiB
if exists(select * from sysobjects where name='p_rz_prepare_th' and xtype='p')
|
|
drop procedure p_rz_prepare_th
|
|
go
|
|
create procedure p_rz_prepare_th
|
|
(
|
|
@psorgcode varchar(10),
|
|
@psbillno varchar(20),
|
|
@psparams varchar(200),
|
|
@psmsg varchar(2000) out
|
|
)
|
|
as
|
|
begin
|
|
declare @optaccepttimes varchar(1)
|
|
declare @sacceptno varchar(20)
|
|
declare @sbilltype varchar(1)
|
|
declare @optupacceptrate numeric(19,4)
|
|
declare @billcost numeric(19,4)
|
|
declare @sorgcode varchar(10)
|
|
declare @ssupcode varchar(15)
|
|
declare @ssupstatus varchar(1)
|
|
declare @ssupvalidstatus varchar(1)
|
|
declare @ssupcontractstatus varchar(1)
|
|
|
|
select @sorgcode=orgcode,@ssupcode=supcode from t_return_head where billno=@psbillno
|
|
|
|
if not exists(select * from t_supplier where supcode=@ssupcode)
|
|
begin
|
|
set @psmsg='供应商不存在，不能记账'
|
|
return(-1)
|
|
end
|
|
select @ssupstatus=supstatus,
|
|
@ssupvalidstatus=case when (isnull(validdate,'')='' or validdate>=convert(varchar(100),getdate(),23)) then '1' else '0' end,
|
|
@ssupcontractstatus=case when (not exists(select * from t_contract where supcode=t_supplier.supcode and contrstatus='0')) or
|
|
(exists(select * from t_contract where supcode=t_supplier.supcode and contrstatus='0' and convert(varchar(100),getdate(),23) between bgndate and enddate)) then '1'
|
|
else '0' end
|
|
from t_supplier where supcode=@ssupcode
|
|
if @ssupstatus<>'0'
|
|
begin
|
|
set @psmsg='供应商状态非正常，不能记账'
|
|
return(-1)
|
|
end
|
|
if @ssupvalidstatus='0'
|
|
begin
|
|
set @psmsg='供应商已过有效期，不能记账'
|
|
return(-1)
|
|
end
|
|
if @ssupcontractstatus='0'
|
|
begin
|
|
set @psmsg='供应商合同已过期，不能记账'
|
|
return(-1)
|
|
end
|
|
|
|
select @psmsg=coalesce(@psmsg+char(13),'')+d.plucode from t_return_body d,t_plu_org g
|
|
where d.plucode=g.plucode and g.orgcode=@sorgcode and g.isright='1' and d.billno=@psbillno and d.price<>g.price
|
|
if isnull(@psmsg,'')<>''
|
|
begin
|
|
set @psmsg='以下商品的售价已经改变：'+char(13)+@psmsg
|
|
return(-1)
|
|
end
|
|
|
|
select @psmsg=coalesce(@psmsg+char(13),'')+b.plucode+'-'+b.pluname from t_return_body b,t_plu
|
|
where b.plucode=t_plu.plucode and b.billno=@psbillno and b.depcode<>t_plu.depcode
|
|
if isnull(@psmsg,'')<>''
|
|
begin
|
|
set @psmsg='以下商品的部门已经改变：'+char(13)+@psmsg
|
|
return(-1)
|
|
end
|
|
|
|
select @psmsg=coalesce(@psmsg+char(13),'')+ltrim(plucode)+'-'+pluname from t_return_body d
|
|
where billno=@psbillno and (not exists(select plucode from t_plu where plucode=d.plucode)
|
|
or not exists(select plucode from t_plu_org where plucode=d.plucode and orgcode=@sorgcode and isright='1'))
|
|
if isnull(@psmsg,'')<>''
|
|
begin
|
|
set @psmsg='以下商品已不存在或在机构['+@sorgcode+']中无经营权限，无法记账'+char(13)+@psmsg
|
|
return(-1)
|
|
end
|
|
end
|
|
go
|
|
|
|
if exists(select * from sysobjects where name='p_rz_th' and xtype='p')
|
|
drop procedure p_rz_th
|
|
go
|
|
create procedure p_rz_th
|
|
(
|
|
@psorgcode varchar(10),
|
|
@psbillno varchar(20),
|
|
@psparams varchar(200),
|
|
@psmsg varchar(2000) out
|
|
)
|
|
as
|
|
begin
|
|
declare @sorgcode varchar(10)
|
|
declare @finacode varchar(10)
|
|
declare @sameacc varchar(1)
|
|
declare @sbilltype varchar(1)
|
|
declare @org_orgtype varchar(1)
|
|
declare @org_isdbdeploy varchar(1)
|
|
declare @org_isconfirm varchar(1)
|
|
declare @sedition varchar(20)
|
|
declare @scurver varchar(1)
|
|
declare @scurdate varchar(10)
|
|
declare @scurtime varchar(8)
|
|
declare @optplumultivendor varchar(10)
|
|
declare @splace varchar(1)
|
|
declare @bill_cost numeric(19,4)
|
|
declare @ssupcode varchar(15)
|
|
declare @svendorname varchar(100)
|
|
declare @ssupstatus varchar(1)
|
|
declare @svendorvaliddate varchar(20)
|
|
declare @svendortype varchar(2)
|
|
declare @svendorjymode varchar(1)
|
|
declare @siszs varchar(1)
|
|
declare @szsywjs varchar(10)
|
|
declare @vendor_payable numeric(19,4)
|
|
declare @vendor_prepaytotal numeric(19,4)
|
|
declare @v_org_type varchar(1)
|
|
declare @stock_plutype varchar(1)
|
|
declare @detail_cost numeric(19,4)
|
|
declare @detail_netcost numeric(19,4)
|
|
declare @detail_total numeric(19,4)
|
|
declare @detail_jprice numeric(19,4)
|
|
declare @detail_netjprice numeric(19,4)
|
|
declare @detail_count numeric(19,4)
|
|
declare @detail_plucode varchar(20)
|
|
declare @detail_depcode varchar(10)
|
|
declare @detail_price numeric(19,4)
|
|
declare @detail_jtaxrate numeric(19,4)
|
|
declare @detail_cgcount numeric(19,4)
|
|
declare @detail_counts numeric(19,4)
|
|
declare @detail_pluname varchar(40)
|
|
declare @goods_jprice numeric(19,4)
|
|
declare @goods_netjprice numeric(19,4)
|
|
declare @goods_cost numeric(19,4)
|
|
declare @goods_netcost numeric(19,4)
|
|
declare @goods_tzamount numeric(19,4)
|
|
declare @goods_counts numeric(19,4)
|
|
declare @goods_jtaxrate numeric(19,4)
|
|
declare @sflg varchar(1)
|
|
declare @new_jprice numeric(19,4)
|
|
declare @new_netjprice numeric(19,4)
|
|
declare @new_cost numeric(19,4)
|
|
declare @new_netcost numeric(19,4)
|
|
declare @new_tzamount numeric(19,4)
|
|
declare @fscost numeric(19,4)
|
|
declare @fsnetcost numeric(19,4)
|
|
declare @fstotal numeric(19,4)
|
|
declare @jccost numeric(19,4)
|
|
declare @jcnetcost numeric(19,4)
|
|
declare @jctotal numeric(19,4)
|
|
declare @jccount numeric(19,4)
|
|
declare @jynetcost numeric(19,4)
|
|
declare @ssql varchar(2000)
|
|
declare @svbktablename varchar(20)
|
|
declare @spsacceptuptjprice varchar(20)
|
|
declare @sbranchno varchar(10)
|
|
declare @detailcs_plucode varchar(20)
|
|
declare @detailcs_colorcode varchar(10)
|
|
declare @detailcs_sizecode varchar(10)
|
|
declare @detailcs_cgcount numeric(19,4)
|
|
declare @detailcs_ccounts numeric(19,4)
|
|
declare @stateflg int
|
|
declare @mngcsstock varchar(1)
|
|
declare @susercode varchar(6)
|
|
declare @susername varchar(10)
|
|
declare @vd_procdate datetime
|
|
declare @vi_result integer
|
|
declare @vs_message varchar(max)
|
|
|
|
set @jynetcost=0
|
|
set @spsacceptuptjprice=null
|
|
set @sedition='1'
|
|
|
|
select @optplumultivendor=itemvalue from t_syscfg where section='SYSTEM' and itemname='PluMultiVendor'
|
|
set @spsacceptuptjprice=isnull(@spsacceptuptjprice,'FALSE')
|
|
select @sedition=itemvalue from t_syscfg where section='SYSTEM' and itemname='Edition'
|
|
select @sorgcode=orgcode,@ssupcode=supcode,@svendorname=supname,@splace=place,@susercode=usercode,@susername=username,@sbilltype = billtype from t_return_head where billno=@psbillno
|
|
select @org_orgtype=orgtype,@org_isdbdeploy=isdbdeploy,@org_isconfirm=isconfirm,@finacode=isnull(finacode,'') from t_shop where orgcode=@sorgcode
|
|
select @scurver=itemvalue from t_syscfg where section='SYSTEM' and itemname='VER'
|
|
select @scurdate=convert(varchar(100),getdate(),23),@scurtime=convert(varchar(100),getdate(),108)
|
|
select @sbranchno=itemvalue from t_syscfg where section='SYSTEM' and itemname='BranchNo'
|
|
set @szsywjs='0'
|
|
select @szsywjs=case when isnull(itemvalue,'FALSE')='TRUE' then '1' else '0' end from t_syscfg where section='SYSTEM' and itemname='ZsYwJs'
|
|
|
|
if @splace=''
|
|
begin
|
|
if @org_orgtype='2'
|
|
set @splace='1'
|
|
else
|
|
set @splace='0'
|
|
end
|
|
|
|
if @sbilltype = '2'
|
|
begin
|
|
exec p_get_finacode 'C009',@sorgcode,@finacode out,@sameacc out ,@psmsg out
|
|
if @psmsg <> ''
|
|
begin
|
|
return (-1)
|
|
end
|
|
end
|
|
|
|
select @ssupstatus=supstatus,@svendorvaliddate=validdate,@svendorjymode=jymode,@svendortype=suptype from t_supplier where supcode=@ssupcode
|
|
if @@rowcount=0
|
|
begin
|
|
set @psmsg='供应商['+@ssupcode+']不存在'
|
|
return(-1)
|
|
end
|
|
else if @ssupstatus<>'0'
|
|
begin
|
|
set @psmsg='供应商['+@ssupcode+']状态非正常'
|
|
return(-1)
|
|
end
|
|
|
|
if (@scurver='1')
|
|
begin
|
|
if @svendortype='1'
|
|
set @siszs='1'
|
|
else
|
|
set @siszs='0'
|
|
end
|
|
else
|
|
begin
|
|
if @svendortype='0'
|
|
set @siszs='1'
|
|
else
|
|
set @siszs='0'
|
|
end
|
|
|
|
set @svbktablename='t_vbk_'+substring(convert(varchar(100),getdate(),112),1,6)
|
|
exec p_create_vbk @svbktablename,@psmsg out
|
|
if isnull(@psmsg,'')<>''
|
|
begin
|
|
return(-1)
|
|
end
|
|
if @psparams = '9'--不处理库存，仅生成配送退货单
|
|
begin
|
|
select @v_org_type=orgtype from t_shop where orgcode=@ssupcode
|
|
if (@scurver<>'0') and (@org_orgtype<>'2') and (@org_isdbdeploy='1') and(@v_org_type='2')
|
|
begin
|
|
set @psmsg=''
|
|
exec p_return_create_dist_form @psbillno,@psmsg out
|
|
if @psmsg<>''
|
|
return(-1)
|
|
|
|
update t_dist_head set chkstatus='4' where billno=@psbillno
|
|
|
|
exec p_rz_ps @psorgcode,@psbillno,'',@psmsg output
|
|
begin
|
|
if (@@error<>0) or (@psmsg<>'')
|
|
return(-1)
|
|
end
|
|
end
|
|
update t_return_head set rzdate=@scurdate,rztime=@scurtime where billno=@psbillno
|
|
|
|
set @psmsg=''
|
|
return(1)
|
|
end
|
|
declare cur cursor for select plucode,pluname,depcode,price,jtaxrate,counts as cgcount,counts,cost as fscost,netcost as fsnetcost,
|
|
total as fstotal,counts,cost,netcost,jprice,netjprice
|
|
from t_return_body where billno=@psbillno order by plucode,jprice
|
|
open cur
|
|
fetch next from cur into @detail_plucode,@detail_pluname,@detail_depcode,@detail_price,@detail_jtaxrate,@detail_cgcount,@detail_counts,@fscost,@fsnetcost,@fstotal,@detail_count,@detail_cost,@detail_netcost,@detail_jprice,@detail_netjprice
|
|
while @@fetch_status=0
|
|
begin
|
|
set @sflg='0'
|
|
select @goods_jprice=o.jprice,@goods_netjprice=o.netjprice,@goods_cost=o.cost,@goods_netcost=o.netcost,@goods_tzamount=o.tzamount,@goods_counts=o.gcount+o.ccount,@goods_jtaxrate=g.jtaxrate
|
|
from t_plu_org o join t_plu g on o.plucode=g.plucode where o.plucode=@detail_plucode and o.orgcode=@sorgcode
|
|
if @@rowcount=0
|
|
begin
|
|
set @psmsg='商品['+@detail_pluname+']不存在'
|
|
return(-1)
|
|
end
|
|
set @jynetcost=@goods_netcost-@detail_netcost+round(@goods_tzamount/(1+@goods_jtaxrate/100.00),2)
|
|
|
|
if ((@detail_count>=@goods_counts) and (@detail_cost<=@goods_cost))
|
|
or ((@detail_count<=@goods_counts) and (@detail_cost>=@goods_cost))
|
|
or ((@goods_counts>=0) and (@detail_count>=@goods_counts) and (@detail_cost>=@goods_cost))
|
|
begin
|
|
set @sflg='1'
|
|
select @new_jprice=@goods_jprice,@new_netjprice=@goods_netjprice
|
|
set @new_cost=round(@new_jprice*(@goods_counts-@detail_count),2)
|
|
set @new_netcost=round(@new_netjprice*(@goods_counts-@detail_count),2)
|
|
set @new_tzamount=@goods_tzamount+@goods_cost-@detail_cost-@new_cost
|
|
if @jynetcost<>@new_netcost+round(@new_tzamount/(1+@goods_jtaxrate/100.00),2)
|
|
set @new_netcost=@jynetcost-round(@new_tzamount/(1+@goods_jtaxrate/100.00),2)
|
|
end
|
|
else
|
|
begin
|
|
if @goods_tzamount<>0
|
|
begin
|
|
if (@goods_tzamount>0) and (@goods_tzamount>@detail_cost)
|
|
begin
|
|
set @new_tzamount=@goods_tzamount-@detail_cost
|
|
set @new_cost=@goods_cost
|
|
set @new_netcost=@goods_netcost
|
|
end
|
|
else
|
|
begin
|
|
set @new_tzamount=0
|
|
set @new_cost=@goods_cost-@detail_cost+@goods_tzamount
|
|
set @new_netcost=@goods_netcost-@detail_netcost+round(@goods_tzamount/(1+@goods_jtaxrate/100.00),2)
|
|
end
|
|
end
|
|
else
|
|
begin
|
|
set @new_cost=@goods_cost-@detail_cost
|
|
set @new_netcost=@goods_netcost-@detail_netcost
|
|
set @new_tzamount=@goods_tzamount
|
|
end
|
|
|
|
set @new_jprice=round(@new_cost/(@goods_counts-@detail_count),4)
|
|
set @new_netjprice=round(@new_netcost/(@goods_counts-@detail_count),4)
|
|
end
|
|
|
|
update a set gcount=case when @splace='0' then gcount-@detail_count else gcount end,
|
|
ccount=case when @splace='1' then ccount-@detail_count else ccount end,
|
|
jprice=@new_jprice,netjprice=@new_netjprice,
|
|
tzamount=@new_tzamount,cost=@new_cost,netcost=@new_netcost,
|
|
total=case when b.plutype='2' then 0 else round(a.price*(@goods_counts-@detail_count),2) end,
|
|
@stock_plutype=b.plutype,
|
|
@fstotal=case when b.plutype='2' then 0 else @fstotal end,
|
|
@jccount=gcount+ccount-@detail_count,
|
|
@jccost=@new_cost+@new_tzamount,
|
|
@jcnetcost=@new_netcost+round(@new_tzamount/(1+@goods_jtaxrate/100.00),2),
|
|
@jctotal=case when b.plutype='2' then 0 else round(a.price*(@goods_counts-@detail_count),2) end
|
|
from t_plu_org a,t_plu b
|
|
where a.plucode=b.plucode and a.orgcode=@sorgcode and a.plucode=@detail_plucode and isright='1'
|
|
|
|
if exists(select plucode from t_plu where plucode=@detail_plucode and iszfcode='1')
|
|
begin
|
|
update a set jprice=b.jprice,netjprice=b.netjprice
|
|
from t_plu_org a,(select plucode,jprice,netjprice,orgcode from t_plu_org where plucode=@detail_plucode and orgcode=@sorgcode) b,
|
|
(select plucode,innercode from t_plu where iszfcode='2') c
|
|
where a.plucode=c.plucode and b.plucode=c.innercode and a.orgcode=b.orgcode
|
|
end
|
|
|
|
exec p_create_gbk_data @scurdate,@scurtime,@detail_plucode,@detail_depcode,@psbillno,'5',@detail_jprice,@detail_netjprice,@detail_price,@detail_count,@fscost,@fsnetcost,@fstotal,
|
|
@jccount,@jccost,@jcnetcost,@jctotal,@sorgcode,'','',@psmsg
|
|
fetch next from cur into @detail_plucode,@detail_pluname,@detail_depcode,@detail_price,@detail_jtaxrate,@detail_cgcount,@detail_counts,@fscost,@fsnetcost,@fstotal,@detail_count,@detail_cost,@detail_netcost,@detail_jprice,@detail_netjprice
|
|
end
|
|
close cur
|
|
deallocate cur
|
|
|
|
select @mngcsstock=mngcsstock from t_shop where orgcode=@sorgcode
|
|
if (@sedition='4') and (@mngcsstock='1')
|
|
begin
|
|
insert into t_plu_org_cs(plucode,orgcode,colorcode,sizecode,csbarcode,gcount,ccount,remark)
|
|
select distinct a.plucode as plucode,@sorgcode as orgcode,a.colorcode as colorcode,a.sizecode as sizecode,g.csbarcode as csbarcode,0 as gcount,0 as ccount,'' as remark
|
|
from t_return_cs_body a,t_plu_cs g where a.plucode=g.plucode and a.colorcode=g.colorcode and a.sizecode=g.sizecode and a.billno=@psbillno
|
|
and not exists (select plucode from t_plu_org_cs o where o.plucode=a.plucode and o.colorcode=a.colorcode and o.sizecode=a.sizecode and o.orgcode=@sorgcode)
|
|
|
|
update a set a.gcount=case when @splace='0' then a.gcount-b.ccounts else a.gcount end,
|
|
a.ccount=case when @splace='1' then a.ccount-b.ccounts else a.ccount end
|
|
from t_plu_org_cs a,(select plucode,colorcode,sizecode,sum(ccounts) as ccounts from t_return_cs_body where billno=@psbillno group by plucode,colorcode,sizecode) b
|
|
where a.plucode=b.plucode and a.orgcode=@sorgcode and a.colorcode=b.colorcode and a.sizecode=b.sizecode
|
|
end
|
|
|
|
if (@svendorjymode<>'2' and @sedition<>'4') and (@optplumultivendor='TRUE')
|
|
begin
|
|
insert into t_supaccept_detail(billtype,billno,serialno,plucode,pluname,orgcode,orgname,supcode ,supname,rzdate,rztime,jprice,netjprice,price,counts,cost,netcost,total,remark)
|
|
select '1',billno,serialno,plucode,pluname,@sorgcode,(select top 1 orgname from t_shop where orgcode=@sorgcode) as orgname,
|
|
@ssupcode,@svendorname,@scurdate,@scurtime,jprice,netjprice,price,-counts,-cost,-netcost,-total,remark
|
|
from t_return_body
|
|
where billno=@psbillno
|
|
end
|
|
|
|
--set @vd_procdate=getdate()
|
|
--exec p_decbatchstk @psbillno,'TH',@susercode,@susername,@vd_procdate,@vi_result output,@vs_message output
|
|
--if @vi_result<>1
|
|
--begin
|
|
-- select @psmsg=case when isnull(@vs_message,'')='' then '退货处理批次库存冲减失败' else @vs_message end
|
|
-- return(-1)
|
|
--end
|
|
|
|
update a set thtotal=thtotal+b.cost,@bill_cost=b.cost from t_supplier a,t_return_head b
|
|
where a.supcode=@ssupcode and a.supcode=b.supcode and b.billno=@psbillno
|
|
|
|
select @vendor_payable=jhtotal-thtotal+tjtotal,@vendor_prepaytotal=prepay from t_supplier where supcode=@ssupcode
|
|
set @ssql='insert into t_vbk_'+ substring(convert(varchar(100),getdate(),112),1,6)+'(orgcode,bookdate,booktime,supcode,billno,billtype,fsamount,yfjytotal,prejytotal)'
|
|
+' values('''+@sorgcode+''','''+@scurdate+''','''+@scurtime+''','''+@ssupcode+''','''+@psbillno+''',''1'','+convert(varchar(20),-@bill_cost)+','+convert(varchar(20),@vendor_payable)+','+convert(varchar(20),@vendor_prepaytotal)+')'
|
|
exec(@ssql)
|
|
|
|
if @svendorjymode<>'2' and @sbilltype<>'3'
|
|
insert into t_pay_bill(orgcode,billtype,billno,bizdate,supcode,sqauremode,cost,paydate,jscost,zrcost,isfinished,total,contrno,finacode)
|
|
select orgcode,case when (@scurver='1') and (billtype='2') then '4' else '1' end as billtype,
|
|
billno,bizdate,supcode,sqauremode,-cost,paydate,0,0,case when cost=0 then '1' else '0' end,-total,contrno,@finacode
|
|
from t_return_head where billno=@psbillno
|
|
|
|
if @scurver='1' and @siszs='1' and @org_orgtype='1' and @szsywjs='1'
|
|
begin
|
|
insert into t_distpay_bill(billno,billtype,shopcode,orgcode,rzdate,sqauremode,zpamount,jsamount,zramount,cost,netcost,total,isfinished,finacode)
|
|
select billno,'3',orgcode,@sbranchno,rzdate,sqauremode,-cost,0,0,-cost,-netcost,-total,case when cost=0 then '1' else '0' end,@finacode
|
|
from t_return_head where billno=@psbillno
|
|
|
|
update a set zsthamount=zsthamount+b.cost from t_shop a,t_return_head b
|
|
where a.orgcode=@sorgcode and a.orgcode=b.orgcode and b.billno=@psbillno
|
|
end
|
|
|
|
select @v_org_type=orgtype from t_shop where orgcode=@ssupcode
|
|
if (@scurver<>'0') and (@org_orgtype<>'2') and (@org_isdbdeploy='1') and(@v_org_type='2')
|
|
begin
|
|
set @psmsg=''
|
|
exec p_return_create_dist_form @psbillno,@psmsg out
|
|
if @psmsg<>''
|
|
return(-1)
|
|
|
|
update t_dist_head set chkstatus='4' where billno=@psbillno
|
|
|
|
exec p_rz_ps @psorgcode,@psbillno,'',@psmsg output
|
|
begin
|
|
if (@@error<>0) or (@psmsg<>'')
|
|
return(-1)
|
|
end
|
|
end
|
|
update t_return_head set rzdate=@scurdate,rztime=@scurtime where billno=@psbillno
|
|
if (@sbilltype = '2') and (@sameacc <> '1')
|
|
begin
|
|
exec p_nosameacc_th @psbillno,@psmsg out
|
|
end
|
|
set @psmsg=''
|
|
return(1)
|
|
end
|
|
go |