Hello, In order to cancel a material requisition we need to unreserve every line 1 by 1. Is there a faster way to do this in IFS?
Unfortunately it needs to be done one line at a time. If this is a regular occurence, I will write a custom menu (assuming Apps 10 IFS EE client is used) to look at all reservations within the specific Material Requisition and unreserve it using a loop.
Ex: Following code was written on a custom menu to update Applied Date in bulk on Purchase Transaction History where Order No like 383139AB-M.
DECLARE
-- p0 -> i_hWndFrame.tbwPurchaseTransHist.sInfo
p0_ VARCHAR2(32000) := '';
-- p1 -> i_hWndFrame.tbwPurchaseTransHist.colTransactionId
p1_ FLOAT := 5767;
-- p2 -> i_hWndFrame.tbwPurchaseTransHist.dNewDateApplied
p2_ DATE := to_date('2022-06-30-00.00.00','YYYY-MM-DD-HH24.MI.SS','NLS_CALENDAR=GREGORIAN');
Cursor get is
select transaction_id from PURCHASE_TRANSACTION_HIST where ORDER_NO like '383139AB-M'
BEGIN
FOR i in get LOOP
p0_ := NULL;
P1_ := i.transaction_id;
P2_ := to_date('2022-06-30-00.00.00','YYYY-MM-DD-HH24.MI.SS','NLS_CALENDAR=GREGORIAN');
IFSAPP.Purchase_Transaction_Hist_API.Modify_Date_Applied( p0_ , p1_ , p2_ );
COMMIT;
END LOOP;
END;
**********************
For unreserving Material Requsitions Parameters and Method is as follows;
-- p0 -> i_hWndFrame.dlgManualAssignment.sOrderClass
p0_ VARCHAR2(32000) := 'INT';
-- p1 -> i_hWndFrame.dlgManualAssignment.sOrderNo
p1_ VARCHAR2(32000) := '1';
-- p2 -> i_hWndFrame.dlgManualAssignment.sLineNo
p2_ VARCHAR2(32000) := '1';
-- p3 -> i_hWndFrame.dlgManualAssignment.sReleaseNo
p3_ VARCHAR2(32000) := '2';
-- p4 -> i_hWndFrame.dlgManualAssignment.nLineItemNo
p4_ FLOAT := 1;
-- p5 -> i_hWndFrame.dlgManualAssignment.sPartNo
p5_ VARCHAR2(32000) := 'T000002';
-- p6 -> i_hWndFrame.dlgManualAssignment.sContract
p6_ VARCHAR2(32000) := 'XXXX';
-- p7 -> i_hWndFrame.dlgManualAssignment.tblLocation_colLocationNo
p7_ VARCHAR2(32000) := 'B14-L21-ABA-2';
-- p8 -> i_hWndFrame.dlgManualAssignment.tblLocation_colLotBatchNo
p8_ VARCHAR2(32000) := '*';
-- p9 -> i_hWndFrame.dlgManualAssignment.tblLocation_colSerialNo
p9_ VARCHAR2(32000) := '*';
-- p10 -> i_hWndFrame.dlgManualAssignment.tblLocation_colWaivDevRejNo
p10_ VARCHAR2(32000) := '*';
-- p11 -> i_hWndFrame.dlgManualAssignment.tblLocation_colEngChgLevel
p11_ VARCHAR2(32000) := '1';
-- p12 -> i_hWndFrame.dlgManualAssignment.tblLocation_colnActivitySeq
p12_ FLOAT := 0;
-- p13 -> i_hWndFrame.dlgManualAssignment.tblLocation_colnHandlingUnitId
p13_ FLOAT := 0;
-- p14 -> i_hWndFrame.dlgManualAssignment.tblLocation_colnQuantity
p14_ FLOAT := -1;
IFSAPP.Material_Requis_Reservat_API.Make_Part_Reservations( p0_ , p1_ , p2_ , p3_ , p4_ , p5_ , p6_ , p7_ , p8_ , p9_ , p10_ , p11_ , p12_ , p13_ , p14_ );
Reply
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.