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

refactored PTO form to address freezing

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-23 16:21:45 -07:00
committed by Stieber Daniel (IT FI MES)
parent 37b912b801
commit ae4bfcbfe1
7 changed files with 1160 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
LSL2/STPROC/MATERIAL_MOVEMENT_SERVICES.txt
View File

@ -30,6 +30,7 @@ $insert RDS_EQUATES
$insert NOTIFICATION_EQU
$insert EPI_PART_EQUATES
$Insert WO_LOG_EQUATES
$Insert MSG_EQUATES
Declare function Scan_Services, Memory_Services, Database_Services, SRP_JSON, RTI_CreateGUID, Memberof, obj_WO_Mat
Declare function Get_Property, RDS_Services, EpiPro_Services, DateTime, Signature_Services, Material_Movement_Services
@ -370,7 +371,8 @@ Service ProcessPTOScanData(ScanData, ScanType = SCAN_TYPES_PTO, Param1, Param2)
MsgText = 'Scanned at ':LastPTO<2>:' by ':LastPTO<1>:CRLF$
MsgText := 'Are you sure you wish to rescan and reprint the shipping label?'
OK = Msg(@WINDOW,'','YESNO','',MsgHead:@FM:MsgText)
OK = Msg(@WINDOW, '','YESNO','',MsgHead:@FM:MsgText)
IF NOT(OK) THEN
Error_Services('Add', 'Scan Cancelled')
RETURN
@ -688,7 +690,3 @@ SendPTOMismatchNotification:
return