199 lines
3.8 KiB
Plaintext
199 lines
3.8 KiB
Plaintext
COMPILE FUNCTION Dialog_GAN_Dispo(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
|
|
|
/*
|
|
Commuter module for Dialog_GAN_DISPO window.- Cloned from DIALOG_SPLIT_WAFERS
|
|
|
|
06/27/2016 - John C. Henry, J.C. Henry & Co., Inc.
|
|
*/
|
|
|
|
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg,
|
|
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message,
|
|
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, obj_WM_In, Send_Message, obj_WO_Mat_GaN
|
|
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
|
|
$INSERT REACT_RUN_EQUATES
|
|
$INSERT REACTOR_EQUATES
|
|
$INSERT RDS_TEST_EQUATES
|
|
$INSERT TOOL_EQUATES
|
|
$INSERT TOOL_CLASS_EQUATES
|
|
$INSERT PRS_STAGE_EQUATES
|
|
$INSERT EPI_PART_EQUATES
|
|
$INSERT WO_LOG_EQUATES
|
|
$INSERT WO_STEP_EQUATES
|
|
$INSERT WO_MAT_EQUATES
|
|
$INSERT APPCOLORS
|
|
$INSERT POPUP_EQUATES
|
|
$INSERT LOGICAL
|
|
$INSERT WO_WFR_EQUATES
|
|
$INSERT RTI_STYLE_EQUATES
|
|
|
|
EQU COL$IN_SLOT_ID TO 1
|
|
EQU COL$IN_WFR_ID TO 2
|
|
EQU COL$CARR_SLOT_ID TO 3
|
|
EQU COL$RDS_NO TO 4
|
|
EQU COL$PKT TO 5
|
|
|
|
|
|
EQU COL_WD$IN_WFR_ID TO 1 ;* Equates used in return data structure for Manifest Wafers
|
|
EQU COL_WD$RDS_NO TO 2
|
|
EQU COL_WD$PKT TO 3
|
|
EQU COL_WD$CARR_SLOT_ID TO 4
|
|
EQU COL_WD$SCRIBE TO 5
|
|
EQU COL_WD$WFR_GRADE TO 6
|
|
EQU COL_WD$WFR_SHIP TO 7
|
|
EQU COL_WDOUT_SLOT_ID TO 8
|
|
|
|
|
|
|
|
EQU EDITABLE$ TO 4
|
|
EQU PROTECTED$ TO 8 ;* Protected - Edittable COLSTYLE constants
|
|
EQU MULTILINE_STYLE$ TO 512 ;* MultiLine Select
|
|
EQU LOCKED$ TO 8192
|
|
EQU DROPDOWN_STYLE$ TO 131072
|
|
|
|
|
|
ErrTitle = 'Error in Dialog_GAN_Dispo commuter module'
|
|
ErrorMsg = ''
|
|
|
|
Result = ''
|
|
|
|
|
|
BEGIN CASE
|
|
|
|
CASE EntID = @WINDOW
|
|
BEGIN CASE
|
|
CASE Event = 'CREATE' ; GOSUB Create
|
|
CASE Event = 'CLOSE' ; GOSUB Close ;* This needs to be a PRECLOSE event!
|
|
|
|
|
|
END CASE
|
|
|
|
CASE EntID = @WINDOW:'.LU_WO_NO' AND Event = 'CLICK' ; GOSUB LUWONo
|
|
CASE EntID = @WINDOW:'.ADD_WAFERS' AND Event = 'CLICK' ; GOSUB AddWafers
|
|
|
|
CASE EntID = @WINDOW:'.WO_NO' AND Event = 'LOSTFOCUS' ; GOSUB Refresh
|
|
|
|
|
|
|
|
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')
|
|
|
|
|
|
|
|
BriefTxt = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
|
|
BriefTxt := '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\b\f0\fs20 Wafer Disposition\par'
|
|
BriefTxt := '\b0\par'
|
|
BriefTxt := ' 1.) Log Char wfrs as Product Test wfrs\b\par'
|
|
BriefTxt := ' 2.) Enter Wfr Grades for each wafer in carrier\b\par'
|
|
BriefTxt := ' 3.) Select and Create Non Conforming Report for scrap wfrs\b\par'
|
|
BriefTxt := ' 4.) Unload remaining wafers into shipping cassette slots\b\par'
|
|
BriefTxt := '\b0\par'
|
|
BriefTxt := '}'
|
|
|
|
*Set_Property(@WINDOW:'.BRIEF_EDITBOX','RTFTEXT',BriefTxt)
|
|
|
|
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
LUWONo:
|
|
* * * * * * *
|
|
|
|
|
|
DEBUG
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Close:
|
|
* * * * * * *
|
|
|
|
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
AddWafers:
|
|
* * * * * * *
|
|
|
|
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
|
|
|
WfrData = obj_WO_Mat_GaN('GetManifestWfrs',WONo)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
DEBUG
|
|
RETURN
|
|
END
|
|
|
|
|
|
IF WfrData = '' THEN RETURN
|
|
|
|
CONVERT @VM:@FM TO @SVM:@VM IN WfrData
|
|
|
|
|
|
TypeOver = ''
|
|
TypeOver<PDISPLAY$> = WfrData
|
|
|
|
SelWfrs = Popup(@WINDOW,TypeOver,'WO_WFRS')
|
|
|
|
|
|
|
|
|
|
|
|
|
|
DEBUG
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Refresh:
|
|
* * * * * * *
|
|
|
|
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
|
DEBUG
|
|
IF WONo NE '' THEN
|
|
EpiPartNo = XLATE('WO_LOG',WONo,WO_LOG_EPI_PART_NO$,'X')
|
|
WfrThick = XLATE('EPI_PART',EpiPartNo,EPI_PART_SUB_THICK$,'X')
|
|
|
|
Set_Property(@WINDOW:'.EPI_PART_NO','DEFPROP',EpiPartNo)
|
|
Set_Property(@WINDOW:'.WFR_THICK','DEFPROP',WfrThick)
|
|
|
|
END
|
|
|
|
RETURN
|
|
|
|
|
|
|