added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
392
LSL2/STPROC/DIALOG_LABEL_CHECK_DEV.txt
Normal file
392
LSL2/STPROC/DIALOG_LABEL_CHECK_DEV.txt
Normal file
@ -0,0 +1,392 @@
|
||||
COMPILE FUNCTION Dialog_Label_Check_Dev(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Mat_Scan (Material - Barcode Scan) window
|
||||
|
||||
10/24/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, Set_Status, ErrMsg, Set_Property, Dialog_Box, obj_WO_Mat_Log
|
||||
DECLARE SUBROUTINE Btree.Extract, Send_Event, Security_Err_Msg, obj_Appwindow, End_Dialog, Post_Event
|
||||
DECLARE SUBROUTINE Send_Message, Print_Cass_Ship_Label, Print_SAP_Cass_Ship_Label, obj_Notes
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box
|
||||
DECLARE FUNCTION Dialog_Box, Utility, obj_WO_Mat
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$Insert REACT_RUN_EQUATES
|
||||
$Insert WM_IN_EQUATES
|
||||
$Insert WM_OUT_EQUATES
|
||||
$Insert WO_MAT_EQUATES
|
||||
$Insert RDS_EQUATES
|
||||
$Insert NOTIFICATION_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$SMALL_LABEL TO 1
|
||||
EQU COL$LARGE_LABEL TO 2
|
||||
EQU COL$RESULT TO 3
|
||||
|
||||
ErrTitle = 'Error in Dialog_Label_Check'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Done
|
||||
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.DONE_BUTTON' AND Event = 'CLICK' ; GOSUB Done
|
||||
|
||||
CASE EntID = @WINDOW:'.CASS_IDS' AND Event = 'POSCHANGED' ; GOSUB CassIdPC
|
||||
|
||||
CASE 1
|
||||
|
||||
ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
|
||||
ErrMsg(ErrorMsg)
|
||||
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
WindowLabel = Get_Property(@WINDOW:'.WINDOW_LABEL','TEXT')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * * *
|
||||
Done:
|
||||
* * * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * * *
|
||||
CassIdPC:
|
||||
* * * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CASS_IDS'
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
ListData = Get_Property(CtrlEntId,'LIST')
|
||||
ArrayData = Get_Property(CtrlEntId,'ARRAY')
|
||||
|
||||
IF ListData<CurrRow,CurrCol> = '' THEN
|
||||
|
||||
ColPointer = CurrCol
|
||||
LinePointer = CurrRow
|
||||
ColCnt = 2
|
||||
|
||||
* Find the first non-empty cell
|
||||
|
||||
LOOP
|
||||
Test = ListData<LinePointer,(ColPointer) >
|
||||
UNTIL Test NE '' OR (LinePointer = 0 AND ColPointer = 1)
|
||||
ColPointer -= 1
|
||||
IF ColPointer = 0 THEN
|
||||
ColPointer = ColCnt
|
||||
LinePointer -= 1
|
||||
END
|
||||
REPEAT
|
||||
|
||||
* Move one past the non empty cell
|
||||
|
||||
BEGIN CASE
|
||||
CASE LinePointer = 0
|
||||
* Empty Table
|
||||
LinePointer = 1
|
||||
CoilPointer = 1
|
||||
|
||||
CASE ColPointer = ColCnt
|
||||
LinePointer += 1
|
||||
ColPointer = 1
|
||||
|
||||
CASE 1
|
||||
ColPointer += 1
|
||||
|
||||
END CASE
|
||||
Set_Property(CtrlEntId,"SELPOS",ColPointer:@FM:LinePointer)
|
||||
END
|
||||
|
||||
IF ListData<PrevRow,PrevCol> NE '' AND PrevCol = COL$SMALL_LABEL THEN
|
||||
|
||||
CassID = TRIM(ListData<PrevRow,PrevCol>)
|
||||
|
||||
IF CassID[1,1] EQ 'Q' then
|
||||
Set_Property(CtrlEntId,"CELLPOS",'',PrevSelPos)
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
end else IF CassID[1,2] EQ '1T' THEN
|
||||
Swap '1T' with '' in CassID
|
||||
Set_Property(CtrlEntId,"CELLPOS",CassID,PrevSelPos)
|
||||
END
|
||||
|
||||
If CurrRow > 1 THEN
|
||||
* Check for data already in the list (repeat scan)
|
||||
|
||||
TestArray = ArrayData<COL$SMALL_LABEL> ;* First Column
|
||||
TestArray<COL$SMALL_LABEL,PrevRow> = '' ;* Remove the label just scanned
|
||||
LOCATE CassID IN TestArray USING @VM SETTING Pos THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Label Data already scanned
|
||||
RETURN
|
||||
END
|
||||
End
|
||||
|
||||
BEGIN CASE
|
||||
CASE CassID[1,1] = 'I'
|
||||
* WM_IN table
|
||||
CassID = CassID[2,99] ;*
|
||||
WOMatKey = FIELD(CassID,'.',1):'*':FIELD(CassID,'.',3)
|
||||
Set_Property(CtrlEntID,'INVALUE',CassID,PrevSelPos)
|
||||
CASE CassID[1,1] = 'O'
|
||||
* WM_OUT table
|
||||
CassID = CassID[2,99]
|
||||
WOMatKey = FIELD(CassID,'.',1):'*':FIELD(CassID,'.',3)
|
||||
Set_Property(CtrlEntID,'INVALUE',CassID,PrevSelPos)
|
||||
CASE INDEX(CassID,'.',1) AND NOT(INDEX(CassID,'.',2))
|
||||
* This is a WO_MAT format label
|
||||
WOMatKey = CassID
|
||||
Convert '.' To '*' In CassID
|
||||
CASE INDEX(CassID,'.',2)
|
||||
* EpiPRO material indeterminate direction
|
||||
WOMatKey = FIELD(CassID,'.',1):'*':Field(CassID,'.',3)
|
||||
CASE 1
|
||||
ReactRunRec = XLATE('REACT_RUN',CassID,'','X')
|
||||
IF ReactRunRec = '' THEN
|
||||
RDSRec = XLATE('RDS',CassID,'','X')
|
||||
TestWO = RDSRec<RDS_WO$>
|
||||
CassNo = RDSRec<RDS_CASS_NO$>
|
||||
END ELSE
|
||||
TestWO = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
End
|
||||
|
||||
WOMatKey = TestWO:'*':CassNo
|
||||
|
||||
END CASE
|
||||
|
||||
WOMatRec = XLATE('WO_MAT',WOMatKey,'','X')
|
||||
|
||||
IF WOMatRec = '' THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* No corresponding data record found for label scanned bad read or wrong thing scanned
|
||||
RETURN
|
||||
END
|
||||
|
||||
End
|
||||
|
||||
|
||||
IF ListData<PrevRow,PrevCol> NE '' AND PrevCol = COL$LARGE_LABEL Then
|
||||
|
||||
CassID = TRIM(ListData<PrevRow,PrevCol>)
|
||||
CheckID = TRIM(ListData<PrevRow,COL$SMALL_LABEL>)
|
||||
|
||||
BatchID = Field(CassID,' ',2)
|
||||
|
||||
If BatchID NE '' Then
|
||||
|
||||
Open 'DICT.WO_MAT' To DictWOMat Then
|
||||
|
||||
Search = 'SAP_BATCH_NO':@VM:BatchID:@FM
|
||||
Flag = ''
|
||||
ScanWOMatKey = ''
|
||||
|
||||
Set_Status(0)
|
||||
Btree.Extract(Search,'WO_MAT',DictWOMat,ScanWOMatKey,'',Flag)
|
||||
If Get_Status(errCode) Then
|
||||
ErrMsg(errCode)
|
||||
End
|
||||
|
||||
If ScanWOMatKey NE '' Then
|
||||
CassID = Xlate('WO_MAT',ScanWOMatKey,'CASS_ID_SAP','X')
|
||||
|
||||
If CheckID Matches "0N'.'1N'.'0N" THEN
|
||||
WMOKey = Xlate('WO_MAT',ScanWOMatKey,WO_MAT_WMO_KEY$,'X')
|
||||
Convert '*' To '.' In WMOKey
|
||||
CassID = WMOKey
|
||||
End
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',CassID,PrevSelPos)
|
||||
End Else
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* No corresponding data record found for label scanned bad read or wrong thing scanned
|
||||
Return
|
||||
RETURN
|
||||
END
|
||||
End ;* End of DictWOMat open
|
||||
End Else
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Field other than the combined label scanned
|
||||
RETURN
|
||||
END;* End of check for null BatchID
|
||||
|
||||
|
||||
If CurrRow > 1 THEN
|
||||
|
||||
* Check for data already in the list (repeat scan)
|
||||
|
||||
TestArray = ArrayData<COL$LARGE_LABEL>
|
||||
TestArray<1,PrevRow> = '' ;* Remove the label just scanned
|
||||
LOCATE CassID IN TestArray USING @VM SETTING Pos THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Label Data already scanned
|
||||
RETURN
|
||||
END
|
||||
End
|
||||
|
||||
|
||||
* Setup parameters to WO_Mat_Log method *
|
||||
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
UserID = @USER4
|
||||
IF UserID = '' THEN UserID = @USERNAME
|
||||
|
||||
LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
Action = 'PSVER'
|
||||
WHCd = 'SR'
|
||||
LocCd = 'VER'
|
||||
|
||||
If CassID NE CheckID Then
|
||||
void = Utility('BEEP')
|
||||
Set_Property(CtrlEntID,'CELLPOS','*Mismatch*',3:@FM:PrevRow) ;* Load Current Location
|
||||
stat = Send_Message(CtrlEntID,'COLOR_BY_POS',0,PrevRow,RED$)
|
||||
|
||||
OK = Msg(@WINDOW,'','LABEL_MISMATCH')
|
||||
|
||||
* Inform Quality Insurance that a mismatch has occurred *
|
||||
|
||||
Recipients = ''
|
||||
|
||||
OtherRecipients = XLATE('NOTIFICATION','LABEL_CHECK',NOTIFICATION_USER_ID$,'X') ;* Added 10/03/2005 JCH - J.C. Henry & Co., Inc Changed from LABEL_MISMATCH by dkk 11/6/15
|
||||
|
||||
FOR N = 1 TO COUNT(OtherRecipients,@VM) + (OtherRecipients NE '')
|
||||
OtherRecip = OtherRecipients<1,N>
|
||||
LOCATE OtherRecip IN Recipients USING @VM SETTING Pos ELSE
|
||||
Recipients = INSERT(Recipients,1,Pos,0,OtherRecip)
|
||||
END
|
||||
NEXT N
|
||||
|
||||
SentFrom = @USER4
|
||||
Subject = 'Preship Label Check Mismatch'
|
||||
Message = 'Cassette ':QUOTE(CheckID):' has incorrect 4 inch label from Cass ID ':QUOTE(CassID)' applied.'
|
||||
AttachWindow = ''
|
||||
AttachKey = ''
|
||||
SendToGroup = ''
|
||||
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
|
||||
* Reprint correct 4" labels *
|
||||
|
||||
If Num(CheckID) THEN
|
||||
RDSNo = CheckID
|
||||
|
||||
ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
|
||||
|
||||
WONo = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
StepNo = ReactRunRec<REACT_RUN_WO_STEP$>
|
||||
CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
End Else
|
||||
IF CheckID[1,1] = 'O' THEN CheckID[1,1] = ''
|
||||
IF CheckID[1,1] = 'I' Then CheckID[1,1] = ''
|
||||
|
||||
WONo = Field(CheckID,'.',1)
|
||||
StepNo = FIELD(CheckID,'.',2)
|
||||
CassNo = FIELD(CheckID,'.',3)
|
||||
RDSNo = ''
|
||||
End
|
||||
|
||||
Print_SAP_Cass_Ship_Label(WONo,StepNo,CassNo,RDSNo)
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONo:@RM:CassNo:@RM:UserID:@RM:'Mismatch')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
End
|
||||
|
||||
|
||||
Goto Done ;* Stop afer a mistmatch - no more scans allowed. Change to allow the net line item scan. -dkk 6/14/16
|
||||
|
||||
End Else
|
||||
|
||||
Set_Property(CtrlEntID,'CELLPOS','OK',3:@FM:PrevRow)
|
||||
stat = Send_Message(CtrlEntID,'COLOR_BY_POS',0,PrevRow,GREEN$)
|
||||
|
||||
If Num(CheckID) THEN
|
||||
RDSNo = CheckID
|
||||
|
||||
ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
|
||||
|
||||
WONo = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
StepNo = ReactRunRec<REACT_RUN_WO_STEP$>
|
||||
CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
End Else
|
||||
IF CheckID[1,1] = 'O' THEN CheckID[1,1] = ''
|
||||
IF CheckID[1,1] = 'I' THEN CheckID[1,1] = ''
|
||||
|
||||
WONo = Field(CheckID,'.',1)
|
||||
StepNo = FIELD(CheckID,'.',2)
|
||||
CassNo = FIELD(CheckID,'.',3)
|
||||
RDSNo = ''
|
||||
End
|
||||
|
||||
* Add transaction to Posting system to time-stamp WO_MAT record
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONo:@RM:CassNo:@RM:UserID:@RM:'Match')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
End
|
||||
|
||||
End ;* End of check for matching CassID's
|
||||
|
||||
|
||||
End ;* End of check for Large Label
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user