跳至主要內容

销售订单:行单价低于特殊价格需要申请审批

五六零网校2023年2月23日大约 1 分钟

用户使用场景

设置逻辑

提示例图

Select 'true' 
where $[ORDR.U_DJSP]='Y'
----销售订单:限制行物料单价必须大于对应特殊价格,或者申请审批
IF @object_type = '17'
	BEGIN
		IF @transaction_type = 'A'
			BEGIN
				DECLARE @ITEM_560 NVARCHAR(50);;
				DECLARE @LINENUM NVARCHAR(20);;
				DECLARE @TSPRICE NVARCHAR(50);;
				DECLARE @DCPRICE NVARCHAR(20);;
				DECLARE @DJSP NVARCHAR(20);;
				SELECT @ITEM_560 = T1.[ItemCode], @LINENUM = T1.LineNum + 1
					, @DCPRICE = T1.Price, @TSPRICE = T2.Price
					, @DJSP = T0.U_DJSP
				FROM ORDR T0
					INNER JOIN RDR1 T1 ON T0.[DocEntry] = T1.[DocEntry]
					INNER JOIN OSPP T2
					ON T2.CardCode = T0.CardCode
						AND T2.ItemCode = T1.ItemCode
				WHERE T1.Price < T2.Price
					AND T0.DocEntry = @list_of_cols_val_tab_del
				ORDER BY T1.LineNum DESC;;
				BEGIN
					IF @ITEM_560 IS NOT NULL
					OR @DJSP <>'Y'
						BEGIN
							SET @error = 1;;
							SET @error_message = N'第 ' + @LINENUM + N'行 物料: ' + @ITEM_560
 + N' 低于特殊价格,   ' + N'单据价格: ' + @DCPRICE + N'  特殊价格为:'
 + @TSPRICE + N'     请注意检查或申请审批 !';;
						END;
				END;;
			END;
	END