P41024 Disallows Deletion for Secondary Location When Material is Issued but Work Order is not Completed

Purpose of Document

P41024 (Location Revisions) disallow user from deleting secondary location with zero quantities,

• All quantity buckets for this secondary location is 0
• Material is issued without completing work order (F4801.SRST NOT IN (99, 91, MJ, MM, MK))

ERROR
-----------------------
Deleting Not Possible - Open Order Exist
ER Details:
Form P41024_W41024B
Control Id 1
Control Title Grid
Event Delete Grid Rec Verify-Before
Line No 71
Error ID 411O

cf., same is working fine for below scenario,

• All quantity buckets for the secondary location is 0
• Voucher is not paid (all receipt is vouchered)

: Refer to <Document 2246539.1> - E1: 41: P41024 Item Location Do Not Allows Deletion When Quantity On Hand And Availability Is Zero

This issue is reported through <Bug 25891836> - P41024 ISSUE ERROR 411O EVEN AFTER MATERIAL ISSUE FOR SECONDARY LOCATION.

Note that there is an enhancement request for the same. Refer to <Document 2012956.1> - E1: 41: P41024 Deleting a Secondary Location Checks Work Order Status in F3111 Work Order Parts List.

Apply the fix upon completion of <Bug 25891836> - P41024 ISSUE ERROR 411O EVEN AFTER MATERIAL ISSUE FOR SECONDARY LOCATION.

Note that <Bug 25891836> is categorized as an enhancement request. Refer to <Document 2012956.1> - E1: 41: P41024 Deleting a Secondary Location Checks Work Order Status in F3111 Work Order Parts List.

Update:-

Now this enhancement is implemented. Add the WO status code in UDC 41/WC and reset database cache.

UDC 41/WC - Closed Work Order Status

• 91 - Complete - Cancelled
• 99 - Order Closed
• MJ - W/O Completed
• MK - W/O Closed
• MM - W/O Cancelled
• Add the WO status here in case you want to exclude from validation which stop you from deleting it.

<Internal_Only>

Purpose: the purpose of this document is to walk through the possible implementation for allowing user to delete secondary location with zero quantities – after components of work order is issued. The Bug, 25030814 - P41024 DELETE LOCATION ERROR WHEN ON HAND AND AVAILABILITY IS ZERO, is used for this change. This routine checks F4101.CLEV and the processing option parameter – and deletion is allowed only when CLEV is not ‘3’ (because it can cause integrity problem among, F41021, F4111 and F4105) and newly added processing option below,

• As-is behavior: P41024 does not allow users to delete secondary location from F41021 when F4801.SRST NOT IN (‘99’, ‘91’, ‘MJ’, ‘MM’, ‘MK’).
• To-be behavior: check F4101.CLEV and the processing option parameter – if clev is not ‘3’ and the processing option value is 1 for above parameter, then allow user to delete it

Possible implementation to workaround
1. Go to form design aid
2. Focus on Work with Item Location at the event of “Delete Grid Rec Verify-Before”
3. Verify the function F4801VerifyOpenWorkOrderExist (B4100980, F4801, Verify Open Work Order Exist)
So long as the status of WO Header (F4801) is not the status of closed/cancelled which ends in error
4. Validate F4101.clev and the processing option, then allow it as below,
0057 F4801, Verify Open Work Order Exist
VA evt_mnOrderNumber_DOCO -> BF mnOrderNumber
"1" -> BF mnIndex
"1" -> BF mnKeys
VA evt_cWOFound_EV01 <- BF cOpenWOExist
0058 //
0059 // START 26-Apr-2017 by DoSeo
0060 // 1. Get F4101.CLEV to determine inventory costing level
0061 // 2. Read the processing option parameter to determine whether the deletion
0062 // of secondary location is allowed or not
0063 // * F3111.UORG = TRQT + SOCN + SOBK but it is not necessary to check it again
0064 // Because the function CheckAllQuantitiesAreZero (B4100730) checks it
0065 // at line 16
0066 // Note: B4100980 simply sets WO is open when the status (F4801.SRST)
0067 // NOT IN (99, 91, MJ, MM, MK)
0068 //
0069 F4101.Fetch Single
GC Short Item No = TK Item Number - Short
VA evt_cCostLevel_CLEV <- TK Level - Inventory Cost
0070 If VA evt_cCostLevel_CLEV is not equal to "3" And PO cAllowSecondaryLocDele_EV01 is equal to "1"
0071 VA evt_cWOFound_EV01 = "0"
0072 End If
0073 // END 26-Apr-2017 by DoSeo

</Internal_Only>