select count(*) from I_PurchaseOrderHistoryAPI01 with privileged access
where PURCHASEORDER = @PURCHASEORDER-PURCHASEORDER
into @data(ls_PO_NUM) .
if ls_PO_NUM ne '0'.
...
endif.
select count(*) from I_PurchaseOrderHistoryAPI01 with privileged access
where PURCHASEORDER = @PURCHASEORDER-PURCHASEORDER
into @data(ls_PO_NUM) .
if ls_PO_NUM ne '0'.
loop at PURCHASEORDERITEMS REFERENCE INTO DATA(i_poitem).
if i_poitem->PURCHASEORDER = PURCHASEORDER-PURCHASEORDER.
select single * from I_PURCHASEORDERITEMAPI01
where PURCHASEORDER = @PURCHASEORDER-PURCHASEORDER and PURCHASEORDERITEM = @i_poitem->PURCHASEORDERITEM
into @data(ls_PO_COMPARE) .
if i_poitem->NETAMOUNT ne ls_PO_COMPARE-NETAMOUNT.
append value #( messagetype = 'E' messagevariable1 = '采购订单已发货,无法修改价格。' ) to messages.
endif.
endif.
endloop.
endif.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
9 | |
4 | |
3 | |
3 | |
3 | |
3 | |
3 | |
3 | |
3 | |
3 |