DECLARE CURSOR c_products FOR SELECT distinct
T1."U_BPLId",T1."U_BILL_1",T0."U_FinishedItemCode",T0."U_ActDelDate"
FROM "@TEST" T0
INNER JOIN "@TEST" T1 ON T0."DocEntry" = T1."DocEntry"
WHERE T0."DocEntry" = list_of_cols_val_tab_del;
DECLARE BPLId NVARCHAR(10);
DECLARE CashBill NVARCHAR(50);
DECLARE FinishedItemCode NVARCHAR(50);
DECLARE ActDelDate NVARCHAR(50);
FOR cur_row AS c_products DO
BPLId := cur_row."U_BPLId";
CashBill := cur_row."U_BILL_1";
FinishedItemCode := cur_row."U_FinishedItemCode";
ActDelDate := cur_row."U_ActDelDate";
-- 处理每条记录
UPDATE "INV1" T0
FROM "INV1" T0
INNER JOIN "OINV" T1 ON T0."DocEntry" =T1."DocEntry"
SET T0."U_FinancialAudit" = 'Y' ,T0."U_Auditor" = 'manager' ,T0."U_FinancialDate" = NOW()
WHERE T0."U_CashBill" = :CashBill AND T0."ItemCode" = :FinishedItemCode
AND (TO_CHAR( T0."ActDelDate", 'YYYY/MM' ) = :ActDelDate OR TO_CHAR( T0."ActDelDate", 'YYYY/MM' ) IS NULL)
AND T1."BPLId" = :BPLId;
END FOR;
©著作权归作者所有
新车首发，新的一年，只带想赚米的人coinsrore.com
新项目准备上线，寻找志同道合的合作伙伴coinsrore.com
新车即将上线 真正的项目，期待你的参与
2025年10月新盘 做第一批吃螃蟹的人coinsrore.com
新车新盘 嘎嘎稳 嘎嘎靠谱coinsrore.com
新车首发，新的一年，只带想赚米的人coinsrore.com
新盘 上车集合 留下 我要发发 立马进裙coinsrore.com
做了几十年的项目 我总结了最好的一个盘（纯干货）coinsrore.com
新车上路，只带前10个人coinsrore.com
新盘首开 新盘首开 征召客户！！！coinsrore.com
新项目准备上线，寻找志同道合的合作伙伴coinsrore.com
新车即将上线 真正的项目，期待你的参与coinsrore.com
新盘新项目，不再等待，现在就是最佳上车机会！coinsrore.com
新盘新盘 这个月刚上新盘 新车第一个吃螃蟹！coinsrore.com