CONNECT USING SQLCA;
dw_cust.SetTransObject(SQLCA)
dw_sales.SetTransObject(SQLCA)
rtncode = dw_cust.Update(TRUE, FALSE)
IF rtncode = 1 THEN
rtncode = dw_sales.Update(TRUE, FALSE)
IF rtncode = 1 THEN
//两个数据窗口都更新成功后清除更新标志并提
dw_cust.ResetUpdate()
dw_sales.ResetUpdate()
COMMIT USING SQLCA;
ELSE
ROLLBACK USING SQLCA; // 第二个数据窗口更新失败时回滚事务
END IF
END IF