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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/NDW_PTO_MAT_SCAN_EVENTS.txt
View File

@ -45,8 +45,8 @@ Equ SaveBtn$ to @Window:'.OLE_BTN_SAVE'
Equ Popup$ to @Window:".OLE_POPUP"
Declare subroutine Set_Property, Send_Event, Post_Event, Send_Message, SendMessage, Error_Services
Declare subroutine Obj_Wo_Mat_Log, Errmsg, Utility, SRP_Show_Window, Material_Movement_Services, Delay
Declare function Get_Property, Send_Message, SendMessage, Material_Movement_Services, Error_Services,
Declare subroutine Obj_Wo_Mat_Log, Errmsg, Utility, SRP_Show_Window, Material_Movement_Services, Delay, Getengineversion
Declare function Get_Property, Send_Message, SendMessage, Material_Movement_Services, Error_Services
Declare function Popup, obj_WO_Mat, Database_Services, Utility, Rds_Services, Message_Box, SRP_Get_Window_Rect
MsgStruct = ''
@ -120,7 +120,7 @@ end event
Event EDL_LABEL1_SCAN.LOSTFOCUS(Flag, FocusID)
Set_Property(SaveBtn$, 'FOCUS', True$)
ScanField = 'Label1'
If Flag EQ 1 then
ScanData = Get_Property(CtrlEntID, 'TEXT')
@ -195,9 +195,9 @@ end event
SaveRecord:
ErrorMessage = 'undefined'
Material_Movement_Services('SaveRecord', Cassette1, '1K', 'PTO', @UserName);//save PTO transaction
Material_Movement_Services('SaveRecord', Cassette1, '1K', 'PTO', @User4);//save PTO transaction
Delay(1)
Material_Movement_Services('SaveRecord', Cassette1, 'SR', 'VER', @UserName);//save PSVER transaction
Material_Movement_Services('SaveRecord', Cassette1, 'SR', 'VER', @User4);//save PSVER transaction
popupTitle = 'Save Record'
popupMsg = ''
@ -225,7 +225,8 @@ ShowPopup:
ForeColor = Get_Property(@Window, 'FORECOLOR')
CursorXPos = Field(Point, ',', 1, 1)
CursorYPos = Field(Point, ',', 2, 1)
FormSize = SRP_Get_Window_Rect(@Window)
* FormSize = SRP_Get_Window_Rect(@Window)
FormSize = Get_Property(@Window, 'SIZE')
FormXPos = FormSize<1>
FormYPos = FormSize<2>
CtrlSize = Get_Property(CtrlEntID, 'SIZE')
@ -349,7 +350,6 @@ SetupOLEControls:
Send_Message(Ctrl, 'QUALIFY_EVENT', 'OLE.OnClick', Qualifier)
Ctrl = @Window :'.OLE_POPUP'
Send_Message(Ctrl, 'QUALIFY_EVENT', 'OLE.OnItemClick', Qualifier)
return
@ -366,3 +366,4 @@ ResetForm:
return