phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactored material track code for front end

Browse Source
This commit is contained in:
Infineon\StieberD
2025-01-29 16:53:28 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent c36cf5fedc
commit d7d8fc0289
14 changed files with 3273 additions and 5497 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
LSL2/STPROC/NDW_MATERIAL_TRACK_PRO_REPORT_EVENTS.txt
View File

@ -49,8 +49,7 @@ Compile function NDW_MATERIAL_TRACK_PRO_REPORT_EVENTS(CtrlEntId, Event, @PARAMS)
#window NDW_MATERIAL_TRACK_PRO_REPORT
Declare function Form_Services, Database_Services, RTI_Task_Submit, RTI_Task_Status, MemberOf
Declare subroutine SRP_Show_Window, Send_Message, Set_Property, Report_Services_Dev, Database_Services, Material_Track
Declare subroutine Report_Services_Dev2, Report_Services_Dev5
Declare subroutine SRP_Show_Window, Send_Message, Set_Property, Database_Services, Material_Track, Report_Services
$Insert EVENT_SETUP
$Insert LOGICAL
@ -129,25 +128,8 @@ Event PUB_GEN_REPORT.CLICK()
If LocationEnabled then RptLocations<0, -1> = Location
Next Location
* Report_Services_Dev5('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
Begin Case
Case OldReport
Report_Services_Dev('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
Case Otherwise$
Report_Services_Dev5('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
End Case
Report_Services('PrintMaterialTrackReport', RptColumns, RptLocations, NoMatFlag, OldReport)
* Begin Case
* Case DevReport
* Report_Services_Dev5('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
* Case @User4 EQ 'JUSTIN_H' or @User4 EQ 'DANIEL_ST'
* Report_Services_Dev2('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
* Case Otherwise$
* Report_Services_Dev('GetMaterialTrackReport', RptColumns, RptLocations, NoMatFlag)
* End Case
end event
@ -438,4 +420,3 @@ EnableReportColumns:
return