From db1624a25b78dfd96bc6fc364dc92706a4e7e256 Mon Sep 17 00:00:00 2001 From: "Infineon\\Ouellette" Date: Fri, 22 Aug 2025 10:39:19 -0700 Subject: [PATCH] Removed Late column --- LSL2/STPROC/NDW_PM_HISTORY_EVENTS.txt | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/LSL2/STPROC/NDW_PM_HISTORY_EVENTS.txt b/LSL2/STPROC/NDW_PM_HISTORY_EVENTS.txt index 5964ac3..3adc65f 100644 --- a/LSL2/STPROC/NDW_PM_HISTORY_EVENTS.txt +++ b/LSL2/STPROC/NDW_PM_HISTORY_EVENTS.txt @@ -45,8 +45,7 @@ EQU COL$PMID to 1 EQU COL$DESC to 2 EQU COL$DATECOMP to 3 EQU COL$DATEDUE to 4 -EQU COL$LATE to 5 -EQU COL$USER to 6 +EQU COL$USER to 5 // Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler. If Event EQ 'OLE' then @@ -102,7 +101,7 @@ Event PUB_EXPORT_TO_EXCEL.CLICK() if FilePath NE '' then PmHistoryOutput = '' - PmHistoryOutput<1> = 'PM ID' : @VM : 'Description' : @VM : 'Complete Date' : @VM : 'Due Date' : @VM : 'Late' : @VM : 'User' + PmHistoryOutput<1> = 'PM ID' : @VM : 'Description' : @VM : 'Complete Date' : @VM : 'Due Date' : @VM : 'User' PMHistoryArray = Get_Property(@Window : '.OLE_HIST_TABLE', "OLE.ARRAY") PMHistoryArray = SRP_Array('Rotate',PMHistoryArray) for each DataRow in PmHistoryArray using @FM setting dPos @@ -152,13 +151,10 @@ RunReport: PMRec = Database_Services('ReadDataRow', 'PM', PMId) SchedDtm = SRP_Datetime('Combine', PMRec, PMRec) DueByDTM = obj_PM_Spec('LateStart',PMId:@RM:PMSpecRecord) - Late = Xlate('PM', PMId, 'LATE', 'X') - If Late then Late = 'Yes' else Late = 'No' PMHistoryArray = PMId PMHistoryArray = PMDescription PMHistoryArray = OCONV(PMRec, 'DT') PMHistoryArray = OCONV(SchedDtm, 'DT') - PMHistoryArray = Late PMHistoryArray = OConv(PMRec, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') While Msg(@window, MsgUp, pPos, MSGINSTUPDATE$) ; * update the gauge and check if cancel was pressed Next PMId @@ -191,9 +187,9 @@ Setup_OLE_Controls: EdtTableCtrl = @Window : '.OLE_HIST_TABLE' Set_Property(EdtTableCtrl, 'OLE.Redraw', False$) //Set up columns - Set_Property(EdtTableCtrl, "OLE.Dimension", 6);*Define number of columns + Set_Property(EdtTableCtrl, "OLE.Dimension", 5);*Define number of columns - HeaderTitles = 'PM ID':@VM:'Desc':@VM:'Date Completed':@VM:'Sched Due':@VM:'Late':@VM:'User Completed'; *Define the column header titles + HeaderTitles = 'PM ID':@VM:'Desc':@VM:'Date Completed':@VM:'Sched Due':@VM:'User Completed'; *Define the column header titles Set_Property(EdtTableCtrl, "OLE.TitleList", HeaderTitles); *Set the column titles //Set the column Sizes @@ -203,7 +199,7 @@ Setup_OLE_Controls: ColSize<1> = 45 Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$PMID:"]", ColSize) //Column 2 - ColSize<1> = 200 + ColSize<1> = 250 ColSize<4> = True$ Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$DESC:"]", ColSize) ColSize<4> = False$ @@ -211,13 +207,10 @@ Setup_OLE_Controls: ColSize<1> = 120 Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$DATECOMP:"]", ColSize) //Column 4 - ColSize<1> = 110 + ColSize<1> = 135 Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$DATEDUE:"]", ColSize) //Column 5 - ColSize<1> = 50 - Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$LATE:"]", ColSize) - //Column 6 - ColSize<1> = 160 + ColSize<1> = 185 Set_Property(EdtTableCtrl, "OLE.DataColumn[":COL$USER:"]", ColSize) Set_Property(EdtTableCtrl, 'OLE.Border', 'XP Flat') @@ -234,3 +227,4 @@ Setup_OLE_Controls: return +