应收开票核销:应收单检查--应收单应收开票核销金额与核销记录不一致

--查询超额核销的财务应收单
--备份
select * into T_AR_BILLINGMATCHLOG_sqlbak_20251022 from T_AR_BILLINGMATCHLOG 
select * into T_AR_BILLINGMATCHLOGENTRY_sqlbak_20251022 from T_AR_BILLINGMATCHLOGENTRY 
select * into T_AR_RECEIVABLEENTRY_sqlbak_20251022 from T_AR_RECEIVABLEENTRY  

--1.找到已核销数量大于基本数量的财务应收单
select a.fbillno,c.FNUMBER,a.fdate,b.fentryid,b.FOPENQTY,b.FBASICUNITQTY,b.FOPENQTY/b.FBASICUNITQTY  --628
--select a.fbillno,b.fentryid into #temp_cw  --将单号和分录行号插入临时表
from T_AR_RECEIVABLE a
left join T_AR_RECEIVABLEENTRY b on a.fid=b.fid 
left join T_ORG_ORGANIZATIONS c on a.fsettleorgid=c.forgid
where a.FSETACCOUNTTYPE=3 and a.FBYVERIFY=0  and (b.FBASICUNITQTY>0 and b.FOPENQTY>b.FBASICUNITQTY or b.FBASICUNITQTY<0 and b.FOPENQTY<b.FBASICUNITQTY) and b.FOPENSTATUS='B' --and b.FOPENQTY/b.FBASICUNITQTY<>2
--and a.fbillno='AR00048001'


--2.找多余的开票核销记录  
select distinct fid,rn into #temp1
from (
	select a.fid,a.fsrcbillno,a.FSRCROWID,row_number() over(partition by a.fsrcrowid,a.ftargetentryid order by fid) rn
	from T_AR_BILLINGMATCHLOGENTRY a
	inner join #temp_cw b on a.fsrcbillno=b.fbillno and a.FSRCROWID=b.fentryid
) a where rn<>1 

--3.更新多余开票核销记录的是否关联核销为否
select * 
--update a set a.fisjoinmatch=0
from T_AR_BILLINGMATCHLOG a where fid in (
	select fid from #temp1
)

--4.找到多余暂估冲回单中已生成凭证的单据  如有需要删除凭证
select a.fbillno 
from t_ar_receivable a
where FBILLMATCHLOGID in (select fid from #temp1) 
and exists (select 1 from t_ar_receivable_vh where fid=a.fid)

--5.前台查询开票核销记录 操作反核销
select fid from #temp1

--6.修复单据的开票核销状态
--6.1更新单据体开票核销状态 A空 / B部分核销 / C完全核销
select a.fbillno,a.fdate,a.FBILLTYPEID,a.FSETACCOUNTTYPE,b.FOPENSTATUS,case when b.FOPENQTY=b.fbasicunitqty then 'C' when b.FOPENQTY=0 then 'A' else 'B' end,b.FBASICUNITQTY,a.FALLAMOUNTFOR,b.FOPENQTY,b.FOPENAMOUNTFOR,b.*
--update b set b.FOPENSTATUS=case when b.FOPENQTY=b.fbasicunitqty then 'C' when b.FOPENQTY=0 then 'A' else 'B' end
from T_AR_RECEIVABLE a
left join T_AR_RECEIVABLEENTRY b on a.fid=b.fid
where a.fbusinesstype='BZ' and b.FBASICUNITQTY<>0 and b.FOPENSTATUS<>case when b.FOPENQTY=b.fbasicunitqty then 'C' when b.FOPENQTY=0 then 'A' else 'B' end



--6.2更新单据头开票核销状态
select a.fbillno,a.fid,a.FSETACCOUNTTYPE,a.FOPENSTATUS,case when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in (' ','A','B')) then 'C' 
when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in ('C','B')) then 'A' else 'B' end 单据头实际核销状态
--update a set a.FOPENSTATUS=case when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in (' ','A','B')) then 'C' when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in ('C','B')) then 'A' else 'B' end
from T_AR_RECEIVABLE a
where case when a.FOPENSTATUS=' ' then 'A' else a.FOPENSTATUS end<>case when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in (' ','A','B')) then 'C' when not exists(select 1 from T_AR_RECEIVABLEENTRY where fid=a.fid and fopenstatus in ('C','B')) then 'A' else 'B' end and a.FDOCUMENTSTATUS<>'Z'


--7. 暂估单销售发票字段修复
select a.fbillno,a.FSETACCOUNTTYPE,b.fid,b.FENTRYID,a.FOPENSTATUS,b.fopenstatus,b.FBASICUNITQTY,b.FALLAMOUNTFOR,b.fopenqty,b.fopenamountfor,b.FBUYIVBASICQTY,b.FIVALLAMOUNTFOR,b.* 
--update b set b.FBUYIVBASICQTY=fbasicunitqty,b.FBUYIVQTY=fpriceqty,b.FIVALLAMOUNTFOR=b.fallamountfor
from T_AR_RECEIVABLE a
left join T_AR_RECEIVABLEENTRY b on a.fid=b.fid
--where a.fbillno='AR103202404011272'
where b.FOPENSTATUS='C' and a.FSETACCOUNTTYPE=2 and FBYVERIFY=0 and FBUYIVBASICQTY<>FOPENQTY
and b.fentryid in (select fsid from T_AR_RECEIVABLEENTRY_lk where fentryid in (select fentryid from #temp_cw))  --异常财务单上游暂估单