74 lines
2.6 KiB
PL/PgSQL
74 lines
2.6 KiB
PL/PgSQL
CREATE PROC PROC_UPDATE_AR_WRITEOFFMATCH
|
|
@billId int
|
|
AS
|
|
BEGIN
|
|
;WITH #财务应收单 AS (
|
|
SELECT t0.FBILLNO AS '财务单据编号'
|
|
,t0.FID,t0e.FENTRYID,t0e.FSRCROWID,t0e.FSEQ
|
|
,t0e_lk.FSBILLID,t0e_lk.FSID
|
|
FROM T_AR_RECEIVABLE t0
|
|
INNER JOIN T_AR_RECEIVABLEENTRY t0e on t0.FID = t0e.FID
|
|
INNER JOIN T_AR_RECEIVABLEENTRY_LK t0e_lk on t0e_lk.FENTRYID = t0e.FENTRYID
|
|
WHERE 1=1
|
|
AND t0e_lk.FSTABLENAME = 't_AR_receivableEntry'
|
|
--AND t0.FBILLNO = @billNo
|
|
AND t0.FID = @billId
|
|
AND t0.FDOCUMENTSTATUS = 'C'
|
|
)
|
|
, #暂估应收单 AS (
|
|
SELECT tt.财务单据编号
|
|
,tt.FID AS '财务ID'
|
|
,tt.FSEQ
|
|
,tt.FENTRYID AS '财务ENTRYID'
|
|
,t0.FBILLNO AS '暂估单据编号'
|
|
,t0.FID AS '暂估ID',t0e.FENTRYID AS '暂估ENTRYID'
|
|
,t0e.FCOSTAMTSUM ,t0e.FBASICUNITQTY
|
|
,CAST(t0e.FCOSTAMTSUM / t0e.FBASICUNITQTY AS decimal(23,6)) AS '暂估成本价'
|
|
,t1.FID AS '暂估冲回ID',t1e.FENTRYID AS '暂估冲回ENTRYID'
|
|
,t1.FBILLNO AS '暂估冲回单据编号'
|
|
,t1e.FCOSTAMTSUM 'FCOSTAMTSUM1',t1e.FBASICUNITQTY 'FBASICUNITQTY1'
|
|
,CAST(t1e.FCOSTAMTSUM / t1e.FBASICUNITQTY AS decimal(23,6)) AS '暂估冲回成本价'
|
|
FROM #财务应收单 tt
|
|
INNER JOIN T_AR_RECEIVABLEENTRY t0e on tt.FSBILLID = t0e.FID AND tt.FSID = t0e.FENTRYID
|
|
INNER JOIN T_AR_RECEIVABLE t0 on t0.FID = t0e.FID
|
|
INNER JOIN T_AR_RECEIVABLEENTRY t1e on t1e.FSRCROWID = t0e.FENTRYID
|
|
INNER JOIN T_AR_RECEIVABLE t1 on t1.FID = t1e.FID
|
|
WHERE 1=1
|
|
AND t0.FDOCUMENTSTATUS = 'C'
|
|
AND t1.FDOCUMENTSTATUS = 'C'
|
|
)
|
|
, #最终数据 AS (
|
|
SELECT t1.*,t0.*
|
|
FROM #暂估应收单 t0
|
|
CROSS APPLY (
|
|
SELECT t3e.FENTRYID AS 'ENTRYID'
|
|
,t1e.FSRCBILLID,t3.FBILLNO--,t3e.FSEQ
|
|
,t3e.FALLAMOUNT,t3e.FALLAMOUNTFOR
|
|
,t3e.FTAXAMOUNT,t3e.FTAXAMOUNTFOR
|
|
,t3e.FNOTAXAMOUNT,t3e.FNOTAXAMOUNTFOR
|
|
--,t3e.FBASICUNITQTY
|
|
,t3e.F_CYG_TECost
|
|
,t3e.F_CYG_TEAmount
|
|
,t3e.F_CYG_TECBCost
|
|
,t3e.F_CYG_TECBAmount
|
|
FROM T_AR_RECMACTHLOG t1
|
|
INNER JOIN T_AR_RECMACTHLOGENTRY t1e on t1.FID = t1e.FID
|
|
INNER JOIN T_AR_RECMACTHLOGENTRY t2e on t2e.FID = t1e.FID
|
|
INNER JOIN T_AR_RECEIVABLE t3 on t3.FID = t1e.FSRCBILLID
|
|
INNER JOIN T_AR_RECEIVABLEENTRY t3e on t3e.FID = t3.FID AND t3e.FSEQ = t0.FSEQ
|
|
WHERE 1=1
|
|
AND t2e.FSRCBILLID = t0.财务ID
|
|
AND t2e.FSOURCEFROMID = 'AR_receivable'
|
|
AND t1e.FISADIBILL = 1
|
|
AND t1.FMATCHFIELDNAME = 'FMatchAmount'
|
|
) t1
|
|
)
|
|
--SELECT * FROM #最终数据
|
|
--ORDER BY ENTRYID,FSEQ
|
|
UPDATE t0e SET t0e.F_CYG_TECost = t1.暂估成本价
|
|
,t0e.F_CYG_TEAmount = t1.FCOSTAMTSUM
|
|
,t0e.F_CYG_TECBCost = t1.暂估冲回成本价
|
|
,t0e.F_CYG_TECBAmount = t1.FCOSTAMTSUM1
|
|
FROM T_AR_RECEIVABLEENTRY t0e
|
|
INNER JOIN #最终数据 t1 on t1.ENTRYID = t0e.FENTRYID
|
|
END |