Skip to main content

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