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.
165 lines
5.9 KiB
165 lines
5.9 KiB
if exists(select * from sysobjects where name='p_rz_prepare_dz' and xtype='p')
|
|
drop procedure p_rz_prepare_dz
|
|
go
|
|
|
|
create procedure p_rz_prepare_dz
|
|
(
|
|
@psorgcode varchar(10),
|
|
@psbillno varchar(20),
|
|
@psparams varchar(200),
|
|
@psmsg varchar(2000) out
|
|
)
|
|
as
|
|
begin
|
|
declare @optoverstatus varchar(10)
|
|
declare @ssupcode varchar(15)
|
|
declare @ssupstatus varchar(1)
|
|
declare @ssupvalidstatus varchar(1)
|
|
|
|
select @ssupcode=supcode from t_paysoa_head where billno=@psbillno
|
|
|
|
select @optoverstatus=itemvalue from t_syscfg where section='SYSTEM' and itemname='OVER'
|
|
if @optoverstatus<>'STOP'
|
|
begin
|
|
set @psmsg='正在进行营业日结，请稍后记账'
|
|
return(-1)
|
|
end
|
|
|
|
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
|
|
from t_supplier where supcode=@ssupcode
|
|
if @ssupstatus<>'0'
|
|
begin
|
|
set @psmsg='供应商状态非正常，不能记账'
|
|
return(-1)
|
|
end
|
|
if @ssupvalidstatus='0'
|
|
begin
|
|
set @psmsg='供应商已过有效期，不能记账'
|
|
return(-1)
|
|
end
|
|
|
|
--CheckBillBatch
|
|
select @psmsg=isnull(@psmsg+char(13),'')+billname+':' + ywbillno +
|
|
' 实际未对账：' + convert(varchar(20),convert(numeric(19,2),wftotal)) +
|
|
' 对账金额：'+convert(varchar(20),convert(numeric(19,2),bcjstotal))
|
|
from (select a.cost-a.jscost-a.zrcost as wftotal,b.bcjstotal,b.ywbillno,
|
|
case b.billtype
|
|
when '0' then '采购验收单' when '1' then '采购退货单' when '2' then '进价调整单'
|
|
when '3' then '直送验收单' when '4' then '直送退货单' when '5' then '直送进价调整单'
|
|
when '6' then '配送单' when '7' then '配送退货单' when '8' then '配送进价调整单'
|
|
else '未知类型单据' end as billname
|
|
from t_pay_bill a,t_paysoa_body b
|
|
where a.billno=b.ywbillno and a.billtype=b.billtype and a.orgcode=b.orgcode
|
|
and b.billno=@psbillno
|
|
and ((a.jscost<>b.jstotal) or (a.zrcost<>b.zrtotal))) a
|
|
if isnull(@psmsg,'')<>''
|
|
begin
|
|
set @psmsg='以下单据的对账金额超过了实际的未对账或者单据已更改，请重新录入后再记账'+char(13)+@psmsg
|
|
return(-1)
|
|
end
|
|
|
|
--UCheckHisPayBill
|
|
set @psmsg=''
|
|
return(1)
|
|
end
|
|
go
|
|
|
|
if exists(select * from sysobjects where name='p_rz_dz' and xtype='p')
|
|
drop procedure p_rz_dz
|
|
go
|
|
|
|
create procedure p_rz_dz
|
|
(
|
|
@psorgcode varchar(10),
|
|
@psbillno varchar(20),
|
|
@psparams varchar(200),
|
|
@psmsg varchar(2000) out
|
|
)
|
|
as
|
|
begin
|
|
declare @scurdate varchar(10)
|
|
declare @scurtime varchar(8)
|
|
declare @ssupcode varchar(15)
|
|
declare @sup_payable numeric(19,4)
|
|
declare @sup_prepaytotal numeric(19,4)
|
|
declare @dztotal numeric(19,4)
|
|
declare @bczrtotal numeric(19,4)
|
|
declare @feetotal numeric(19,4)
|
|
declare @bcjstotal numeric(19,4)
|
|
declare @xscost numeric(19,4)
|
|
declare @ssql varchar(2000)
|
|
declare @svbktablename varchar(20)
|
|
declare @bodycount int
|
|
|
|
select @scurdate=convert(varchar(100),getdate(),23),@scurtime=convert(varchar(100),getdate(),108)
|
|
select @bodycount=count(billno) from t_paysoa_body where billno=@psbillno
|
|
if @bodycount=0
|
|
begin
|
|
--用于不选择单据，直接自动生成符合条件的所有单据明细，壳牌暂时用不到
|
|
--todo CheckPayForm
|
|
--todo UAutoCreateJsPayBillDetail
|
|
set @psmsg='对账单没有录入任何业务单据！'
|
|
return(-1)
|
|
end
|
|
|
|
--CircleProcedure
|
|
update b set b.jscost=b.jscost+a.bcjstotal,b.zrcost=b.zrcost+a.bczrtotal,
|
|
b.isaccounted=case when a.total-a.jstotal-a.zrtotal-a.bcjstotal-a.bczrtotal=0 then '1' else '0' end
|
|
from t_pay_bill b,t_paysoa_body a
|
|
where a.billno=@psbillno and b.billtype=a.billtype and b.orgcode=a.orgcode and b.billno=a.ywbillno
|
|
|
|
--AlterVendor
|
|
select @ssupcode=supcode,@dztotal=dztotal,@bczrtotal=bczrtotal,@feetotal=feetotal,@bcjstotal=bcjstotal,@xscost=xscost
|
|
from t_paysoa_head
|
|
where billno=@psbillno
|
|
|
|
update t_supplier
|
|
set dztotal=dztotal+@dztotal,dzrtotal=dzrtotal+@bczrtotal,feetotal=feetotal+@feetotal,
|
|
dywtotal=dywtotal+@bcjstotal,xscost=xscost+@xscost
|
|
where supcode=@ssupcode
|
|
|
|
--WriteVendorBook
|
|
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
|
|
|
|
select @sup_payable=jhtotal-thtotal+tjtotal,@sup_prepaytotal=prepay from t_supplier where supcode=@ssupcode
|
|
if (@feetotal<>0)
|
|
begin
|
|
set @ssql='insert into t_vbk_'+ substring(convert(varchar(100),getdate(),112),1,6)+'(orgcode,bookdate,booktime,supcode ,billno,billtype,fsamount,yfjytotal,prejytotal)'
|
|
+' values('''+@psorgcode+''','''+@scurdate+''','''+@scurtime+''','''+@ssupcode+''','''+@psbillno+''',''8'','+convert(varchar(20),-@feetotal)+','+convert(varchar(20),@sup_payable-@feetotal)+','+convert(varchar(20),@sup_prepaytotal)+')'
|
|
exec(@ssql)
|
|
end
|
|
|
|
if (@bczrtotal<>0)
|
|
begin
|
|
set @ssql='insert into t_vbk_'+ substring(convert(varchar(100),getdate(),112),1,6)+'(orgcode,bookdate,booktime,supcode ,billno,billtype,fsamount,yfjytotal,prejytotal)'
|
|
+' values('''+@psorgcode+''','''+@scurdate+''','''+@scurtime+''','''+@ssupcode+''','''+@psbillno+''',''9'','+convert(varchar(20),-@bczrtotal)+','+convert(varchar(20),@sup_payable-@feetotal-@bczrtotal)+','+convert(varchar(20),@sup_prepaytotal)+')'
|
|
exec(@ssql)
|
|
END
|
|
|
|
--更新条款上次处理日期
|
|
update b set b.cldate=convert(varchar(19),getdate(),120)
|
|
from t_contr_clause b, t_paysoa_clause a
|
|
where a.billno=@psbillno and b.contrno=a.contrno and b.supcode=a.supcode and b.orgcode=a.orgcode
|
|
and b.itemcode=a.itemcode and b.itemno=a.itemno
|
|
|
|
--终止采购单
|
|
update c set c.state='9'
|
|
from t_order_head c,t_paysoa_body a,t_accept_head b
|
|
where a.ywbillno=b.billno and b.orderno=c.billno
|
|
and a.billtype in ('0','3') and a.billno=@psbillno
|
|
|
|
set @psmsg=''
|
|
return(1)
|
|
end
|
|
go |