added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
756
LSL2/STPROC/COMM_WO_MAT.txt
Normal file
756
LSL2/STPROC/COMM_WO_MAT.txt
Normal file
@ -0,0 +1,756 @@
|
||||
COMPILE FUNCTION Comm_WO_Mat(Instruction, Parm1,Parm2)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for WO_MAT (Work Order Material) window
|
||||
|
||||
10/18/2006 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, Set_Status, ErrMsg, Set_Property, obj_AppWindow, Send_Message
|
||||
DECLARE SUBROUTINE Btree.Extract, Send_Event, Security_Err_Msg, Forward_Event, End_Window, Start_Window
|
||||
DECLARE SUBROUTINE EditCell, obj_NCR, obj_Notes, obj_WO_Mat, obj_Tables, SAP_Services
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box, RowExists
|
||||
DECLARE FUNCTION Dialog_Box, obj_WO_Log, obj_NCR, MemberOf, obj_Tables
|
||||
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT WM_IN_EQUATES
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT RDS_EQU
|
||||
$INSERT PROD_SPEC_EQU
|
||||
$INSERT NOTIFICATION_EQU
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$PROC_STEP TO 1
|
||||
EQU COL$PSN TO 2
|
||||
EQU COL$PRE_CLEAN TO 3
|
||||
EQU COL$RDS_NO TO 4
|
||||
EQU COL$CURR_STATUS TO 5
|
||||
EQU COL$POST_CLEAN TO 6
|
||||
EQU COL$WFRS_OUT TO 7
|
||||
|
||||
EQU COL$ON_HOLD_DTM TO 1
|
||||
EQU COL$ON_HOLD_USER TO 2
|
||||
EQU COL$ON_REASON TO 3
|
||||
EQU COL$OFF_HOLD_DTM TO 4
|
||||
EQU COL$OFF_HOLD_USER TO 5
|
||||
EQU COL$OFF_REASON TO 6
|
||||
|
||||
EQU COL$INV_TAG TO 8
|
||||
|
||||
EQU COL$CI_KEY TO 1
|
||||
EQU COL$CI_STEP TO 2
|
||||
EQU COL$CI_STAGE TO 3
|
||||
EQU COL$CI_CLEAN_TOOL TO 4
|
||||
|
||||
EQU COL_WFR_SLOT_NO$ TO 1
|
||||
EQU COL_WFR_ID$ TO 2
|
||||
EQU COL_WFR_DISP$ TO 3
|
||||
|
||||
ErrTitle = 'Error in Comm_WO_MAT'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'Read' ; GOSUB Read
|
||||
CASE Instruction = 'Write' ; GOSUB Write
|
||||
CASE Instruction = 'Clear' ; GOSUB Clear
|
||||
CASE Instruction = 'Delete' ; GOSUB Delete
|
||||
CASE Instruction = 'Close' ; GOSUB Close
|
||||
CASE Instruction = 'WfrDC' ; GOSUB WfrDC
|
||||
CASE Instruction = 'Shipment' ; GOSUB Shipment
|
||||
CASE Instruction = 'NCRKeysDC' ; GOSUB NCRKeysDC
|
||||
CASE Instruction = 'TabClick' ; GOSUB TabClick
|
||||
CASE Instruction = 'HoldClick' ; GOSUB HoldClick
|
||||
CASE Instruction = 'FlagClick' ; GOSUB FlagClick
|
||||
CASE Instruction = 'MakeUpClick' ; GOSUB MakeUpClick
|
||||
CASE Instruction = 'CleanInspDC' ; GOSUB CleanInspDC
|
||||
CASE Instruction = 'ProdVerClick' ; GOSUB ProdVerClick
|
||||
CASE Instruction = 'SendGR' ; GOSUB SendGR
|
||||
CASE Instruction = 'BatchFixit' ; GOSUB BatchFixit
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine'
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
* get the current style
|
||||
|
||||
IF MemberOf(@USER4,'OI_SUPERUSER') THEN
|
||||
Set_Property(@WINDOW:'.VOID_CHECKBOX','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.VOID_CHECKBOX','VISIBLE',0)
|
||||
END
|
||||
|
||||
* Provides compatibility with the existing messaging attachment system
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
PassedKeys = FIELD(Parm1,'*',1)
|
||||
obj_Appwindow('ViewRelated',@WINDOW:@RM:PassedKeys)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
IF RowExists('WO_MAT',WONo:'*':CassNo) ELSE
|
||||
ErrMsg('Incorrect Work Order Mat Key entered.')
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
RETURN
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
GOTO Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(Security_Check('WO Material',DELETE$)) THEN
|
||||
Security_Err_Msg('WO Material',DELETE$)
|
||||
RETURN
|
||||
END
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','TEXT')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','TEXT')
|
||||
|
||||
IF WONo NE '' AND CassNo NE '' THEN
|
||||
|
||||
obj_WO_Mat('Delete',WONo:@RM:CassNo)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
obj_AppWindow('ReadOnly',@WINDOW:@RM:1) ;* Clear Read Only
|
||||
|
||||
Result = 0
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('DetailReturn')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * * *
|
||||
WfrDC:
|
||||
* * * * * * * *
|
||||
|
||||
WMId = Get_Property(@WINDOW,'ID')
|
||||
CtrlEntID = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
WfrID = Get_Property(CtrlEntID,'CELLPOS',COL_WFR_ID$:@FM:CurrRow)
|
||||
|
||||
CONVERT '.' TO '*' IN WfrID
|
||||
|
||||
DetWindow = 'WO_WFR'
|
||||
DetKeys = WfrID
|
||||
DefaultRec = ''
|
||||
RetKey = WMId
|
||||
RetWin = @WINDOW
|
||||
RetPage = 1
|
||||
RetCtrl = CtrlEntID
|
||||
RetPos = CurrPos
|
||||
|
||||
obj_Appwindow('ViewNewDetail',DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
sapBatchId = Get_Property(@WINDOW:'.SAP_BATCH_NO', 'TEXT')
|
||||
SAPTXDtm = Xlate('WO_MAT', WOMatKey, WO_MAT_SAP_TX_DTM$, 'X')
|
||||
* Disabled until further notice! - DJS / JRO - 2023/09/18
|
||||
* Re-enabled SAP Batch Fixit for material handlers - JRO - 2023/10/10
|
||||
*IF @User4 EQ 'DAN_CR' OR @UserName EQ 'DAN_CR' then debug
|
||||
IF MemberOf(@USER4,'MATERIAL HANDLER') THEN
|
||||
*sapBatchId = Get_Property(@WINDOW:'.SAP_BATCH_NO', 'TEXT')
|
||||
*showSendGR = (sapBatchID EQ '0' OR sapBatchID EQ '')
|
||||
*Set_Property(@WINDOW:'.SEND_GR','VISIBLE', showSendGR)
|
||||
Set_Property(@WINDOW:'.SAP_FIXIT','ENABLED',1)
|
||||
END ELSE
|
||||
*Set_Property(@WINDOW:'.SEND_GR','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.SAP_FIXIT','ENABLED',0)
|
||||
END
|
||||
|
||||
|
||||
|
||||
IF MemberOf(@USER4,'OI_SUPERUSER') THEN
|
||||
Set_Property(@WINDOW:'.VOID_CHECKBOX','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.FIX_ORDER_ITEM','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.VOID_CHECKBOX','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.FIX_ORDER_ITEM','VISIBLE',0)
|
||||
END
|
||||
|
||||
Ctrls = @WINDOW:'.WMO_KEY':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.WMI_KEY':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.PS_REACTOR_TYPE' ; Props := 'DEFPROP'
|
||||
|
||||
Props = Get_Property(Ctrls,Props)
|
||||
|
||||
WMOKey = Props[1,@RM]
|
||||
WMIKey = Props[COL2()+1,@RM]
|
||||
ReactorType = Props[COL2()+1,@RM]
|
||||
|
||||
IF ReactorType = 'P' OR ReactorType = 'EPP' THEN
|
||||
IF WMIKey NE '' THEN
|
||||
Set_Property(@WINDOW:'.EPI_GROUP','ENABLED',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.EPI_GROUP','ENABLED',0)
|
||||
END
|
||||
|
||||
IF WMOKey NE '' THEN
|
||||
Set_Property(@WINDOW:'.EPO_GROUP','ENABLED',1)
|
||||
IF SAPTXDtm NE '' OR sapBatchId NE '' then
|
||||
Set_Property(@Window : '.EPO_MAKEUP', 'ENABLED', 0)
|
||||
end
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.EPO_GROUP','ENABLED',0)
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW:'.ASM_GROUP','ENABLED',0)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.ASM_GROUP','ENABLED',1)
|
||||
Set_Property(@WINDOW:'.EPO_GROUP','ENABLED',0)
|
||||
Set_Property(@WINDOW:'.EPI_GROUP','ENABLED',0)
|
||||
IF SAPTXDtm NE '' OR sapBatchId NE '' then
|
||||
Set_Property(@Window : '.MAKEUP_BOX', 'ENABLED', 0)
|
||||
end
|
||||
END
|
||||
|
||||
* QBF buttons
|
||||
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_PREV_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_ABS_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_NEXT_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_LAST_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_STOP_FIX' ; Props := 'ENABLED'
|
||||
|
||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||
Vals = 0:@RM:0:@RM:0:@RM:0:@RM:0:@RM:0
|
||||
END ELSE
|
||||
Vals = 1:@RM:1:@RM:1:@RM:1:@RM:1:@RM:1
|
||||
END
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
ETSymbolics = Get_Property(@WINDOW,'@ET_SYMBOLICS') ;* Loaded during 'Create' in obj_Appwindow
|
||||
|
||||
ETCtrls = ETSymbolics<1>
|
||||
ETCols = ETSymbolics<2>
|
||||
|
||||
FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
|
||||
ETCtrl = ETCtrls<1,I>
|
||||
IF ETCtrl NE @WINDOW:'.CASSETTES' AND ETCtrl NE @WINDOW:'.INV_WH' THEN
|
||||
ETList = Get_Property(ETCtrl,'LIST')
|
||||
FOR Line = 1 TO COUNT(ETList,@FM) + (ETList NE '')
|
||||
IF ETList<Line,1> NE '' THEN
|
||||
FOR N = 1 TO COUNT(ETCols<1,I>,@SVM) + (ETCols<1,I> NE '')
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',ETCols<1,I,N>,Line,GREEN$)
|
||||
NEXT N
|
||||
END
|
||||
NEXT Line
|
||||
END
|
||||
NEXT I
|
||||
|
||||
CtrlName = @WINDOW:'.INV_WH'
|
||||
InvArray = Get_Property(CtrlName,'INVALUE')
|
||||
TagIDs = InvArray<COL$INV_TAG>
|
||||
|
||||
TagCnt = COUNT(TagIDs,@VM) + (TagIDs NE '')
|
||||
FOR I = 1 TO TagCnt
|
||||
InvTag = InvArray<COL$INV_TAG,I>
|
||||
BEGIN CASE
|
||||
CASE InvTag[1,1] = 'I' ; LineColor = PRE_BLUE$
|
||||
CASE InvTag[1,1] = 'O' ; LineColor = YELLOW$
|
||||
CASE 1 ; LineColor = GREEN$
|
||||
END CASE
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,LineColor)
|
||||
NEXT I
|
||||
|
||||
CtrlName = @WINDOW:'.NCR_KEYS'
|
||||
NCRList = Get_Property(CtrlName,'LIST')
|
||||
|
||||
ColCount = COUNT(NCRList<1>,@VM) + (NCRList<1> NE '')
|
||||
FOR Line = 1 TO COUNT(NCRList,@FM) + (NCRList NE '')
|
||||
|
||||
Status = NCRList<Line,2>
|
||||
|
||||
BEGIN CASE
|
||||
CASE Status = '' ; Color = WHITE$
|
||||
CASE Status = 'Closed' ; Color = GREEN$
|
||||
CASE Status = 'Open' ; Color = RED$
|
||||
CASE Status = 'Verified' ; Color = YELLOW$
|
||||
|
||||
CASE 1 ; Color = WHITE$
|
||||
|
||||
END CASE
|
||||
FOR Col = 1 TO ColCount
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',Col,Line,Color)
|
||||
NEXT Col
|
||||
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Shipment:
|
||||
* * * * * * *
|
||||
|
||||
ShipNo = Get_Property(@WINDOW:'.SHIP_NO','DEFPROP')
|
||||
|
||||
|
||||
IF ShipNo NE '' THEN
|
||||
obj_AppWindow('ViewRelated','SHIPMENT':@RM:ShipNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RdsDC:
|
||||
* * * * * * *
|
||||
|
||||
WOStepKey = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF WOStepKey = '' THEN RETURN
|
||||
|
||||
CtrlEntID = @WINDOW:'.CASSETTES'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,'NOTIFYPOS') ;* Undocumented property that gives cell location when multi select is enabled.
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
RDSNo = Get_Property(CtrlEntID,'CELLPOS',2:@FM:CurrRow)
|
||||
|
||||
IF RDSNo NE '' THEN
|
||||
|
||||
Set_Property(@WINDOW,'@RETURN_FROM_RDS',WOStepKey) ;* Bullshit lashup to work with multiple RDS windows
|
||||
|
||||
thisFormName = 'RDS'
|
||||
|
||||
thisFormWindowUp = Get_Property(thisFormName,'VISIBLE') ;* Returns 0 = hidden, 1 = visible, 2 = minimized, 3 = maximized
|
||||
|
||||
IF thisFormWindowUp = '' THEN
|
||||
If Get_Property('NDW_MAIN', 'VISIBLE') then
|
||||
AppMain = 'NDW_MAIN'
|
||||
end else
|
||||
AppMain = 'LSL_MAIN2'
|
||||
end
|
||||
Start_Window(thisFormName,AppMain,RDSNo:'*CENTER', '', '') ;* Put up the card window
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF thisFormWindowUp = 2 THEN Set_Property(thisFormName,'VISIBLE',9) ;* Restore the window if minimized
|
||||
|
||||
IF Get_Property(thisFormName,'SAVEWARN') THEN
|
||||
Send_Event(thisFormName,'CLEAR') ;* Clear anything existing (prompts for save first)
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NCRKeysDC:
|
||||
* * * * * * *
|
||||
|
||||
WMId = Get_Property(@WINDOW,'ID')
|
||||
|
||||
CtrlEntID = @WINDOW:'.NCR_KEYS'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
NCRKey = Get_Property(CtrlEntID,'CELLPOS',1:@FM:CurrRow)
|
||||
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
|
||||
DetWindow = 'NCR'
|
||||
DetKeys = NCRKey
|
||||
DefaultRec = ''
|
||||
RetKey = WMId
|
||||
RetWin = @WINDOW
|
||||
RetPage = 1
|
||||
RetCtrl = CtrlEntID
|
||||
RetPos = CurrPos
|
||||
|
||||
obj_Appwindow('ViewNewDetail',DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
TabClick:
|
||||
* * * * * * *
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
Page = Parm1
|
||||
END ELSE
|
||||
Page = Get_Property(@WINDOW:'.TAB_CONTROL','VALUE')
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'VPOSITION',Page)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
HoldClick:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
CtrlEnt = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
IF WONo = '' OR CassNo = '' THEN RETURN
|
||||
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
HoldEntity = 'WO_MAT'
|
||||
HoldEntityID = WOMatKey
|
||||
|
||||
Send_Event(CtrlEnt,'GOTFOCUS')
|
||||
Set_Property(@WINDOW,'SAVEWARN',0)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
obj_WO_Mat('ToggleHold',WOMatKey:@RM:HoldEntity:@RM:HoldEntityID:@RM:CtrlEnt)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WOMatKey)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
HoldDC:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
IF WONo = '' OR CassNo = '' THEN RETURN
|
||||
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
|
||||
CtrlEntID = @WINDOW:'.HOLD_HISTORY'
|
||||
|
||||
HoldHistory = Get_Property(CtrlEntID,'LIST')
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
HistoryCols = Get_Property(CtrlEntID, "COLUMN")
|
||||
ColName = HistoryCols<1,1,CurrCol>
|
||||
|
||||
Set_Property(@WINDOW,'SAVEWARN',0)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
obj_WO_Mat('EditHoldReason',WOMatKey:@RM:ColName:@RM:CurrRow)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WOMatKey)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
FlagClick:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
CtrlEnt = Get_Property(@WINDOW,'FOCUS')
|
||||
FieldNo = Get_Property(CtrlEnt,'POS')
|
||||
|
||||
IF WONo = '' OR CassNo = '' THEN RETURN
|
||||
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
|
||||
IF NOT(MemberOf(@USER4,'MASTER_SCHED')) AND NOT(MemberOf(@USER4,'OI_ADMIN')) THEN
|
||||
ErrMsg('This function is limited to Material Control.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
Send_Event(CtrlEnt,'GOTFOCUS')
|
||||
CheckValue = Get_Property(CtrlEnt,'DEFPROP')
|
||||
|
||||
Set_Property(@WINDOW,'SAVEWARN','0')
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WOMatKey)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
************
|
||||
MakeUpClick:
|
||||
************
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
CtrlEnt = Get_Property(@WINDOW,'FOCUS')
|
||||
FieldNo = Get_Property(CtrlEnt,'POS')
|
||||
|
||||
Send_Event(CtrlEnt,'GOTFOCUS')
|
||||
CheckValue = Get_Property(CtrlEnt,'DEFPROP')
|
||||
InvalidRequest = 0
|
||||
|
||||
IF ((WONo NE '') AND (CassNo NE '')) THEN
|
||||
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
OnHold = Xlate('WO_MAT', WOMatKey, 'HOLD', 'X')
|
||||
IF OnHold NE True$ then
|
||||
IF (MemberOf(@USER4,'MASTER_SCHED')) |
|
||||
OR (MemberOf(@USER4,'SUPERVISOR')) |
|
||||
OR (MemberOf(@USER4,'ENGINEERING')) |
|
||||
OR (MemberOf(@USER4,'LEAD')) |
|
||||
OR (MemberOf(@USER4,'OI_ADMIN')) THEN
|
||||
|
||||
Set_Property(@WINDOW,'SAVEWARN','0')
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
obj_WO_Mat('ChangeFlag',WOMatKey:@RM:FieldNo:@RM:CheckValue)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
InvalidRequest = 1
|
||||
ErrMsg('INFO: This function is limited to authorized users only.')
|
||||
END
|
||||
end else
|
||||
InvalidRequest = 1
|
||||
ErrMsg('INFO: You cannot make changes to the lot while it is on hold.')
|
||||
end
|
||||
|
||||
END ELSE
|
||||
InvalidRequest = 1
|
||||
ErrMsg('WARNING: Work Order and Cassette information is missing.')
|
||||
END
|
||||
|
||||
IF (InvalidRequest = 1) then
|
||||
/* Toggle back the checkbox flag */
|
||||
IF (CheckValue = 0) THEN
|
||||
Set_Property(CtrlEnt, 'DEFPROP', 1)
|
||||
END ELSE
|
||||
Set_Property(CtrlEnt, 'DEFPROP', 0)
|
||||
END
|
||||
END
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WOMatKey)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CleanInspDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CLEAN_INSP'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,"SELPOS")
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CIKey = Get_Property(CtrlEntID,'CELLPOS',COL$CI_KEY:@FM:CurrRow)
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
IF CIKey NE '' AND WONo NE '' AND CassNo NE '' THEN
|
||||
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
|
||||
DetWindow = 'CLEAN_INSP'
|
||||
DetKeys = CIKey
|
||||
DefaultRec = ''
|
||||
RetKey = WONo:'*':CassNo
|
||||
RetWin = @WINDOW
|
||||
RetPage = 1
|
||||
RetCtrl = CtrlEntID
|
||||
RetPos = CurrPos
|
||||
|
||||
obj_Appwindow('ViewNewDetail',DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ProdVerClick:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.WO_NO':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.PROD_VER_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
WONo = Vals[1,@RM]
|
||||
CassNo = Vals[COL2()+1,@RM]
|
||||
ProdVerNo = Vals[COL2()+1,@RM]
|
||||
|
||||
IF WONo NE '' AND CassNo NE '' THEN
|
||||
|
||||
DetWindow = 'PROD_VER'
|
||||
DetKeys = ProdVerNo
|
||||
DefaultRec = ''
|
||||
RetKey = WONo:'*':CassNo
|
||||
RetPage = 1
|
||||
RetCtrl = ''
|
||||
RetPos = ''
|
||||
|
||||
oAParms = DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos
|
||||
|
||||
obj_AppWindow('ViewNewDetail',oAParms)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SendGR:
|
||||
* * * * * * *
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
If WONo NE '' and CassNo NE '' then
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
WOMATRec = xlate('WO_MAT', WOMatKey, '', 'X')
|
||||
MUBox = Xlate('WO_MAT', WOMatKey, 'MAKEUP_BOX', 'X')
|
||||
Locate 'PACK' In WOMATRec<7> Using @VM Setting packLoc Then
|
||||
myVal = WOMATRec<31, packLoc>
|
||||
packComplete = (WOMATRec<31, packLoc> _EQC 'packaging complete')
|
||||
end else
|
||||
packComplete = FALSE$
|
||||
end
|
||||
If @UserName EQ 'DAN_CR' OR @User4 EQ 'DAN_CR' then packComplete = 1
|
||||
If ( (packComplete EQ '1') or (MUBox EQ True$) ) Then
|
||||
Sap_Services('RetransmitCassComp', WOMatKey)
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WOMatKey)
|
||||
ErrMsg('SAP Transaction for ':WOMatKey:' succesfully resent.')
|
||||
end else
|
||||
ErrMsg('Packaging Step not complete - cannot send to SAP.':CRLF$:'Please return cassette to FAB for packaging.')
|
||||
end
|
||||
end else
|
||||
ErrorMessage = 'Process Error: Either Work Order number or Cassette number are null.'
|
||||
ErrMsg(ErrorMessage)
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
BatchFixit:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
|
||||
IF WONo NE '' AND CassNo NE '' THEN
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
obj_Appwindow('ViewRelated','WO_MAT_BATCH':@RM:WOMatKey)
|
||||
Set_Property('WO_MAT_BATCH','@RETURNKEY',WOMatKey)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user