added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
parent
09f1a66046
commit
c667dd56eb
@ -141,3 +141,4 @@ Service GetComputerDomain()
|
||||
|
||||
end service
|
||||
|
||||
|
||||
|
||||
139
LSL2/STPROC/AC_RPT1.txt
Normal file
139
LSL2/STPROC/AC_RPT1.txt
Normal file
@ -0,0 +1,139 @@
|
||||
compile function AC_RPT1()
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function getprinterlist, getprofilestring, writeprofilestring, extdevicemode
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property
|
||||
declare function set_printer, Printer_Select
|
||||
declare subroutine rlist, or_view, activate_save_select, yield, ac_rpt1_prn
|
||||
$insert rlist_equates
|
||||
$insert msg_equates
|
||||
|
||||
Params = dialog_box( 'AC_RPT1', @window, '*CENTER' )
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
open 'SYSLISTS' to SysListsTable else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to open SYSLISTS...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
ListsId = 'AC_RPT1*':@station
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
convert '*' to @fm in Params
|
||||
EntryDateFrom = Params<1>
|
||||
EntryDateThru = Params<2>
|
||||
Custs = Params<3>
|
||||
Open = Params<4>
|
||||
Closed = Params<5>
|
||||
DirToPrinter = Params<6>
|
||||
|
||||
Stat = utility( 'CURSOR', 'H' )
|
||||
Stmt = 'SELECT ANNUAL_CONTRACTS BY CUST_NAME'
|
||||
RestStmt = ''
|
||||
if EntryDateFrom and EntryDateThru then
|
||||
RestStmt := ' WITH ENTRY_DATE FROM ':QUOTE(EntryDateFrom):' TO ':QUOTE(EntryDateThru)
|
||||
end else
|
||||
if EntryDateFrom then
|
||||
RestStmt := " WITH ENTRY_DATE GE ":QUOTE(EntryDateFrom)
|
||||
end
|
||||
if EntryDateThru then
|
||||
RestStmt := " WITH ENTRY_DATE LE ":QUOTE(EntryDateThru)
|
||||
end
|
||||
end
|
||||
if Custs then
|
||||
swap @vm with "' '" in Custs
|
||||
Custs = "'":Custs:"'"
|
||||
if RestStmt then
|
||||
RestStmt := ' AND WITH CUST_NO = ':Custs
|
||||
end else
|
||||
RestStmt := ' WITH CUST_NO = ':Custs
|
||||
end
|
||||
end
|
||||
if Open then
|
||||
if RestStmt then
|
||||
RestStmt := ' AND WITH STATUS = "O"'
|
||||
end else
|
||||
RestStmt := ' WITH STATUS = "O"'
|
||||
end
|
||||
end
|
||||
if Closed then
|
||||
if RestStmt then
|
||||
RestStmt := ' AND WITH STATUS = "C"'
|
||||
end else
|
||||
RestStmt := ' WITH STATUS = "C"'
|
||||
end
|
||||
end
|
||||
Stmt := RestStmt
|
||||
rlist( Stmt, target_savelist$, ListsId, '', '' )
|
||||
activate_save_select( ListsId )
|
||||
if @reccount then
|
||||
Cmd = "LIST ANNUAL_CONTRACTS JUSTLEN 4 CUST_NAME JUSTLEN 30 PO JUSTLEN 18 "
|
||||
Cmd:= "STATUS JUSTLEN 6 TOT_CONTRACT_AMOUNT TOT_REL_AMOUNT BALANCE "
|
||||
Cmd:= "HEADING ":'"':" Annual Contracts by Company 'D' 'T' PAGE # 'PPL'":'"'
|
||||
if DirToPrinter = 'Yes' then
|
||||
|
||||
PrintPath = Printer_Select('',1) ;* Get default printer path
|
||||
Void = set_printer( 'INIT', '', '', '':@fm:1.25, 1, '',PrintPath )
|
||||
ac_rpt1_prn( '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
Void = set_printer( 'INIT', '', '', '', 0, '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
end else
|
||||
or_view( '', Cmd )
|
||||
Void = set_property( 'ORPRV.PRINT', 'ENABLED', 0 )
|
||||
WinId = 'ORPRV'
|
||||
loop
|
||||
while get_property( WinId, 'HANDLE' )
|
||||
yield()
|
||||
repeat
|
||||
ToPrint = ''
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'Do you want to print this report?'
|
||||
MsgInfo<micon$> = '?'
|
||||
MsgInfo<mtype$> = 'BNY'
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mdefbtn$> = 2 ;* default to no
|
||||
ToPrint = msg( @window, MsgInfo )
|
||||
if ToPrint then
|
||||
activate_save_select( ListsId )
|
||||
Void = set_printer( 'INIT', '', '', '':@fm:1.25, 1, '' )
|
||||
ac_rpt1_prn( '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
Void = set_printer( 'INIT', '', '', '', 0, '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
end
|
||||
end
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'NO Records meeting your date criteria!!'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = MSG( '', MsgInfo )
|
||||
end
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
return 0
|
||||
|
||||
|
||||
|
||||
|
||||
139
LSL2/STPROC/AC_RPT1_PRN.txt
Normal file
139
LSL2/STPROC/AC_RPT1_PRN.txt
Normal file
@ -0,0 +1,139 @@
|
||||
SUBROUTINE AC_RPT1_PRN(Dummy)
|
||||
Dummy = ''
|
||||
* LIST ANNUAL_CONTRACTS JUSTLEN 4 CUST_NAME JUSTLEN 30 PO JUSTLEN 18 STATUS JUSTLEN 6 TOT_CONTRACT_AMOUNT TOT_REL_AMOUNT BALANCE HEADING " Annual Contracts by Company 'T' PAGE # 'PPL'"
|
||||
*
|
||||
DECLARE FUNCTION SET_STATUS, SET_FSERROR, SEND_INFO, SET_ROWDEF, SET_PRINTER
|
||||
* HEADING/FOOTING
|
||||
TheHeader = " Annual Contracts by Company 'D' 'T' PAGE # 'P'"
|
||||
HeadPos = '.75,2.5,1.25,1,1.5,1.5,1.5'
|
||||
convert ',' to @fm in HeadPos
|
||||
ColHeader = "Key" : @vm : "Customer" : @vm : "PO" : @vm : "Status" : @vm : "Contract Amount" : @vm : "Release Amount":@vm: "Balance"
|
||||
ColHeader<-1> = str( '-', 5 ):@vm:str( '-', 25 ):@vm:str( '-', 15 ):@vm:str( '-', 15 ):@vm:str( '-', 17 ):@vm:str( '-', 17 ):@vm:str( '-', 17 )
|
||||
Void = set_printer( 'FONTHEADFOOT' )
|
||||
Void = set_printer( 'HEADER', TheHeader, HeadPos, ColHeader )
|
||||
*
|
||||
@RECCOUNT=0
|
||||
FIRST.PASS=1
|
||||
LAST.RECORD=0
|
||||
READERR=0
|
||||
*
|
||||
* OPEN DICT AND DATA FILES
|
||||
*
|
||||
OPEN "DICT","ANNUAL_CONTRACTS" TO @DICT ELSE RETURN
|
||||
OPEN "","ANNUAL_CONTRACTS" TO FILE.IN ELSE RETURN
|
||||
*
|
||||
* MAKE COLUMN HEADING
|
||||
*
|
||||
READRECORD:
|
||||
*
|
||||
*
|
||||
READNEXT @ID, WHICH.VALUE ELSE
|
||||
IF STATUS() GT 0 THEN
|
||||
STATX = SET_FSERROR()
|
||||
RETURN
|
||||
END
|
||||
IF @FILE.ERROR<1> EQ 421 THEN
|
||||
STATX = SET_FSERROR()
|
||||
GOTO READRECORD
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 111 THEN
|
||||
@ANS = @FILE.ERROR<1>
|
||||
STATX = set_printer( 'TEXT', {RLIST_TEXT_4} )
|
||||
READERR += 1
|
||||
GOTO READRECORD
|
||||
END
|
||||
LAST.RECORD=1
|
||||
END
|
||||
@FILE.ERROR.MODE=0
|
||||
*
|
||||
S.ATID = @ID
|
||||
*
|
||||
IF FIRST.PASS AND LAST.RECORD THEN
|
||||
STATX = set_printer( 'TEXT', {RLIST_TEXT_2} )
|
||||
RETURN
|
||||
END
|
||||
*
|
||||
IF LAST.RECORD THEN GOTO BREAKS
|
||||
*
|
||||
IF @REDUCTION.DONE THEN
|
||||
READO @RECORD FROM FILE.IN, @ID ELSE
|
||||
@FILE.ERROR.MODE = 0
|
||||
IF STATUS() GT 0 THEN
|
||||
STATX = SET_FSERROR()
|
||||
RETURN
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 100 THEN
|
||||
READERR += 1
|
||||
END
|
||||
GOTO READRECORD
|
||||
END
|
||||
END
|
||||
*
|
||||
@RECCOUNT += 1
|
||||
*
|
||||
*
|
||||
* CALCULATE VALUE(S) FOR COLUMN(S)
|
||||
*
|
||||
S.ATID={@ID}
|
||||
I.ATID=S.ATID
|
||||
S.CUSTULNAME={CUST_NAME}
|
||||
I.CUSTULNAME=S.CUSTULNAME
|
||||
S.PO={PO}
|
||||
I.PO=S.PO
|
||||
S.STATUS={STATUS}
|
||||
I.STATUS=S.STATUS
|
||||
S.TOTULCONTRACTULAMOUNT={TOT_CONTRACT_AMOUNT}
|
||||
I.TOTULCONTRACTULAMOUNT=S.TOTULCONTRACTULAMOUNT
|
||||
S.TOTULRELULAMOUNT={TOT_REL_AMOUNT}
|
||||
I.TOTULRELULAMOUNT=S.TOTULRELULAMOUNT
|
||||
S.BALANCE={BALANCE}
|
||||
I.BALANCE=S.BALANCE
|
||||
*
|
||||
*
|
||||
IF FIRST.PASS THEN
|
||||
FIRST.PASS=0
|
||||
GOTO DETAIL
|
||||
END
|
||||
*
|
||||
*
|
||||
BREAKS:
|
||||
*
|
||||
*
|
||||
* PERFORM LAST RECORD OUTPUT IF DONE
|
||||
*
|
||||
IF LAST.RECORD THEN
|
||||
IF READERR THEN
|
||||
@ANS=READERR
|
||||
STATX = set_printer( 'TEXT', {RLIST_TEXT_3} )
|
||||
END
|
||||
RETURN
|
||||
END
|
||||
*
|
||||
DETAIL:
|
||||
*
|
||||
* DO CONVERSIONS IF ANY
|
||||
*
|
||||
IF S.STATUS NE "" THEN S.STATUS=OCONV(S.STATUS,"[AC_STATUS_CONV]")
|
||||
IF S.TOTULCONTRACTULAMOUNT NE "" THEN S.TOTULCONTRACTULAMOUNT=OCONV(S.TOTULCONTRACTULAMOUNT,"MD2,$")
|
||||
IF S.TOTULRELULAMOUNT NE "" THEN S.TOTULRELULAMOUNT=OCONV(S.TOTULRELULAMOUNT,"MD2,$")
|
||||
IF S.BALANCE NE "" THEN S.BALANCE=OCONV(S.BALANCE,"MD2,$")
|
||||
*
|
||||
* PRINT DETAIL LINE
|
||||
*
|
||||
PRINTLINE = ""
|
||||
PRINTLINE := S.ATID:@vm
|
||||
PRINTLINE := S.CUSTULNAME:@vm
|
||||
PRINTLINE := S.PO:@vm
|
||||
PRINTLINE := S.STATUS:@vm
|
||||
PRINTLINE := S.TOTULCONTRACTULAMOUNT:@vm
|
||||
PRINTLINE := S.TOTULRELULAMOUNT:@vm
|
||||
PRINTLINE := S.BALANCE:@vm
|
||||
TableColInfo = '<+1080':@vm:'<+3600':@vm:'<+1800':@vm:'<+1440':@vm:'>+2160':@vm:'>+2160':@vm:'>+2160'
|
||||
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
||||
*STATX = set_printer( 'TEXTCOL', PRINTLINE )
|
||||
*
|
||||
*
|
||||
GOTO READRECORD
|
||||
*
|
||||
END
|
||||
|
||||
166
LSL2/STPROC/AC_SRPT1.txt
Normal file
166
LSL2/STPROC/AC_SRPT1.txt
Normal file
@ -0,0 +1,166 @@
|
||||
compile function AC_SRPT1()
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property, PrintSetup, Set_Printer
|
||||
declare function set_printer, obj_Install
|
||||
declare subroutine rlist, or_view, activate_save_select, yield
|
||||
declare subroutine order_srpt1
|
||||
$insert rlist_equates
|
||||
$insert msg_equates
|
||||
$insert oiprint_equates
|
||||
$insert rpt_cfg_equ
|
||||
$INSERT PRINTSETUP_EQUATES
|
||||
|
||||
TimeX = Oconv(Time(),'MTS')
|
||||
|
||||
CrLf = Char(13):Char(10)
|
||||
CurDte = OCONV(Date(),"D4/")
|
||||
|
||||
ReportID = "AC001_SRPTCFG"
|
||||
ReportControl = "AC_SRPT1"
|
||||
TableName = 'ANNUAL_CONTRACTS'
|
||||
|
||||
open 'CONFIG' to ConfigTable else
|
||||
Void = msg( '', 'Unable to open CONFIG...' )
|
||||
return 0
|
||||
end
|
||||
|
||||
Read SRptConfig From ConfigTable,ReportID Else
|
||||
Void = msg( '', 'Unable to read ': ReportID:' From CONFIG table!' )
|
||||
return 0
|
||||
End
|
||||
|
||||
Params = dialog_box( ReportControl, @window, '*CENTER' )
|
||||
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
open 'SYSLISTS' to SysListsTable else
|
||||
Void = msg( '', 'Unable to open SYSLISTS...' )
|
||||
return 0
|
||||
end
|
||||
ListsId = ReportControl:'*':@station
|
||||
write '' on SysListsTable, ListsId else
|
||||
Void = msg( '', 'Unable to clear SYSLISTS ':ListsId:'...' )
|
||||
return 0
|
||||
end
|
||||
convert '*' to @fm in Params
|
||||
EntryDateFrom = Params<1>
|
||||
EntryDateThru = Params<2>
|
||||
Custs = Params<3>
|
||||
Open = Params<4>
|
||||
Closed = Params<5>
|
||||
|
||||
Stat = utility( 'CURSOR', 'H' )
|
||||
|
||||
WithStmt = 'SELECT ':TableName:' '
|
||||
WthSwt = 0
|
||||
Begin Case
|
||||
Case EntryDateFrom and EntryDateThru
|
||||
WthSwt = 1
|
||||
WithStmt := " WITH ENTRY_DATE FROM '": EntryDateFrom:"' TO '":EntryDateThru: "' "
|
||||
TtlLin2 = 'Entry Dates: From ':EntryDateFrom:' To ':EntryDateThru
|
||||
Case EntryDateFrom
|
||||
WthSwt = 1
|
||||
WithStmt := " WITH ENTRY_DATE GE '":EntryDateFrom:"' "
|
||||
TtlLin2 = 'Entry Dates: From ':EntryDateFrom:' To Latest'
|
||||
Case EntryDateThru
|
||||
WthSwt = 1
|
||||
WithStmt := " WITH ENTRY_DATE LE '":EntryDateThru:"' "
|
||||
TtlLin2 = 'Entry Dates: From Earliest To ':EntryDateThru
|
||||
Case 1
|
||||
TtlLin2 = 'Entry Dates: ALL'
|
||||
End Case
|
||||
|
||||
If Custs then
|
||||
CustCnt = Count(@vm,Custs)
|
||||
If CustCnt > 20 Then
|
||||
TtlLin3 = 'Customers: More Than 20 Selected'
|
||||
End Else
|
||||
TtlLin3 = Custs
|
||||
swap @vm with ", " in TtlLin3
|
||||
TtlLin3 = 'Customers: ':TtlLin3
|
||||
End
|
||||
swap @vm with "' '" in Custs
|
||||
Custs = "'":Custs:"'"
|
||||
If WthSwt Then WithStmt := ' AND '
|
||||
WithStmt := ' WITH CUST_NO = ':Custs
|
||||
WthSwt = 1
|
||||
end else
|
||||
TtlLin3 = 'Customers: ALL'
|
||||
end
|
||||
|
||||
If Open then
|
||||
If WthSwt Then WithStmt := ' AND '
|
||||
WithStmt := ' WITH STATUS = "O" '
|
||||
end
|
||||
If Closed then
|
||||
If WthSwt Then WithStmt := ' AND '
|
||||
WithStmt := ' WITH STATUS = "C" '
|
||||
end
|
||||
|
||||
rlist( WithStmt, target_savelist$, ListsId, '', '' )
|
||||
activate_save_select( ListsId )
|
||||
|
||||
Script = SRptConfig<SlistScript$>
|
||||
|
||||
RptWdt = SRptConfig<Width$>
|
||||
|
||||
Title = obj_Install('Get_Prop','Company'):' ':SRptConfig<Title$>
|
||||
Margin = INT((RptWdt - LEN(Title))/2)
|
||||
LMargin = Margin - 10 ;* 10 equals length of the date
|
||||
RMargin = Margin - 8 ;* 8 equals length of 'Page....'
|
||||
Title = OCONV(Date(),'D4/'):SPACE(LMargin):Title:SPACE(RMargin):"Page'PP''L'"
|
||||
|
||||
SWAP '~Title~' WITH Title IN Script
|
||||
|
||||
TitleLine2 = TtlLin2
|
||||
TitleLine3 = TtlLin3
|
||||
TitleLine4 = ''
|
||||
|
||||
IF TitleLine2 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine2))/2)
|
||||
LMargin = Margin - 7 ;* 7 equals length of time (12:15PM)
|
||||
RMargin = Margin
|
||||
TitleLine2 = OCONV(Time(),'MTH'):SPACE(LMargin):TitleLine2:SPACE(RMargin)
|
||||
SWAP '~SecondTitleLine~' WITH TitleLine2 IN Script
|
||||
END ELSE
|
||||
SWAP '~SecondTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine3 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine3))/2)
|
||||
SWAP '~ThirdTitleLine~' WITH "'L'":TitleLine3 IN Script
|
||||
END ELSE
|
||||
SWAP '~ThirdTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine4 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine4))/2)
|
||||
SWAP '~FourthTitleLine~' WITH "'L'":TitleLine4 IN Script
|
||||
END ELSE
|
||||
SWAP '~FourthTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
Script := ' FOOTING "* Status O = Open; C = Closed" '
|
||||
|
||||
* Added after upgrade to OI4.13a to reset default printer in OIPI32 engine.
|
||||
DefaultPrinter = ''
|
||||
PrintCount = PrintSetup(PRN_GET$,'',Printers,DefaultPrinter)
|
||||
CONVERT ',' TO @FM IN DefaultPrinter
|
||||
DefPrintPath = DefaultPrinter<1>:@FM:DefaultPrinter<3>
|
||||
|
||||
Void = set_printer( 'INIT', '', '', .63:@fm:.63:@fm:.25:@fm:'', 0,'',DefPrintPath )
|
||||
Void = Set_Printer('TERM')
|
||||
|
||||
call slist( Script )
|
||||
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
|
||||
write '' on SysListsTable, ListsId else
|
||||
Void = msg( '', 'Unable to clear SYSLISTS ':ListsId:'...' )
|
||||
return 0
|
||||
end
|
||||
RETURN 0
|
||||
28
LSL2/STPROC/AC_STATUS_CONV.txt
Normal file
28
LSL2/STPROC/AC_STATUS_CONV.txt
Normal file
@ -0,0 +1,28 @@
|
||||
SUBROUTINE AC_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
case ConvType = 'OCONV'
|
||||
begin case
|
||||
case DataIo = 'O'
|
||||
ReturnedValue = 'Open'
|
||||
case DataIo = 'C'
|
||||
ReturnedValue = 'Closed'
|
||||
end case
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
110
LSL2/STPROC/ADCSVR_EVENTS.txt
Normal file
110
LSL2/STPROC/ADCSVR_EVENTS.txt
Normal file
@ -0,0 +1,110 @@
|
||||
Function ADCSVR_Events(CtrlEntId, Event, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10)
|
||||
/********************************************************************************
|
||||
|
||||
*********************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
#Window ADCSVR
|
||||
|
||||
$INSERT ENVIRON_CONSTANTS
|
||||
$INSERT LOGICAL
|
||||
|
||||
EQU STOP$ TO 0
|
||||
EQU START$ TO 1
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_ADCSVR routine'
|
||||
|
||||
DECLARE SUBROUTINE Center_Window, StatusLine, Set_Property, End_Dialog, Send_Event, Set_Status, Adios
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, obj_Tables, Post_Event, ShowWindow, obj_ADCSVR, Yield, Utility
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, FindWindow
|
||||
|
||||
GoToEvent Event for CtrlEntId
|
||||
|
||||
Return RetVal else 1
|
||||
|
||||
|
||||
//////////////////////////////////////////////////////////////////////////////
|
||||
// Events
|
||||
//////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
Set_Status(0)
|
||||
otParms = 'SYSOBJ':@RM:'ADC_SERVER'
|
||||
obj_Tables('LockRec',otParms) ;* Places lock on fictional record
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrorMsg = ErrTitle:@SVM:'Another ADC server is already running.'
|
||||
ErrMsg(ErrorMsg)
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
end else
|
||||
Set_Property(@WINDOW,'@ADC_SERVER',STOP$) ;* Set ADC server property '@ADC_SERVER' to stop
|
||||
GoSub StartStop
|
||||
end
|
||||
|
||||
end event
|
||||
|
||||
Event WINDOW.TIMER()
|
||||
|
||||
Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield()
|
||||
StartStop = Get_Property(@WINDOW,'@ADC_SERVER')
|
||||
|
||||
IF (StartStop = START$) THEN
|
||||
obj_ADCSVR('MetrologyData','')
|
||||
END
|
||||
|
||||
end event
|
||||
|
||||
Event WINDOW.CLOSE(CancelFlag)
|
||||
|
||||
otParms = 'SYSOBJ':@RM:'ADC_SERVER'
|
||||
obj_Tables('LockRec',otParms) ;* Places lock on fictional record
|
||||
Set_Status(0)
|
||||
obj_Tables('UnlockRec',otParms) ;* Removes lock on fictional record
|
||||
Utility('DESTROY', 'SYSTEM')
|
||||
|
||||
end event
|
||||
|
||||
Event START_STOP_BUTTON.CLICK()
|
||||
|
||||
GoSub StartStop
|
||||
|
||||
end event
|
||||
|
||||
|
||||
//////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
//////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
**********
|
||||
StartStop:
|
||||
**********
|
||||
|
||||
StartStop = Get_Property(@WINDOW:'.START_STOP_BUTTON','TEXT')
|
||||
|
||||
IF (StartStop = 'Stop ADC Server') THEN
|
||||
|
||||
* ADC server is running
|
||||
Set_Property(@WINDOW, 'TIMER', '')
|
||||
Set_Property(@WINDOW,'@ADC_SERVER',STOP$) ;* Turn off ADC server
|
||||
Set_Property(@WINDOW:'.START_STOP_BUTTON','TEXT', 'Start ADC Server')
|
||||
Set_Property(@WINDOW:'.CLOSE_BUTTON','ENABLED',1)
|
||||
|
||||
END ELSE
|
||||
|
||||
Interval = Get_Property(@Window : '.INTERVAL', 'INVALUE')
|
||||
If Interval EQ '' then
|
||||
Interval = 5
|
||||
Set_Property(@WINDOW:'.INTERVAL','INVALUE',Interval)
|
||||
end
|
||||
Set_Property(@WINDOW, 'TIMER', Interval * 1000) ;* Set timer event to 5000 msecs (5 seconds) to check for shutdown time.
|
||||
|
||||
Set_Property(@WINDOW:'.START_STOP_BUTTON','TEXT', 'Stop ADC Server')
|
||||
Set_Property(@WINDOW,'@ADC_SERVER',START$) ;* Start the ADC server process
|
||||
Set_Property(@WINDOW:'.CLOSE_BUTTON','ENABLED',0)
|
||||
|
||||
END
|
||||
|
||||
return
|
||||
61
LSL2/STPROC/ADDINDEXTRANSACTION.txt
Normal file
61
LSL2/STPROC/ADDINDEXTRANSACTION.txt
Normal file
@ -0,0 +1,61 @@
|
||||
Function AddIndexTransaction(Table, Column, OldRow, NewRow, RowId)
|
||||
|
||||
* Function from Sprezzatura's SENL for adding index transaction from a program
|
||||
|
||||
DECLARE SUBROUTINE FSMsg
|
||||
|
||||
TransactionRow = ""
|
||||
|
||||
SaveRec = @Record
|
||||
SaveDict = @Dict
|
||||
SaveId = @Id
|
||||
|
||||
Open "DICT." : Table To @Dict Then
|
||||
|
||||
@Id = RowId
|
||||
@Record = OldRow
|
||||
|
||||
If Num(Column) Then
|
||||
OldValue = @Record<Column>
|
||||
End Else
|
||||
OldValue = Calculate(Column)
|
||||
End
|
||||
|
||||
@Record = NewRow
|
||||
|
||||
If Num(Column) Then
|
||||
NewValue = @Record<Column>
|
||||
End Else
|
||||
NewValue = Calculate(Column)
|
||||
End
|
||||
|
||||
TransactionRow := Column : @Fm : RowId : @fm : OldValue : @Fm : NewValue : @Fm
|
||||
|
||||
Open "!" : Table To vTable Then
|
||||
|
||||
Lock vTable, 0 Then
|
||||
|
||||
Read Update From vTable, 0 Else Update = @Fm
|
||||
Update := TransactionRow
|
||||
Write Update On vTable, 0 Then
|
||||
Status = 1
|
||||
End Else
|
||||
Status = 0
|
||||
End
|
||||
Unlock vTable, 0 Else FSMsg()
|
||||
End Else
|
||||
Status = 0
|
||||
End
|
||||
End Else
|
||||
Status = 0
|
||||
End
|
||||
End Else
|
||||
Status = 0
|
||||
End
|
||||
|
||||
@Id = SaveId
|
||||
@Dict = SaveDict
|
||||
@Record = SaveRecord
|
||||
|
||||
Return Status
|
||||
|
||||
9
LSL2/STPROC/ADMIN_USER.txt
Normal file
9
LSL2/STPROC/ADMIN_USER.txt
Normal file
@ -0,0 +1,9 @@
|
||||
compile function admin_user( UserToCheck )
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
$insert lsl_users_equ
|
||||
Valid = xlate( 'LSL_USERS', UserToCheck, lsl_users_admin_user$, 'X' )
|
||||
return Valid
|
||||
59
LSL2/STPROC/AD_TEST.txt
Normal file
59
LSL2/STPROC/AD_TEST.txt
Normal file
@ -0,0 +1,59 @@
|
||||
COMPILE function AD_Test()
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
Declare function SRPLogonAPI_ValidateUser, RTI_LDAP_Groups_for_user, Datetime, Time, GetTickCount
|
||||
Declare Subroutine Set_Property
|
||||
|
||||
Username = 'Ouellette'
|
||||
Password = 'IndianSc0ut2019*'
|
||||
/*Domain = 'INFINEON.COM'
|
||||
*Domain = 'infineon.com'
|
||||
start = Datetime()
|
||||
|
||||
test = SRPLogonAPI_ValidateUser(Username, Password, Domain)
|
||||
ADGroups = RTI_LDAP_Groups_for_User(Username, Domain)
|
||||
|
||||
stop = Datetime()
|
||||
|
||||
timeToComplete = stop - start
|
||||
*/
|
||||
|
||||
AccessLevel = -1 ; // Assume no access for now.
|
||||
|
||||
// Step 1 - Validate the username and password against one of the approved non-EC domains.
|
||||
ValidUser = 0 ; // Assume not valid for now.
|
||||
|
||||
* Domains = 'na.infineon.com,na,infineon.com'
|
||||
debug
|
||||
* List =''
|
||||
*i = 1
|
||||
* Domains = 'MESSR001.infineon.com,MESSR002.infineon.com,MESSC001.NA.INFINEON.COM,MESSC002.NA.INFINEON.COM,LEOSR001.INFINEON.COM'
|
||||
Username = 'Ouellette'
|
||||
Domain = 'MESSR001.infineon.com'
|
||||
Groups = RTI_LDAP_Groups_for_User(Username, Domain)
|
||||
|
||||
return
|
||||
* ValidUser = SRPLogonAPI_ValidateUser(Username, Password, Domain)
|
||||
* For Each Domain in Domains using ','
|
||||
* Start = GetTickCount()
|
||||
* ValidUser = SRPLogonAPI_ValidateUser(Username, Password, Domain)
|
||||
* Stop = GetTickCount()
|
||||
* Difference = Stop - Start
|
||||
* List<i, 1> = Domain
|
||||
* List<i, 2> = Difference
|
||||
* i=i+1
|
||||
*
|
||||
* Next Domain
|
||||
|
||||
i = 1
|
||||
For Each Domain in Domains using ','
|
||||
Start = GetTickCount()
|
||||
Groups = RTI_LDAP_Groups_for_User(Username, Domain)
|
||||
Stop = GetTickCount()
|
||||
Difference = Stop - Start
|
||||
List<i, 3> = Difference
|
||||
i=i+1
|
||||
|
||||
Next Domain
|
||||
Set_Property(@Window : '.TABLE_1', 'LIST', List)
|
||||
return 0
|
||||
35
LSL2/STPROC/ARRAY_SORT.txt
Normal file
35
LSL2/STPROC/ARRAY_SORT.txt
Normal file
@ -0,0 +1,35 @@
|
||||
compile subroutine array_sort( Array, SortOrder, Justification )
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function fieldcount
|
||||
declare subroutine v119
|
||||
$insert logical
|
||||
|
||||
NumFields = fieldcount( Array, @fm )
|
||||
NumValues = fieldcount( Array<1>, @vm )
|
||||
|
||||
TmpSort = ''
|
||||
for k = 1 to NumValues
|
||||
Tvar = ''
|
||||
for j = 1 TO NumFields
|
||||
Tvar := Array<J,K>:@vm
|
||||
next j
|
||||
Tvar[-1,1] = ''
|
||||
TmpSort<K> = Tvar
|
||||
next k
|
||||
|
||||
convert @fm to @rm in TmpSort
|
||||
convert @vm to @fm in TmpSort
|
||||
TmpSort := @rm
|
||||
v119('S', '', SortOrder, Justification, TmpSort, '')
|
||||
convert @fm to @vm in TmpSort
|
||||
convert @rm to @fm in TmpSort
|
||||
TmpSort[-1,1] = ''
|
||||
for j = 1 to NumValues
|
||||
for k = 1 to NumFields
|
||||
Array<k,j> = TmpSort<j,k>
|
||||
next k
|
||||
next j
|
||||
|
||||
107
LSL2/STPROC/AR_INV_EXP.txt
Normal file
107
LSL2/STPROC/AR_INV_EXP.txt
Normal file
@ -0,0 +1,107 @@
|
||||
compile function ar_inv_exp(Params,Manual)
|
||||
|
||||
declare function msg, dialog_box, fieldcount
|
||||
declare subroutine rlist,activate_save_select
|
||||
$insert rlist_equates
|
||||
$insert logical
|
||||
$insert invoice_equ
|
||||
$insert invoice_srl_equ
|
||||
equ CrLf$ to char(13):char(10)
|
||||
convert '*' to @fm in Params
|
||||
FromDate = Params<1>
|
||||
ThruDate = Params<2>
|
||||
DosTable = Params<3>
|
||||
open 'INVOICE' to InvoiceTable else
|
||||
Void = msg( '', 'Unable to open INVOICE...' )
|
||||
end
|
||||
TableToUse = 'INVOICE'
|
||||
oswrite '' on DosTable
|
||||
Tstat = status()
|
||||
if Tstat then
|
||||
Err = 'Bad operating system filename'
|
||||
Err<-1> = 'Access Denied'
|
||||
Err<-1> = 'Disk or Directory full'
|
||||
Err<-1> = 'Operating system error not defined elsewhere'
|
||||
Err<-1> = 'Attempt to write a read only file'
|
||||
Void = msg( '', Err<Tstat> )
|
||||
return 0
|
||||
end
|
||||
osopen DosTable to DosTableVar else
|
||||
Err = 'Bad operating system filename'
|
||||
Err<-1> = 'Access Denied'
|
||||
Err<-1> = 'File does not exist'
|
||||
Err<-1> = 'Undefined error'
|
||||
Void = msg( '', Err<status()> )
|
||||
return 0
|
||||
end
|
||||
BytePos = 0
|
||||
Cmd = "SELECT ":TableToUse:" BY SEQ WITH ENTRY_DATE FROM ":QUOTE(FromDate):" TO ":QUOTE(ThruDate)
|
||||
rlist( Cmd, target_activelist$, '', '', '' )
|
||||
*activate_save_select( 'BRYCE' )
|
||||
*DEBUG
|
||||
*USED WHEN ERROR DURING THE ENDOFMONTH
|
||||
NumKeys = @reccount
|
||||
Cnt = 0
|
||||
if @reccount then
|
||||
Cnt = 0
|
||||
NumKeys = @reccount
|
||||
Eof = false$
|
||||
loop
|
||||
readnext @id else Eof = true$
|
||||
until Eof
|
||||
read @record from InvoiceTable, @id else
|
||||
Void = msg( '', 'Unable to read ':@id:' from ':TableToUse )
|
||||
return 0
|
||||
end
|
||||
SalesTots = xlate( TableToUse, @id, 'GL_ACCT_TOTS', 'X' )
|
||||
CustName = xlate( TableToUse, @id, 'CUST_NAME', 'X' )
|
||||
InvoiceAmount = oconv( xlate( TableToUse, @id, 'INVOICE_AMOUNT', 'X' ), 'MD2,$' )
|
||||
Scnt = fieldcount( SalesTots, @vm )
|
||||
BlobOut = ''
|
||||
for i = 1 to Scnt
|
||||
ThisSalesTotLine = SalesTots<1,i>
|
||||
ThisSalesTotLine = trim( ThisSalesTotLine )
|
||||
if len( ThisSalesTotLine ) then
|
||||
SalesCode = field( ThisSalesTotLine, ' ', 1 )
|
||||
SalesCodeTot = field( ThisSalesTotLine, ' ', 2 )
|
||||
swap 'CM' with 'C' in @id ;* DUE TO MAS90
|
||||
BlobOut := quote(@id):',':quote(CustName):','
|
||||
*TCustNo = '41'
|
||||
*TCustNo = ''
|
||||
*TCustNo := oconv( @record<invoice_cust_no$>, 'R(0)#7' )
|
||||
BlobOut := quote(@record<invoice_cust_no$>):','
|
||||
BlobOut := quote(oconv(@record<invoice_entry_date$>, 'D2/')):','
|
||||
BlobOut := quote(oconv(@record<invoice_due_date$>, 'D2/')):','
|
||||
BlobOut := quote(@record<invoice_po$>):','
|
||||
BlobOut := quote(SalesCode):','
|
||||
BlobOut := quote(SalesCodeTot):','
|
||||
BlobOut := quote(InvoiceAmount):','
|
||||
BlobOut := quote(oconv( @record<invoice_discount_amount$>, 'MD2,$' ) )
|
||||
BlobOut := CrLf$
|
||||
end
|
||||
next i
|
||||
osbwrite BlobOut on DosTableVar AT BytePos
|
||||
Tstat = status()
|
||||
if Tstat then
|
||||
Err = 'Bad operating system filename'
|
||||
Err<-1> = 'Access Denied'
|
||||
Err<-1> = 'Disk or directory full'
|
||||
Err<-1> = 'File does not exist'
|
||||
Err<-1> = 'Undefined error'
|
||||
Err<-1> = 'Attempt to write a read only file'
|
||||
Err<-1> = 'Invalid beginning byte position'
|
||||
Void = msg( '', Err<Tstat> )
|
||||
return 0
|
||||
end
|
||||
BytePos += len( BlobOut )
|
||||
Cnt += 1
|
||||
Percent = oconv( iconv(Cnt/NumKeys, 'MD2'), 'MD0' ):'%'
|
||||
Void = send_info( Percent:' Complete Exporting...' )
|
||||
repeat
|
||||
end else
|
||||
if Manual then
|
||||
Void = msg('', "NO Records meeting your date criteria!!")
|
||||
end
|
||||
end
|
||||
osclose DosTableVar
|
||||
return 0
|
||||
30
LSL2/STPROC/ASSIGN_CAUSE_STATUS_CONV.txt
Normal file
30
LSL2/STPROC/ASSIGN_CAUSE_STATUS_CONV.txt
Normal file
@ -0,0 +1,30 @@
|
||||
SUBROUTINE ASSIGN_CAUSE_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
case ConvType = 'OCONV'
|
||||
begin case
|
||||
case DataIo = 'A'
|
||||
ReturnedValue = 'Active'
|
||||
case DataIo = 'I'
|
||||
ReturnedValue = 'Inactive'
|
||||
case Otherwise$
|
||||
ReturnedValue = ''
|
||||
end case
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
13
LSL2/STPROC/AUDIT.txt
Normal file
13
LSL2/STPROC/AUDIT.txt
Normal file
@ -0,0 +1,13 @@
|
||||
COMPILE Insert AUDIT
|
||||
|
||||
* Equates for COA table
|
||||
|
||||
EQU AUDIT_TABLENAME$ TO 0.1
|
||||
EQU AUDIT_USERNAME$ TO 0.2
|
||||
EQU AUDIT_DATE_TIME$ TO 0.3 ;* Record key is in parts 0.4 through 0.n
|
||||
|
||||
EQU AUDIT_ACTION$ TO 1 ;* New,Read, Write, Delete
|
||||
EQU AUDIT_FIELDS$ TO 2 ;* Field name
|
||||
EQU AUDIT_OLD_VALS$ TO 3 ;* Old values for each field
|
||||
EQU AUDIT_NEW_VALS$ TO 4 ;* New values for each field
|
||||
EQU AUDIT_ORG_RECORD TO 5 ;* complete record stored here on DELETE action
|
||||
209
LSL2/STPROC/AUDIT_MANAGER.txt
Normal file
209
LSL2/STPROC/AUDIT_MANAGER.txt
Normal file
@ -0,0 +1,209 @@
|
||||
Subroutine Audit_Manager(ID, Table, CurrentRecord, OrigRecord, Activity)
|
||||
|
||||
/***********************************************************************************************************************
|
||||
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
||||
permission from SRP Computer Solutions, Inc.
|
||||
|
||||
Name : Audit_Manager
|
||||
|
||||
Description : Updates the Audit table to track modifications of a record.
|
||||
|
||||
Notes : This process is normally called by the Audit_Manager_MFS. It handles all of the audit trail
|
||||
management logic.
|
||||
|
||||
Parameters :
|
||||
AutoSet [in] -- Allows automatic setting of the SYSTEM_MAINTENANCE record without user intervention.
|
||||
SysFlag [out] -- Returns True if the flag was set to stop people from logging in. Returns False if people
|
||||
are still allowed to log into the application.
|
||||
|
||||
ID [in] -- ID of the record.
|
||||
Table [in] -- Table name where the record being audited is stored.
|
||||
CurrentRecord [in/out] -- Current record as it will be written to disk. If the Activity is "Write" then the
|
||||
audit fields will be updated.
|
||||
OrigRecord [in] -- If called by Audit_Manager_MFS then this is the original record, otherwise this
|
||||
represents a marker for special audit tracking.
|
||||
Activity [in] -- Identifies the audit activity being performed: Read, Write, Delete, or anything else
|
||||
if called directly for special audit tracking.
|
||||
|
||||
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
05/19/05 axf Initial Program (Original Program MFS_Update_History).
|
||||
11/26/07 dmb Code clean-up and refactoring.
|
||||
04/05/13 dmb Repalce SECURITY_EQUATES with Memory Services to get login security. - [SRPFW-9]
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
$insert APP_INSERTS
|
||||
|
||||
Declare Subroutine Msg, Lock_Record
|
||||
Declare Function RetStack, Memory_Services
|
||||
|
||||
If Assigned(ID) else ID = ""
|
||||
If Assigned(Table) else Table = ""
|
||||
If Assigned(CurrentRecord) else CurrentRecord = ""
|
||||
If Assigned(OrigRecord) else OrigRecord = ""
|
||||
|
||||
AuditManagerTable = "APP_INFO"
|
||||
|
||||
Convert @Lower_Case to @Upper_Case In Table
|
||||
AuditTable = 'AUDIT_' : Table
|
||||
Username = @USERNAME
|
||||
|
||||
* Declare function GetNetworkUsername
|
||||
* If GetNetworkUsername() EQ "dbakke1" AND Activity _NEC "READ" then debug
|
||||
|
||||
Open AuditTable to HistoryCheck then
|
||||
RecordTracker = No$
|
||||
Locked_handle = ""
|
||||
Temp_activity = ""
|
||||
Success = ""
|
||||
Details = ""
|
||||
New = No$
|
||||
TrackActivity = No$
|
||||
|
||||
CallProgName = RetStack()<2>
|
||||
|
||||
Gosub App_Info
|
||||
|
||||
If TrackActivity EQ Yes$ then Gosub Main_Process
|
||||
End
|
||||
|
||||
Return
|
||||
|
||||
App_Info:
|
||||
Fields = ""
|
||||
Num_fields = 0
|
||||
Open AuditManagerTable to hAIT then
|
||||
ReadO App_record from hAIT, "AUDIT_MANAGER_SETTINGS" then
|
||||
Locate Table in App_record<1> using @VM setting vPos then
|
||||
Begin Case
|
||||
Case ID EQ ""
|
||||
// Do nothing.
|
||||
|
||||
Case CallProgName[1, 18] NE "AUDIT_MANAGER_MFS*"
|
||||
// Program is being called directly from a stored procedure.
|
||||
If App_record<6,vPos> EQ Yes$ Then
|
||||
If CurrentRecord NE "" Then
|
||||
TrackActivity = Yes$
|
||||
RecordTracker = Yes$ ; // Flag to indicate that special audit tracking is ocurring
|
||||
Marker = OrigRecord
|
||||
OrigRecord = CurrentRecord
|
||||
End
|
||||
End
|
||||
|
||||
Case Activity EQ "Write"
|
||||
If App_record<3,vPos> EQ Yes$ Then
|
||||
TrackActivity = Yes$
|
||||
Locate Table in App_record<1> using @VM setting Position then
|
||||
StartField = App_record<2, Position>
|
||||
If StartField Then
|
||||
CurrentRecord<StartField> = Username
|
||||
CurrentRecord<StartField + 1> = Date()
|
||||
CurrentRecord<StartField + 2> = Time()
|
||||
End
|
||||
End
|
||||
End
|
||||
|
||||
Case Activity EQ "Delete"
|
||||
If App_record<4,vPos> EQ Yes$ Then TrackActivity = Yes$
|
||||
|
||||
Case Activity EQ "Read"
|
||||
If App_record<5,vPos> EQ Yes$ Then TrackActivity = Yes$
|
||||
|
||||
End Case
|
||||
end else
|
||||
* Msg("|Unable to locate the ":Table:" information|in the Audit Manager Settings.|")
|
||||
end
|
||||
end else
|
||||
* Msg("|Unable to read the Audit Manager Settings Record.|")
|
||||
end
|
||||
end else
|
||||
* Msg("|Unable to open the App_Info Table.|")
|
||||
end
|
||||
return
|
||||
|
||||
|
||||
Main_Process:
|
||||
Lock_Record(AuditTable, Locked_handle, ID, Lock$, No$, Yes$, Success)
|
||||
If Success then
|
||||
Read AuditTrail from Locked_handle, ID then
|
||||
Num_items = Count(AuditTrail<1>, @VM) + (AuditTrail<1> NE "")
|
||||
* If Len(AuditTrail) GT 250000 then
|
||||
* For DelNumItems = 1 to 100
|
||||
* For Loop = 1 to 8
|
||||
* AuditTrail = Delete(AuditTrail, Loop, Num_items, 0)
|
||||
* Next Loop
|
||||
* Num_items -= 1
|
||||
* Next DelNumItems
|
||||
* end
|
||||
end else
|
||||
AuditTrail = ""
|
||||
New = Yes$
|
||||
end
|
||||
Current_date = Date()
|
||||
Current_time = Time()
|
||||
Seq = "DR"
|
||||
StationName = @Station
|
||||
MacAddress = ""
|
||||
|
||||
Locate Current_date in AuditTrail<1> by Seq Using @VM setting Pos else Null
|
||||
AuditTrail<1> = Insert(AuditTrail<1>, 1, Pos, 0, Current_Date)
|
||||
AuditTrail<2> = Insert(AuditTrail<2>, 1, Pos, 0, Current_Time)
|
||||
AuditTrail<3> = Insert(AuditTrail<3>, 1, Pos, 0, Username)
|
||||
AuditTrail<4> = Insert(AuditTrail<4>, 1, Pos, 0, StationName)
|
||||
AuditTrail<5> = Insert(AuditTrail<5>, 1, Pos, 0, MacAddress)
|
||||
AuditTrail<8> = Insert(AuditTrail<8>, 1, Pos, 0, Activity)
|
||||
AuditTrail<9> = "AUDIT TRACKING RECORD"
|
||||
|
||||
If RecordTracker EQ Yes$ Then
|
||||
// Special audit tracking is occuring. Store the current program
|
||||
// and the special marker in the audit trail entry.
|
||||
AuditTrail<6> = Insert(AuditTrail<6>, 1, Pos, 0, RetStack()<2>)
|
||||
AuditTrail<7> = Insert(AuditTrail<7>, 1, Pos, 0, Marker)
|
||||
AuditTrail<10> = "PROGRAM TRACKER"
|
||||
End Else
|
||||
AuditTrail<6> = Insert(AuditTrail<6>, 1, Pos, 0, "")
|
||||
AuditTrail<7> = Insert(AuditTrail<7>, 1, Pos, 0, "")
|
||||
AuditTrail<10> = AuditTrail<10>
|
||||
End
|
||||
|
||||
// Update the Audit Trail record.
|
||||
Write AuditTrail to Locked_handle, ID Then
|
||||
If Activity NE "Read" Then
|
||||
// Only create an audit record if the Activity isn't Read.
|
||||
AuditRecord = OrigRecord
|
||||
If MacAddress EQ "" Then MacAddress = @Station
|
||||
StoredRecId = ID:"*":MacAddress:"*":Current_Date:"*":Current_Time
|
||||
Write AuditRecord To Locked_handle, StoredRecId Then
|
||||
Read RecentlyUpdatedList from Locked_handle, "%RECENTLY_UPDATED%" Else
|
||||
RecentlyUpdatedList = ""
|
||||
End
|
||||
Locate ID in RecentlyUpdatedList using @FM setting UpdatePos Then
|
||||
RecentlyUpdatedList = Delete(RecentlyUpdatedList, UpdatePos, 0, 0)
|
||||
End
|
||||
If RecentlyUpdatedList EQ "" then
|
||||
RecentlyUpdatedList = ID
|
||||
End Else
|
||||
RecentlyUpdatedList = ID:@FM:RecentlyUpdatedList
|
||||
If Count(RecentlyUpdatedList, @FM) GT 499 then
|
||||
RecentlyUpdatedList = Field(RecentlyUpdatedList, @FM, 1, 500)
|
||||
end
|
||||
End
|
||||
Write RecentlyUpdatedList to Locked_handle, "%RECENTLY_UPDATED%" Else
|
||||
* Msg("|Unable to Write the record %RECENTLY_UPDATED%|to the ":AuditTable:".|")
|
||||
End
|
||||
End Else
|
||||
* Msg("|Unable to Write the record ":StoredRecId:"|to the ":AuditTable:".|")
|
||||
End
|
||||
End
|
||||
End Else
|
||||
* Msg("|Unable to Write the record ":ID:"|to the ":AuditTable:".|")
|
||||
End
|
||||
Lock_Record(AuditTable, Locked_handle, ID, Unlock$)
|
||||
End Else
|
||||
* Msg("|Unable to update ":AuditTable:" log.|")
|
||||
end
|
||||
return
|
||||
|
||||
264
LSL2/STPROC/AUDIT_MANAGER_MFS.txt
Normal file
264
LSL2/STPROC/AUDIT_MANAGER_MFS.txt
Normal file
@ -0,0 +1,264 @@
|
||||
Function Audit_Manager_MFS(Code, BFS, Handle, Name, FMC, Record, Status)
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
||||
// be copied without written permission from SRP Computer Solutions, Inc.
|
||||
//
|
||||
// Name : Audit_Manager_MFS
|
||||
//
|
||||
// Description: MFS for tracking the audit history of a particular record.
|
||||
//
|
||||
// Notes: This routine primarily passes all essential information into the Audit_Manager
|
||||
// stored procedure. This way changes to the core functionality can be made
|
||||
// without having to restart OpenInsight (which is necessary for changes directly
|
||||
// in MFS procedures.)
|
||||
//
|
||||
// A check is first made to see if corresponding audit table exists for the
|
||||
// database table that triggered this MFS. Audit tables use a naming convention
|
||||
// of AUDIT_Tablename. therefore, if the CUSTOMERS table is being audited then
|
||||
// there should be an AUDIT_CUSTOMERS table available. Audit features are managed
|
||||
// by the DBW_AUDIT_MANAGER form.
|
||||
//
|
||||
// Parameters:
|
||||
// Code [in] -- An integer value indicating the operation to be performed (1 = read a
|
||||
// record, 4 = delete a record, 11 = open a file, etc.)
|
||||
// BFS [in] -- The list of MFSs and the BFS name for the current file or volume. This
|
||||
// is a subvalue mark-delimited array, with the current MFS name as the
|
||||
// first value in the array, and the BFS name as the last value.
|
||||
// Handle [in] -- The file handle of the file or media map being accessed.
|
||||
// Name [in] -- The name (key) of the record or file being accessed.
|
||||
// FMC [in] -- Various functions.
|
||||
// Record [in] -- The entire record (for record-oriented functions) or a newly-created
|
||||
// handle (for "get handle" functions).
|
||||
// Status [in] -- A return code indicating the success or failure of an operation.
|
||||
//
|
||||
// History (Date, Initials, Notes)
|
||||
// 01/04/00 pcs Original programmer
|
||||
// 01/20/00 pcs CLEARFILE requires the Arev table name to be removed before processing
|
||||
// 05/20/05 axf Process will now also track the accessing of records.
|
||||
// 11/26/07 dmb Code clean-up. No functional changes were made.
|
||||
//
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
$insert APP_INSERTS
|
||||
$INSERT FILE.SYSTEM.EQUATES
|
||||
$INSERT FSERRORS_HDR
|
||||
|
||||
Declare Subroutine Msg, Audit_Manager
|
||||
|
||||
ON CODE GOSUB READ.RECORD,READO.RECORD,WRITE.RECORD,DELETE.RECORD,LOCK.RECORD,UNLOCK.RECORD,SELECT,READNEXT,CLEARSELECT,CLEARFILE,OPEN.FILE,CREATE.FILE,RENAME.FILE,MOVE.FILE,DELETE.FILE,OPEN.MEDIA,CREATE.MEDIA,READ.MEDIA,WRITE.MEDIA,UNLOCK.ALL,FLUSH,INSTALL,RESERVED,RESERVED,RESERVED,OMNI.SCRIPT,CLOSE.MEDIA,RECORD.COUNT, REMAKE.FILE,CREATE.INDEX,DELETE.INDEX,UPDATE.INDEX,SELECT.INDEX,READNEXT.INDEX
|
||||
|
||||
Return
|
||||
|
||||
READ.RECORD:
|
||||
// Added Check_Update_History Gosub
|
||||
Activity = "Read"
|
||||
GoSub Check_Update_History
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
READO.RECORD:
|
||||
// Added Check_Update_History Gosub
|
||||
Activity = "Read"
|
||||
GoSub Check_Update_History
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
CREATE.MEDIA:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
OPEN.MEDIA:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
READ.MEDIA:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
WRITE.MEDIA:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
CLOSE.MEDIA:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
CLEARFILE:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
CREATE.FILE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
DELETE.FILE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
MOVE.FILE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
OPEN.FILE:
|
||||
// Attaching Arev Table name to Handle for checking purposes
|
||||
GoSub Call_NextFS
|
||||
If Index(RECORD, @TM, 1) EQ 0 then
|
||||
RECORD = NAME:@TM:RECORD
|
||||
end
|
||||
return
|
||||
|
||||
REMAKE.FILE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
RENAME.FILE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
SELECT:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
READNEXT:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
CLEARSELECT:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
LOCK.RECORD:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
UNLOCK.RECORD:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
CREATE.INDEX:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
UPDATE.INDEX:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
DELETE.INDEX:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
SELECT.INDEX:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
READNEXT.INDEX:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
RESERVED:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
OMNI.SCRIPT:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
RECORD.COUNT:
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
LOCK.SEMAPHORE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
UNLOCK.SEMAPHORE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
SET.USER.SEMAPHORE:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
WRITE.RECORD:
|
||||
GoSub Prep_Vars
|
||||
Activity = "Write"
|
||||
GoSub Check_Update_History
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
DELETE.RECORD:
|
||||
Activity = "Delete"
|
||||
GoSub Check_Update_History
|
||||
GoSub Remove_Arev_Table_Name
|
||||
return
|
||||
|
||||
NEXT_FS:
|
||||
GoSub Call_NextFS
|
||||
return
|
||||
|
||||
// Install, unlock all and flush are called directly, no need to call next FS.
|
||||
INSTALL:
|
||||
STATUS = TRUE$
|
||||
return
|
||||
|
||||
FLUSH:
|
||||
STATUS = TRUE$
|
||||
return
|
||||
|
||||
UNLOCK.ALL:
|
||||
STATUS = TRUE$
|
||||
return
|
||||
|
||||
Prep_Vars:
|
||||
TempUseTable = Field(HANDLE, @TM, 1)
|
||||
UseTable = Field(TempUseTable, "*", 1)
|
||||
UseID = Name
|
||||
return
|
||||
|
||||
Check_Update_History:
|
||||
Temp_File_Name = Field(HANDLE, @TM, 1)
|
||||
FileName = Field(Temp_File_Name, "*", 1)
|
||||
Real_Handle = Field(HANDLE, @TM, 2)
|
||||
History_table = "AUDIT_":FileName
|
||||
Open History_table to HistoryCheck then
|
||||
GoSub Get_Original_Record
|
||||
Audit_Manager(Name, FileName, Record, OrigRecord, Activity)
|
||||
end
|
||||
return
|
||||
|
||||
Get_Original_Record:
|
||||
OrigRecord = ""
|
||||
CALL RTP57(READO.RECORD, "RTP57", Real_Handle, NAME, FMC, OrigRecord, Temp_status)
|
||||
// If Temp_status is Null then it is a new record or an error reading.
|
||||
return
|
||||
|
||||
Call_NextFS:
|
||||
FS = DELETE(BFS, 1, 1, 1)
|
||||
NEXTFS = FS<1, 1, 1>
|
||||
@FILE.ERROR = ""
|
||||
CALL @NEXTFS(CODE, FS, HANDLE, NAME, FMC, RECORD, STATUS)
|
||||
return
|
||||
|
||||
Remove_Arev_Table_Name:
|
||||
* FileName = Field(HANDLE, @TM, 1)
|
||||
* If FileName EQ HANDLE then
|
||||
* Real_Handle = HANDLE
|
||||
* end else
|
||||
* Real_Handle = Field(HANDLE, @TM, 2)
|
||||
* end
|
||||
FS = DELETE(BFS, 1, 1, 1)
|
||||
NEXTFS = FS<1, 1, 1>
|
||||
@FILE.ERROR = ""
|
||||
|
||||
If Index(FS, @SVM, 1) GT 0 then
|
||||
Real_Handle = HANDLE
|
||||
end else
|
||||
Real_Handle = Field(HANDLE, @TM, 2)
|
||||
end
|
||||
|
||||
CALL @NEXTFS(CODE, FS, Real_Handle, NAME, FMC, RECORD, STATUS)
|
||||
return
|
||||
73
LSL2/STPROC/AUTHENTICATE_LDAP.txt
Normal file
73
LSL2/STPROC/AUTHENTICATE_LDAP.txt
Normal file
@ -0,0 +1,73 @@
|
||||
function Authenticate_LDAP(void)
|
||||
|
||||
$Insert LOGICAL
|
||||
|
||||
/* equates for the base registry keys */
|
||||
equ HKEY_CLASSES_ROOT$ to 0x80000000
|
||||
equ HKEY_CURRENT_USER$ to 0x80000001
|
||||
equ HKEY_LOCAL_MACHINE$ to 0x80000002
|
||||
equ HKEY_USERS$ to 0x80000003
|
||||
equ HKEY_PERFORMANCE_DATA$ to 0x80000004
|
||||
equ HKEY_CURRENT_CONFIG$ to 0x80000005
|
||||
equ HKEY_DYN_DATA$ to 0x80000006
|
||||
equ KEY_QUERY_VALUE$ to 0x0001
|
||||
equ ERROR_SUCCESS to 0x0000
|
||||
|
||||
Declare subroutine Set_Property.Net, Utility, RegQueryValueEx, Msg, Create_User, RTI_Create_User_Details
|
||||
Declare Subroutine Set_Property
|
||||
Declare function Active_Directory_Services, RegOpenKeyEx, RTI_GetNetworkUserName, RegCloseKey
|
||||
Declare Function Database_Services
|
||||
|
||||
Log = @AppId<1>
|
||||
Oswrite Log to 'D:\Temp\auth.txt'
|
||||
|
||||
Authenticated = False$
|
||||
Options = 0
|
||||
SamDesired = KEY_QUERY_VALUE$
|
||||
KeyHandle = 0
|
||||
Hkey = HKEY_LOCAL_MACHINE$
|
||||
SubKey = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters":\00\
|
||||
Stat = 0
|
||||
Null = ''
|
||||
LockVariable KeyHandle as Long
|
||||
Stat = RegOpenKeyEx(Hkey, SubKey, Options, SamDesired, KeyHandle)
|
||||
If Stat = ERROR_SUCCESS Then
|
||||
Domain = str(\00\, 512)
|
||||
Reg_SZ = 1
|
||||
CbBuf = 512
|
||||
Key = "Domain":\00\
|
||||
RegQueryValueEx(KeyHandle, Key, 0, Reg_SZ, Domain, CbBuf)
|
||||
Domain = Domain[1, CbBuf - 1]
|
||||
end
|
||||
rv = RegCloseKey(KeyHandle)
|
||||
|
||||
UserADName = RTI_GetNetworkUserName()
|
||||
UserADGroups = Active_Directory_Services('GetADGroups', UserADName, Domain)
|
||||
**SSOInfo = Database_Services('ReadDataRow', 'SYSENV', 'CFG_LOGIN*':@AppId<1>)
|
||||
*SSOErrorMsg = SSOInfo<9>
|
||||
*SSOADGroups = Field(SSOInfo, @FM, 2, 3)
|
||||
SSOADGroups = Database_Services('ReadDataRow', 'SYSENV', 'SSO*LSL2')
|
||||
|
||||
For GroupIndex = 3 to 1 Step -1
|
||||
SSOADGroup = SSOADGroups<GroupIndex>
|
||||
If InList(UserADGroups, SSOADGroup, @FM) then
|
||||
@UserName = UserADName
|
||||
SecurityLevel = GroupIndex - 1
|
||||
@Admin = SecurityLevel
|
||||
Authenticated = True$
|
||||
Set_Property( "SYSTEM", "LOGININFO" , 'LSL2':@FM:UserADName:@FM:'')
|
||||
end
|
||||
Until Authenticated
|
||||
Next GroupIndex
|
||||
|
||||
Swap 1 With 'True' In Authenticated
|
||||
Swap 0 With 'False' In Authenticated
|
||||
Log := ', Authenticated ':Authenticated
|
||||
Oswrite Log to 'D:\Temp\auth.txt'
|
||||
|
||||
If Not(Authenticated) then
|
||||
Msg(@Window, 'SSO Error')
|
||||
Utility('DESTROY', 'SYSTEM')
|
||||
End
|
||||
|
||||
Return
|
||||
263
LSL2/STPROC/BATCH_WO_PURGE.txt
Normal file
263
LSL2/STPROC/BATCH_WO_PURGE.txt
Normal file
@ -0,0 +1,263 @@
|
||||
COMPILE FUNCTION Batch_WO_Purge(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for BATCH_WO_PURGE window (Purge groups of Work Orders and all affiliated data from the system)
|
||||
|
||||
02/16/2016 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status,Print_React_Read_Worksheet
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, obj_AppWindow,
|
||||
DECLARE SUBROUTINE End_Window,obj_React_Reads
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_WO_Log, WO_Purge, Set_Property
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
EQU COL$WO_NO TO 1
|
||||
EQU COL$CASS_CNT TO 2
|
||||
EQU COL$START TO 3
|
||||
EQU COL$STOP TO 4
|
||||
EQU COL$PER_BOX TO 5
|
||||
|
||||
ErrTitle = 'Error in Batch_WO_Purge commuter module'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.LU_WO' AND Event = 'CLICK' ; GOSUB LUWONo
|
||||
CASE EntID = @WINDOW:'.START_PURGE' AND Event = 'CLICK' ; GOSUB StartPurge
|
||||
CASE EntID = @WINDOW:'.DONE' AND Event = 'CLICK' ; GOSUB Close
|
||||
CASE EntID = @WINDOW:'.CLEAR' AND Event = 'CLICK' ; GOSUB Clear
|
||||
|
||||
CASE EntID = @WINDOW:'.WO_NO' AND Event = 'POSCHANGED' ; GOSUB WONoPC
|
||||
CASE EntID = @WINDOW:'.WO_NO' AND Event = 'CLICK' ; GOSUB WOClick
|
||||
CASE EntID = @WINDOW:'.WO_NO' AND Event = 'INSERTROW' ; GOSUB InsertRow
|
||||
CASE EntID = @WINDOW:'.WO_NO' AND Event = 'DELETEROW' ; GOSUB DeleteRow
|
||||
|
||||
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
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
EmptyCol = STR(@VM,90)
|
||||
|
||||
Array = ''
|
||||
|
||||
Array<COL$WO_NO> = EmptyCol
|
||||
Array<COL$CASS_CNT> = EmptyCol
|
||||
Array<COL$START> = EmptyCol
|
||||
Array<COL$STOP> = EmptyCol
|
||||
Array<COL$PER_BOX> = EmptyCol
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.WO_NO','DEFPROP',Array)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUWoNo:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
WOKeys = obj_WO_Log('Find')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = WOKeys
|
||||
TypeOver<PMODE$> = 'K'
|
||||
|
||||
WOKeys = Popup(@WINDOW,TypeOver,'WO_LOG_QUERY')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
IF WOKeys = '' THEN RETURN
|
||||
|
||||
WOCnt = COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
|
||||
CassCnts = XLATE('WO_LOG',WOKeys,'WO_MAT_CNT','X')
|
||||
|
||||
|
||||
WOArray = ''
|
||||
WOArray<COL$WO_NO> = WOKeys:@VM
|
||||
WOArray<COL$CASS_CNT> = CassCnts:@VM
|
||||
WOArray<COL$START> = STR(@VM,WOCnt)
|
||||
WOArray<COL$STOP> = STR(@VM,WOCnt)
|
||||
WOArray<COL$PER_BOX> = STR(@VM,WOCnt)
|
||||
|
||||
Set_Property(@WINDOW:'.WO_NO','DEFPROP',WOArray)
|
||||
|
||||
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WOClick:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WONoPC:
|
||||
* * * * * * *
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
InsertRow:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
DeleteRow:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
StartPurge:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CtrlEntID = @WINDOW:'.WO_NO'
|
||||
|
||||
WOList = Get_Property(@WINDOW:'.WO_NO','LIST')
|
||||
|
||||
SelPositions = Get_Property(@WINDOW:'.WO_NO','SELPOS') ;* Returns list of selected row numbers
|
||||
SelectedRows = SelPositions<2>
|
||||
|
||||
CONVERT @VM TO @FM in SelectedRows
|
||||
|
||||
SelCnt = COUNT(SelectedRows,@FM) + (SelectedRows NE '')
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
|
||||
SelectedRow = SelectedRows<I>
|
||||
WONo = WOList<SelectedRow,COL$WO_NO>
|
||||
|
||||
|
||||
StartTime = Time()
|
||||
|
||||
void = WO_Purge(WONo)
|
||||
|
||||
StopTime = Time()
|
||||
|
||||
BoxCnt = WOList<SelectedRow,COL$CASS_CNT>
|
||||
|
||||
IF StopTime = StartTime OR BoxCnt = 0 THEN
|
||||
PerBox = '-'
|
||||
END ELSE
|
||||
|
||||
PerBox = OCONV(ICONV((StopTime - StartTime)/BoxCnt,'MD2'),'MD2')
|
||||
|
||||
END
|
||||
|
||||
|
||||
Set_Property(CtrlEntID,'SELPOS',1:@FM:SelectedRow) ;* Clears selection in edit table line
|
||||
|
||||
stat = Send_Message(CtrlEntID,'COLOR_BY_POS',0,SelectedRow,RED$)
|
||||
Set_Property(CtrlEntID,'CELLPOS',OCONV(StartTime,'MTS'),COL$START:@FM:SelectedRow)
|
||||
Set_Property(CtrlEntID,'CELLPOS',OCONV(StopTime,'MTS'),COL$STOP:@FM:SelectedRow)
|
||||
Set_Property(CtrlEntID,'CELLPOS',PerBox,COL$PER_BOX:@FM:SelectedRow)
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
33
LSL2/STPROC/BOOLEAN_CONV.txt
Normal file
33
LSL2/STPROC/BOOLEAN_CONV.txt
Normal file
@ -0,0 +1,33 @@
|
||||
SUBROUTINE BOOLEAN_CONV(ConvType, DataIo, ReturnCode, ReturnedValue)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
|
||||
IF NOT(ASSIGNED(ReturnCode)) THEN ReturnCode = ''
|
||||
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
|
||||
case ConvType = 'OCONV'
|
||||
|
||||
If DataIO EQ '1' then
|
||||
Desc = 'Yes'
|
||||
end else
|
||||
Desc = ''
|
||||
end
|
||||
|
||||
ReturnedValue = Desc
|
||||
|
||||
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
70
LSL2/STPROC/BUILD_SAPSHIPREL_DATA.txt
Normal file
70
LSL2/STPROC/BUILD_SAPSHIPREL_DATA.txt
Normal file
@ -0,0 +1,70 @@
|
||||
COMPILE ROUTINE BUILD_SapShipRel_DATA(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Info, SetInitDirOptions, Send_Dyn, Set_Status
|
||||
|
||||
|
||||
DECLARE FUNCTION Get_Status,Security_Check, Set_Status
|
||||
DECLARE FUNCTION Repository, Send_Dyn
|
||||
|
||||
$INSERT COC_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT PART_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ShipNos = 97500:@VM:97600:@VM:96100
|
||||
|
||||
ShipCnt = 3
|
||||
|
||||
DEBUG
|
||||
|
||||
FOR I = 1 TO 1
|
||||
ShipNo = ShipNos<1,I>
|
||||
ShipRec = XLATE('COC',ShipNo,'','X')
|
||||
|
||||
WONo = ShipRec<COC_WO$>
|
||||
CassNos = ShipRec<COC_CASS_NO$>
|
||||
ProdOrdNo = 'M':FMT(WONo, "R(0)#6"):'.1'
|
||||
CassWfrQtys = XLATE('COC',ShipNo,'CASS_WAFER_CNT','X')
|
||||
|
||||
ShipRelease = ''
|
||||
|
||||
CassCnt = COUNT(CassNos,@VM) + (CassNos NE '')
|
||||
|
||||
FOR Cass = 1 TO CassCnt
|
||||
ShipRelLine = ShipNos<1,I>
|
||||
ShipRelLine<1,2> = ProdOrdNo
|
||||
ShipRelLine<1,3> = WONo
|
||||
ShipRelLine<1,4> = CassNos<1,Cass>
|
||||
ShipRelLine<1,5> = 'B':RND(1945)
|
||||
ShipRelLine<1,6> = CassWfrQtys<1,I>
|
||||
|
||||
ShipRelease<-1> = ShipRelLine
|
||||
|
||||
NEXT Cass
|
||||
|
||||
* * * * Write Work Order Release * * * *
|
||||
|
||||
ProdOrdRelease = 'M000010.1':@VM:'PO001TEST':@VM:'03/30/11':@VM:'737883':@VM:'516956-C-IR':@VM:'1':@VM:'100':CRLF$
|
||||
|
||||
SWAP @FM WITH CRLF$ IN ProdOrdRelease
|
||||
SWAP @VM WITH TAB$ IN ProdOrdRelease
|
||||
|
||||
|
||||
FullPath = 'C:\FTP_IN\ProdOrdRel\'
|
||||
FileName = 'PR':FMT(I,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE ProdORdRelease TO FullPath:FileName
|
||||
|
||||
|
||||
NEXT I
|
||||
|
||||
END
|
||||
|
||||
|
||||
483
LSL2/STPROC/BUILD_SAP_COMM_DATA.txt
Normal file
483
LSL2/STPROC/BUILD_SAP_COMM_DATA.txt
Normal file
@ -0,0 +1,483 @@
|
||||
COMPILE ROUTINE BUILD_SAP_COMM_DATA(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Info, SetInitDirOptions, Send_Dyn, Set_Status
|
||||
|
||||
|
||||
DECLARE FUNCTION Get_Status,Security_Check, Set_Status
|
||||
DECLARE FUNCTION Repository, Send_Dyn
|
||||
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT PART_EQUATES
|
||||
$INSERT COC_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
* Build Inbound Production Order records
|
||||
|
||||
|
||||
CurrPath = Drive()
|
||||
dummy = CurrPath[-1,'B\'] ;* Position of OpenInsight directory
|
||||
CurrPath = CurrPath[1,COL1()] ;* Path to level above OI directory
|
||||
|
||||
InBufferPath = CurrPath:'SAPComm\FromSAP\'
|
||||
|
||||
OutBufferPath = CurrPath:'SAPComm\ToSAP\'
|
||||
|
||||
OutBoundDirs = 'WOCreate':@FM
|
||||
OutBoundDirs := 'PromiseDt':@FM
|
||||
OutBoundDirs := 'WfrReject':@FM
|
||||
|
||||
|
||||
OutBoundDirs := 'CustTW':@FM
|
||||
OutBoundDirs := 'MUWafer':@FM
|
||||
|
||||
|
||||
OutBoundDirs := 'ProdTW':@FM
|
||||
|
||||
|
||||
OutBoundDirs := 'WOHold':@FM
|
||||
|
||||
OutBoundDirs := 'WOStart':@FM
|
||||
OutBoundDirs := 'WOStop'
|
||||
|
||||
|
||||
WONos = 148411:@FM ;* EpiPro
|
||||
WONos := 148406:@FM ;* Delphi 2 step 40 boxes
|
||||
WONos := 148381 ;* Captive
|
||||
|
||||
WOCnt = COUNT(WONos,@FM) + (WONos NE '')
|
||||
|
||||
ProdOrdSeq = 1
|
||||
|
||||
|
||||
FOR I = 1 TO WOCnt
|
||||
WONo = WONos<I>
|
||||
WORec = XLATE('WO_LOG',WONo,'','X')
|
||||
|
||||
OrderNo = WORec<WO_LOG_ORDER_NO$>
|
||||
CustPONo = XLATE('ORDER',OrderNo,41,'X') ;* 41 is PO_NO field
|
||||
|
||||
WORelRec = ''
|
||||
GoodsRecRec = ''
|
||||
ShipDocRec = ''
|
||||
CloseOrdRec = ''
|
||||
|
||||
ProdOrdNo = 'M':FMT(ProdOrdSeq, "R(0)#6"):'.1'
|
||||
|
||||
WOMatKeys = WORec<WO_LOG_WO_MAT_KEY$>
|
||||
|
||||
Pos = 1
|
||||
LOOP
|
||||
REMOVE WOMatKey FROM WOMatKeys AT Pos SETTING Flag
|
||||
WHILE Flag
|
||||
CassNo = WOMatKey[-1,'B*']
|
||||
|
||||
WOMatRec = XLATE('WO_MAT',WOMatKey,'','X')
|
||||
|
||||
PartNo = XLATE('WO_MAT',WOMatKey,'PART_NO_SAP','X')
|
||||
|
||||
WORelLine = ProdOrdNo ;* Production Order No
|
||||
WORelLine<1,2> = CustPONo ;* Customer PO No
|
||||
WORelLine<1,3> = OCONV(WORec<WO_LOG_PROMISE_SHIP_DT$>,'D4/') ;* Promise Ship Dt
|
||||
WORelLine<1,4> = PartNo ;* Mesa Part No
|
||||
WORelLine<1,5> = WOMatRec<WO_MAT_SUB_PART_NO$> ;* Substrate Part No
|
||||
WORelLine<1,6> = '{Substrate Revision No}' ;* Replace {Substrate Revision No} from SAP
|
||||
WORelLine<1,7> = WORec<WO_LOG_WO_QTY$> ;* Total Prod Order wafer qty
|
||||
|
||||
WORelRec<-1> = WORelLine
|
||||
|
||||
ShipDocLine = ProdOrdNo ;* Production Order No
|
||||
ShipDocLine<1,2> = '{SAP Ship No}' ;* Replace {SAP Ship No} with SAP Shipment No
|
||||
ShipDocLine<1,3> = CassNo ;* Cassette number
|
||||
ShipDocLine<1,4> = '{SAP Batch No}' ;* Replace {SAP Batch No} with SAP Batch No
|
||||
|
||||
ShipDocRec<-1> = ShipDocLine
|
||||
|
||||
|
||||
GoodsRecLine = ProdOrdNo ;* Production Order No
|
||||
GoodsRecLine<1,2> = CassNo ;* Cassette number
|
||||
GoodsRecLine<1,3> = '{SAP Batch No}' ;* SAP Batch No
|
||||
GoodsRecLine<1,4> = WOMatRec<WO_MAT_LOT_NO$> ;* Cassette Substrate Lot No
|
||||
|
||||
GoodsRecRec<-1> = GoodsRecLine
|
||||
|
||||
Send_Dyn(ProdOrdNo:' -> ':WOMatKey)
|
||||
|
||||
REPEAT
|
||||
|
||||
ProdOrdCloseFlag = 1
|
||||
|
||||
ProdOrdRec = ProdOrdNo:@VM:ProdOrdCloseFlag
|
||||
|
||||
PartRec = XLATE('PART',PartNo,'','X')
|
||||
|
||||
InPartRec = PartNo
|
||||
InPartRec<1,2> = PartRec<PART_DESC$>
|
||||
InPartRec<1,3> = PartRec<PART_CUST_NO$>
|
||||
InPartRec<1,4> = XLATE('PART',PartNo,'CUST_NAME','X')
|
||||
InPartRec<1,5> = XLATE('PART',PartNo,'CUST_TYPE','X')
|
||||
InPartRec<1,6> = PartRec<PART_CUST_PART_NO$>
|
||||
InPartRec<1,7> = PartRec<PART_SUB_PART_NO$>
|
||||
InPartRec<1,8> = PartRec<PART_SUB_TYPE$>
|
||||
InPartRec<1,9> = PartRec<PART_SUB_SUPPLIER$>
|
||||
InPartRec<1,10> = PartRec<PART_PURCH_SPEC$>
|
||||
InPartRec<1,11> = PartRec<PART_PURCH_SPEC_REV$>
|
||||
InPartRec<1,12> = PartRec<PART_REACT_TYPE$>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * Write Work Order Release * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN WORelRec
|
||||
SWAP @VM WITH TAB$ IN WORelRec
|
||||
|
||||
FullPath = InBufferPath:'ProdOrdRel\'
|
||||
FileName = 'PR':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE WORelRec TO FullPath:FileName
|
||||
|
||||
* * * * Write Goods Receipt * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN GoodsRecRec
|
||||
SWAP @VM WITH TAB$ IN GoodsRecRec
|
||||
|
||||
FullPath = InBufferPath:'GoodsRec\'
|
||||
FileName = 'GR':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE GoodsRecRec TO FullPath:FileName
|
||||
|
||||
* * * * Write Shipping Document Request * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN ShipDocRec
|
||||
SWAP @VM WITH TAB$ IN ShipDocRec
|
||||
|
||||
FullPath = InBufferPath:'ShipDoc\'
|
||||
FileName = 'SD':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE ShipDocRec TO FullPath:FileName
|
||||
|
||||
* * * * Write Order Close * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN ProdOrdRec
|
||||
SWAP @VM WITH TAB$ IN ProdOrdRec
|
||||
|
||||
FullPath = InBufferPath:'CloseOrder\'
|
||||
FileName = 'OC':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE ProdOrdRec TO FullPath:FileName
|
||||
|
||||
|
||||
* * * * Write Part No * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN InPartRec
|
||||
SWAP @VM WITH TAB$ IN InPartRec
|
||||
|
||||
FullPath = InBufferPath:'PartNo\'
|
||||
FileName = 'PN':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE InPartRec TO FullPath:FileName
|
||||
|
||||
FOR D = 1 TO 10
|
||||
OutBoundDir = OutBoundDirs<D>
|
||||
|
||||
BEGIN CASE
|
||||
CASE OutBoundDir = 'WOCreate'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
FileName = 'WOK':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:WONo:TAB$:'1':CRLF$
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
CASE OutBoundDir = 'PromiseDt'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'PD':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:OCONV(Date(),'D4/'):TAB$:OCONV(Date() + 10,'D4/'):CRLF$
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
*****************************************************************************
|
||||
|
||||
|
||||
* Inventory to Scrap WIP Prod Ord No : Qty (+/-) + => From WIP to Scrap, - => From Scrap to WIP
|
||||
|
||||
|
||||
|
||||
CASE OutBoundDir = 'WfrReject'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'WR':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
IF ProdOrdSeq = 1 THEN TestQty = '+3' ;* Remove from Production
|
||||
IF ProdOrdSeq = 2 THEN TestQty = '-13' ;* Add to Production (cancelled NCR)
|
||||
IF ProdOrdSeq = 3 THEN TestQty = '+25'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:TestQty:CRLF$
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
|
||||
|
||||
CASE OutBoundDir = 'ProdTW'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'PT':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
IF ProdOrdSeq = 1 THEN UseQty = '+1' ;* This is a usage in production
|
||||
IF ProdOrdSeq = 2 THEN UseQty = '-1' ;* This is a return from production to WIP
|
||||
IF ProdOrdSeq = 3 THEN UseQty = '+2'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:UseQty:CRLF$
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
|
||||
|
||||
************************************************************************************
|
||||
|
||||
|
||||
* Inventory Move transactions WIP Prod Ord No : MU Prod Ord NO : Qty (+/-) + => From WIP to MU, - => From MU to WIP
|
||||
|
||||
|
||||
CASE OutBoundDir = 'CustTW'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'CT':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
IF ProdOrdSeq = 1 THEN UseQty = '+1' ;* This is a usage in production
|
||||
IF ProdOrdSeq = 2 THEN UseQty = '-1' ;*This is a return from production to Cust Test Wafer Inentory
|
||||
IF ProdOrdSeq = 3 THEN UseQty = '+2'
|
||||
|
||||
|
||||
*OutRec = 'CUST':TAB$:To:TAB$:From:TAB$:Qty
|
||||
*OutRec = 'MU' :TAB$:To:TAB$:From:TAB$:Qty
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:'{Cust TW Part No}':TAB$:UseQty:CRLF$
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
CASE OutBoundDir = 'MUWafer'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'MW':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
IF ProdOrdSeq = 1 THEN UseQty = '+3' ;* This is Production to Makeup
|
||||
IF ProdOrdSeq = 2 THEN UseQty = '-5' ;* This is Unflag box OR use makeup in production cassette
|
||||
IF ProdOrdSeq = 3 THEN UseQty = '+6'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:'M':FMT(ProdOrdSeq+200, "R(0)#6"):'.1':TAB$:UseQty:CRLF$
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
|
||||
CASE OutBoundDir = 'WOHold'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'HLD':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
IF ProdOrdSeq = 1 THEN Flag = '1' ;* WO Placed on Hold
|
||||
IF ProdOrdSeq = 2 THEN Flag = '0' ;* WO Removed from Hold
|
||||
IF ProdOrdSeq = 3 THEN Flag = '1' ;* WO Placed on Hold
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:Flag:CRLF$
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
CASE OutBoundDir = 'WOStart'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'STR':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:'1':CRLF$
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
CASE OutBoundDir = 'WOStop'
|
||||
FullPath = OutBufferPath:OutBoundDir:'\'
|
||||
|
||||
FileName = 'STP':FMT(ProdOrdSeq,"R(0)#5"):'.tsv'
|
||||
|
||||
OutRec = ProdOrdNo:TAB$:'1':CRLF$
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE OutRec TO FullPath:FileName
|
||||
|
||||
|
||||
END CASE
|
||||
|
||||
NEXT D
|
||||
|
||||
|
||||
|
||||
ProdOrdSeq += 1
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
|
||||
|
||||
ShipNos = 97500:@VM:97600:@VM:96100
|
||||
|
||||
ShipCnt = 3
|
||||
|
||||
FOR I = 1 TO ShipCnt
|
||||
ShipNo = ShipNos<1,I>
|
||||
ShipRec = XLATE('COC',ShipNo,'','X')
|
||||
|
||||
WONo = ShipRec<COC_WO$>
|
||||
CassNos = ShipRec<COC_CASS_NO$>
|
||||
ProdOrdNo = 'M':FMT(WONo, "R(0)#6"):'.1'
|
||||
CassWfrQtys = XLATE('COC',ShipNo,'CASS_WAFER_CNT','X')
|
||||
|
||||
ShipRelease = ''
|
||||
|
||||
CassCnt = COUNT(CassNos,@VM) + (CassNos NE '')
|
||||
|
||||
FOR Cass = 1 TO CassCnt
|
||||
ShipRelLine = ShipNos<1,I>
|
||||
ShipRelLine<1,2> = ProdOrdNo
|
||||
ShipRelLine<1,3> = WONo
|
||||
ShipRelLine<1,4> = CassNos<1,Cass>
|
||||
ShipRelLine<1,5> = 'B':RND(1945)
|
||||
ShipRelLine<1,6> = CassWfrQtys<1,I>
|
||||
|
||||
ShipRelease<-1> = ShipRelLine
|
||||
|
||||
NEXT Cass
|
||||
|
||||
* * * * Write Work Order Release * * * *
|
||||
|
||||
SWAP @FM WITH CRLF$ IN ShipRelease
|
||||
SWAP @VM WITH TAB$ IN ShipRelease
|
||||
|
||||
|
||||
FullPath = CurrPath:'SAPComm\FromSAP\ShipRel\'
|
||||
FileName = 'SR':FMT(I,"R(0)#5"):'.tsv'
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSWRITE ShipRelease TO FullPath:FileName
|
||||
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
GOTO Bail
|
||||
|
||||
|
||||
CurrPath = Drive()
|
||||
dummy = CurrPath[-1,'B\'] ;* Position of OpenInsight directory
|
||||
CurrPath = CurrPath[1,COL1()] ;* Path to level above OI directory
|
||||
|
||||
OutBufferPath = CurrPath:'SAPComm\ToSAP\'
|
||||
InBufferPath = CurrPath:'SAPComm\FromSAP\'
|
||||
|
||||
|
||||
SetInitDirOptions('D-R-H')
|
||||
InitDir InBufferPath:"*.*"
|
||||
|
||||
|
||||
InFolders = FIELD(DirList(),@FM,3,99)
|
||||
|
||||
InFoldCnt = COUNT(Infolders,@FM) + (Infolders NE '')
|
||||
|
||||
FOR I = 1 TO InfoldCnt
|
||||
InFolder = InFolders<I>
|
||||
|
||||
InitDir InBufferPath:Infolder:'*.*'
|
||||
|
||||
LOOP
|
||||
FileList = DirList()
|
||||
UNTIL List = ""
|
||||
LOOP
|
||||
FileName = List[1,@FM]
|
||||
FileList[1,Col2()] = ""
|
||||
IF FileName[1,3] = 'ME1' THEN
|
||||
LOCATE FileName IN FileNames BY 'AR' USING @FM SETTING Pos ELSE
|
||||
FileNames = INSERT(FileNames,Pos,0,0,FileName)
|
||||
END
|
||||
END
|
||||
UNTIL List = ""
|
||||
REPEAT
|
||||
REPEAT
|
||||
|
||||
NEXT I
|
||||
|
||||
IF FileNames[-1,1] = @FM THEN FileNames[-1,1] = ''
|
||||
Test = ''
|
||||
FileCnt = COUNT(FileNames,@FM) + (FileNames NE '')
|
||||
|
||||
|
||||
FOR I = 1 TO FileCnt
|
||||
Send_Info('Processing ':I:' of ':FileCnt)
|
||||
FileName = FileNames<I>
|
||||
StartTime = Time()
|
||||
OSREAD FileIn FROM Path:FileName THEN
|
||||
|
||||
SWAP TAB$ WITH @VM IN FileIn
|
||||
SWAP CRLF$ WITH @FM IN FileIn
|
||||
DEBUG
|
||||
END
|
||||
NEXT I
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
39
LSL2/STPROC/CALCULATOR_RESRHO_VALID.txt
Normal file
39
LSL2/STPROC/CALCULATOR_RESRHO_VALID.txt
Normal file
@ -0,0 +1,39 @@
|
||||
compile subroutine calculator_resrho_valid(ConvType, DataIo, Branch, ReturnedValue)
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function msg, get_property, set_property
|
||||
declare subroutine update_index, extract_si_keys
|
||||
|
||||
$insert logical
|
||||
$insert msg_equates
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
equ CrLf$ to char(13):char(10)
|
||||
|
||||
* THIS IS SIMPLY TO CALCULATE RESISTIVITY NOT TO VALIDATE RESRHO FOR THE
|
||||
* CALCULATOR, CAUSE THERE IS NO SPEC
|
||||
|
||||
ReturnedValue = DataIo
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
Thickness = iconv( get_property( @window:'.THICKNESS_READINGS', 'ARRAY' ), 'MD2' )
|
||||
SheetRHO = get_property( @window:'.SHEETRHO_READINGS', 'ARRAY' )
|
||||
OffSet = str( '.001':@vm, 17 )
|
||||
OffSet[-1,1] = ''
|
||||
Res = oconv( SheetRHO *** Thickness *** OffSet, 'MD3' )
|
||||
swap '.000' with '' in Res
|
||||
Void = set_property( @window:'.RES_READINGS', 'ARRAY', Res )
|
||||
case ConvType = 'OCONV'
|
||||
* no output
|
||||
ReturnedValue = DataIo
|
||||
case otherwise$
|
||||
ReturnedValue = ''
|
||||
status() = invalid_conv$
|
||||
end case
|
||||
return
|
||||
14
LSL2/STPROC/CALC_ELAP.txt
Normal file
14
LSL2/STPROC/CALC_ELAP.txt
Normal file
@ -0,0 +1,14 @@
|
||||
compile function calc_elap(DateIn, TimeIn, DateOut, TimeOut)
|
||||
|
||||
Tot = 0
|
||||
if DateOut and DateIn then
|
||||
DateDiff = DateOut - DateIn
|
||||
SecondsToAdd = 0
|
||||
if DateDiff then
|
||||
SecondsToAdd = 86400*DateDiff
|
||||
end
|
||||
Tans = ( TimeOut + SecondsToAdd ) - TimeIn
|
||||
Tot = ( ( Tans /3600) *100 )
|
||||
end
|
||||
return Tot
|
||||
|
||||
267
LSL2/STPROC/CALC_WO_STATS.txt
Normal file
267
LSL2/STPROC/CALC_WO_STATS.txt
Normal file
@ -0,0 +1,267 @@
|
||||
FUNCTION Calc_WO_Stats(RDSNos)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RDS_LAYER_EQUATES
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
|
||||
* Must pass keys in the same work order and they must be delimited by @VM
|
||||
|
||||
IF RDSNos = '' THEN RETURN
|
||||
|
||||
RdsCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
|
||||
|
||||
WOStats = ''
|
||||
|
||||
* Get Readings from RDS_TEST records for each RDS
|
||||
|
||||
MetThickAvgs = ''
|
||||
MetResRHOAvgs = ''
|
||||
|
||||
ThickAvgLow = ''
|
||||
ThickAvgHigh = ''
|
||||
ThickAvgCount = 0
|
||||
ThickAvgSum = ''
|
||||
|
||||
ResRHOAvgLow = ''
|
||||
ResRHOAvgHigh = ''
|
||||
ResRHOAvgCount = 0
|
||||
ResRHOAvgSum = ''
|
||||
|
||||
|
||||
|
||||
FOR I = 1 to RdsCnt
|
||||
|
||||
RDSNo = RDSNos<1,I>
|
||||
|
||||
FirstLayerKey = RDSNo:'*L1'
|
||||
TestKeys = XLATE('RDS_LAYER',FirstLayerKey,RDS_LAYER_RDS_TEST_KEYS$,'X')
|
||||
|
||||
TestKey = TestKeys<1,1> ;* There may be multiple keys for each Epi Pro reactor zone - Take just the first for now
|
||||
MetrologyRec = XLATE('RDS_TEST',TestKey,'','X')
|
||||
|
||||
IF I = 1 THEN
|
||||
|
||||
SpecThickMin = MetrologyRec<RDS_TEST_SPEC_THICK_MIN$>
|
||||
SpecThickMax = MetrologyRec<RDS_TEST_SPEC_THICK_MAX$>
|
||||
SpecThickTarget = MetrologyRec<RDS_TEST_SPEC_THICK_TARGET$>
|
||||
|
||||
SpecResUnits = MetrologyRec<RDS_TEST_SPEC_RES_UNITS$>
|
||||
|
||||
SpecResMin = MetrologyRec<RDS_TEST_SPEC_RES_MIN$>
|
||||
SpecResMax = MetrologyRec<RDS_TEST_SPEC_RES_MAX$>
|
||||
SpecResTarget = MetrologyRec<RDS_TEST_SPEC_RES_TARGET$>
|
||||
|
||||
END
|
||||
|
||||
MetThickAvg = MetrologyRec<RDS_TEST_THICK_AVG$>
|
||||
|
||||
IF MetThickAvg <> "" THEN
|
||||
|
||||
MetThickAvgs<I> = MetThickAvg
|
||||
|
||||
ThickAvgCount += 1
|
||||
ThickAvgSum += MetThickAvg
|
||||
|
||||
IF ThickAvgLow = '' THEN ThickAvgLow = MetThickAvg
|
||||
IF ThickAvgHigh = '' THEN ThickAvgHigh = MetThickAvg
|
||||
|
||||
IF MetThickAvg < ThickAvgLow THEN ThickAvgLow = MetThickAvg
|
||||
IF MetThickAvg > ThickAvgHigh THEN ThickAvgHigh = MetThickAvg
|
||||
END
|
||||
|
||||
IF SpecResUnits = 'ê/Ü' THEN
|
||||
SpecResLabel = 'Sheet Rho'
|
||||
MetResRHOAvg = MetrologyRec<RDS_TEST_SHEETRHO_AVG$>
|
||||
END ELSE
|
||||
SpecResLabel = 'Resistivity'
|
||||
MetResRHOAvg = MetrologyRec<RDS_TEST_RES_AVG$>
|
||||
END
|
||||
|
||||
MetResRHOAvgs<I> = MetResRhoAvg
|
||||
|
||||
IF MetResRHOAvg <> "" THEN
|
||||
ResRHOAvgCount += 1
|
||||
ResRHOAvgSum += MetResRHOAvg
|
||||
|
||||
IF ResRHOAvgLow = '' THEN ResRHOAvgLow = MetResRHOAvg
|
||||
IF ResRHOAvgHigh = '' THEN ResRHOAvgHigh = MetResRHOAvg
|
||||
|
||||
IF MetResRHOAvg < ResRHOAvgLow THEN ResRHOAvgLow = MetResRHOAvg
|
||||
IF MetResRHOAvg > ResRHOAvgHigh THEN ResRHOAvgHigh = MetResRHOAvg
|
||||
END
|
||||
|
||||
NEXT I
|
||||
if @UserName EQ 'DAN_CR' Then Debug
|
||||
//DPC - 3/11/2020 - hack to account for formatting/conversion issue in Thick Vals from RDS_Test
|
||||
IF ThickAvgCount > 0 THEN
|
||||
StatThickAvg = (ThickAvgSum/ThickAvgCount)*10
|
||||
WOStats<1,1> = OCONV( StatThickAvg, 'MD3' )
|
||||
END ELSE
|
||||
StatThickAvg = 0
|
||||
END
|
||||
|
||||
|
||||
* * * Standard Deviation * * * *
|
||||
|
||||
SumDiffSq = 0
|
||||
ThickMean = ''
|
||||
ThickStDev = 0
|
||||
|
||||
IF ThickAvgSum and ThickAvgCount THEN
|
||||
ThickMean = ThickAvgSum/ThickAvgCount
|
||||
END ELSE
|
||||
ThickMean = 0
|
||||
END
|
||||
|
||||
FOR I = 1 TO RdsCnt
|
||||
MetThickAvg = MetThickAvgs<I>
|
||||
IF MetThickAvg <> "" THEN
|
||||
SumDiffSq += ( MetThickAvg - ThickMean ) * ( MetThickAvg - ThickMean )
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF SumDiffSq AND ThickAvgCount THEN
|
||||
ThickStDev = (SQRT( SumDiffSq/(ThickAvgCount-1) )) * 10
|
||||
WOStats<1,3> = OCONV( ThickStDev, 'MD3' )
|
||||
END
|
||||
|
||||
* Minimum and Maximum
|
||||
|
||||
IF ThickAvgHigh <> 0 THEN WOStats<1,5> = OCONV( ThickAvgHigh, 'MD2' ) ELSE WOStats<1,5> = ''
|
||||
IF ThickAvgLow <> 0 THEN WOStats<1,7> = OCONV( ThickAvgLow, 'MD2') ELSE WOStats<1,7> = ''
|
||||
|
||||
* Uniformity
|
||||
|
||||
IF ThickAvgHigh and ThickAvgLow THEN
|
||||
WOStats<1,9> = OCONV(((ThickAvgHigh - ThickAvgLow)/(ThickAvgHigh + ThickAvgLow))*10000, 'MD2' )
|
||||
END
|
||||
|
||||
ThickCp = 0
|
||||
TThickCPK = 0
|
||||
|
||||
* Thickness Cp
|
||||
|
||||
IF SpecThickMin and SpecThickMax and ThickStdev THEN
|
||||
ThickCp = ((SpecThickMax-SpecThickMin)/(6*ThickStdev))*1000
|
||||
WOStats<1,11> = OCONV( ThickCp, 'MD3' )
|
||||
END
|
||||
|
||||
* Thickness CpK
|
||||
|
||||
IF ThickCp AND (ABS(SpecThickTarget-StatThickAvg)) AND (SpecThickMax-SpecThickMin) THEN
|
||||
TThickCPK = ThickCp*(1-((ABS(SpecThickTarget-StatThickAvg))/((SpecThickMax-SpecThickMin)/2)))
|
||||
WOStats<1,13> = OCONV( TThickCPK, 'MD3' )
|
||||
END
|
||||
|
||||
* Sigma Capabilities
|
||||
|
||||
WOStats<1,15> = OCONV( ThickCP*3, 'MD3' ) ;* WOStats<1,11>*3
|
||||
|
||||
* Sigma Level
|
||||
|
||||
WOStats<1,17> = OCONV( TThickCPK*3, 'MD3' ) ;* WOStats<1,13>*3
|
||||
|
||||
|
||||
* * * * * * *
|
||||
* Resistivity Calculations
|
||||
* * * * * * *
|
||||
|
||||
* * * Average * * *
|
||||
|
||||
IF ResRHOAvgCount THEN
|
||||
StatResRHOAvg = ResRHOAvgSum/ResRHOAvgCount
|
||||
IF SpecResUnits = 'ê/Ü' THEN
|
||||
WOStats<1,2> = OCONV( StatResRHOAvg, 'MD3' )
|
||||
END ELSE
|
||||
WOStats<1,2> = OCONV( StatResRHOAvg, 'MD4' )
|
||||
END
|
||||
END ELSE
|
||||
StatResRHOAvg = 0
|
||||
END
|
||||
|
||||
|
||||
* * * StDev * * *
|
||||
|
||||
SumDiffSq = 0
|
||||
ResRHOStDev = 0
|
||||
|
||||
IF ResRHOAvgSum AND ResRHOAvgCount THEN
|
||||
ResMean = ResRHOAvgSum/ResRHOAvgCount
|
||||
END ELSE
|
||||
ResMean = 0
|
||||
END
|
||||
|
||||
FOR I = 1 to RdsCnt
|
||||
MetResRHOAvg = MetResRHOAvgs<I>
|
||||
IF MetResRHOAvg <> "" AND MetResRHOAvg <> 0 THEN
|
||||
*SumDiffSq += ( MetResRHOAvg - ResMean )**2
|
||||
SumDiffSq += ( MetResRHOAvg - ResMean ) * ( MetResRHOAvg - ResMean )
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF SumDiffSq AND ResRHOAvgCount THEN
|
||||
ResRHOStDev = SQRT( SumDiffSq/(ResRHOAvgCount-1) )
|
||||
WOStats<1,4> = OCONV( ResRHOStDev, 'MD3' )
|
||||
END
|
||||
|
||||
* * * Minimum and Maximum * * *
|
||||
|
||||
IF ResRHOAvgHigh <> 0 THEN
|
||||
IF SpecResUnits = 'ê/Ü' THEN
|
||||
WOStats<1,6> = OCONV( ResRHOAvgHigh, 'MD3' )
|
||||
END ELSE
|
||||
WOStats<1,6> = OCONV( ResRHOAvgHigh, 'MD4' )
|
||||
END
|
||||
END ELSE
|
||||
WOStats<1,6> = ''
|
||||
END
|
||||
IF ResRHOAvgLow <> 0 THEN
|
||||
IF SpecResUnits = 'ê/Ü' THEN
|
||||
WOStats<1,8> = OCONV( ResRHOAvgLow, 'MD3' )
|
||||
END ELSE
|
||||
WOStats<1,8> = OCONV( ResRHOAvgLow, 'MD4' )
|
||||
END
|
||||
END ELSE
|
||||
WOStats<1,8> = ''
|
||||
END
|
||||
|
||||
|
||||
* * * uniformity * * *
|
||||
|
||||
IF ( ResRHOAvgHigh - ResRHOAvgLow ) and ( ResRHOAvgHigh + ResRHOAvgLow ) THEN
|
||||
WOStats<1,10>= OCONV(((ResRHOAvgHigh - ResRHOAvgLow)/(ResRHOAvgHigh + ResRHOAvgLow))*10000, 'MD2' )
|
||||
END
|
||||
|
||||
ResRHOCp = 0
|
||||
TResCPK = 0
|
||||
|
||||
* * * Cp * * *
|
||||
|
||||
IF SpecResMin and SpecResMax and ResRHOStdev THEN
|
||||
ResRHOCp = ((SpecResMax-SpecResMin)/(6*ResRHOStdev))*1000
|
||||
WOStats<1,12> = OCONV( ResRHOCp, 'MD3' )
|
||||
END
|
||||
|
||||
* * * CpK * * *
|
||||
|
||||
IF (ABS(SpecResTarget-StatResRHOAvg)) AND ( SpecResMax-SpecResMin ) THEN
|
||||
TResCPK = ( ResRHOCp*(1-((ABS(SpecResTarget-StatResRHOAvg))/((SpecResMax-SpecResMin)/2))) )
|
||||
IF TResCPK <> 0 THEN
|
||||
WOStats<1,14> = OCONV( TResCPK, 'MD3' )
|
||||
END ELSE
|
||||
WOStats<1,14> = ''
|
||||
END
|
||||
END
|
||||
|
||||
* resistivity sigma capabilities
|
||||
|
||||
WOStats<1,16> = OCONV( ResRHOCp*3, 'MD3' ) ;* WOStats<1,12>*3
|
||||
|
||||
|
||||
* thickness and resistivity sigma level
|
||||
|
||||
WOStats<1,18> = OCONV( TResCPK*3, 'MD3' ) ;* WOStats<1,14>*3
|
||||
|
||||
|
||||
RETURN WOStats
|
||||
203
LSL2/STPROC/CALIBRATION.txt
Normal file
203
LSL2/STPROC/CALIBRATION.txt
Normal file
@ -0,0 +1,203 @@
|
||||
COMPILE FUNCTION Calibration(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for CALIBRATION (Calibrations) window
|
||||
|
||||
3/17/2010 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI
|
||||
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT CALIBRATION_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Clean_Insp'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CLEAR' ; GOSUB Clear
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
CASE Event = 'READ' ; GOSUB Read
|
||||
CASE Event = 'WRITE' ; GOSUB Write
|
||||
CASE Event[1,3] = 'QBF' ; GOSUB Refresh
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.CAL_DT' AND Event = 'GOTFOCUS' ; GOSUB CalDtGF
|
||||
CASE EntID = @WINDOW:'.LU_CAL_DT' AND Event = 'CLICK' ; GOSUB LUCalDt
|
||||
|
||||
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:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
IF NOT(Security_Check('Reactor Event Log',READ$)) THEN
|
||||
Security_Err_Msg('Reactor Event Log',READ$)
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
*/
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
|
||||
|
||||
* 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
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
IF Get_Property(@WINDOW,'@READONLY') THEN
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
Set_Property(@WINDOW,'@READONLY',0) ;* Clear flag on window
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* 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>
|
||||
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 I
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
|
||||
Result = 1
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('DetailReturn')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
IF Security_Check('Order',Delete$) THEN
|
||||
Result = 1 ;* Proceed with delete
|
||||
END ELSE
|
||||
Security_Err_Msg('Order',Delete$)
|
||||
Result = 0 ;* Stop event chain
|
||||
END
|
||||
*/
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CalDtGF:
|
||||
* * * * * * *
|
||||
|
||||
CurrDt = Get_Property(@WINDOW:'.CAL_DT','DEFPROP')
|
||||
|
||||
IF CurrDt = '' THEN GOSUB LUCalDt
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCalDt:
|
||||
* * * * * * *
|
||||
|
||||
ReturnVal = OCONV(Dialog_Box("POPUP_MONTH",@WINDOW),'D4/')
|
||||
|
||||
obj_Appwindow('LUValReturn',ReturnVal:@RM:@WINDOW:'.CAL_DT':@RM:'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
187
LSL2/STPROC/CALIBRATION_SERVICES.txt
Normal file
187
LSL2/STPROC/CALIBRATION_SERVICES.txt
Normal file
@ -0,0 +1,187 @@
|
||||
Compile function Calibration_Services(@Service, @Params)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$Insert LOGICAL
|
||||
$Insert SERVICE_SETUP
|
||||
$Insert CALIB_LIST_EQUATES
|
||||
|
||||
EQU COL$CL_NO TO 1
|
||||
EQU COL$DEPT TO 2
|
||||
EQU COL$EQ_INSTRUMENT TO 3
|
||||
EQU COL$EQ_SN TO 4
|
||||
EQU COL$EQ_LOC TO 5
|
||||
EQU COL$EQ_CAL_INT TO 6
|
||||
EQU COL$EQ_INT_EXT TO 7
|
||||
EQU COL$EQ_LAST_CAL TO 8
|
||||
EQU COL$EQ_NEXT_CAL TO 9
|
||||
|
||||
EQU COL$NIST_STANDARD TO 3
|
||||
EQU COL$NIST_TSN TO 4
|
||||
EQU COL$NIST_LOC TO 5
|
||||
EQU COL$NIST_CAL_INT TO 6
|
||||
EQU COL$NIST_INT_EXT TO 7
|
||||
EQU COL$NIST_LAST_CAL TO 8
|
||||
EQU COL$NIST_NEXT_CAL TO 9
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Service Parameter Options
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
Options BOOLEAN = True$, False$
|
||||
Options CALIB_TYPES = 'Equipment', 'NIST'
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// SERVICES
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Service GetCalibListData(CalibType=CALIB_TYPES, SelectActive=BOOLEAN)
|
||||
|
||||
If SelectActive EQ '' then SelectActive = False$
|
||||
CalibListData = ''
|
||||
ErrorMsg = ''
|
||||
Begin Case
|
||||
Case CalibType EQ 'Equipment'
|
||||
|
||||
OPEN 'CALIB_LIST' TO TableIn then
|
||||
|
||||
If SelectActive EQ False$ then
|
||||
SELECT TableIn
|
||||
* end else
|
||||
* Select 'CALIB_LIST' By "" Using Cursor else
|
||||
* ErrorMsg = 'Error in ':Service:' service. Error selecting CALIB_LIST records.'
|
||||
* end
|
||||
end
|
||||
|
||||
If ErrorMsg EQ '' then
|
||||
|
||||
EquipList = ''
|
||||
EquipDescs = ''
|
||||
Done = False$
|
||||
Today = Date()
|
||||
|
||||
LOOP
|
||||
|
||||
READNEXT CLNo ELSE Done = True$
|
||||
|
||||
UNTIL Done
|
||||
READ CalRec FROM TableIn,CLNo THEN
|
||||
|
||||
NextCalDt = XLATE('CALIB_LIST',CLNo,'NEXT_CAL_DT','X')
|
||||
|
||||
IF CalRec<CALIB_LIST_CL_TYPE$> = 'E' THEN
|
||||
|
||||
EquipDesc = CalRec<CALIB_LIST_EQ_DESC$>
|
||||
Dept = CalRec<CALIB_LIST_DEPT$>
|
||||
|
||||
IF EquipDesc NE '' THEN
|
||||
|
||||
SortKey = Dept:'*':EquipDesc:'*':CLNo
|
||||
|
||||
LOCATE SortKey IN EquipDescs BY 'AL' SETTING Pos ELSE
|
||||
|
||||
EquipDescs = INSERT(EquipDescs,1,Pos,0,SortKey)
|
||||
|
||||
EquipLine = CLNo
|
||||
EquipLine<1,COL$DEPT> = Dept
|
||||
EquipLine<1,COL$EQ_INSTRUMENT> = CalRec<CALIB_LIST_EQ_DESC$>
|
||||
EquipLine<1,COL$EQ_SN> = CalRec<CALIB_LIST_EQ_SN$>
|
||||
EquipLine<1,COL$EQ_LOC> = CalRec<CALIB_LIST_EQ_LOC$>
|
||||
EquipLine<1,COL$EQ_CAL_INT> = CalRec<CALIB_LIST_CAL_INTERVAL$>
|
||||
EquipLine<1,COL$EQ_INT_EXT> = CalRec<CALIB_LIST_CAL_LOC$>
|
||||
EquipLine<1,COL$EQ_LAST_CAL> = OCONV(XLATE('CALIB_LIST',CLNo,'LAST_CAL_DT','X'),'D4/')
|
||||
EquipLine<1,COL$EQ_NEXT_CAL> = OCONV(NextCalDt,'D4/')
|
||||
|
||||
EquipList = INSERT(EquipList,Pos,0,0,EquipLine)
|
||||
|
||||
END ;* End of LOCATE SortKey
|
||||
|
||||
END ;* End of check for Null EquipDesc
|
||||
|
||||
END;* End of check for CL_TYPE = 'E'
|
||||
|
||||
END ;* End of CalRec read
|
||||
REPEAT
|
||||
CalibListData = EquipList
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Unable to open "CALIB_LIST" table.'
|
||||
end
|
||||
|
||||
Case CalibType EQ 'NIST'
|
||||
|
||||
OPEN 'CALIB_LIST' TO TableIn then
|
||||
|
||||
If SelectActive EQ False$ then
|
||||
SELECT TableIn
|
||||
* end else
|
||||
* Select 'CALIB_LIST' By "" Using Cursor else
|
||||
* ErrorMsg = 'Error in ':Service:' service. Error selecting CALIB_LIST records.'
|
||||
* end
|
||||
end
|
||||
|
||||
If ErrorMsg EQ '' then
|
||||
|
||||
NISTList = ''
|
||||
StdDescs = ''
|
||||
Done = False$
|
||||
Today = Date()
|
||||
|
||||
LOOP
|
||||
|
||||
READNEXT CLNo ELSE Done = True$
|
||||
|
||||
UNTIL Done
|
||||
READ CalRec FROM TableIn,CLNo THEN
|
||||
|
||||
NextCalDt = XLATE('CALIB_LIST',CLNo,'NEXT_CAL_DT','X')
|
||||
|
||||
IF CalRec<CALIB_LIST_CL_TYPE$> = 'S' THEN
|
||||
StdDesc = CalRec<CALIB_LIST_STD_DESC$>
|
||||
Dept = CalRec<CALIB_LIST_DEPT$>
|
||||
|
||||
IF StdDesc NE '' THEN
|
||||
|
||||
SortKey = Dept:'*':StdDesc:'*':CLNo
|
||||
|
||||
LOCATE SortKey IN StdDescs BY 'AL' SETTING Pos ELSE
|
||||
|
||||
StdDescs = INSERT(StdDescs,1,Pos,0,SortKey)
|
||||
|
||||
NISTLine = CLNo
|
||||
NISTLine<1,COL$DEPT> = CalRec<CALIB_LIST_DEPT$>
|
||||
NISTLine<1,COL$NIST_STANDARD> = CalRec<CALIB_LIST_STD_DESC$>
|
||||
NISTLine<1,COL$NIST_TSN> = CalRec<CALIB_LIST_STD_SN$>
|
||||
NISTLine<1,COL$NIST_LOC> = CalRec<CALIB_LIST_STD_LOC$>
|
||||
NISTLine<1,COL$NIST_CAL_INT> = CalRec<CALIB_LIST_CAL_INTERVAL$>
|
||||
NISTLine<1,COL$NIST_INT_EXT> = CalRec<CALIB_LIST_CAL_LOC$>
|
||||
NISTLine<1,COL$NIST_LAST_CAL> = OCONV(XLATE('CALIB_LIST',CLNo,'LAST_CAL_DT','X'),'D4/')
|
||||
NISTLine<1,COL$NIST_NEXT_CAL> = OCONV(NextCalDt,'D4/')
|
||||
|
||||
NISTList = INSERT(NISTList,Pos,0,0,NISTLine)
|
||||
|
||||
END ;* End of LOCATE SortKey
|
||||
|
||||
END ;* End of check for Null StdDesc
|
||||
|
||||
END ;* End of check for CL_TYPE = 'S'
|
||||
END ;* End of CalRec read
|
||||
REPEAT
|
||||
CalibListData = NistList
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Unable to open "CALIB_LIST" table.'
|
||||
end
|
||||
|
||||
Case Otherwise$
|
||||
ErrorMsg = 'Error in ':Service:' service. Null CalibType passed into service'
|
||||
End Case
|
||||
|
||||
If ErrorMsg NE '' then Error_Services('Add', ErrorMsg)
|
||||
Response = CalibListData
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
345
LSL2/STPROC/CALIB_LIST.txt
Normal file
345
LSL2/STPROC/CALIB_LIST.txt
Normal file
@ -0,0 +1,345 @@
|
||||
COMPILE FUNCTION Calib_List(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for CALIB_LIST (Calibration List) window
|
||||
|
||||
02/3/2010 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event, Set_List_Box_Data
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI, NextKey, MemberOf
|
||||
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT CALIB_LIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
EQU COL$CAL_DT TO 1
|
||||
EQU COL$CAL_BY TO 2
|
||||
EQU COL$CAL_NOTE TO 3
|
||||
|
||||
|
||||
ErrTitle = 'Error in Calib_List routine'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CLEAR' ; GOSUB Clear
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'READ' ; GOSUB Read
|
||||
CASE Event = 'WRITE' ; GOSUB Write
|
||||
CASE Event[1,3] = 'QBF' ; GOSUB Refresh
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.NEW_ITEM' AND Event = 'CLICK' ; GOSUB NewItem
|
||||
CASE EntID = @WINDOW:'.LU_CL_NO' AND Event = 'CLICK' ; GOSUB LUCalibItem
|
||||
CASE EntID = @WINDOW:'.LU_CL_TYPE' AND Event = 'CLICK' ; GOSUB LUCalibItemType
|
||||
CASE EntID = @WINDOW:'.LU_CL_LOC' AND Event = 'CLICK' ; GOSUB LUCalibItemLoc
|
||||
CASE EntID = @WINDOW:'.CALIBRATIONS' AND Event = 'DBLCLK' ; GOSUB CalibrationsDC
|
||||
CASE EntID = @WINDOW:'.NEW_CALIBRATION' AND Event = 'CLICK' ; GOSUB NewCalibClick
|
||||
|
||||
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:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
IF MemberOf(@USER4,'CALIBRATION') OR @USERNAME = 'BRYCE_BARB' ELSE
|
||||
ErrMsg('Only authorized personnel may update the Calibration List.')
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
Set_List_Box_Data( @WINDOW )
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
IF Get_Property(@WINDOW,'@READONLY') THEN
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
Set_Property(@WINDOW,'@READONLY',0) ;* Clear flag on window
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* 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>
|
||||
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,Line>,@SVM) + (ETCols<1,Line> NE '')
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',ETCols<1,Line,N>,Line,GREEN$)
|
||||
NEXT N
|
||||
END
|
||||
NEXT Line
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
CLNo = Get_Property(@WINDOW:'.CL_NO','DEFPROP')
|
||||
|
||||
IF RowExists('CALIB_LIST',CLNo) ELSE
|
||||
IF Get_Property(@WINDOW:'.ENTER_DTM','DEFPROP') = '' THEN
|
||||
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTH')
|
||||
Set_Property(@WINDOW:'.ENTER_DTM','DEFPROP',CurrDTM)
|
||||
END
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
ParentVis = Get_Property('NDW_MASTER_CALIB_LIST', 'VISIBLE')
|
||||
If ParentVis then Post_Event('NDW_MASTER_CALIB_LIST', 'OMNIEVENT')
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
IF Security_Check('Order',Delete$) THEN
|
||||
Result = 1 ;* Proceed with delete
|
||||
END ELSE
|
||||
Security_Err_Msg('Order',Delete$)
|
||||
Result = 0 ;* Stop event chain
|
||||
END
|
||||
*/
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NewItem:
|
||||
* * * * * * *
|
||||
|
||||
CLNo = Get_Property(@WINDOW:'.CL_NO','DEFPROP')
|
||||
|
||||
IF CLNo = '' THEN
|
||||
NextCLNo = NextKey('CALIB_LIST')
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextCLNo)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCalibItem:
|
||||
* * * * * * *
|
||||
|
||||
CLKeys = Popup(@WINDOW,'','CALIB_LIST')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
CONVERT @VM TO @FM IN CLKeys
|
||||
|
||||
IF INDEX(CLKeys,@FM,1) THEN
|
||||
Send_Event(@WINDOW,'QBFINIT')
|
||||
Set_Property(@WINDOW,'QBFLIST',CLKeys)
|
||||
GOSUB Refresh
|
||||
Send_Event(@WINDOW,'QBFIRST')
|
||||
END ELSE
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:CLKeys)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCalibItemType:
|
||||
* * * * * * *
|
||||
|
||||
CLItemType = Popup(@WINDOW,'','CALIB_LIST_TYPE')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF CLItemType NE '' THEN
|
||||
obj_AppWindow('LUValReturn',CLItemType:@RM:@WINDOW:'.CL_TYPE')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCalibItemLoc:
|
||||
* * * * * * *
|
||||
|
||||
CLItemLoc = Popup(@WINDOW,'','CALIB_LIST_LOC')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF CLItemLoc NE '' THEN
|
||||
obj_AppWindow('LUValReturn',CLItemLoc:@RM:@WINDOW:'.CAL_LOC')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * *
|
||||
Close:
|
||||
* * * * * *
|
||||
|
||||
|
||||
obj_Notes('Inbox',@USER4) ;* Checks for any new messages
|
||||
|
||||
Send_Event('MASTER_CALIB_LIST','CREATE')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CalibrationsDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CALIBRATIONS'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CalDt = Get_Property(CtrlEntID,'CELLPOS',COL$CAL_DT:@FM:CurrRow)
|
||||
|
||||
CalDt = ICONV(CalDt,'D')
|
||||
CLNo = Get_Property(@WINDOW:'.CL_NO','DEFPROP')
|
||||
|
||||
IF CLNo NE '' AND CalDt NE '' THEN
|
||||
|
||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
END
|
||||
|
||||
oaParms = 'CALIBRATION':@RM
|
||||
oaParms := CLNo:'*':CalDt:@RM
|
||||
oaParms := '':@RM ;* Default Record
|
||||
oaParms := CLNo:@RM
|
||||
oaParms := @RM
|
||||
oaParms := CtrlEntID:@RM
|
||||
oaParms := CurrPos
|
||||
|
||||
obj_Appwindow('ViewNewDetail', oaParms)
|
||||
|
||||
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NewCalibClick:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CALIBRATIONS'
|
||||
|
||||
CLNo = Get_Property(@WINDOW:'.CL_NO','DEFPROP')
|
||||
|
||||
IF CLNo NE '' THEN
|
||||
|
||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
END
|
||||
|
||||
oaParms = 'CALIBRATION':@RM
|
||||
oaParms := CLNo:@RM
|
||||
oaParms := '':@RM ;* Default Record
|
||||
oaParms := CLNo:@RM
|
||||
oaParms := @RM
|
||||
oaParms := CtrlEntID:@RM
|
||||
oaParms := 1:@FM:1
|
||||
|
||||
obj_Appwindow('ViewNewDetail', oaParms)
|
||||
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
30
LSL2/STPROC/CAR_CAUSE_STATUS_CONV.txt
Normal file
30
LSL2/STPROC/CAR_CAUSE_STATUS_CONV.txt
Normal file
@ -0,0 +1,30 @@
|
||||
SUBROUTINE CAR_CAUSE_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
case ConvType = 'OCONV'
|
||||
begin case
|
||||
case DataIo = 'E'
|
||||
ReturnedValue = 'Execution'
|
||||
case DataIo = 'C'
|
||||
ReturnedValue = 'Correlation'
|
||||
case DataIo = 'S'
|
||||
ReturnedValue = 'System'
|
||||
end case
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
28
LSL2/STPROC/CAR_CONFIRM_STATUS_CONV.txt
Normal file
28
LSL2/STPROC/CAR_CONFIRM_STATUS_CONV.txt
Normal file
@ -0,0 +1,28 @@
|
||||
SUBROUTINE CAR_CONFIRM_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
case ConvType = 'OCONV'
|
||||
begin case
|
||||
case DataIo = 'C'
|
||||
ReturnedValue = 'Confirmed'
|
||||
case DataIo = 'U'
|
||||
ReturnedValue = 'Unconfirmed'
|
||||
end case
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
143
LSL2/STPROC/CAR_RPT1.txt
Normal file
143
LSL2/STPROC/CAR_RPT1.txt
Normal file
@ -0,0 +1,143 @@
|
||||
compile function CAR_RPT1()
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function getprinterlist, getprofilestring, writeprofilestring, extdevicemode
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property
|
||||
declare function set_printer, Printer_Select
|
||||
declare subroutine rlist, or_view, activate_save_select, yield, update_index
|
||||
declare subroutine car_rpt1_prn
|
||||
$insert rlist_equates
|
||||
$insert msg_equates
|
||||
|
||||
Params = dialog_box( 'CAR_RPT1', @window, '*CENTER' )
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
open 'SYSLISTS' to SysListsTable else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to open SYSLISTS...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
ListsId = 'CAR_RPT1*':@station
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
convert '*' to @fm in Params
|
||||
Custs = Params<1>
|
||||
IssueDateFrom = Params<2>
|
||||
IssueDateThru = Params<3>
|
||||
Open = Params<4>
|
||||
FormComplete = Params<5>
|
||||
CARInPlace = Params<6>
|
||||
Verified = Params<7>
|
||||
DirToPrinter = Params<8>
|
||||
|
||||
Stat = utility( 'CURSOR', 'H' )
|
||||
|
||||
Stmt = 'SELECT CAR BY CUST_CITY BY ISSUE_DATE'
|
||||
if IssueDateFrom and IssueDateThru then
|
||||
Stmt := " WITH ISSUE_DATE FROM ":QUOTE(IssueDateFrom):' TO ':QUOTE(IssueDateThru)
|
||||
end else
|
||||
if IssueDateFrom then
|
||||
Stmt := " WITH ISSUE_DATE GE ":QUOTE(IssueDateFrom)
|
||||
end
|
||||
if IssueDateThru then
|
||||
Stmt := " WITH ISSUE_DATE LE ":QUOTE(IssueDateThru)
|
||||
end
|
||||
end
|
||||
if Custs then
|
||||
swap @vm with "' '" in Custs
|
||||
Custs = "'":Custs:"'"
|
||||
Stmt := ' AND WITH CUST_ID = ':Custs
|
||||
end
|
||||
|
||||
CARStatusVar = ''
|
||||
if Open then
|
||||
CARStatusVar := " 'O'"
|
||||
end
|
||||
if FormComplete then
|
||||
CARStatusVar := " 'F'"
|
||||
end
|
||||
if CARInplace then
|
||||
CARStatusVar := " 'C'"
|
||||
end
|
||||
if Verified then
|
||||
CARStatusVar := "'V'"
|
||||
end
|
||||
if CarStatusVar then
|
||||
Stmt := ' AND WITH STATUS = ':CARStatusVar
|
||||
end
|
||||
|
||||
rlist( Stmt, target_savelist$, ListsId, '', '' )
|
||||
|
||||
activate_save_select( ListsId )
|
||||
|
||||
if @reccount then
|
||||
Cmd = "LIST CAR ID-SUPP SEQ JUSTLEN '5' COLHEAD 'CAR#' CUST_CITY JUSTLEN '50' CONTACT_NAME WO COMPLAINT_TYPE JUSTLEN '30' "
|
||||
Cmd:= "ISSUE_DATE TOTAL EST_LOSS_VALUE TOTAL ACT_LOSS_VALUE "
|
||||
Cmd:= " HEADING ":'"':" Customer Advisories by Customer by Issue Date 'T'"
|
||||
Cmd:= " PAGE # 'P' by selected Issue dates from "
|
||||
Cmd:= "(":IssueDateFrom:") Thru (":IssueDateThru:" ) ":'"'
|
||||
if DirToPrinter = 'Yes' then
|
||||
PrintPath = Printer_Select('',1) ;* Get default printer path
|
||||
Void = set_printer( 'INIT', '', '', '':@fm:1, 1, '',PrintPath )
|
||||
car_rpt1_prn( iconv( IssueDateFrom, 'D' ), iconv( IssueDateThru, 'D' ) )
|
||||
Void = set_printer( 'TERM' )
|
||||
Void = set_printer( 'INIT', '', '', '', 0, '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
end else
|
||||
or_view( '', Cmd )
|
||||
*SysSize = get_property( 'SYSTEM', 'SIZE' )
|
||||
*Void = send_event( 'ORPRV', 'SIZE', 1:@fm:1:@fm:SysSize<1>:@fm:SysSize<2> )
|
||||
Void = set_property( 'ORPRV.PRINT', 'ENABLED', 0 )
|
||||
WinId = 'ORPRV'
|
||||
loop
|
||||
while get_property( WinId, 'HANDLE' )
|
||||
yield()
|
||||
repeat
|
||||
ToPrint = ''
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'Do you want to print this report?'
|
||||
MsgInfo<micon$> = '?'
|
||||
MsgInfo<mtype$> = 'BNY'
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mdefbtn$> = 2 ;* default to no
|
||||
ToPrint = msg( @window, MsgInfo )
|
||||
if ToPrint then
|
||||
activate_save_select( ListsId )
|
||||
Void = set_printer( 'INIT', '', '', '':@fm:1, 1, '' )
|
||||
car_rpt1_prn( iconv( IssueDateFrom, 'D' ), iconv( IssueDateThru, 'D' ) )
|
||||
Void = set_printer( 'TERM' )
|
||||
Void = set_printer( 'INIT', '', '', '', 0, '' )
|
||||
Void = set_printer( 'TERM' )
|
||||
end
|
||||
end
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'NO Records meeting your date criteria!!'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = MSG( '', MsgInfo )
|
||||
end
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
return 0
|
||||
|
||||
206
LSL2/STPROC/CAR_RPT1_PRN.txt
Normal file
206
LSL2/STPROC/CAR_RPT1_PRN.txt
Normal file
@ -0,0 +1,206 @@
|
||||
compile subroutine car_rpt1_prn( IssueDateFrom, IssueDateThru )
|
||||
!
|
||||
* LIST CAR ID-SUPP SEQ JUSTLEN '5' COLHEAD 'CAR#' CUST_CITY JUSTLEN '50' CONTACT_NAME WO COMPLAINT_TYPE JUSTLEN '30' EST_LOSS_VALUE ACT_LOSS_VALUE HEADING " Customer Advisories by Customer by Issue Date 'T' PAGE # 'P' by selected Issue dates from (2/1/98) Thru (3/13/98 ) "
|
||||
!
|
||||
*PRINTER ON
|
||||
*
|
||||
* HEADING/FOOTING
|
||||
declare function set_printer, MSG
|
||||
Font = 'Courier New,8,L,0'
|
||||
convert ',' to @fm in Font
|
||||
HeadPos = '.5,3,1.5,.75,1.8,.75,1,1'
|
||||
convert ',' to @fm in HeadPos
|
||||
TheHeader = " Customer Advisories by Customer by Issue Date 'T' PAGE # 'P' by selected issue dates from (":oconv(IssueDateFrom, 'D2/'):") Thru (":oconv(IssueDateThru, 'D2/' ):')':@fm
|
||||
ColHeader = "Car#" : @vm : "Customer/City" : @vm : "Contact Name" : @vm : "WO" : @vm : "Complaint Type" : @vm : "Issue" : @vm : "Estimated" : @vm : "Actual"
|
||||
ColHeader<-1> = "" : @vm : "" : @vm : "" : @vm : "" : @vm : "" : @vm : "Date" : @vm : "Loss Value" : @vm : "Loss Value"
|
||||
Tvar = str( '_', 7):@vm:str( '_', 42):@vm:str( '_', 30):@vm:str( '_', 14):@vm
|
||||
Tvar:= str( '_',30 ):@vm:str( '_', 12 ):@vm:str( '_', 15):@vm:str( '_', 15 )
|
||||
*COLHEADER = ''
|
||||
ColHeader<-1> = Tvar
|
||||
*TheHeader = ''
|
||||
Void = set_printer( 'FONTHEADFOOT', Font )
|
||||
Void = set_printer( 'HEADER', TheHeader, HeadPos, ColHeader )
|
||||
Void = set_printer( 'FONT', Font )
|
||||
|
||||
*FOOTING ""
|
||||
*
|
||||
@RECCOUNT=0
|
||||
FIRST.PASS=1
|
||||
LAST.RECORD=0
|
||||
READERR=0
|
||||
*
|
||||
* OPEN DICT AND DATA FILES
|
||||
*
|
||||
OPEN "DICT","CAR" TO @DICT ELSE return
|
||||
OPEN "","CAR" TO FILE.IN ELSE return
|
||||
*
|
||||
* MAKE COLUMN HEADING
|
||||
*
|
||||
*
|
||||
* ZERO ACCUMULATORS FOR EACH BREAK
|
||||
*
|
||||
ESTULLOSSULVALUE.GRAND.TOTAL=0
|
||||
ESTULLOSSULVALUE.GRAND.COUNT=0
|
||||
*
|
||||
ACTULLOSSULVALUE.GRAND.TOTAL=0
|
||||
ACTULLOSSULVALUE.GRAND.COUNT=0
|
||||
*
|
||||
!
|
||||
READRECORD:
|
||||
!
|
||||
*
|
||||
*
|
||||
@FILE.ERROR.MODE=1
|
||||
READNEXT @ID,WHICH.VALUE ELSE
|
||||
@FILE.ERROR.MODE=0
|
||||
IF STATUS() GT 0 THEN
|
||||
@ANS=@FILE.ERROR<1>
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_5} )
|
||||
return
|
||||
END
|
||||
IF @FILE.ERROR<1> EQ 421 THEN
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_6} )
|
||||
GOTO READRECORD
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 111 THEN
|
||||
@ANS=@FILE.ERROR<1>
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_4} )
|
||||
READERR+=1
|
||||
GOTO READRECORD
|
||||
END
|
||||
LAST.RECORD=1
|
||||
END
|
||||
@FILE.ERROR.MODE=0
|
||||
*
|
||||
S.ATID=@ID
|
||||
*
|
||||
IF FIRST.PASS AND LAST.RECORD THEN
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_2} )
|
||||
return
|
||||
END
|
||||
*
|
||||
IF LAST.RECORD THEN GOTO BREAKS
|
||||
*
|
||||
IF @REDUCTION.DONE THEN
|
||||
@FILE.ERROR.MODE=1
|
||||
READO @RECORD FROM FILE.IN,@ID ELSE
|
||||
@FILE.ERROR.MODE=0
|
||||
IF STATUS() GT 0 THEN
|
||||
@ANS=@FILE.ERROR<1>
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_5} )
|
||||
return
|
||||
END
|
||||
IF @FILE.ERROR<1> NE 100 THEN
|
||||
@ANS=@FILE.ERROR<1>
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_4} )
|
||||
READERR+=1
|
||||
END
|
||||
GOTO READRECORD
|
||||
END
|
||||
@FILE.ERROR.MODE=0
|
||||
END
|
||||
*
|
||||
@RECCOUNT+=1
|
||||
*
|
||||
*
|
||||
* CALCULATE VALUE(S) FOR COLUMN(S)
|
||||
*
|
||||
S.ATID={@ID}
|
||||
I.ATID=S.ATID
|
||||
S.SEQ={SEQ}
|
||||
I.SEQ=S.SEQ
|
||||
S.CUSTULCITY={CUST_CITY}
|
||||
I.CUSTULCITY=S.CUSTULCITY
|
||||
S.CONTACTULNAME={CONTACT_NAME}
|
||||
I.CONTACTULNAME=S.CONTACTULNAME
|
||||
S.WO={WO}
|
||||
I.WO=S.WO
|
||||
S.COMPLAINTULTYPE={COMPLAINT_TYPE}
|
||||
I.COMPLAINTULTYPE=S.COMPLAINTULTYPE
|
||||
S.ISSUEDATE={ISSUE_DATE}
|
||||
I.ISSUEDATE=S.ISSUEDATE
|
||||
S.ESTULLOSSULVALUE={EST_LOSS_VALUE}
|
||||
I.ESTULLOSSULVALUE=S.ESTULLOSSULVALUE
|
||||
S.ACTULLOSSULVALUE={ACT_LOSS_VALUE}
|
||||
I.ACTULLOSSULVALUE=S.ACTULLOSSULVALUE
|
||||
*
|
||||
*
|
||||
IF FIRST.PASS THEN
|
||||
FIRST.PASS=0
|
||||
GOTO DETAIL
|
||||
END
|
||||
*
|
||||
*
|
||||
!
|
||||
BREAKS:
|
||||
!
|
||||
*
|
||||
*
|
||||
* PERFORM LAST RECORD OUTPUT IF DONE
|
||||
*
|
||||
IF LAST.RECORD THEN
|
||||
PRINTLINE = "***":@vm
|
||||
PRINTLINE:= "":@vm
|
||||
PRINTLINE:= "":@vm
|
||||
PRINTLINE:= "":@vm
|
||||
PRINTLINE:= "":@vm
|
||||
PRINTLINE:= "":@vm
|
||||
PRINTLINE:= OCONV(ESTULLOSSULVALUE.GRAND.TOTAL ,"MD2,$"):@vm
|
||||
PRINTLINE:= OCONV(ACTULLOSSULVALUE.GRAND.TOTAL ,"MD2,$"):@vm
|
||||
TableColInfo = '>+720':@vm:'<+4320':@vm:'<+2160':@vm:'>+1080':@vm:'<+2592':@vm:'>+1080':@vm:'>+1440':@vm:'>+1440'
|
||||
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
||||
* PRINT
|
||||
* @ANS=@REC.COUNT
|
||||
* PRINT {RLIST_TEXT_1}
|
||||
IF READERR THEN
|
||||
@ANS=READERR
|
||||
Void = set_printer( 'TEXT', {RLIST_TEXT_3} )
|
||||
END
|
||||
return
|
||||
END
|
||||
*
|
||||
!
|
||||
DETAIL:
|
||||
!
|
||||
*
|
||||
* DO CONVERSIONS IF ANY
|
||||
*
|
||||
IF S.SEQ NE "" THEN S.SEQ=OCONV(S.SEQ,"MD0")
|
||||
IF S.WO NE "" THEN S.WO=OCONV(S.WO,"MD0")
|
||||
IF S.ISSUEDATE NE "" THEN S.ISSUEDATE=OCONV(S.ISSUEDATE,"D2/")
|
||||
IF S.ESTULLOSSULVALUE NE "" THEN S.ESTULLOSSULVALUE=OCONV(S.ESTULLOSSULVALUE,"MD2,$")
|
||||
IF S.ACTULLOSSULVALUE NE "" THEN S.ACTULLOSSULVALUE=OCONV(S.ACTULLOSSULVALUE,"MD2,$")
|
||||
*
|
||||
*
|
||||
* ACCUMULATE TOTAL(S)
|
||||
*
|
||||
IF NUM(I.ESTULLOSSULVALUE) AND I.ESTULLOSSULVALUE NE "" THEN
|
||||
ESTULLOSSULVALUE.GRAND.TOTAL+=I.ESTULLOSSULVALUE
|
||||
ESTULLOSSULVALUE.GRAND.COUNT+=1
|
||||
I.ESTULLOSSULVALUE=''
|
||||
END
|
||||
IF NUM(I.ACTULLOSSULVALUE) AND I.ACTULLOSSULVALUE NE "" THEN
|
||||
ACTULLOSSULVALUE.GRAND.TOTAL+=I.ACTULLOSSULVALUE
|
||||
ACTULLOSSULVALUE.GRAND.COUNT+=1
|
||||
I.ACTULLOSSULVALUE=''
|
||||
END
|
||||
*
|
||||
|
||||
* PRINT DETAIL LINE
|
||||
*
|
||||
PRINTLINE = S.SEQ:@vm
|
||||
PRINTLINE:= S.CUSTULCITY:@vm
|
||||
PRINTLINE:= S.CONTACTULNAME:@vm
|
||||
PRINTLINE:= S.WO:@vm
|
||||
PRINTLINE:= S.COMPLAINTULTYPE:@vm
|
||||
PRINTLINE:= S.ISSUEDATE:@vm
|
||||
PRINTLINE:= S.ESTULLOSSULVALUE:@vm
|
||||
PRINTLINE:= S.ACTULLOSSULVALUE
|
||||
TableColInfo = '>+720':@vm:'<+4320':@vm:'<+2160':@vm:'>+1080':@vm:'<+2592':@vm:'>+1080':@vm:'>+1440':@vm:'>+1440'
|
||||
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
||||
*
|
||||
*
|
||||
GOTO READRECORD
|
||||
*
|
||||
END
|
||||
|
||||
202
LSL2/STPROC/CAR_SRPT1.txt
Normal file
202
LSL2/STPROC/CAR_SRPT1.txt
Normal file
@ -0,0 +1,202 @@
|
||||
compile function CAR_SRPT1()
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property
|
||||
declare function set_printer, PrintSetup, obj_Install
|
||||
declare subroutine rlist, or_view, activate_save_select, yield
|
||||
declare subroutine order_srpt1
|
||||
$insert rlist_equates
|
||||
$insert msg_equates
|
||||
$insert oiprint_equates
|
||||
$insert rpt_cfg_equ
|
||||
$INSERT PRINTSETUP_EQUATES
|
||||
|
||||
TimeX = Oconv(Time(),'MTS')
|
||||
|
||||
CrLf = Char(13):Char(10)
|
||||
CurDte = OCONV(Date(),"D4/")
|
||||
|
||||
ReportID = "CAR001_SRPTCFG"
|
||||
ReportControl = "CAR_SRPT1"
|
||||
TableName = 'CAR'
|
||||
|
||||
TtlLin1 = ''
|
||||
TtlLin2 = ''
|
||||
TtlLin3 = ''
|
||||
TtlLin4 = ''
|
||||
|
||||
open 'CONFIG' to ConfigTable else
|
||||
Void = msg( '', 'Unable to open CONFIG...' )
|
||||
return 0
|
||||
end
|
||||
|
||||
Read SRptConfig From ConfigTable,ReportID Else
|
||||
Void = msg( '', 'Unable to read ': ReportID:' From CONFIG table!' )
|
||||
return 0
|
||||
End
|
||||
|
||||
Params = dialog_box( ReportControl, @window, '*CENTER' )
|
||||
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
open 'SYSLISTS' to SysListsTable else
|
||||
Void = msg( '', 'Unable to open SYSLISTS...' )
|
||||
return 0
|
||||
end
|
||||
ListsId = ReportControl:'*':@station
|
||||
write '' on SysListsTable, ListsId else
|
||||
Void = msg( '', 'Unable to clear SYSLISTS ':ListsId:'...' )
|
||||
return 0
|
||||
end
|
||||
convert '*' to @fm in Params
|
||||
Custs = Params<1>
|
||||
BegDte = Params<2>
|
||||
EndDte = Params<3>
|
||||
Open = Params<4>
|
||||
FormComplete = Params<5>
|
||||
CARInPlace = Params<6>
|
||||
Verified = Params<7>
|
||||
|
||||
Void = utility( 'CURSOR', 'H' )
|
||||
|
||||
WithStmt = 'SELECT ':TableName:' '
|
||||
WthSwt = 0
|
||||
IssueDateLimit = ''
|
||||
Begin Case
|
||||
Case BegDte and EndDte
|
||||
TtlLin2 = 'Issue Dates: From ':BegDte:' To ':EndDte
|
||||
WithStmt := " WITH ISSUE_DATE FROM '": BegDte:"' TO '":EndDte: "' "
|
||||
IssueDateLimit = 'LIMIT ISSUE_DATE FROM "':BegDte:'" TO "':EndDte:'" '
|
||||
WthSwt = 1
|
||||
Case BegDte
|
||||
TtlLin2 = 'Issue Dates: From ':BegDte:' To ':CurDte
|
||||
WithStmt := " WITH ISSUE_DATE GE '":BegDte:"' "
|
||||
IssueDateLimit = 'LIMIT ISSUE_DATE FROM "':BegDte:'" TO "':CurDte:'" '
|
||||
WthSwt = 1
|
||||
Case EndDte
|
||||
TtlLin2 = 'Issue Dates: From Earliest To ':EndDte
|
||||
WithStmt := " WITH ISSUE_DATE LE '":EndDte:"' "
|
||||
IssueDateLimit = 'LIMIT ISSUE_DATE <= "':CurDte:'" '
|
||||
WthSwt = 1
|
||||
Case 1
|
||||
TtlLin2 = 'Issue Dates: ALL'
|
||||
End Case
|
||||
|
||||
If Custs then
|
||||
CustCnt = Count(@vm,Custs)
|
||||
If CustCnt > 20 Then
|
||||
TtlLin3 = 'Customers: More Than 20 Selected'
|
||||
End Else
|
||||
TtlLin3 = Custs
|
||||
swap @vm with ", " in TtlLin3
|
||||
TtlLin3 = 'Customers: ':TtlLin3
|
||||
End
|
||||
swap @vm with "' '" in Custs
|
||||
Custs = "'":Custs:"'"
|
||||
If WthSwt Then WithStmt := ' AND '
|
||||
WithStmt := ' WITH CUST_ID = ':Custs
|
||||
WthSwt = 1
|
||||
end else
|
||||
TtlLin3 = 'Customers: ALL'
|
||||
end
|
||||
|
||||
CARStatusVar = ''
|
||||
TtlLin4 = 'Status: '
|
||||
CarSwt = 0
|
||||
if Open then
|
||||
CARStatusVar := " 'O'"
|
||||
TtlLin4 := 'Open'
|
||||
CarSwt = 1
|
||||
end
|
||||
if FormComplete then
|
||||
CARStatusVar := " 'F'"
|
||||
If CarSwt Then TtlLin4 := ', '
|
||||
TtlLin4 := 'Form Complete'
|
||||
CarSwt = 1
|
||||
end
|
||||
if CARInplace then
|
||||
CARStatusVar := " 'C'"
|
||||
If CarSwt Then TtlLin4 := ', '
|
||||
TtlLin4 := 'Car In Place'
|
||||
CarSwt = 1
|
||||
end
|
||||
if Verified then
|
||||
CARStatusVar := " 'Verified'"
|
||||
If CarSwt Then TtlLin4 := ', '
|
||||
TtlLin4 := 'Verified'
|
||||
CarSwt = 1
|
||||
end
|
||||
|
||||
If CarSwt Else TtlLin4 := 'All'
|
||||
|
||||
TmpVar = Count(TtlLin4,', ')
|
||||
If TmpVar Then
|
||||
TmpVar = Index(TtlLin4,', ',TmpVar)
|
||||
TtlLin4[TmpVar,1] = ' And'
|
||||
End
|
||||
|
||||
if CarStatusVar then
|
||||
If WthSwt Then WithStmt := ' AND '
|
||||
WithStmt := ' WITH STATUS = ':CARStatusVar:' '
|
||||
end
|
||||
|
||||
rlist( WithStmt, target_savelist$, ListsId, '', '' )
|
||||
activate_save_select( ListsId )
|
||||
|
||||
Script = SRptConfig<SlistScript$>
|
||||
|
||||
RptWdt = SRptConfig<Width$>
|
||||
|
||||
Title = obj_Install('Get_Prop','Company'):' ':SRptConfig<Title$>
|
||||
Margin = INT((RptWdt - LEN(Title))/2)
|
||||
LMargin = Margin - 10 ;* 10 equals length of the date
|
||||
RMargin = Margin - 8 ;* 8 equals length of 'Page....'
|
||||
Title = OCONV(Date(),'D4/'):SPACE(LMargin):Title:SPACE(RMargin):"Page'PP''L'"
|
||||
|
||||
SWAP '~Title~' WITH Title IN Script
|
||||
|
||||
TitleLine2 = TtlLin2
|
||||
TitleLine3 = TtlLin3
|
||||
TitleLine4 = TtlLin4
|
||||
|
||||
IF TitleLine2 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine2))/2)
|
||||
LMargin = Margin - 7 ;* 7 equals length of time (12:15PM)
|
||||
RMargin = Margin
|
||||
TitleLine2 = OCONV(Time(),'MTH'):SPACE(LMargin):TitleLine2:SPACE(RMargin)
|
||||
SWAP '~SecondTitleLine~' WITH TitleLine2 IN Script
|
||||
END ELSE
|
||||
SWAP '~SecondTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine3 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine3))/2)
|
||||
SWAP '~ThirdTitleLine~' WITH "'L'":TitleLine3 IN Script
|
||||
END ELSE
|
||||
SWAP '~ThirdTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine4 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine4))/2)
|
||||
SWAP '~FourthTitleLine~' WITH "'L'":TitleLine4 IN Script
|
||||
END ELSE
|
||||
SWAP '~FourthTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
* Added after upgrade to OI4.13a to reset default printer in OIPI32 engine.
|
||||
|
||||
PrintCount = PrintSetup(PRN_GET$,'',Printers,DefaultPrinter)
|
||||
CONVERT ',' TO @FM IN DefaultPrinter
|
||||
DefPrintPath = DefaultPrinter<1>:@FM:DefaultPrinter<3>
|
||||
|
||||
Void = set_printer( 'INIT', '', '', .63:@fm:.63:@fm:.25:@fm:'', 0,'',DefPrintPath )
|
||||
Void = Set_Printer('TERM')
|
||||
|
||||
call slist( Script )
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
|
||||
write '' on SysListsTable, ListsId else
|
||||
Void = msg( '', 'Unable to clear SYSLISTS ':ListsId:'...' )
|
||||
return 0
|
||||
end
|
||||
|
||||
RETURN 0
|
||||
32
LSL2/STPROC/CAR_STATUS_CONV.txt
Normal file
32
LSL2/STPROC/CAR_STATUS_CONV.txt
Normal file
@ -0,0 +1,32 @@
|
||||
SUBROUTINE CAR_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
case ConvType = 'OCONV'
|
||||
begin case
|
||||
case DataIo = 'O'
|
||||
ReturnedValue = 'Open'
|
||||
case DataIo = 'F'
|
||||
ReturnedValue = 'Form Completed'
|
||||
case DataIo = 'C'
|
||||
ReturnedValue = 'CAR In Place'
|
||||
case DataIo = 'V'
|
||||
ReturnedValue = 'Verified'
|
||||
end case
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
34
LSL2/STPROC/CASS_CURR_STATUS_CONV.txt
Normal file
34
LSL2/STPROC/CASS_CURR_STATUS_CONV.txt
Normal file
@ -0,0 +1,34 @@
|
||||
SUBROUTINE CASS_CURR_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
$insert logical
|
||||
|
||||
equ valid$ to 0 ;* successful
|
||||
equ invalid_msg$ to 1 ;* bad data - print error message window
|
||||
equ invalid_conv$ to 2 ;* bad conversion - " "
|
||||
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
||||
|
||||
status() = Valid$
|
||||
begin case
|
||||
case ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
|
||||
case ConvType = 'OCONV'
|
||||
Vals = XLATE('SYSREPOSPOPUPS','LSL2**RDS_CURR_STATUS',8,'X')
|
||||
Desc = ''
|
||||
LOOP
|
||||
Val = Vals[1,@VM]
|
||||
Code = Val[1,@SVM]
|
||||
Desc = Val[COL2()+1,@SVM]
|
||||
UNTIL Code = DataIO OR Vals = ''
|
||||
Vals = DELETE(Vals,1,1,0)
|
||||
REPEAT
|
||||
ReturnedValue = Desc
|
||||
|
||||
case otherwise$
|
||||
status() = invalid_msg$
|
||||
end case
|
||||
return
|
||||
38
LSL2/STPROC/CDM_LOG_EVENTS.txt
Normal file
38
LSL2/STPROC/CDM_LOG_EVENTS.txt
Normal file
@ -0,0 +1,38 @@
|
||||
Compile function CDM_LOG_EVENTS(CtrlEntId, Event, @PARAMS)
|
||||
|
||||
Declare function SRP_DateTime, Oconv, DateTime
|
||||
Declare subroutine Set_Property
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
#window CDM_LOG
|
||||
|
||||
GoToEvent Event for CtrlEntId else
|
||||
// Event not implemented
|
||||
end
|
||||
|
||||
Return EventFlow or 1
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// EVENT HANDLERS
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
EventFlow = 1
|
||||
|
||||
End Event
|
||||
|
||||
Event SIGN_BUTTON.CLICK()
|
||||
IF @User4 EQ 'JONATHAN_O' then debug
|
||||
Date = SRP_DateTime("Date", DateTime())
|
||||
Time = SRP_DateTime("Time", Datetime())
|
||||
|
||||
iDate = OConv(Date, 'D4/H')
|
||||
iTime = OConv(Time, 'MTS')
|
||||
|
||||
Set_Property(@Window : '.DATE_CHANGED', 'DEFPROP', iDate)
|
||||
Set_Property(@Window : '.TIME_CHANGED', 'DEFPROP', iTime)
|
||||
|
||||
end event
|
||||
|
||||
|
||||
77
LSL2/STPROC/CHANGE_COMPANY.txt
Normal file
77
LSL2/STPROC/CHANGE_COMPANY.txt
Normal file
@ -0,0 +1,77 @@
|
||||
COMPILE ROUTINE Change_Company(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE Send_Dyn,Send_Info
|
||||
DECLARE FUNCTION Get_Status, Set_Printer
|
||||
|
||||
OPEN 'CONFIG' To ConfigTable THEN
|
||||
|
||||
Select ConfigTable
|
||||
|
||||
ConfigKeys = ''
|
||||
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT ConfigKey ELSE Done = 1
|
||||
UNTIL Done
|
||||
IF ConfigKey[1,3] = 'Org' ELSE
|
||||
READ ConfigRec FROM ConfigTable,ConfigKey THEN
|
||||
|
||||
IF INDEX(ConfigRec,'ATMI',1) THEN
|
||||
Send_Dyn(ConfigKey)
|
||||
END
|
||||
|
||||
END
|
||||
END
|
||||
REPEAT
|
||||
|
||||
ConfigKeyCnt = COUNT(ConfigKeys,@FM) + ( ConfigKeys NE '')
|
||||
|
||||
OPEN 'SYSPROCS' TO ProcsTable THEN
|
||||
SELECT ProcsTable
|
||||
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT @ID ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ @RECORD FROM ProcsTable,@ID THEN
|
||||
|
||||
IF INDEX(@RECORD,'ATMI',1) THEN
|
||||
Send_Dyn(@ID)
|
||||
END
|
||||
|
||||
|
||||
|
||||
END
|
||||
REPEAT
|
||||
END
|
||||
|
||||
|
||||
OPEN 'SYSREPOSEVENTS' TO ProcsTable THEN
|
||||
SELECT ProcsTable
|
||||
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT @ID ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ @RECORD FROM ProcsTable,@ID THEN
|
||||
|
||||
IF INDEX(@RECORD,'ATMI',1) THEN
|
||||
Send_Dyn(@ID)
|
||||
END
|
||||
END
|
||||
REPEAT
|
||||
END
|
||||
|
||||
|
||||
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
||||
|
||||
|
||||
74
LSL2/STPROC/CHANGE_LOG_SERVICES.txt
Normal file
74
LSL2/STPROC/CHANGE_LOG_SERVICES.txt
Normal file
@ -0,0 +1,74 @@
|
||||
FUNCTION CHANGE_LOG_SERVICES(@Service, @Params)
|
||||
|
||||
|
||||
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
$Insert LOGICAL
|
||||
$insert SERVICE_SETUP
|
||||
$Insert REVDOTNETEQUATES
|
||||
|
||||
|
||||
Declare function Repository, Get_Repos_Entities, SRP_DateTime, SRP_Array, Get_Status, Set_Status, Errmsg, Datetime
|
||||
Declare subroutine Set_Status, Errmsg, Error_Services
|
||||
Declare Function Database_Services
|
||||
Declare Function Environment_Services
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
GoToService else
|
||||
Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
|
||||
end
|
||||
Return Response OR ''
|
||||
|
||||
//Write to sharepoint
|
||||
Service WriteToSharePoint()
|
||||
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
|
||||
Lock hSysLists, ServiceKeyID then
|
||||
//Define the dotNet version
|
||||
DotNetHandle = StartDotNet("","4.0")
|
||||
|
||||
//Specify the DLL
|
||||
rv = Set_Property.NET(DotNetHandle, "AssemblyName", "D:\Apps\OICurrent\IFXAPI\SharePoint\SharePointTools.dll")
|
||||
|
||||
//Create_Class.NET(//Define the classes
|
||||
SPApi = Create_Class.NET(DotNetHandle, "SharePointTools.ExportToSharePoint", 0)
|
||||
|
||||
//Set report start time to the past 30 minutes.
|
||||
StartDateTime = Datetime()
|
||||
StartDateTime = SRP_DateTime("AddMinutes", StartDateTime, -15)
|
||||
//StartDateTime = SRP_DateTime('AddDays', StartDateTime, -7)
|
||||
|
||||
//Pull in a list of all existing entities
|
||||
AllEntityIDs = Get_Repos_Entities('LSL2', '', '', 0, 1, 0, '')
|
||||
EntityList = ''
|
||||
|
||||
Server = Environment_Services('GetServer')
|
||||
IF Server EQ 'MESSA005' then
|
||||
Environment = 'PROD'
|
||||
end else
|
||||
Environment = 'DEV'
|
||||
end
|
||||
|
||||
For Each EntityID in AllEntityIDs using @FM
|
||||
|
||||
Set_Status(0)
|
||||
statList = ''
|
||||
Entity = Repository('GET', EntityID)
|
||||
time = Entity<25>
|
||||
If time GE StartDateTime then
|
||||
time = OCONV(time,'DT4/^H')
|
||||
(application, entityType, entityClass, entityName) using '*' = EntityID
|
||||
updatedBy = Entity<26>
|
||||
IF entityType NE 'STPROCDBG' AND entityType NE 'STPROCEXE' then
|
||||
SharePointLog = Send_Message.NET(SPApi, "SendToList",time:@FM:application:@FM:entityType:@FM:entityClass:@FM:entityName:@FM:updatedBy:@FM:Environment, "System.String":@FM:"System.String":@FM:"System.String":@FM:"System.String":@FM:"System.String":@FM:"System.String":@FM:"System.String")
|
||||
end
|
||||
end
|
||||
test1='test'
|
||||
Next EntityID
|
||||
end
|
||||
Unlock hSysLists, ServiceKeyID else Null
|
||||
end service
|
||||
|
||||
139
LSL2/STPROC/CHART_TEST.txt
Normal file
139
LSL2/STPROC/CHART_TEST.txt
Normal file
@ -0,0 +1,139 @@
|
||||
COMPILE FUNCTION Chart_Test(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Chart_Test collector window
|
||||
|
||||
11/17/2009 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, obj_Appwindow
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Start_Window, Create_Note
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Notes_Comm
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check
|
||||
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LOGICAL
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Chart_Test commuter'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
|
||||
END CASE
|
||||
|
||||
CASE EntID = 'NOTES_ATTACH.SAVE_BUTTON' AND Event = 'CLICK' ; GOSUB Save
|
||||
|
||||
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)
|
||||
|
||||
DEBUG
|
||||
|
||||
hChart = @WINDOW:'.CHART'
|
||||
|
||||
strResult = Send_Message(hChart,'Clear')
|
||||
|
||||
c = Get_Property(hChart,'Constants')
|
||||
|
||||
Charts = Get_Property(hChart,'Charts')
|
||||
|
||||
|
||||
Chart = Send_Message(hChart,'Add')
|
||||
|
||||
chChartTypeColumnClustered = Get_Property(c,'chChartTypeColumnClustered')
|
||||
|
||||
|
||||
Set_Property(Chart,'Type',chChartTypeColumnClustered)
|
||||
Set_Property(Chart,'HasLegend',TRUE$)
|
||||
|
||||
Status = OleStatus() ; IF Status THEN DEBUG
|
||||
|
||||
|
||||
Set_Property(Chart,'HasTitle',TRUE$)
|
||||
Title = Get_Property(Chart,'Title')
|
||||
|
||||
Set_Property(Title,'Caption','Random Walk ':TimeDate() )
|
||||
|
||||
|
||||
SeriesCollection = Get_Property(Chart,'SeriesCollection')
|
||||
|
||||
|
||||
FOR I = 1 TO 4
|
||||
Series = Send_Message(SeriesCollection,'Add')
|
||||
|
||||
Set_Property(Series,'Caption','Q':I)
|
||||
|
||||
Categories = ''
|
||||
Vals = ''
|
||||
|
||||
FOR J = 1 TO 5
|
||||
Categories<J> = 'Region ':J
|
||||
Vals<J> = RND(100)
|
||||
NEXT J
|
||||
|
||||
CONVERT @FM TO TAB$ IN Categories
|
||||
CONVERT @FM TO TAB$ IN Vals
|
||||
|
||||
chDimCategories = Get_Property(c,'chDimCategories')
|
||||
chDimValues = Get_Property(c,'chDimValues')
|
||||
chDimDataLiteral = Get_Property(c,'chDataLiteral')
|
||||
|
||||
|
||||
x = Send_Message(Series,'SetData',chDimCategories,chDimDataLiteral,Categories)
|
||||
x = Send_Message(Series,'SetData',chDimValues,chDimDataLiteral,Vals)
|
||||
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Save:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -152,3 +152,4 @@ end service
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
24
LSL2/STPROC/CHECK_NOTES.txt
Normal file
24
LSL2/STPROC/CHECK_NOTES.txt
Normal file
@ -0,0 +1,24 @@
|
||||
function check_notes(Branch)
|
||||
declare function set_property, fieldcount, get_property, msg, dialog_box
|
||||
* begin condition
|
||||
* pre:
|
||||
* post:
|
||||
* end condition
|
||||
$insert msg_equates
|
||||
$insert note_ptrs_equ
|
||||
|
||||
if xlate( 'NOTE_PTRS', @user4, 'NEW_MESSAGES', 'X' ) then
|
||||
NotePtrRec = xlate( 'NOTE_PTRS', @user4, '', 'X' )
|
||||
if NotePtrRec<note_ptrs_new$,1> = 'Yes' then
|
||||
* the top one is new meaning they got a new one
|
||||
MsgInfo = ''
|
||||
MsgInfo<micon$> = '!'
|
||||
Mtext = 'You have a new message from ':NotePtrRec<note_ptrs_from$,1>:'.'
|
||||
MsgInfo<mtext$> = MText
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
end
|
||||
Return 0
|
||||
|
||||
2149
LSL2/STPROC/CLEAN_INSP.txt
Normal file
2149
LSL2/STPROC/CLEAN_INSP.txt
Normal file
File diff suppressed because it is too large
Load Diff
947
LSL2/STPROC/CLEAN_INSP_ACTIONS.txt
Normal file
947
LSL2/STPROC/CLEAN_INSP_ACTIONS.txt
Normal file
@ -0,0 +1,947 @@
|
||||
Function CLEAN_INSP_Actions(Action, CalcColName, FSList, Handle, Name, FMC, Record, Status, OrigRecord, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10)
|
||||
/***********************************************************************************************************************
|
||||
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
||||
permission from Infineon.
|
||||
|
||||
Name : CLEAN_INSP_Actions
|
||||
|
||||
Description : Handles calculated columns and MFS calls for the current table.
|
||||
|
||||
Notes : This function uses @ID, @RECORD, and @DICT to make sure {ColumnName} references work correctly.
|
||||
If called from outside of a calculated column these will need to be set and restored.
|
||||
|
||||
Parameters :
|
||||
Action [in] -- Name of the action to be taken
|
||||
CalcColName [in] -- Name of the calculated column that needs to be processed. Normally this should only be
|
||||
populated when the CalcField action is being used.
|
||||
FSList [in] -- The list of MFSs and the BFS name for the current file or volume. This is an @SVM
|
||||
delimited array, with the current MFS name as the first value in the array, and the BFS
|
||||
name as the last value. Normally set by a calling MFS.
|
||||
Handle [in] -- The file handle of the file or media map being accessed. Note, this does contain the
|
||||
entire handle structure that the Basic+ Open statement would provide. Normally set by a
|
||||
calling MFS.
|
||||
Name [in] -- The name (key) of the record or file being accessed. Normally set by a calling MFS.
|
||||
FMC [in] -- Various functions. Normally set by a calling MFS.
|
||||
Record [in] -- The entire record (for record-oriented functions) or a newly-created handle (for
|
||||
"get handle" functions). Normally set by a calling MFS.
|
||||
Status [in/out] -- Indicator of the success or failure of an action. Normally set by the calling MFS but
|
||||
for some actions can be set by the action handler to indicate failure.
|
||||
OrigRecord [in] -- Original content of the record being processed by the current action. This is
|
||||
automatically being assigned by the WRITE_RECORD and DELETE_RECORD actions within
|
||||
BASE_MFS.
|
||||
Param1-10 [in/out] -- Additional request parameter holders
|
||||
ActionFlow [out] -- Used to control the action chain (see the ACTION_SETUP insert for more information.)
|
||||
Can also be used to return a special value, such as the results of the CalcField
|
||||
method.
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
07/28/10 dmb Original programmer.
|
||||
10/13/10 dmb Fix logic to extract the file handle if file has an index
|
||||
03/26/11 dmb Add logic to save and restore @FILE.ERROR
|
||||
01/03/17 dmb Updated the ROTR compare logic to search for a recipe match.
|
||||
04/09/18 dmb Updated the ROTR compare logic to be limited to FWI stages. Also modified the default logic
|
||||
to be Failed unless proven otherwise.
|
||||
04/19/18 djs Update ROTR compare logic to support multiple spec recipes.
|
||||
05/04/18 dmb Update the special metrology log entry log to use the GetServer service rather than the
|
||||
@STATION global variable.
|
||||
06/13/18 dmb Replaced CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$ with CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$ when comparing
|
||||
against the Sum of Defects in the SurfScan recipe. - [IREPIOI-43]
|
||||
09/24/18 djs Adjusted the OConv call on the ScanDefect variable within the WRITE_RECORD_PRE action.
|
||||
10/29/18 djs Updated the WRITE_RECORD_PRE event to calculate the SOD average to only use wafers that
|
||||
are below the USL (SOD Max) as per ROTR Project requirements. Also updated the UCL request
|
||||
using QA_Services to include the scanned Tencor Recipe name in order to return the UCL
|
||||
associated with the particular recipe being processed at that time.
|
||||
06/07/19 djs Updated the WRITE_RECORD_PRE GoSub to support ROTR requirements for POST stage SurfScan
|
||||
rundata files.
|
||||
08/12/20 djs Added logging within the WRITE_RECORD_PRE GoSub to gather data for a bug within the
|
||||
Metrology_Services('ImportMetrologyService') subroutine. Occasionally the DB server is
|
||||
getting an out of memory error when importing metrology files.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$insert APP_INSERTS
|
||||
$insert FILE.SYSTEM.EQUATES
|
||||
$insert ACTION_SETUP
|
||||
$insert CLEAN_INSP_EQUATES
|
||||
$insert REACTOR_EQUATES
|
||||
$insert RDS_EQUATES
|
||||
$insert WM_OUT_EQUATES
|
||||
$insert WO_LOG_EQUATES
|
||||
$insert ROTR_EQUATES
|
||||
$insert WO_MAT_EQUATES
|
||||
|
||||
Equ Comma$ to ','
|
||||
|
||||
Declare function Error_Services, Database_Services, Environment_Services, QA_Services, RDS_Services, MemberOf
|
||||
Declare subroutine Error_Services, Database_Services, Post_Metrology_Manual_Data_Entry_Log
|
||||
Declare subroutine Qa_Services
|
||||
|
||||
If KeyID then GoSub Initialize_System_Variables
|
||||
|
||||
Begin Case
|
||||
|
||||
Case Action _EQC 'CalculateColumn' ; GoSub CalculateColumn
|
||||
Case Action _EQC 'READ_RECORD_PRE' ; GoSub READ_RECORD_PRE
|
||||
Case Action _EQC 'READ_RECORD' ; GoSub READ_RECORD
|
||||
Case Action _EQC 'READONLY_RECORD_PRE' ; GoSub READONLY_RECORD_PRE
|
||||
Case Action _EQC 'READONLY_RECORD' ; GoSub READONLY_RECORD
|
||||
Case Action _EQC 'WRITE_RECORD_PRE' ; GoSub WRITE_RECORD_PRE
|
||||
Case Action _EQC 'WRITE_RECORD' ; GoSub WRITE_RECORD
|
||||
Case Action _EQC 'DELETE_RECORD_PRE' ; GoSub DELETE_RECORD_PRE
|
||||
Case Action _EQC 'DELETE_RECORD' ; GoSub DELETE_RECORD
|
||||
Case Otherwise$ ; Status = 'Invalid Action'
|
||||
|
||||
End Case
|
||||
|
||||
If KeyID then GoSub Restore_System_Variables
|
||||
|
||||
If Assigned(ActionFlow) else ActionFlow = ACTION_CONTINUE$
|
||||
|
||||
Return ActionFlow
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Calculated Columns
|
||||
//
|
||||
// The typical structure of a calculated column will look like this:
|
||||
//
|
||||
// Declare function Database_Services
|
||||
//
|
||||
// @ANS = Database_Services('CalculateColumn')
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
CalculateColumn:
|
||||
// Make sure the ActionFlow return variable is cleared in case nothing is calculated.
|
||||
ActionFlow = ''
|
||||
|
||||
Begin Case
|
||||
Case CalcColName EQ 'INSP_REQ' ; GoSub INSP_REQ
|
||||
Case CalcColName EQ 'RDS_ROTR_ACTION' ; GoSub RDS_ROTR_ACTION
|
||||
End Case
|
||||
|
||||
return
|
||||
|
||||
|
||||
INSP_REQ:
|
||||
|
||||
SkipInsp = Xlate('WO_MAT', {WO_MAT_KEY}, 'CONVERTED_MATERIAL', 'X')
|
||||
If SkipInsp EQ '' then
|
||||
RDSNo = {RDS_NO}
|
||||
WONo = {WO_NO}
|
||||
WOQty = Xlate('WO_LOG', WONo, 'QTY', 'X')
|
||||
RunNo = Xlate('RDS', RDSNo, 'RUN_ORDER_NUM', 'X')
|
||||
InspInterval = {INSP_INTERVAL}
|
||||
LastRun = ( (RunNo * 25) EQ WOQty )
|
||||
InspReq = ( (Mod((RunNo - 1), InspInterval) EQ 0) or LastRun )
|
||||
ActionFlow = InspReq
|
||||
end else
|
||||
ActionFlow = False$
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
|
||||
RDS_ROTR_ACTION:
|
||||
|
||||
|
||||
ROTRAction = {ROTR_ACTION}
|
||||
If ROTRAction EQ 'F' then
|
||||
// Before returning a Fail, check to see if there is an acceptance for the results.
|
||||
AcceptedSignature = {SIGN_ROTR_SIGNATURE}
|
||||
AcceptedReason = {SIGN_ROTR_REASON}
|
||||
If (AcceptedSignature NE '') AND (AcceptedReason NE '') then ROTRAction = 'A'
|
||||
end
|
||||
ActionFlow = ROTRAction
|
||||
|
||||
return
|
||||
|
||||
|
||||
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
||||
|
||||
READ_RECORD_PRE:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
// ActionFlow = ACTION_STOP$
|
||||
return
|
||||
|
||||
|
||||
READ_RECORD:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
return
|
||||
|
||||
|
||||
READONLY_RECORD_PRE:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
// ActionFlow = ACTION_STOP$
|
||||
return
|
||||
|
||||
READONLY_RECORD:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
return
|
||||
|
||||
|
||||
WRITE_RECORD_PRE:
|
||||
|
||||
OrigRecCopy = OrigRecord
|
||||
RecCopy = Record
|
||||
Convert @VM to '' in OrigRecCopy
|
||||
Convert @VM to '' in RecCopy
|
||||
// LWII Specification limits
|
||||
|
||||
OrigLWIISpecLPD = Trim(OrigRecCopy<CLEAN_INSP_INSP_LPD$>)
|
||||
OrigLWIISpecScr = Trim(OrigRecCopy<CLEAN_INSP_INSP_SCRATCHES$>)
|
||||
OrigLWIISpecScrLen = Trim(OrigRecCopy<CLEAN_INSP_INSP_SCRATCH_LEN$>)
|
||||
OrigLWIISpecPits = Trim(OrigRecCopy<CLEAN_INSP_INSP_PITS$>)
|
||||
OrigLWIISpecMounds = Trim(OrigRecCopy<CLEAN_INSP_INSP_MOUNDS$>)
|
||||
OrigLWIISpecStack = Trim(OrigRecCopy<CLEAN_INSP_INSP_STACK_FAULTS$>)
|
||||
OrigLWIISpecSpikes = Trim(OrigRecCopy<CLEAN_INSP_INSP_SPIKES$>)
|
||||
OrigLWIISpecSpots = Trim(OrigRecCopy<CLEAN_INSP_INSP_SPOTS$>)
|
||||
OrigLWIISpecBLDef = Trim(OrigRecCopy<CLEAN_INSP_INSP_BL_DEFECTS$>)
|
||||
OrigLWIISpecFOV = Trim(OrigRecCopy<CLEAN_INSP_INSP_FOV$>)
|
||||
NewLWIISpecLPD = Trim(RecCopy<CLEAN_INSP_INSP_LPD$>)
|
||||
NewLWIISpecScr = Trim(RecCopy<CLEAN_INSP_INSP_SCRATCHES$>)
|
||||
NewLWIISpecScrLen = Trim(RecCopy<CLEAN_INSP_INSP_SCRATCH_LEN$>)
|
||||
NewLWIISpecPits = Trim(RecCopy<CLEAN_INSP_INSP_PITS$>)
|
||||
NewLWIISpecMounds = Trim(RecCopy<CLEAN_INSP_INSP_MOUNDS$>)
|
||||
NewLWIISpecStack = Trim(RecCopy<CLEAN_INSP_INSP_STACK_FAULTS$>)
|
||||
NewLWIISpecSpikes = Trim(RecCopy<CLEAN_INSP_INSP_SPIKES$>)
|
||||
NewLWIISpecSpots = Trim(RecCopy<CLEAN_INSP_INSP_SPOTS$>)
|
||||
NewLWIISpecBLDef = Trim(RecCopy<CLEAN_INSP_INSP_BL_DEFECTS$>)
|
||||
NewLWIISpecFOV = Trim(RecCopy<CLEAN_INSP_INSP_FOV$>)
|
||||
|
||||
// LWII Signature
|
||||
OrigLWIISig = Trim(OrigRecCopy<CLEAN_INSP_INSP_SIG$>)
|
||||
OrigLWIIDtm = Trim(OrigRecCopy<CLEAN_INSP_INSP_SIG_DTM$>)
|
||||
NewLWIISig = Trim(RecCopy<CLEAN_INSP_INSP_SIG$>)
|
||||
NewLWIIDtm = Trim(RecCopy<CLEAN_INSP_INSP_SIG_DTM$>)
|
||||
|
||||
// LWIS Specification Limits
|
||||
OrigLWISRecipe = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>)
|
||||
OrigLWISSpecDef = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURF_DEFECTS$>)
|
||||
OrigLWISSpecHaze = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURF_HAZE$>)
|
||||
NewLWISRecipe = Trim(RecCopy<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>)
|
||||
NewLWISSpecDef = Trim(RecCopy<CLEAN_INSP_SPEC_SURF_DEFECTS$>)
|
||||
NewLWISSpecHaze = Trim(RecCopy<CLEAN_INSP_SPEC_SURF_HAZE$>)
|
||||
|
||||
// LWIS Signature
|
||||
OrigLWISSig = Trim(OrigRecCopy<CLEAN_INSP_SCAN_SIG$>)
|
||||
OrigLWISDtm = Trim(OrigRecCopy<CLEAN_INSP_SCAN_SIG_DTM$>)
|
||||
NewLWISSig = Trim(RecCopy<CLEAN_INSP_SCAN_SIG$>)
|
||||
NewLWISDtm = Trim(RecCopy<CLEAN_INSP_SCAN_SIG_DTM$>)
|
||||
RDSKeyID = RecCopy<CLEAN_INSP_RDS_NO$>
|
||||
|
||||
// Check if run aborted and wafers were removed
|
||||
WafersRemoved = Trim(RecCopy<CLEAN_INSP_WAFERS_REMOVED$>)
|
||||
|
||||
RDSNo = RDSKeyID
|
||||
FinalQA = False$
|
||||
RDSRow = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||
WorkOrderNo = RDSRow<RDS_WO$>
|
||||
WorkOrderRow = Database_Services('ReadDataRow', 'WO_LOG', WorkOrderNo)
|
||||
ReactType = WorkOrderRow<WO_LOG_REACT_TYPE$>
|
||||
// Check to see if the Final QA signature is in place.
|
||||
|
||||
If ReactType EQ 'EPP' then
|
||||
CassetteNos = RDSRow<RDS_OUT_CASS_NO$>
|
||||
OutNCRNos = RDSRow<RDS_OUT_NCR$>
|
||||
For Each CassetteNo in CassetteNos using @VM setting vPos
|
||||
OutNCRNo = OutNCRNos<0, vPos>
|
||||
// Ignore NCRd wafers
|
||||
If OutNCRNo EQ '' then
|
||||
WMOutKey = RDSRow<RDS_WO_STEP_KEY$> : '*' : CassetteNo
|
||||
WMOutRow = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey)
|
||||
If WMOutRow<WM_OUT_SUP_VER_SIG$> NE '' then
|
||||
FinalQA = True$
|
||||
end
|
||||
end
|
||||
Until FinalQA
|
||||
Next CassetteNo
|
||||
end else
|
||||
If RDSRow<RDS_SUP_VER_SIG$> NE '' then
|
||||
FinalQA = True$
|
||||
end
|
||||
end
|
||||
|
||||
// If Final QA signature is in place, implement the control logic.
|
||||
If FinalQA EQ True$ then
|
||||
|
||||
// User is attempting to modify this row. Set the FS104 error and log the event.
|
||||
Error_Services('Add', 'FS104:FQA has already been signed. CLEAN_INSP record cannot be updated!')
|
||||
OrigFileError = 104 : @FM : 'FQA has already been signed. CLEAN_INSP record cannot be updated!'
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
|
||||
end else
|
||||
|
||||
If ( (OrigLWIISpecLPD NE '') and (NewLWIISpecLPD EQ '') ) |
|
||||
or ( (OrigLWIISpecScr NE '') and (NewLWIISpecScr EQ '') ) |
|
||||
or ( (OrigLWIISpecScrLen NE '') and (NewLWIISpecScrLen EQ '') ) |
|
||||
or ( (OrigLWIISpecPits NE '') and (NewLWIISpecPits EQ '') ) |
|
||||
or ( (OrigLWIISpecMounds NE '') and (NewLWIISpecMounds EQ '') ) |
|
||||
or ( (OrigLWIISpecStack NE '') and (NewLWIISpecStack EQ '') ) |
|
||||
or ( (OrigLWIISpecSpikes NE '') and (NewLWIISpecSpikes EQ '') ) |
|
||||
or ( (OrigLWIISpecSpots NE '') and (NewLWIISpecSpots EQ '') ) |
|
||||
or ( (OrigLWIISpecBLDef NE '') and (NewLWIISpecBLDef EQ '') ) |
|
||||
or ( (OrigLWIISpecFOV NE '') and (NewLWIISpecFOV EQ '') ) |
|
||||
or ( (OrigLWIISig NE '') and (NewLWIISig EQ '') ) |
|
||||
or ( (OrigLWIIDtm NE '') and (NewLWIIDtm EQ '') ) |
|
||||
or ( (OrigLWISRecipe NE '') and (NewLWISRecipe EQ '') ) |
|
||||
or ( (OrigLWISSpecDef NE '') and (NewLWISSpecDef EQ '') ) |
|
||||
or ( (OrigLWISSpecHaze NE '') and (NewLWISSpecHaze EQ '') ) |
|
||||
or ( (OrigLWISSig NE '') and (NewLWISSig EQ '') ) |
|
||||
or ( (OrigLWISDtm NE '') and (NewLWISDtm EQ '') ) and Not(MemberOf(@User4, 'OI_ADMIN')) then
|
||||
|
||||
// User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
|
||||
Error_Services('Add', 'FS104:Specification limits or signature data cannot be removed. Clean & Insp record cannot be updated!')
|
||||
OrigFileError = 104 : @FM : 'Specification limits or signature data cannot be removed. Clean & Insp record cannot be updated!'
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
|
||||
end else
|
||||
|
||||
Stage = Record<CLEAN_INSP_STAGE$>
|
||||
IsEpiPro = Rds_Services('IsEpiPro', RDSKeyID)
|
||||
// This ROTR logic is only applicable to LWI clean & inspection rows.
|
||||
CleanInspKeyID = Name
|
||||
|
||||
// Get the current signature required and signature entries.
|
||||
SigRequired = Record<CLEAN_INSP_SPEC_SURFSCAN_REQ$>
|
||||
ScanSigs = Record<CLEAN_INSP_SCAN_SIG$>
|
||||
// Get the specifications
|
||||
SpecRecipes = Record<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
SpecDefects = Record<CLEAN_INSP_SPEC_SURF_DEFECTS$> ; // USL - Spec SOD Max
|
||||
SpecHazes = Record<CLEAN_INSP_SPEC_SURF_HAZE$>
|
||||
SpecQuantities = Record<CLEAN_INSP_SPEC_SS_SAMP_QTY$>
|
||||
// Get the new scanned values
|
||||
ScanRecipes = Record<CLEAN_INSP_SCAN_RECIPE$>
|
||||
ScanTools = Record<CLEAN_INSP_SCAN_TOOL$>
|
||||
ScanDefectsAvg = Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$>
|
||||
ScanDefects = Record<CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$>
|
||||
ScanHazes = Record<CLEAN_INSP_SCAN_HAZE_AVG_AVG$>
|
||||
ScanMismatch = Record<CLEAN_INSP_SCAN_RECIPE_MISMATCH$>
|
||||
QtyMismatch = Record<CLEAN_INSP_SCAN_SAMPLE_QTY_MISMATCH$>
|
||||
// Get scan results
|
||||
ScanRecipeResults = Record<CLEAN_INSP_SCAN_RESULT$>
|
||||
ScanRecipeReasons = Record<CLEAN_INSP_SCAN_RESULT_REASON$>
|
||||
|
||||
// Get the original scanned values
|
||||
SpecRecipesOrig = OrigRecord<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
ScanRecipesOrig = OrigRecord<CLEAN_INSP_SCAN_RECIPE$>
|
||||
ScanDefectsAvgOrig = OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$>
|
||||
ScanDefectsOrig = OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$>
|
||||
ScanHazesOrig = OrigRecord<CLEAN_INSP_SCAN_HAZE_AVG_AVG$>
|
||||
ScanMismatchOrig = OrigRecord<CLEAN_INSP_SCAN_RECIPE_MISMATCH$>
|
||||
QtyMismatchOrig = OrigRecord<CLEAN_INSP_SCAN_SAMPLE_QTY_MISMATCH$>
|
||||
// Get the original signature required and signature entries.
|
||||
SigRequiredOrig = OrigRecord<CLEAN_INSP_SPEC_SURFSCAN_REQ$>
|
||||
ScanSigsOrig = OrigRecord<CLEAN_INSP_SCAN_SIG$>
|
||||
// Get the individual SOD values per wafer.
|
||||
SODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$>
|
||||
SODPerWaferOrig = OrigRecord<CLEAN_INSP_SCAN_SOD_PER_WAFER$>
|
||||
// Get the 100 failure scan flags, which is null by default and set/cleared by this MFS.
|
||||
FailScanFlags = Record<CLEAN_INSP_FAIL_SCAN_REQ$>
|
||||
FailScanReq = Sum(FailScanFlags)
|
||||
If FailScanReq GT 0 then
|
||||
FailScanReq = True$
|
||||
end else
|
||||
FailScanReq = False$
|
||||
end
|
||||
|
||||
CIReactor = Xlate('CLEAN_INSP', CleanInspKeyID, 'REACT_NO', 'X')
|
||||
ROTREnabled = Xlate('REACTOR', CIReactor, 'ENABLE_ROTR', 'X')
|
||||
ROTRFailLimit = Xlate('REACTOR', CIReactor, 'ROTR_FAIL_LIMIT', 'X')
|
||||
|
||||
// Get ROTR Reactor values
|
||||
ROTRReactorStatus = Record<CLEAN_INSP_ROTR_REACTOR_STATUS$>
|
||||
ROTRReactorStatusReason = Record<CLEAN_INSP_ROTR_REACTOR_STATUS_REASON$>
|
||||
|
||||
FailedWafers = Record<CLEAN_INSP_FAILED_WAFERS$>
|
||||
|
||||
If OrigRecord NE Record then
|
||||
|
||||
// Backlog Req 731 - ROTR Post Supercede
|
||||
// Increase POST stage surfscan sample quantity specification to number of LWI stage failed wafers.
|
||||
If Stage EQ 'POST' then
|
||||
RDSNo = Record<CLEAN_INSP_RDS_NO$>
|
||||
LWICIKey = Xlate('RDS', RDSNo, 'LWI_CI_NO', 'X')
|
||||
If LWICIKey NE '' then
|
||||
LWIFailedWafers = Xlate('CLEAN_INSP', LWICIKey, 'FAILED_WAFERS', 'X')
|
||||
If LWIFailedWafers NE '' then
|
||||
NewPostSpecSampleQty = Sum(LWIFailedWafers)
|
||||
PostSpecRecipes = Record<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
NumRecipes = DCount(PostSpecRecipes, @VM)
|
||||
If NumRecipes GT 0 then
|
||||
For RecipeIndex = 1 to NumRecipes
|
||||
CurrSpec = Record<CLEAN_INSP_SPEC_SS_SAMP_QTY$, RecipeIndex>
|
||||
If ( (CurrSpec EQ '') or (CurrSpec LT NewPostSpecSampleQty) ) then
|
||||
Record<CLEAN_INSP_SPEC_SS_SAMP_QTY$, RecipeIndex> = NewPostSpecSampleQty
|
||||
end
|
||||
Next RecipeIndex
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
// Reset ROTR update flag so that future ROTR requests will re-trigger this routine (via BASE_MFS).
|
||||
Record<CLEAN_INSP_ROTR_UPDATE_FLAG$> = False$
|
||||
// Tencor data has been updated. Update the ROTR_ACTION data column in the CLEAN_INSP record.
|
||||
// Check if ScanMismatch field has been set by Metrology_Services. If so, then the user attempted to
|
||||
// load run data, which containted the wrong recipe name. (i.e. it did not match the spec recipe)
|
||||
If (ScanMismatch EQ '') then
|
||||
RDSKey = Record<CLEAN_INSP_RDS_NO$>
|
||||
NumScanRecipes = DCount(ScanRecipes, @VM)
|
||||
ROTRAction = ''
|
||||
ROTRActionReason = ''
|
||||
Begin Case
|
||||
Case Stage _EQC 'LWI'
|
||||
If SpecRecipes NE '' then
|
||||
ReactorBlocked = False$ ;// Assume false until proven otherwise.
|
||||
// ROTR Reactor/PSN Status Health Check - Uses parameters set within the ROTR Parameters form.
|
||||
// We only need to run this once per CLEAN_INSP record.
|
||||
ROTRStatus = 'P' ; // Assume pass until proven otherwise.
|
||||
If ( (ROTREnabled EQ True$) and (ROTRReactorStatus EQ '') ) then
|
||||
ROTRReactorStatus = 'W'
|
||||
ROTRReactorStatusReason = 'ROTR awaiting processing'
|
||||
// Set ROTR Reactor processing status so that the WRITE_RECORD_POST event will
|
||||
// post an ROTR request to calculate the reactor ROTR health for this run.
|
||||
QA_Services('PostROTRRequest', RDSKey)
|
||||
end
|
||||
// Check each scan recipe.
|
||||
For each ScanRecipeName in ScanRecipes using @VM setting ScanRecipeIndex
|
||||
Locate ScanRecipeName in SpecRecipes using @VM setting SpecRecipeIndex then
|
||||
// Get UCL value from SPC for each spec recipe if they have not yet been retrieved.
|
||||
UCL = Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex>
|
||||
If (UCL EQ '') or (UCL EQ 0) then
|
||||
// The UCL has not yet been retrieved from SPC or an error could have
|
||||
// occurred when the last attempt to retrieve it, so try to get it now.
|
||||
UCL = QA_Services('PostUCLRequest', RDSKey, ScanRecipeName)
|
||||
If (UCL NE '') and (UCL NE 0) then
|
||||
Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex> = UCL
|
||||
end else
|
||||
ErrorMessage = 'Error retrieving UCL value from QA_Services in CLEAN_INSP_ACTIONS'
|
||||
Error_Services('Add', ErrorMessage)
|
||||
end
|
||||
end
|
||||
SpecDefect = Oconv(SpecDefects<0, SpecRecipeIndex>, 'MD0')
|
||||
SpecHaze = Oconv(SpecHazes<0, SpecRecipeIndex>, 'MD2')
|
||||
SpecQty = SpecQuantities<0, SpecRecipeIndex>
|
||||
ScanDefect = Oconv(ScanDefects<0, ScanRecipeIndex>, 'MD0')
|
||||
ScanHaze = Oconv(ScanHazes<0, ScanRecipeIndex>, 'MD3')
|
||||
ScanSig = ScanSigs<0, ScanRecipeIndex>
|
||||
FailureScan = False$
|
||||
// RDS < UCL (SOD Spec Avg) Check
|
||||
ScanSODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$, ScanRecipeIndex>
|
||||
ScanSortPerWafer = Record<CLEAN_INSP_SCAN_SORT_PER_WAFER$, ScanRecipeIndex>
|
||||
WaferCount = 0
|
||||
SODAvgSum = 0
|
||||
SODAvg = OConv(ScanDefectsAvg<0, ScanRecipeIndex>, 'MD3')
|
||||
NumFailedWafers = 0
|
||||
For each WaferSOD in ScanSODPerWafer using @SVM setting WaferIndex
|
||||
WaferSort = ScanSortPerWafer<0, ScanRecipeIndex, WaferIndex>
|
||||
If ( (WaferSOD NE '') or (WaferSort NE '') ) then
|
||||
// We have SOD data for this wafer so check if it is < SOD Max
|
||||
If ( (WaferSOD LE SpecDefect) and (WaferSort NE 'FAIL') ) then
|
||||
WaferCount += 1
|
||||
SODAvgSum += WaferSOD
|
||||
FailedWafers<0, WaferIndex> = False$
|
||||
end else
|
||||
NumFailedWafers += 1
|
||||
FailedWafers<0, WaferIndex> = True$
|
||||
end
|
||||
end
|
||||
Next WaferSOD
|
||||
Record<CLEAN_INSP_NUM_FAILED_WAFERS$, ScanRecipeIndex> = NumFailedWafers
|
||||
If (OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$, ScanRecipeIndex>) EQ '' then
|
||||
// This is the first time we are recording the scanned SOD average value. Store this
|
||||
// for determining reactor health. (ROTR Status)
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG_FAIL$, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
end
|
||||
If WaferCount GT 0 and SODAvgSum GT 0 then
|
||||
SODAvg = SODAvgSum / WaferCount
|
||||
// Update scanned SOD average to not include wafers exceeding SOD max
|
||||
// Adjust value to conform to internal storage format
|
||||
ScanDefectsAvg<0, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$> = ScanDefectsAvg
|
||||
end
|
||||
If (ROTREnabled EQ True$) then
|
||||
// ROTR Sign-off Project
|
||||
// We need to check if reactor recently underwent ROTR maintenance. If so, then
|
||||
// we must also check if this RDS is one of the first two runs after maintenance.
|
||||
// If this is the case, then the RDS must undergo a 100% scan.
|
||||
|
||||
MaintScanReq = QA_Services('GetMaintenanceScanStatus', RDSKey)
|
||||
FailScanReq = (FailScanReq or MaintScanReq or WafersRemoved)
|
||||
// Search for '100' in the recipe name to determine if this is a failure scan.
|
||||
If (WafersRemoved) then
|
||||
FailureScan = Index(ScanRecipes, '25', 1)
|
||||
end else
|
||||
FailureScan = (Index(ScanRecipes, '100', 1) or Index(ScanRecipes, '25', 1))
|
||||
end
|
||||
If FailureScan GT 0 then FailureScan = True$
|
||||
If (FailScanReq EQ True$) and (FailureScan EQ True$) then
|
||||
// Fail scan was required and submitted, so turn off all fail scan required flags.
|
||||
FailScanReq = False$
|
||||
NumScans = DCount(ScanRecipes, @VM)
|
||||
For ScanIndex = 1 to NumScans
|
||||
FailScanFlags<0, ScanIndex> = False$
|
||||
Next ScanIndex
|
||||
WafersRemoved = False$
|
||||
end
|
||||
end
|
||||
Begin Case
|
||||
Case WafersRemoved
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = '100% scan required due to aborted run.'
|
||||
Case (FailScanReq EQ True$) and (FailureScan EQ False$) and (ROTREnabled EQ True$)
|
||||
If (MaintScanReq EQ True$) then
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = '100% scan required due to ROTR maint.'
|
||||
end else
|
||||
// If ROTR maintenance flag not set, then wafer fail limit must have been met in
|
||||
// an earlier Tencor run. We must set it here again due to the design of this
|
||||
// MFS.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'Wafer fail limit met - 100% scan required'
|
||||
FailScanReq = True$
|
||||
FailScanFlags<0, ScanRecipeIndex> = FailScanReq
|
||||
end
|
||||
Case (ROTRReactorStatus EQ 'W') and (ROTREnabled EQ True$)
|
||||
// Awaiting ROTR results. Request in queue. This MFS will be triggered
|
||||
// once the request is processed.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ROTRReactorStatusReason
|
||||
Case (ROTRReactorStatus EQ 'F') and (ROTREnabled EQ True$)
|
||||
// Check this case first as to not miss blocking the reactor if necessary.
|
||||
// Block load signature on this reactor for future lots until overriden at Load button
|
||||
// signature click event by supervisor, lead, or engineer.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ROTRReactorStatusReason
|
||||
CIReactorRec = Database_Services('ReadDataRow', 'REACTOR', CIReactor)
|
||||
CIReactorRec<REACTOR_ROTR_STATUS$> = 'F'
|
||||
CIReactorRec<REACTOR_ROTR_STATUS_REASON$> = ROTRReactorStatusReason
|
||||
Database_Services('WriteDataRow','REACTOR',CIReactor,CIReactorRec, True$, False$, True$)
|
||||
ReactorBlocked = True$
|
||||
Case (ScanDefect EQ '') OR (ScanHaze EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data is missing.'
|
||||
Case (SigRequired EQ True$) AND (ScanSig EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan signature is missing.'
|
||||
Case (ScanDefect GT SpecDefect) or (NumFailedWafers GE ROTRFailLimit)
|
||||
If (ROTREnabled EQ True$) then
|
||||
// If a Post Clean is required, then disregard the ROTRFailLimit per Tom Tillery.
|
||||
CleanReq = False$
|
||||
PSNo = Xlate('CLEAN_INSP', CleanInspKeyID, 'PS_NO', 'X')
|
||||
PRSStages = Xlate('PROD_SPEC', PSNo, 'PRS_STAGE_KEY', 'X')
|
||||
If Index(PRSStages, 'POST', 1) then
|
||||
CleanReq = Xlate('PRS_STAGE', PSNo:'*POST', 'CLEAN_SIG_REQ', 'X')
|
||||
end
|
||||
If (NumFailedWafers LT ROTRFailLimit) or (CleanReq EQ True$) or (FailureScan EQ True$) then
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data out of bounds.'
|
||||
end else
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'Wafer fail limit met - 100% scan required'
|
||||
FailScanReq = True$
|
||||
FailScanFlags<0, ScanRecipeIndex> = FailScanReq
|
||||
end
|
||||
end else
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data out of bounds.'
|
||||
end
|
||||
Case (ScanHaze GT SpecHaze)
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan Haze out of bounds.'
|
||||
Case Otherwise$
|
||||
// This scan data is within spec.
|
||||
ROTRAction = 'P'
|
||||
ROTRActionReason = 'Passed'
|
||||
End Case
|
||||
|
||||
// Store this result for final disposition
|
||||
ScanRecipeResults<0, ScanRecipeIndex> = ROTRAction
|
||||
ScanRecipeReasons<0, ScanRecipeIndex> = ROTRActionReason
|
||||
end
|
||||
Next ScanRecipeName
|
||||
|
||||
FinalROTRAction = 'P'
|
||||
FinalROTRActionReason = ''
|
||||
// Final disposition
|
||||
// If no scan data or if any scan data has failed, then FinalROTRAction = F.
|
||||
NumScanRecipes = DCount(ScanRecipes, @VM)
|
||||
If NumScanRecipes EQ 0 then
|
||||
FinalROTRAction = 'F'
|
||||
If WafersRemoved then
|
||||
FinalROTRActionReason = '100% scan required due to aborted run.'
|
||||
end else
|
||||
FinalROTRActionReason = 'Scan data is missing.'
|
||||
end
|
||||
end else
|
||||
NumFailures = Count(ScanRecipeResults, 'F')
|
||||
Begin Case
|
||||
Case NumFailures EQ 0
|
||||
// No failures so this is a pass.
|
||||
FinalROTRAction = 'P'
|
||||
FInalROTRActionReason = ''
|
||||
Case NumFailures EQ 1
|
||||
// Display the failure reason
|
||||
Locate 'F' in ScanRecipeResults using @VM setting ScanRecipeIndex then
|
||||
FailureReason = ScanRecipeReasons<0, ScanRecipeIndex>
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = FailureReason
|
||||
end
|
||||
Case NumFailures GT 1
|
||||
// Inform the user that multiple scans failed
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = 'Multiple scans failed to meet criteria.'
|
||||
End Case
|
||||
end
|
||||
ROTRAction = FinalROTRAction
|
||||
ROTRActionReason = FinalROTRActionReason
|
||||
end
|
||||
|
||||
Case Stage _EQC 'POST'
|
||||
|
||||
If SpecRecipes NE '' then
|
||||
|
||||
// Check each scan recipe.
|
||||
For each ScanRecipeName in ScanRecipes using @VM setting ScanRecipeIndex
|
||||
Locate ScanRecipeName in SpecRecipes using @VM setting SpecRecipeIndex then
|
||||
// Get UCL value from SPC for each spec recipe if they have not yet been retrieved.
|
||||
UCL = Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex>
|
||||
If (UCL EQ '') or (UCL EQ 0) then
|
||||
// The UCL has not yet been retrieved from SPC or an error could have
|
||||
// occurred when the last attempt to retrieve it, so try to get it now.
|
||||
UCL = QA_Services('PostUCLRequest', RDSKey, ScanRecipeName)
|
||||
If (UCL NE '') and (UCL NE 0) then
|
||||
Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex> = UCL
|
||||
end else
|
||||
ErrorMessage = 'Error retrieving UCL value from QA_Services in CLEAN_INSP_ACTIONS'
|
||||
Error_Services('Add', ErrorMessage)
|
||||
end
|
||||
end
|
||||
SpecSampleQty = Record<CLEAN_INSP_SPEC_SS_SAMP_QTY$, SpecRecipeIndex>
|
||||
SpecDefect = Oconv(SpecDefects<0, SpecRecipeIndex>, 'MD0')
|
||||
SpecHaze = Oconv(SpecHazes<0, SpecRecipeIndex>, 'MD2')
|
||||
SpecQty = SpecQuantities<0, SpecRecipeIndex>
|
||||
ScanDefect = Oconv(ScanDefects<0, ScanRecipeIndex>, 'MD0')
|
||||
ScanHaze = Oconv(ScanHazes<0, ScanRecipeIndex>, 'MD3')
|
||||
ScanSig = ScanSigs<0, ScanRecipeIndex>
|
||||
FailureScan = False$
|
||||
// RDS < UCL (SOD Spec Avg) Check
|
||||
ScanSODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$, ScanRecipeIndex>
|
||||
ScanSortPerWafer = Record<CLEAN_INSP_SCAN_SORT_PER_WAFER$, ScanRecipeIndex>
|
||||
WaferCount = 0
|
||||
SODAvgSum = 0
|
||||
SODAvg = OConv(ScanDefectsAvg<0, ScanRecipeIndex>, 'MD3')
|
||||
NumFailedWafers = 0
|
||||
For each WaferSOD in ScanSODPerWafer using @SVM setting WaferIndex
|
||||
WaferSort = ScanSortPerWafer<0, ScanRecipeIndex, WaferIndex>
|
||||
If ( (WaferSOD NE '') or (WaferSort NE '') ) then
|
||||
// We have SOD data for this wafer so check if it is < SOD Max
|
||||
If ( (WaferSOD LE SpecDefect) and (WaferSort NE 'FAIL') ) then
|
||||
WaferCount += 1
|
||||
SODAvgSum += WaferSOD
|
||||
FailedWafers<0, WaferIndex> = False$
|
||||
end else
|
||||
NumFailedWafers += 1
|
||||
FailedWafers<0, WaferIndex> = True$
|
||||
end
|
||||
end
|
||||
Next WaferSOD
|
||||
Record<CLEAN_INSP_NUM_FAILED_WAFERS$, ScanRecipeIndex> = NumFailedWafers
|
||||
If (OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$, ScanRecipeIndex>) EQ '' then
|
||||
// This is the first time we are recording the scanned SOD average value. Store this
|
||||
// for determining reactor health. (ROTR Status)
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG_FAIL$, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
end
|
||||
If WaferCount GT 0 and SODAvgSum GT 0 then
|
||||
SODAvg = SODAvgSum / WaferCount
|
||||
// Update scanned SOD average to not include wafers exceeding SOD max
|
||||
// Adjust value to conform to internal storage format
|
||||
ScanDefectsAvg<0, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$> = ScanDefectsAvg
|
||||
end
|
||||
|
||||
Begin Case
|
||||
Case (ScanDefect EQ '') OR (ScanHaze EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data is missing.'
|
||||
Case (SigRequired EQ True$) AND (ScanSig EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan signature is missing.'
|
||||
Case (ScanDefect GT SpecDefect) or (NumFailedWafers GE ROTRFailLimit)
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data out of bounds.'
|
||||
Case (ScanHaze GT SpecHaze)
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan Haze out of bounds.'
|
||||
Case Otherwise$
|
||||
// This scan data is within spec.
|
||||
ROTRAction = 'P'
|
||||
ROTRActionReason = 'Passed'
|
||||
End Case
|
||||
|
||||
// Store this result for final disposition
|
||||
ScanRecipeResults<0, ScanRecipeIndex> = ROTRAction
|
||||
ScanRecipeReasons<0, ScanRecipeIndex> = ROTRActionReason
|
||||
end
|
||||
Next ScanRecipeName
|
||||
|
||||
FinalROTRAction = 'P'
|
||||
FinalROTRActionReason = ''
|
||||
// Final disposition
|
||||
// If no scan data or if any scan data has failed, then FinalROTRAction = F.
|
||||
NumScanRecipes = DCount(ScanRecipes, @VM)
|
||||
If NumScanRecipes EQ 0 then
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = 'Scan data is missing.'
|
||||
end else
|
||||
|
||||
TotalScanWfrCnt = Count(FailedWafers, '0') + Count(FailedWafers, '1')
|
||||
|
||||
Begin Case
|
||||
Case (SpecSampleQty EQ '')
|
||||
QtyMismatch = 'Error determining sample qty spec'
|
||||
Case (TotalScanWfrCnt LT SpecSampleQty)
|
||||
QtyMismatch = 'Min sample quantity not met.'
|
||||
Case Otherwise$
|
||||
QtyMismatch = ''
|
||||
// Set flag to inform FQA that POST surfscan failure results should be used instead.
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||
RDSRec<RDS_POST_SUPERCEDE$> = True$
|
||||
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, True$)
|
||||
End Case
|
||||
|
||||
NumFailures = Count(ScanRecipeResults, 'F')
|
||||
Begin Case
|
||||
Case ( (QtyMismatch NE '') and Not(IsEpiPro) )
|
||||
FinalROTRAction = 'F'
|
||||
FInalROTRActionReason = QtyMismatch
|
||||
Case NumFailures EQ 0
|
||||
// No failures so this is a pass.
|
||||
FinalROTRAction = 'P'
|
||||
FInalROTRActionReason = ''
|
||||
Case NumFailures EQ 1
|
||||
// Display the failure reason
|
||||
Locate 'F' in ScanRecipeResults using @VM setting ScanRecipeIndex then
|
||||
FailureReason = ScanRecipeReasons<0, ScanRecipeIndex>
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = FailureReason
|
||||
end
|
||||
Case NumFailures GT 1
|
||||
// Inform the user that multiple scans failed
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = 'Multiple scans failed to meet criteria.'
|
||||
End Case
|
||||
end
|
||||
ROTRAction = FinalROTRAction
|
||||
ROTRActionReason = FinalROTRActionReason
|
||||
end
|
||||
|
||||
End Case
|
||||
end else
|
||||
// Recipe mismatch field set. Set ROTR to failed and inform user.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ScanMismatch:' does not match spec.'
|
||||
end
|
||||
If ROTRAction EQ 'P' then
|
||||
// Clear any previously set failure reasons or failure scan flags.
|
||||
ROTRActionReason = ''
|
||||
NumScans = DCount(ScanRecipes, @VM)
|
||||
For ScanIndex = 1 to NumScans
|
||||
FailScanFlags<0, ScanIndex> = False$
|
||||
Next ScanIndex
|
||||
Record<CLEAN_INSP_WAFERS_REMOVED$> = False$
|
||||
end
|
||||
Record<CLEAN_INSP_ROTR_ACTION$> = ROTRAction
|
||||
Record<CLEAN_INSP_ROTR_ACTION_REASON$> = ROTRActionReason
|
||||
Record<CLEAN_INSP_FAIL_SCAN_REQ$> = FailScanFlags
|
||||
Record<CLEAN_INSP_SCAN_RESULT$> = ScanRecipeResults
|
||||
Record<CLEAN_INSP_SCAN_RESULT_REASON$> = ScanRecipeReasons
|
||||
Record<CLEAN_INSP_FAILED_WAFERS$> = FailedWafers
|
||||
|
||||
SaveRecord = Record
|
||||
Server = Environment_Services('GetServer')
|
||||
If (Server NE 'MESSA005') AND (Server NE 'MESSA01EC') then
|
||||
// The metrology data was updated by an end user on a workstation. Add this information to a special log
|
||||
// for Balan.
|
||||
Post_Metrology_Manual_Data_Entry_Log(@USER4,'Tencor',Record<CLEAN_INSP_RDS_NO$>:' / ':CleanInspKeyID)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
WRITE_RECORD:
|
||||
|
||||
WONo = Record<CLEAN_INSP_WO_NO$>
|
||||
ReactType = Xlate('WO_LOG', WONo, 'REACT_TYPE', 'X')
|
||||
EpiPro = (ReactType EQ 'EPP')
|
||||
GaN = (ReactType EQ 'GAN')
|
||||
NonEpiPro = ( (ReactType NE 'EPP') and (ReactType NE 'GAN') )
|
||||
Stage = Record<CLEAN_INSP_STAGE$>
|
||||
|
||||
If Stage EQ 'LWI' then
|
||||
RDSNo = Record<CLEAN_INSP_RDS_NO$>
|
||||
PostCIKey = Xlate('RDS', RDSNo, 'POST_CI_NO', 'X')
|
||||
If PostCIKey NE '' then
|
||||
FailedWafers = Record<CLEAN_INSP_FAILED_WAFERS$>
|
||||
If FailedWafers NE '' then
|
||||
NewPostSpecSampleQty = Sum(FailedWafers)
|
||||
PostCIRec = Database_Services('ReadDataRow', 'CLEAN_INSP', PostCIKey)
|
||||
PostSpecRecipes = PostCIRec<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
NumRecipes = DCount(PostSpecRecipes, @VM)
|
||||
If NumRecipes GT 0 then
|
||||
For RecipeIndex = 1 to NumRecipes
|
||||
CurrSpec = PostCIRec<CLEAN_INSP_SPEC_SS_SAMP_QTY$, RecipeIndex>
|
||||
If ( (CurrSpec EQ '') or (CurrSpec LT NewPostSpecSampleQty) ) then
|
||||
PostCIRec<CLEAN_INSP_SPEC_SS_SAMP_QTY$, RecipeIndex> = NewPostSpecSampleQty
|
||||
end
|
||||
Next RecipeIndex
|
||||
Database_Services('WriteDataRow', 'CLEAN_INSP', PostCIKey, PostCIRec, True$, False$, True$)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
If NonEpiPro then
|
||||
// Sync up Insp, Clean, and SurfScan signatures with WO_MAT signature profile
|
||||
Stage = {STAGE}
|
||||
|
||||
WOMatKey = {WO_MAT_KEY}
|
||||
// Update failed wafer list
|
||||
QA_Services('UpdateFailedWafers', WOMatKey)
|
||||
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||
WOMatSigProf = WOMatRec<WO_MAT_SIG_PROFILE$>
|
||||
WOMatSigs = WOMatRec<WO_MAT_SIGNATURE$>
|
||||
WOMatSigDTMs = WOMatRec<WO_MAT_SIG_DTM$>
|
||||
|
||||
OrigInspSig = OrigRecord<CLEAN_INSP_INSP_SIG$>
|
||||
OrigInspSigDTM = OrigRecord<CLEAN_INSP_INSP_SIG_DTM$>
|
||||
InspSig = Record<CLEAN_INSP_INSP_SIG$>
|
||||
InspSigDTM = Record<CLEAN_INSP_INSP_SIG_DTM$>
|
||||
|
||||
OrigCleanSig = OrigRecord<CLEAN_INSP_CLEAN_SIG$>
|
||||
OrigCleanSigDTM = OrigRecord<CLEAN_INSP_CLEAN_SIG_DTM$>
|
||||
CleanSig = Record<CLEAN_INSP_CLEAN_SIG$>
|
||||
CleanSigDTM = Record<CLEAN_INSP_CLEAN_SIG_DTM$>
|
||||
|
||||
OrigScanSig = OrigRecord<CLEAN_INSP_SCAN_SIG$>
|
||||
OrigScanSigDTM = OrigRecord<CLEAN_INSP_SCAN_SIG_DTM$>
|
||||
ScanSig = Record<CLEAN_INSP_SCAN_SIG$>
|
||||
ScanSigDTM = Record<CLEAN_INSP_SCAN_SIG_DTM$>
|
||||
|
||||
SigProfUpdate = False$
|
||||
|
||||
|
||||
If ( (OrigInspSig NE InspSig) or (OrigInspSigDTM NE InspSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'I'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = InspSig
|
||||
WOMatSigDTMs<0, vPos> = InspSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If ( (OrigCleanSig NE CleanSig) or (OrigCleanSigDTM NE CleanSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'C'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = CleanSig
|
||||
WOMatSigDTMs<0, vPos> = CleanSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If ( (OrigScanSig NE ScanSig) or (OrigScanSigDTM NE ScanSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'S'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = ScanSig
|
||||
WOMatSigDTMs<0, vPos> = ScanSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If SigProfUpdate then
|
||||
WOMatRec<WO_MAT_SIGNATURE$> = WOMatSigs
|
||||
WOMatRec<WO_MAT_SIG_DTM$> = WOMatSigDTMs
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec, True$, False$, True$)
|
||||
end
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
DELETE_RECORD_PRE:
|
||||
return
|
||||
|
||||
DELETE_RECORD:
|
||||
return
|
||||
|
||||
|
||||
// ----- Internal Methods ----------------------------------------------------------------------------------------------
|
||||
|
||||
Initialize_System_Variables:
|
||||
// Save these for restoration later
|
||||
SaveDict = @DICT
|
||||
SaveID = @ID
|
||||
SaveRecord = @RECORD
|
||||
OrigFileError = @FILE.ERROR
|
||||
|
||||
// Now make sure @DICT, ID, and @RECORD are populated
|
||||
CurrentDictName = ''
|
||||
If @DICT then
|
||||
DictHandle = @DICT<1, 2>
|
||||
Locate DictHandle in @TABLES(5) Using @FM Setting fPos then
|
||||
CurrentDictName = Field(@TABLES(0), @FM, fPos, 1)
|
||||
end
|
||||
end
|
||||
|
||||
If CurrentDictName NE DictName then
|
||||
Open DictName to @DICT else Status = 'Unable to initialize @DICT'
|
||||
end
|
||||
|
||||
@ID = KeyID
|
||||
If Record else
|
||||
// Record might not have been passed in. Read the record from the database table just to make sure.
|
||||
@FILE.ERROR = ''
|
||||
Open TableName to hTable then
|
||||
FullFSList = hTable[1, 'F' : @VM]
|
||||
BFS = FullFSList[-1, 'B' : @SVM]
|
||||
LastHandle = hTable[-1, 'B' : \0D\]
|
||||
FileHandle = \0D\ : LastHandle[1, @VM]
|
||||
|
||||
Call @BFS(READO.RECORD, BFS, FileHandle, KeyID, FMC, Record, ReadOStatus)
|
||||
end
|
||||
end
|
||||
@RECORD = Record
|
||||
return
|
||||
|
||||
Restore_System_Variables:
|
||||
Transfer SaveDict to @DICT
|
||||
Transfer SaveID to @ID
|
||||
Transfer SaveRecord to @RECORD
|
||||
@FILE.ERROR = OrigFileError
|
||||
return
|
||||
|
||||
871
LSL2/STPROC/CLEAN_INSP_ACTIONS_DEV.txt
Normal file
871
LSL2/STPROC/CLEAN_INSP_ACTIONS_DEV.txt
Normal file
@ -0,0 +1,871 @@
|
||||
Function CLEAN_INSP_Actions_Dev(Action, CalcColName, FSList, Handle, Name, FMC, Record, Status, OrigRecord, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10)
|
||||
/***********************************************************************************************************************
|
||||
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
||||
permission from Infineon.
|
||||
|
||||
Name : CLEAN_INSP_Actions
|
||||
|
||||
Description : Handles calculated columns and MFS calls for the current table.
|
||||
|
||||
Notes : This function uses @ID, @RECORD, and @DICT to make sure {ColumnName} references work correctly.
|
||||
If called from outside of a calculated column these will need to be set and restored.
|
||||
|
||||
Parameters :
|
||||
Action [in] -- Name of the action to be taken
|
||||
CalcColName [in] -- Name of the calculated column that needs to be processed. Normally this should only be
|
||||
populated when the CalcField action is being used.
|
||||
FSList [in] -- The list of MFSs and the BFS name for the current file or volume. This is an @SVM
|
||||
delimited array, with the current MFS name as the first value in the array, and the BFS
|
||||
name as the last value. Normally set by a calling MFS.
|
||||
Handle [in] -- The file handle of the file or media map being accessed. Note, this does contain the
|
||||
entire handle structure that the Basic+ Open statement would provide. Normally set by a
|
||||
calling MFS.
|
||||
Name [in] -- The name (key) of the record or file being accessed. Normally set by a calling MFS.
|
||||
FMC [in] -- Various functions. Normally set by a calling MFS.
|
||||
Record [in] -- The entire record (for record-oriented functions) or a newly-created handle (for
|
||||
"get handle" functions). Normally set by a calling MFS.
|
||||
Status [in/out] -- Indicator of the success or failure of an action. Normally set by the calling MFS but
|
||||
for some actions can be set by the action handler to indicate failure.
|
||||
OrigRecord [in] -- Original content of the record being processed by the current action. This is
|
||||
automatically being assigned by the WRITE_RECORD and DELETE_RECORD actions within
|
||||
BASE_MFS.
|
||||
Param1-10 [in/out] -- Additional request parameter holders
|
||||
ActionFlow [out] -- Used to control the action chain (see the ACTION_SETUP insert for more information.)
|
||||
Can also be used to return a special value, such as the results of the CalcField
|
||||
method.
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
07/28/10 dmb Original programmer.
|
||||
10/13/10 dmb Fix logic to extract the file handle if file has an index
|
||||
03/26/11 dmb Add logic to save and restore @FILE.ERROR
|
||||
01/03/17 dmb Updated the ROTR compare logic to search for a recipe match.
|
||||
04/09/18 dmb Updated the ROTR compare logic to be limited to FWI stages. Also modified the default logic
|
||||
to be Failed unless proven otherwise.
|
||||
04/19/18 djs Update ROTR compare logic to support multiple spec recipes.
|
||||
05/04/18 dmb Update the special metrology log entry log to use the GetServer service rather than the
|
||||
@STATION global variable.
|
||||
06/13/18 dmb Replaced CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$ with CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$ when comparing
|
||||
against the Sum of Defects in the SurfScan recipe. - [IREPIOI-43]
|
||||
09/24/18 djs Adjusted the OConv call on the ScanDefect variable within the WRITE_RECORD_PRE action.
|
||||
10/29/18 djs Updated the WRITE_RECORD_PRE event to calculate the SOD average to only use wafers that
|
||||
are below the USL (SOD Max) as per ROTR Project requirements. Also updated the UCL request
|
||||
using QA_Services to include the scanned Tencor Recipe name in order to return the UCL
|
||||
associated with the particular recipe being processed at that time.
|
||||
06/07/19 djs Updated the WRITE_RECORD_PRE GoSub to support ROTR requirements for POST stage SurfScan
|
||||
rundata files.
|
||||
08/12/20 djs Added logging within the WRITE_RECORD_PRE GoSub to gather data for a bug within the
|
||||
Metrology_Services('ImportMetrologyService') subroutine. Occasionally the DB server is
|
||||
getting an out of memory error when importing metrology files.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$insert APP_INSERTS
|
||||
$insert FILE.SYSTEM.EQUATES
|
||||
$insert ACTION_SETUP
|
||||
$insert CLEAN_INSP_EQUATES
|
||||
$insert REACTOR_EQUATES
|
||||
$insert RDS_EQUATES
|
||||
$insert WM_OUT_EQUATES
|
||||
$insert WO_LOG_EQUATES
|
||||
$insert ROTR_EQUATES
|
||||
$insert WO_MAT_EQUATES
|
||||
|
||||
Equ Comma$ to ','
|
||||
|
||||
Declare function Error_Services, Database_Services, Environment_Services, QA_Services, Logging_Services, RDS_Services
|
||||
Declare function Trim
|
||||
Declare subroutine Error_Services, Database_Services, Post_Metrology_Manual_Data_Entry_Log, Logging_Services
|
||||
Declare subroutine Qa_Services
|
||||
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\CleanInsp'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' CLEAN_INSP Log.csv'
|
||||
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'RDS Key ID' : @FM : 'CLEAN_INSP Key ID' : @FM : 'Notes' : @FM : 'Stack'
|
||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\FQABlocked'
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' FQA Log.csv'
|
||||
Headers = 'Logging DTM' : @FM : 'RDS Key ID' : @FM : 'Table' : @FM : 'Key' : @FM : 'Notes'
|
||||
FQAobjLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||
|
||||
If KeyID then GoSub Initialize_System_Variables
|
||||
|
||||
Begin Case
|
||||
|
||||
Case Action _EQC 'CalculateColumn' ; GoSub CalculateColumn
|
||||
Case Action _EQC 'READ_RECORD_PRE' ; GoSub READ_RECORD_PRE
|
||||
Case Action _EQC 'READ_RECORD' ; GoSub READ_RECORD
|
||||
Case Action _EQC 'READONLY_RECORD_PRE' ; GoSub READONLY_RECORD_PRE
|
||||
Case Action _EQC 'READONLY_RECORD' ; GoSub READONLY_RECORD
|
||||
Case Action _EQC 'WRITE_RECORD_PRE' ; GoSub WRITE_RECORD_PRE
|
||||
Case Action _EQC 'WRITE_RECORD' ; GoSub WRITE_RECORD
|
||||
Case Action _EQC 'DELETE_RECORD_PRE' ; GoSub DELETE_RECORD_PRE
|
||||
Case Action _EQC 'DELETE_RECORD' ; GoSub DELETE_RECORD
|
||||
Case Otherwise$ ; Status = 'Invalid Action'
|
||||
|
||||
End Case
|
||||
|
||||
If KeyID then GoSub Restore_System_Variables
|
||||
|
||||
If Assigned(ActionFlow) else ActionFlow = ACTION_CONTINUE$
|
||||
|
||||
Return ActionFlow
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Calculated Columns
|
||||
//
|
||||
// The typical structure of a calculated column will look like this:
|
||||
//
|
||||
// Declare function Database_Services
|
||||
//
|
||||
// @ANS = Database_Services('CalculateColumn')
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
CalculateColumn:
|
||||
// Make sure the ActionFlow return variable is cleared in case nothing is calculated.
|
||||
ActionFlow = ''
|
||||
|
||||
Begin Case
|
||||
Case CalcColName EQ 'INSP_REQ' ; GoSub INSP_REQ
|
||||
Case CalcColName EQ 'RDS_ROTR_ACTION' ; GoSub RDS_ROTR_ACTION
|
||||
End Case
|
||||
|
||||
return
|
||||
|
||||
|
||||
INSP_REQ:
|
||||
|
||||
RDSNo = {RDS_NO}
|
||||
WONo = {WO_NO}
|
||||
WOQty = Xlate('WO_LOG', WONo, 'QTY', 'X')
|
||||
RunNo = Xlate('RDS', RDSNo, 'RUN_ORDER_NUM', 'X')
|
||||
InspInterval = Xlate('PRS_STAGE', {PS_STAGE_KEY}, 'INSP_INTERVAL', 'X')
|
||||
LastRun = ( (RunNo * 25) EQ WOQty )
|
||||
InspReq = ( (Mod((RunNo - 1), InspInterval) EQ 0) or LastRun )
|
||||
ActionFlow = InspReq
|
||||
|
||||
return
|
||||
|
||||
|
||||
RDS_ROTR_ACTION:
|
||||
|
||||
|
||||
ROTRAction = {ROTR_ACTION}
|
||||
If ROTRAction EQ 'F' then
|
||||
// Before returning a Fail, check to see if there is an acceptance for the results.
|
||||
AcceptedSignature = {SIGN_ROTR_SIGNATURE}
|
||||
AcceptedReason = {SIGN_ROTR_REASON}
|
||||
If (AcceptedSignature NE '') AND (AcceptedReason NE '') then ROTRAction = 'A'
|
||||
end
|
||||
ActionFlow = ROTRAction
|
||||
|
||||
return
|
||||
|
||||
|
||||
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
||||
|
||||
READ_RECORD_PRE:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
// ActionFlow = ACTION_STOP$
|
||||
return
|
||||
|
||||
|
||||
READ_RECORD:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
return
|
||||
|
||||
|
||||
READONLY_RECORD_PRE:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
// ActionFlow = ACTION_STOP$
|
||||
return
|
||||
|
||||
READONLY_RECORD:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
return
|
||||
|
||||
|
||||
WRITE_RECORD_PRE:
|
||||
|
||||
OrigRecCopy = OrigRecord
|
||||
RecCopy = Record
|
||||
Convert @VM to '' in OrigRecCopy
|
||||
Convert @VM to '' in RecCopy
|
||||
// LWII Specification limits
|
||||
|
||||
OrigLWIISpecLPD = Trim(OrigRecCopy<CLEAN_INSP_INSP_LPD$>)
|
||||
OrigLWIISpecScr = Trim(OrigRecCopy<CLEAN_INSP_INSP_SCRATCHES$>)
|
||||
OrigLWIISpecScrLen = Trim(OrigRecCopy<CLEAN_INSP_INSP_SCRATCH_LEN$>)
|
||||
OrigLWIISpecPits = Trim(OrigRecCopy<CLEAN_INSP_INSP_PITS$>)
|
||||
OrigLWIISpecMounds = Trim(OrigRecCopy<CLEAN_INSP_INSP_MOUNDS$>)
|
||||
OrigLWIISpecStack = Trim(OrigRecCopy<CLEAN_INSP_INSP_STACK_FAULTS$>)
|
||||
OrigLWIISpecSpikes = Trim(OrigRecCopy<CLEAN_INSP_INSP_SPIKES$>)
|
||||
OrigLWIISpecSpots = Trim(OrigRecCopy<CLEAN_INSP_INSP_SPOTS$>)
|
||||
OrigLWIISpecBLDef = Trim(OrigRecCopy<CLEAN_INSP_INSP_BL_DEFECTS$>)
|
||||
OrigLWIISpecFOV = Trim(OrigRecCopy<CLEAN_INSP_INSP_FOV$>)
|
||||
NewLWIISpecLPD = Trim(RecCopy<CLEAN_INSP_INSP_LPD$>)
|
||||
NewLWIISpecScr = Trim(RecCopy<CLEAN_INSP_INSP_SCRATCHES$>)
|
||||
NewLWIISpecScrLen = Trim(RecCopy<CLEAN_INSP_INSP_SCRATCH_LEN$>)
|
||||
NewLWIISpecPits = Trim(RecCopy<CLEAN_INSP_INSP_PITS$>)
|
||||
NewLWIISpecMounds = Trim(RecCopy<CLEAN_INSP_INSP_MOUNDS$>)
|
||||
NewLWIISpecStack = Trim(RecCopy<CLEAN_INSP_INSP_STACK_FAULTS$>)
|
||||
NewLWIISpecSpikes = Trim(RecCopy<CLEAN_INSP_INSP_SPIKES$>)
|
||||
NewLWIISpecSpots = Trim(RecCopy<CLEAN_INSP_INSP_SPOTS$>)
|
||||
NewLWIISpecBLDef = Trim(RecCopy<CLEAN_INSP_INSP_BL_DEFECTS$>)
|
||||
NewLWIISpecFOV = Trim(RecCopy<CLEAN_INSP_INSP_FOV$>)
|
||||
|
||||
// LWII Signature
|
||||
OrigLWIISig = Trim(OrigRecCopy<CLEAN_INSP_INSP_SIG$>)
|
||||
OrigLWIIDtm = Trim(OrigRecCopy<CLEAN_INSP_INSP_SIG_DTM$>)
|
||||
NewLWIISig = Trim(RecCopy<CLEAN_INSP_INSP_SIG$>)
|
||||
NewLWIIDtm = Trim(RecCopy<CLEAN_INSP_INSP_SIG_DTM$>)
|
||||
|
||||
// LWIS Specification Limits
|
||||
OrigLWISRecipe = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>)
|
||||
OrigLWISSpecDef = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURF_DEFECTS$>)
|
||||
OrigLWISSpecHaze = Trim(OrigRecCopy<CLEAN_INSP_SPEC_SURF_HAZE$>)
|
||||
NewLWISRecipe = Trim(RecCopy<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>)
|
||||
NewLWISSpecDef = Trim(RecCopy<CLEAN_INSP_SPEC_SURF_DEFECTS$>)
|
||||
NewLWISSpecHaze = Trim(RecCopy<CLEAN_INSP_SPEC_SURF_HAZE$>)
|
||||
|
||||
// LWIS Signature
|
||||
OrigLWISSig = Trim(OrigRecCopy<CLEAN_INSP_SCAN_SIG$>)
|
||||
OrigLWISDtm = Trim(OrigRecCopy<CLEAN_INSP_SCAN_SIG_DTM$>)
|
||||
NewLWISSig = Trim(RecCopy<CLEAN_INSP_SCAN_SIG$>)
|
||||
NewLWISDtm = Trim(RecCopy<CLEAN_INSP_SCAN_SIG_DTM$>)
|
||||
RDSKeyID = RecCopy<CLEAN_INSP_RDS_NO$>
|
||||
|
||||
RDSNo = RDSKeyID
|
||||
FinalQA = False$
|
||||
RDSRow = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||
WorkOrderNo = RDSRow<RDS_WO$>
|
||||
WorkOrderRow = Database_Services('ReadDataRow', 'WO_LOG', WorkOrderNo)
|
||||
ReactType = WorkOrderRow<WO_LOG_REACT_TYPE$>
|
||||
// Check to see if the Final QA signature is in place.
|
||||
If ReactType EQ 'EPP' then
|
||||
CassetteNos = RDSRow<RDS_OUT_CASS_NO$>
|
||||
OutNCRNos = RDSRow<RDS_OUT_NCR$>
|
||||
For Each CassetteNo in CassetteNos using @VM setting vPos
|
||||
OutNCRNo = OutNCRNos<0, vPos>
|
||||
// Ignore NCRd wafers
|
||||
If OutNCRNo EQ '' then
|
||||
WMOutKey = RDSRow<RDS_WO_STEP_KEY$> : '*' : CassetteNo
|
||||
WMOutRow = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey)
|
||||
If WMOutRow<WM_OUT_SUP_VER_SIG$> NE '' then
|
||||
FinalQA = True$
|
||||
end
|
||||
end
|
||||
Until FinalQA
|
||||
Next CassetteNo
|
||||
end else
|
||||
If RDSRow<RDS_SUP_VER_SIG$> NE '' then
|
||||
FinalQA = True$
|
||||
end
|
||||
end
|
||||
If @USER4 EQ 'DANIEL_ST' then FinalQA = False$
|
||||
// If Final QA signature is in place, implement the control logic.
|
||||
If FinalQA EQ True$ then
|
||||
|
||||
// User is attempting to modify this row. Set the FS104 error and log the event.
|
||||
Error_Services('Add', 'FS104:FQA has already been signed. CLEAN_INSP record cannot be updated!')
|
||||
OrigFileError = 104 : @FM : 'FQA has already been signed. CLEAN_INSP record cannot be updated!'
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDTM
|
||||
LogData<2> = @User4
|
||||
LogData<3> = RDSNo
|
||||
LogData<4> = 'CLEAN_INSP'
|
||||
LogData<5> = Name
|
||||
LogData<6> = 'FS104:FQA has already been signed. CLEAN_INSP record cannot be updated!'
|
||||
Logging_Services('AppendLog', FQAobjLog, LogData, @RM, @FM)
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
|
||||
end else
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDTM
|
||||
LogData<2> = @USER4
|
||||
LogData<3> = RDSKeyID
|
||||
LogData<4> = Name
|
||||
LogData<5> = 'Begin log trace'
|
||||
Stack = RetStack()
|
||||
Swap @FM with ' || ' in Stack
|
||||
LogData<6> = Stack
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
|
||||
If ( (OrigLWIISpecLPD NE '') and (NewLWIISpecLPD EQ '') ) |
|
||||
or ( (OrigLWIISpecScr NE '') and (NewLWIISpecScr EQ '') ) |
|
||||
or ( (OrigLWIISpecScrLen NE '') and (NewLWIISpecScrLen EQ '') ) |
|
||||
or ( (OrigLWIISpecPits NE '') and (NewLWIISpecPits EQ '') ) |
|
||||
or ( (OrigLWIISpecMounds NE '') and (NewLWIISpecMounds EQ '') ) |
|
||||
or ( (OrigLWIISpecStack NE '') and (NewLWIISpecStack EQ '') ) |
|
||||
or ( (OrigLWIISpecSpikes NE '') and (NewLWIISpecSpikes EQ '') ) |
|
||||
or ( (OrigLWIISpecSpots NE '') and (NewLWIISpecSpots EQ '') ) |
|
||||
or ( (OrigLWIISpecBLDef NE '') and (NewLWIISpecBLDef EQ '') ) |
|
||||
or ( (OrigLWIISpecFOV NE '') and (NewLWIISpecFOV EQ '') ) |
|
||||
or ( (OrigLWIISig NE '') and (NewLWIISig EQ '') ) |
|
||||
or ( (OrigLWIIDtm NE '') and (NewLWIIDtm EQ '') ) |
|
||||
or ( (OrigLWISRecipe NE '') and (NewLWISRecipe EQ '') ) |
|
||||
or ( (OrigLWISSpecDef NE '') and (NewLWISSpecDef EQ '') ) |
|
||||
or ( (OrigLWISSpecHaze NE '') and (NewLWISSpecHaze EQ '') ) |
|
||||
or ( (OrigLWISSig NE '') and (NewLWISSig EQ '') ) |
|
||||
or ( (OrigLWISDtm NE '') and (NewLWISDtm EQ '') ) and @User4 NE 'DANIEL_ST' then
|
||||
|
||||
// User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
|
||||
Error_Services('Add', 'FS104:Specification limits or signature data cannot be removed. Clean & Insp record cannot be updated!')
|
||||
OrigFileError = 104 : @FM : 'Specification limits or signature data cannot be removed. Clean & Insp record cannot be updated!'
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDTM
|
||||
LogData<2> = @USER4
|
||||
LogData<3> = RDSKeyID
|
||||
LogData<4> = Name
|
||||
LogData<5> = RetStack()
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
|
||||
end else
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDTM
|
||||
LogData<2> = @USER4
|
||||
LogData<3> = RDSKeyID
|
||||
LogData<4> = Name
|
||||
LogData<5> = 'Log trace 1'
|
||||
LogData<6> = ''
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
|
||||
Stage = Record<CLEAN_INSP_STAGE$>
|
||||
IsEpiPro = Rds_Services('IsEpiPro', RDSKeyID)
|
||||
// This ROTR logic is only applicable to LWI clean & inspection rows.
|
||||
CleanInspKeyID = Name
|
||||
|
||||
// Get the current signature required and signature entries.
|
||||
SigRequired = Record<CLEAN_INSP_SPEC_SURFSCAN_REQ$>
|
||||
ScanSigs = Record<CLEAN_INSP_SCAN_SIG$>
|
||||
// Get the specifications
|
||||
SpecRecipes = Record<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
SpecDefects = Record<CLEAN_INSP_SPEC_SURF_DEFECTS$> ; // USL - Spec SOD Max
|
||||
SpecHazes = Record<CLEAN_INSP_SPEC_SURF_HAZE$>
|
||||
SpecQuantities = Record<CLEAN_INSP_SPEC_SS_SAMP_QTY$>
|
||||
// Get the new scanned values
|
||||
ScanRecipes = Record<CLEAN_INSP_SCAN_RECIPE$>
|
||||
ScanTools = Record<CLEAN_INSP_SCAN_TOOL$>
|
||||
ScanDefectsAvg = Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$>
|
||||
ScanDefects = Record<CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$>
|
||||
ScanHazes = Record<CLEAN_INSP_SCAN_HAZE_AVG_AVG$>
|
||||
ScanMismatch = Record<CLEAN_INSP_SCAN_RECIPE_MISMATCH$>
|
||||
QtyMismatch = Record<CLEAN_INSP_SCAN_SAMPLE_QTY_MISMATCH$>
|
||||
// Get scan results
|
||||
ScanRecipeResults = Record<CLEAN_INSP_SCAN_RESULT$>
|
||||
ScanRecipeReasons = Record<CLEAN_INSP_SCAN_RESULT_REASON$>
|
||||
|
||||
// Get the original scanned values
|
||||
SpecRecipesOrig = OrigRecord<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$>
|
||||
ScanRecipesOrig = OrigRecord<CLEAN_INSP_SCAN_RECIPE$>
|
||||
ScanDefectsAvgOrig = OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$>
|
||||
ScanDefectsOrig = OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_MAX$>
|
||||
ScanHazesOrig = OrigRecord<CLEAN_INSP_SCAN_HAZE_AVG_AVG$>
|
||||
ScanMismatchOrig = OrigRecord<CLEAN_INSP_SCAN_RECIPE_MISMATCH$>
|
||||
QtyMismatchOrig = OrigRecord<CLEAN_INSP_SCAN_SAMPLE_QTY_MISMATCH$>
|
||||
// Get the original signature required and signature entries.
|
||||
SigRequiredOrig = OrigRecord<CLEAN_INSP_SPEC_SURFSCAN_REQ$>
|
||||
ScanSigsOrig = OrigRecord<CLEAN_INSP_SCAN_SIG$>
|
||||
// Get the individual SOD values per wafer.
|
||||
SODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$>
|
||||
SODPerWaferOrig = OrigRecord<CLEAN_INSP_SCAN_SOD_PER_WAFER$>
|
||||
// Get the 100 failure scan flags, which is null by default and set/cleared by this MFS.
|
||||
FailScanFlags = Record<CLEAN_INSP_FAIL_SCAN_REQ$>
|
||||
FailScanReq = Sum(FailScanFlags)
|
||||
If FailScanReq GT 0 then
|
||||
FailScanReq = True$
|
||||
end else
|
||||
FailScanReq = False$
|
||||
end
|
||||
|
||||
// Get ROTR Reactor values
|
||||
ROTRReactorStatus = Record<CLEAN_INSP_ROTR_REACTOR_STATUS$>
|
||||
ROTRReactorStatusReason = Record<CLEAN_INSP_ROTR_REACTOR_STATUS_REASON$>
|
||||
|
||||
If OrigRecord NE Record then
|
||||
// Reset ROTR update flag so that future ROTR requests will re-trigger this routine (via BASE_MFS).
|
||||
Record<CLEAN_INSP_ROTR_UPDATE_FLAG$> = False$
|
||||
LogData<5> = 'Log trace 2'
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
// Tencor data has been updated. Update the ROTR_ACTION data column in the CLEAN_INSP record.
|
||||
// Check if ScanMismatch field has been set by Metrology_Services. If so, then the user attempted to
|
||||
// load run data, which containted the wrong recipe name. (i.e. it did not match the spec recipe)
|
||||
If (ScanMismatch EQ '') then
|
||||
If (QtyMismatch EQ '') or (IsEpiPro EQ True$) then
|
||||
RDSKey = Record<CLEAN_INSP_RDS_NO$>
|
||||
NumScanRecipes = DCount(ScanRecipes, @VM)
|
||||
ROTRAction = ''
|
||||
ROTRActionReason = ''
|
||||
Begin Case
|
||||
Case Stage _EQC 'LWI'
|
||||
LogData<5> = 'Log trace 3'
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
CIReactor = Xlate('CLEAN_INSP', CleanInspKeyID, 'REACT_NO', 'X')
|
||||
ROTREnabled = Xlate('REACTOR', CIReactor, 'ENABLE_ROTR', 'X')
|
||||
ReactorBlocked = False$ ;// Assume false until proven otherwise.
|
||||
// ROTR Reactor/PSN Status Health Check - Uses parameters set within the ROTR Parameters form.
|
||||
// We only need to run this once per CLEAN_INSP record.
|
||||
ROTRStatus = 'P' ; // Assume pass until proven otherwise.
|
||||
If ( (ROTREnabled EQ True$) and (ROTRReactorStatus EQ '') ) then
|
||||
ROTRReactorStatus = 'W'
|
||||
ROTRReactorStatusReason = 'ROTR awaiting processing'
|
||||
// Set ROTR Reactor processing status so that the WRITE_RECORD_POST event will
|
||||
// post an ROTR request to calculate the reactor ROTR health for this run.
|
||||
QA_Services('PostROTRRequest', RDSKey)
|
||||
end
|
||||
LogData<5> = 'Log trace 4'
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
// Check each scan recipe.
|
||||
For each ScanRecipeName in ScanRecipes using @VM setting ScanRecipeIndex
|
||||
Locate ScanRecipeName in SpecRecipes using @VM setting SpecRecipeIndex then
|
||||
// Get UCL value from SPC for each spec recipe if they have not yet been retrieved.
|
||||
UCL = Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex>
|
||||
If (UCL EQ '') or (UCL EQ 0) then
|
||||
// The UCL has not yet been retrieved from SPC or an error could have
|
||||
// occurred when the last attempt to retrieve it, so try to get it now.
|
||||
UCL = QA_Services('PostUCLRequest', RDSKey, SpecRecipeName)
|
||||
If (UCL NE '') and (UCL NE 0) then
|
||||
Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex> = UCL
|
||||
end else
|
||||
ErrorMessage = 'Error retrieving UCL value from QA_Services in CLEAN_INSP_ACTIONS'
|
||||
Error_Services('Add', ErrorMessage)
|
||||
end
|
||||
end
|
||||
SpecDefect = Oconv(SpecDefects<0, SpecRecipeIndex>, 'MD0')
|
||||
SpecHaze = Oconv(SpecHazes<0, SpecRecipeIndex>, 'MD2')
|
||||
SpecQty = SpecQuantities<0, SpecRecipeIndex>
|
||||
ScanDefect = Oconv(ScanDefects<0, ScanRecipeIndex>, 'MD0')
|
||||
ScanHaze = Oconv(ScanHazes<0, ScanRecipeIndex>, 'MD3')
|
||||
ScanSig = ScanSigs<0, ScanRecipeIndex>
|
||||
FailureScan = False$
|
||||
// RDS < UCL (SOD Spec Avg) Check
|
||||
ScanSODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$, ScanRecipeIndex>
|
||||
WaferCount = 0
|
||||
SODAvgSum = 0
|
||||
SODAvg = OConv(ScanDefectsAvg<0, ScanRecipeIndex>, 'MD3')
|
||||
NumFailedWafers = 0
|
||||
For each WaferSOD in ScanSODPerWafer using @SVM setting WaferIndex
|
||||
If WaferSOD NE '' then
|
||||
// We have SOD data for this wafer so check if it is < SOD Max
|
||||
If WaferSOD LE SpecDefect then
|
||||
WaferCount += 1
|
||||
SODAvgSum += WaferSOD
|
||||
end else
|
||||
NumFailedWafers += 1
|
||||
end
|
||||
end
|
||||
Next WaferSOD
|
||||
Record<CLEAN_INSP_NUM_FAILED_WAFERS$, ScanRecipeIndex> = NumFailedWafers
|
||||
If (OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$, ScanRecipeIndex>) EQ '' then
|
||||
// This is the first time we are recording the scanned SOD average value. Store this
|
||||
// for determining reactor health. (ROTR Status)
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG_FAIL$, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
end
|
||||
If WaferCount GT 0 and SODAvgSum GT 0 then
|
||||
SODAvg = SODAvgSum / WaferCount
|
||||
// Update scanned SOD average to not include wafers exceeding SOD max
|
||||
// Adjust value to conform to internal storage format
|
||||
ScanDefectsAvg<0, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$> = ScanDefectsAvg
|
||||
end
|
||||
If (ROTREnabled EQ True$) then
|
||||
// ROTR Sign-off Project
|
||||
// We need to check if reactor recently underwent ROTR maintenance. If so, then
|
||||
// we must also check if this RDS is one of the first two runs after maintenance.
|
||||
// If this is the case, then the RDS must undergo a 100% scan.
|
||||
|
||||
MaintScanReq = QA_Services('GetMaintenanceScanStatus', RDSKey)
|
||||
FailScanReq = (FailScanReq or MaintScanReq)
|
||||
// Search for '100' in the recipe name to determine if this is a failure scan.
|
||||
FailureScan = (Index(ScanRecipes, '100', 1) or Index(ScanRecipes, '25', 1))
|
||||
If FailureScan GT 0 then FailureScan = True$
|
||||
If (FailScanReq EQ True$) and (FailureScan EQ True$) then
|
||||
// Fail scan was required and submitted, so turn off all fail scan required flags.
|
||||
FailScanReq = False$
|
||||
NumScans = DCount(ScanRecipes, @VM)
|
||||
For ScanIndex = 1 to NumScans
|
||||
FailScanFlags<0, ScanIndex> = False$
|
||||
Next ScanIndex
|
||||
end
|
||||
end
|
||||
Begin Case
|
||||
Case (FailScanReq EQ True$) and (FailureScan EQ False$) and (ROTREnabled EQ True$)
|
||||
If MaintScanReq EQ True$ then
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = '100% scan required due to ROTR maint.'
|
||||
end else
|
||||
// If ROTR maintenance flag not set, then wafer fail limit must have been met in
|
||||
// an earlier Tencor run. We must set it here again due to the design of this
|
||||
// MFS.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'Wafer fail limit met - 100% scan required'
|
||||
FailScanReq = True$
|
||||
FailScanFlags<0, ScanRecipeIndex> = FailScanReq
|
||||
end
|
||||
Case (ROTRReactorStatus EQ 'W') and (ROTREnabled EQ True$)
|
||||
// Awaiting ROTR results. Request in queue. This MFS will be triggered
|
||||
// once the request is processed.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ROTRReactorStatusReason
|
||||
Case (ROTRReactorStatus EQ 'F') and (ROTREnabled EQ True$)
|
||||
// Check this case first as to not miss blocking the reactor if necessary.
|
||||
// Block load signature on this reactor for future lots until overriden at Load button
|
||||
// signature click event by supervisor, lead, or engineer.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ROTRReactorStatusReason
|
||||
CIReactorRec = Database_Services('ReadDataRow', 'REACTOR', CIReactor)
|
||||
CIReactorRec<REACTOR_ROTR_STATUS$> = 'F'
|
||||
CIReactorRec<REACTOR_ROTR_STATUS_REASON$> = ROTRReactorStatusReason
|
||||
Database_Services('WriteDataRow','REACTOR',CIReactor,CIReactorRec, True$, False$, True$)
|
||||
ReactorBlocked = True$
|
||||
Case (ScanDefect EQ '') OR (ScanHaze EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data is missing.'
|
||||
Case (SigRequired EQ True$) AND (ScanSig EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan signature is missing.'
|
||||
Case (ScanDefect GT SpecDefect)
|
||||
If (ROTREnabled EQ True$) then
|
||||
ROTRFailLimit = Xlate('REACTOR', CIReactor, 'ROTR_FAIL_LIMIT', 'X')
|
||||
// If a Post Clean is required, then disregard the ROTRFailLimit per Tom Tillery.
|
||||
CleanReq = False$
|
||||
PSNo = Xlate('CLEAN_INSP', CleanInspKeyID, 'PS_NO', 'X')
|
||||
PRSStages = Xlate('PROD_SPEC', PSNo, 'PRS_STAGE_KEY', 'X')
|
||||
If Index(PRSStages, 'POST', 1) then
|
||||
CleanReq = Xlate('PRS_STAGE', PSNo:'*POST', 'CLEAN_SIG_REQ', 'X')
|
||||
end
|
||||
If (NumFailedWafers LT ROTRFailLimit) or (CleanReq EQ True$) or (FailureScan EQ True$) then
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan SoD out of bounds.'
|
||||
end else
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'Wafer fail limit met - 100% scan required'
|
||||
FailScanReq = True$
|
||||
FailScanFlags<0, ScanRecipeIndex> = FailScanReq
|
||||
end
|
||||
end else
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan SoD out of bounds.'
|
||||
end
|
||||
Case (ScanHaze GT SpecHaze)
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan Haze out of bounds.'
|
||||
Case Otherwise$
|
||||
// This scan data is within spec.
|
||||
ROTRAction = 'P'
|
||||
ROTRActionReason = 'Passed'
|
||||
End Case
|
||||
|
||||
LogData<5> = 'Log trace 5.':SpecRecipeIndex
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
|
||||
// Store this result for final disposition
|
||||
ScanRecipeResults<0, ScanRecipeIndex> = ROTRAction
|
||||
ScanRecipeReasons<0, ScanRecipeIndex> = ROTRActionReason
|
||||
end
|
||||
Next ScanRecipeName
|
||||
|
||||
FinalROTRAction = 'P'
|
||||
FinalROTRActionReason = ''
|
||||
// Final disposition
|
||||
// If no scan data or if any scan data has failed, then FinalROTRAction = F.
|
||||
NumScanRecipes = DCount(ScanRecipes, @VM)
|
||||
If NumScanRecipes EQ 0 then
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = 'Scan data is missing.'
|
||||
end else
|
||||
NumFailures = Count(ScanRecipeResults, 'F')
|
||||
Begin Case
|
||||
Case NumFailures EQ 0
|
||||
// No failures so this is a pass.
|
||||
FinalROTRAction = 'P'
|
||||
FInalROTRActionReason = ''
|
||||
Case NumFailures EQ 1
|
||||
// Display the failure reason
|
||||
Locate 'F' in ScanRecipeResults using @VM setting ScanRecipeIndex then
|
||||
FailureReason = ScanRecipeReasons<0, ScanRecipeIndex>
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = FailureReason
|
||||
end
|
||||
Case NumFailures GT 1
|
||||
// Inform the user that multiple scans failed
|
||||
FinalROTRAction = 'F'
|
||||
FinalROTRActionReason = 'Multiple scans failed to meet criteria.'
|
||||
End Case
|
||||
end
|
||||
ROTRAction = FinalROTRAction
|
||||
ROTRActionReason = FinalROTRActionReason
|
||||
|
||||
Case Stage _EQC 'POST'
|
||||
|
||||
ROTRReactorStatus = 'P' ; // Assume pass until proven otherwise.
|
||||
// Check each spec recipe. There must be at least one scan recorded for each spec recipe.
|
||||
For Each SpecRecipeName in SpecRecipes using @VM setting SpecRecipeIndex
|
||||
// Get UCL value from SPC for each spec recipe if they have not yet been retrieved.
|
||||
UCL = Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex>
|
||||
If (UCL EQ '') or (UCL EQ 0) then
|
||||
// The UCL has not yet been retrieved from SPC or an error could have
|
||||
// occurred when the last attempt to retrieve it, so try to get it now.
|
||||
UCL = QA_Services('PostUCLRequest', RDSKey, SpecRecipeName)
|
||||
If (UCL NE '') and (UCL NE 0) then
|
||||
Record<CLEAN_INSP_SPEC_SUM_OF_DEF_AVG$, SpecRecipeIndex> = UCL
|
||||
end else
|
||||
ErrorMessage = 'Error retrieving UCL value from QA_Services in CLEAN_INSP_ACTIONS'
|
||||
Error_Services('Add', ErrorMessage)
|
||||
end
|
||||
end
|
||||
// Look for the last scan entry related to the current spec recipe.
|
||||
RecipeFound = False$
|
||||
For ScanRecipeIndex = NumScanRecipes To 1 Step -1
|
||||
ScanRecipeName = ScanRecipes<0, ScanRecipeIndex>
|
||||
RecipeFound = (ScanRecipeName EQ SpecRecipeName)
|
||||
Until RecipeFound
|
||||
Next ScanRecipeIndex
|
||||
// If a scan was found, then analyze the scan data for spec requirements. If not found, this
|
||||
// automatically fails.
|
||||
If RecipeFound EQ True$ then
|
||||
SpecDefect = Oconv(SpecDefects<0, SpecRecipeIndex>, 'MD0')
|
||||
SpecHaze = Oconv(SpecHazes<0, SpecRecipeIndex>, 'MD2')
|
||||
ScanDefect = Oconv(ScanDefects<0, ScanRecipeIndex>, 'MD0')
|
||||
ScanHaze = Oconv(ScanHazes<0, ScanRecipeIndex>, 'MD3')
|
||||
ScanSig = ScanSigs<0, ScanRecipeIndex>
|
||||
FailureScan = False$
|
||||
// RDS < UCL (SOD Spec Avg) Check
|
||||
ScanSODPerWafer = Record<CLEAN_INSP_SCAN_SOD_PER_WAFER$, ScanRecipeIndex>
|
||||
WaferCount = 0
|
||||
SODAvgSum = 0
|
||||
SODAvg = OConv(ScanDefectsAvg<0, ScanRecipeIndex>, 'MD3')
|
||||
NumFailedWafers = 0
|
||||
For each WaferSOD in ScanSODPerWafer using @SVM setting WaferIndex
|
||||
If WaferSOD NE '' then
|
||||
// We have SOD data for this wafer so check if it is < SOD Max
|
||||
If WaferSOD LE SpecDefect then
|
||||
WaferCount += 1
|
||||
SODAvgSum += WaferSOD
|
||||
end else
|
||||
NumFailedWafers += 1
|
||||
end
|
||||
end
|
||||
Next WaferSOD
|
||||
Record<CLEAN_INSP_NUM_FAILED_WAFERS$, ScanRecipeIndex> = NumFailedWafers
|
||||
If (OrigRecord<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$, ScanRecipeIndex>) EQ '' then
|
||||
// This is the first time we are recording the scanned SOD average value. Store this
|
||||
// for determining reactor health. (ROTR Status)
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG_FAIL$, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
end
|
||||
If WaferCount GT 0 and SODAvgSum GT 0 then
|
||||
SODAvg = SODAvgSum / WaferCount
|
||||
// Update scanned SOD average to not include wafers exceeding SOD max
|
||||
// Adjust value to conform to internal storage format
|
||||
ScanDefectsAvg<0, ScanRecipeIndex> = IConv(SODAvg, 'MD3')
|
||||
Record<CLEAN_INSP_SCAN_SUM_OF_DEF_AVG$> = ScanDefectsAvg
|
||||
end
|
||||
Begin Case
|
||||
Case (ScanDefect EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan data is missing.'
|
||||
Case (ScanDefect GT SpecDefect)
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan SoD out of bounds.'
|
||||
Case (SigRequired EQ True$) AND (ScanSig EQ '')
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'SurfScan signature is missing.'
|
||||
Case Otherwise$
|
||||
// This scan data is within spec.
|
||||
ROTRAction = 'P'
|
||||
End Case
|
||||
end else
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = 'Scan data for ' : SpecRecipeName : ' is missing.'
|
||||
end
|
||||
Until ROTRAction EQ 'P' or ROTRActionReason _EQC 'SurfScan signature is missing.'
|
||||
Next SpecRecipeName
|
||||
|
||||
End Case
|
||||
end else
|
||||
// Sample quantity mismatch field set. Set ROTR to failed and inform user.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = QtyMismatch
|
||||
end
|
||||
end else
|
||||
// Recipe mismatch field set. Set ROTR to failed and inform user.
|
||||
ROTRAction = 'F'
|
||||
ROTRActionReason = ScanMismatch:' does not match spec.'
|
||||
end
|
||||
If ROTRAction EQ 'P' then
|
||||
// Clear any previously set failure reasons or failure scan flags.
|
||||
ROTRActionReason = ''
|
||||
NumScans = DCount(ScanRecipes, @VM)
|
||||
For ScanIndex = 1 to NumScans
|
||||
FailScanFlags<0, ScanIndex> = False$
|
||||
Next ScanIndex
|
||||
end
|
||||
Record<CLEAN_INSP_ROTR_ACTION$> = ROTRAction
|
||||
Record<CLEAN_INSP_ROTR_ACTION_REASON$> = ROTRActionReason
|
||||
Record<CLEAN_INSP_FAIL_SCAN_REQ$> = FailScanFlags
|
||||
Record<CLEAN_INSP_SCAN_RESULT$> = ScanRecipeResults
|
||||
Record<CLEAN_INSP_SCAN_RESULT_REASON$> = ScanRecipeReasons
|
||||
|
||||
SaveRecord = Record
|
||||
LogData<5> = 'Log trace 6'
|
||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||
Server = Environment_Services('GetServer')
|
||||
If (Server NE 'MESSA005') AND (Server NE 'MESSA01EC') then
|
||||
// The metrology data was updated by an end user on a workstation. Add this information to a special log
|
||||
// for Balan.
|
||||
Post_Metrology_Manual_Data_Entry_Log(@USER4,'Tencor',Record<CLEAN_INSP_RDS_NO$>:' / ':CleanInspKeyID)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
WRITE_RECORD:
|
||||
|
||||
If @USER4 EQ 'DANIEL_ST' then
|
||||
debug
|
||||
// Sync up Insp, Clean, and SurfScan signatures with WO_MAT signature profile
|
||||
Stage = {STAGE}
|
||||
|
||||
WOMatKey = {WO_MAT_KEY}
|
||||
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||
WOMatSigProf = WOMatRec<WO_MAT_SIG_PROFILE$>
|
||||
WOMatSigs = WOMatRec<WO_MAT_SIGNATURE$>
|
||||
WOMatSigDTMs = WOMatRec<WO_MAT_SIG_DTM$>
|
||||
|
||||
OrigInspSig = OrigRecord<CLEAN_INSP_INSP_SIG$>
|
||||
OrigInspSigDTM = OrigRecord<CLEAN_INSP_INSP_SIG_DTM$>
|
||||
InspSig = Record<CLEAN_INSP_INSP_SIG$>
|
||||
InspSigDTM = Record<CLEAN_INSP_INSP_SIG_DTM$>
|
||||
|
||||
OrigCleanSig = OrigRecord<CLEAN_INSP_CLEAN_SIG$>
|
||||
OrigCleanSigDTM = OrigRecord<CLEAN_INSP_CLEAN_SIG_DTM$>
|
||||
CleanSig = Record<CLEAN_INSP_CLEAN_SIG$>
|
||||
CleanSigDTM = Record<CLEAN_INSP_CLEAN_SIG_DTM$>
|
||||
|
||||
OrigScanSig = OrigRecord<CLEAN_INSP_SCAN_SIG$>
|
||||
OrigScanSigDTM = OrigRecord<CLEAN_INSP_SCAN_SIG_DTM$>
|
||||
ScanSig = Record<CLEAN_INSP_SCAN_SIG$>
|
||||
ScanSigDTM = Record<CLEAN_INSP_SCAN_SIG_DTM$>
|
||||
|
||||
SigProfUpdate = False$
|
||||
|
||||
|
||||
If ( (OrigInspSig NE InspSig) or (OrigInspSigDTM NE InspSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'I'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = InspSig
|
||||
WOMatSigDTMs<0, vPos> = InspSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If ( (OrigCleanSig NE CleanSig) or (OrigCleanSigDTM NE CleanSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'C'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = CleanSig
|
||||
WOMatSigDTMs<0, vPos> = CleanSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If ( (OrigScanSig NE ScanSig) or (OrigScanSigDTM NE ScanSigDTM) ) then
|
||||
WOMatStage = '1':Stage:'S'
|
||||
Locate WOMatStage in WOMatSigProf using @VM setting vPos then
|
||||
WOMatSigs<0, vPos> = ScanSig
|
||||
WOMatSigDTMs<0, vPos> = ScanSigDTM
|
||||
SigProfUpdate = True$
|
||||
end
|
||||
end
|
||||
|
||||
If SigProfUpdate then
|
||||
WOMatRec<WO_MAT_SIGNATURE$> = WOMatSigs
|
||||
WOMatRec<WO_MAT_SIG_DTM$> = WOMatSigDTMs
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec, True$, False$, True$)
|
||||
end
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
DELETE_RECORD_PRE:
|
||||
return
|
||||
|
||||
DELETE_RECORD:
|
||||
return
|
||||
|
||||
|
||||
// ----- Internal Methods ----------------------------------------------------------------------------------------------
|
||||
|
||||
Initialize_System_Variables:
|
||||
// Save these for restoration later
|
||||
SaveDict = @DICT
|
||||
SaveID = @ID
|
||||
SaveRecord = @RECORD
|
||||
OrigFileError = @FILE.ERROR
|
||||
|
||||
// Now make sure @DICT, ID, and @RECORD are populated
|
||||
CurrentDictName = ''
|
||||
If @DICT then
|
||||
DictHandle = @DICT<1, 2>
|
||||
Locate DictHandle in @TABLES(5) Using @FM Setting fPos then
|
||||
CurrentDictName = Field(@TABLES(0), @FM, fPos, 1)
|
||||
end
|
||||
end
|
||||
|
||||
If CurrentDictName NE DictName then
|
||||
Open DictName to @DICT else Status = 'Unable to initialize @DICT'
|
||||
end
|
||||
|
||||
@ID = KeyID
|
||||
If Record else
|
||||
// Record might not have been passed in. Read the record from the database table just to make sure.
|
||||
@FILE.ERROR = ''
|
||||
Open TableName to hTable then
|
||||
FullFSList = hTable[1, 'F' : @VM]
|
||||
BFS = FullFSList[-1, 'B' : @SVM]
|
||||
LastHandle = hTable[-1, 'B' : \0D\]
|
||||
FileHandle = \0D\ : LastHandle[1, @VM]
|
||||
|
||||
Call @BFS(READO.RECORD, BFS, FileHandle, KeyID, FMC, Record, ReadOStatus)
|
||||
end
|
||||
end
|
||||
@RECORD = Record
|
||||
return
|
||||
|
||||
Restore_System_Variables:
|
||||
Transfer SaveDict to @DICT
|
||||
Transfer SaveID to @ID
|
||||
Transfer SaveRecord to @RECORD
|
||||
@FILE.ERROR = OrigFileError
|
||||
return
|
||||
31
LSL2/STPROC/CLEAN_INSP_CURR_STATUS_CONV.txt
Normal file
31
LSL2/STPROC/CLEAN_INSP_CURR_STATUS_CONV.txt
Normal file
@ -0,0 +1,31 @@
|
||||
SUBROUTINE CLEAN_INSP_CURR_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
|
||||
*
|
||||
|
||||
$insert LOGICAL
|
||||
|
||||
EQU valid$ TO 0 ;* successful
|
||||
EQU invalid_msg$ TO 1 ;* bad data - print error message window
|
||||
EQU invalid_conv$ TO 2 ;* bad conversion - " "
|
||||
EQU invalid_nomsg$ TO 3 ;* bad but do not print the error message window
|
||||
|
||||
STATUS() = valid$
|
||||
BEGIN CASE
|
||||
CASE ConvType = 'ICONV'
|
||||
ReturnedValue = DataIo
|
||||
|
||||
CASE ConvType = 'OCONV'
|
||||
Vals = XLATE('SYSREPOSPOPUPS','LSL2**CLEAN_INSP_CURR_STATUS',8,'X')
|
||||
Desc = ''
|
||||
LOOP
|
||||
Val = Vals[1,@VM]
|
||||
Code = Val[1,@SVM]
|
||||
Desc = Val[COL2()+1,@SVM]
|
||||
UNTIL Code = DataIO OR Vals = ''
|
||||
Vals = DELETE(Vals,1,1,0)
|
||||
REPEAT
|
||||
ReturnedValue = Desc
|
||||
|
||||
CASE OTHERWISE$
|
||||
Status() = invalid_msg$
|
||||
END CASE
|
||||
RETURN
|
||||
555
LSL2/STPROC/CLEAN_INSP_ORG.txt
Normal file
555
LSL2/STPROC/CLEAN_INSP_ORG.txt
Normal file
@ -0,0 +1,555 @@
|
||||
COMPILE FUNCTION Clean_Insp_Org(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for CLEAN_INSP (Clean & Inspection) window
|
||||
|
||||
08/5/2009 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI, Environment_Services
|
||||
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT REACT_EVENT_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Clean_Insp'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CLEAR' ; GOSUB Clear
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
CASE Event = 'READ' ; GOSUB Read
|
||||
CASE Event[1,3] = 'QBF' ; GOSUB Refresh
|
||||
END CASE
|
||||
|
||||
CASE EntID = 'CLEAN_INSP.SEND_SPC' AND Event = 'CLICK' ; GOSUB SendSPC
|
||||
|
||||
|
||||
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:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
IF NOT(Security_Check('Reactor Event Log',READ$)) THEN
|
||||
Security_Err_Msg('Reactor Event Log',READ$)
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
*/
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' OR @USERNAME = 'CHAD_B' THEN
|
||||
Set_Property(@WINDOW:'.SEND_SPC','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.SPC_DTM','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.SEND_SPC','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.SPC_DTM','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
|
||||
|
||||
*IOOptions = Get_Property(@WINDOW,'IOOPTIONS')
|
||||
*IOOptions<11> = 1 ;* Generate READ event on QBFLoad
|
||||
|
||||
*Set_Property(@WINDOW,'IOOPTIONS',IOOptions)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
IF Get_Property(@WINDOW,'@READONLY') THEN
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
Set_Property(@WINDOW,'@READONLY',0) ;* Clear flag on window
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
Stage = Get_Property(@WINDOW:'.STAGE','TEXT')
|
||||
SpecFwiLwi = Get_Property(@WINDOW:'.SPEC_FWI_LWI','TEXT')
|
||||
|
||||
BEGIN CASE
|
||||
CASE Stage = 'PRE' ; LabelText = 'Pre Epi Cleaning && Inspection'
|
||||
CASE Stage = 'POST' ; LabelText = 'Post Epi Cleaning && Inspection'
|
||||
CASE Stage = 'WFR' AND SpecFwiLwi = 'FWI' ; LabelText = 'First Wafer Inspection'
|
||||
CASE Stage = 'WFR' AND SpecFwiLwi = 'LWI' ; LabelText = 'Last Wafer Inspection'
|
||||
CASE Stage[1,3] = 'WFR' ; LabelText = 'Wafer ':Stage[4,99]:' Extra Inspection'
|
||||
CASE 1 ; LabelText = 'Cleaning && Inspection'
|
||||
END CASE
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT',LabelText)
|
||||
|
||||
Ctrls = @WINDOW:'.SPEC_CLEAN_SUBOXIDE':@RM ; Props = 'CHECK':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_CLEAN_OXIDE_ANGSTROMS':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_CLEAN_TOOL':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_CLEAN_AKRION_RECIPE':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_BRIGHTLIGHT':@RM ; Props := 'CHECK':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_MICROSCOPE':@RM ; Props := 'CHECK':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_SURFSCAN':@RM ; Props := 'CHECK':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_SURFSCAN_RECIPE' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
SCSubOxide = Vals[1,@RM]
|
||||
SCAngstroms = Vals[COL2()+1,@RM]
|
||||
SCTool = Vals[COL2()+1,@RM]
|
||||
SCAkrionRecipe = Vals[COL2()+1,@RM]
|
||||
SBrightLight = Vals[COL2()+1,@RM]
|
||||
SMicroscope = Vals[COL2()+1,@RM]
|
||||
SSurfscan = Vals[COL2()+1,@RM]
|
||||
SSurfscanRecipe = Vals[COL2()+1,@RM]
|
||||
|
||||
IF SCTool = 'No' THEN SCTool = ''
|
||||
|
||||
DefBack = Get_Property(@WINDOW,'BACKCOLOR')
|
||||
|
||||
IF SCSubOxide OR SCAngstroms OR SCTool OR SCAkrionRecipe THEN
|
||||
Vals = 1:@RM:1:@RM:STR(VL_GREEN$:@RM,5)
|
||||
END ELSE
|
||||
Vals = 0:@RM:0:@RM:STR(DefBack:@RM,5)
|
||||
END
|
||||
|
||||
IF SBrightLight OR SMicroscope THEN
|
||||
Vals := 1:@RM:1:@RM:STR(VL_GREEN$:@RM,29)
|
||||
END ELSE
|
||||
Vals := 0:@RM:0:@RM:STR(DefBack:@RM,29)
|
||||
END
|
||||
|
||||
IF SSurfscan OR SSurfscanRecipe THEN
|
||||
Vals := 1:@RM:1:@RM:STR(VL_GREEN$:@RM,14)
|
||||
END ELSE
|
||||
Vals := 0:@RM:0:@RM:STR(DefBack:@RM,14)
|
||||
END
|
||||
|
||||
IF Vals[-1,1] = @RM THEN Vals[-1,1] = ''
|
||||
|
||||
Ctrls = @WINDOW:'.CLEANS_GROUP':@RM ; Props = 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.CLEAN_RESULTS_GROUP':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.CLEANS_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.CLEAN_RESULTS_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_CLEAN_SUBOXIDE':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.CLEAN_TOOL_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_CLEAN_AKRION_RECIPE_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
|
||||
Ctrls := @WINDOW:'.SURF_INSP_GROUP':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.INSP_RESULT_GROUP':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.SURF_INSP_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.INSP_RESULT_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_BRIGHTLIGHT':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_MICROSCOPE':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.LPD_IN_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.LPD_OUT_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_MICROSCOPE':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.LPD_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.LPD_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.PITS_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.PITS_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.MOUNDS_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.MOUNDS_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.BL_DEF_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.BL_DEF_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.STACK_FAULTS_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.STACK_FAULT_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPIKES_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPIKE_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.LONGEST_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.NOT_TO_EXCEED_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPOTS_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.FOV_LONG_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPOTS_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.FOV_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SCRATCH_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.INCH_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SCRATCHES_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.INCH_SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
|
||||
Ctrls := @WINDOW:'.SURF_SCAN_GROUP':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.SCAN_RESULT_GROUP':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.SURF_SCAN_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SCAN_RESULT_GROUP':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_SURFSCAN':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_SURFSCAN_RECIPE_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SAMP_QTY_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCAN_TOOL_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCAN_DTM_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEFECTS_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.HAZE_AVG_PPM_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCRATCH_AVG_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.SPEC_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.MIN_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.MAX_LABEL':@RM ; Props := 'BACKCOLOR':@RM
|
||||
Ctrls := @WINDOW:'.AVG_LABEL' ; Props := 'BACKCOLOR'
|
||||
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
|
||||
IF Get_Property(@WINDOW:'.SPC_DTM','DEFPROP') = '' THEN
|
||||
Set_Property(@WINDOW:'.SEND_SPC','TEXT','Send to SPC')
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.SEND_SPC','TEXT','Resend to SPC')
|
||||
END
|
||||
|
||||
* Check for out of spec on the Surface Scan results
|
||||
|
||||
Ctrls = @WINDOW:'.SUM_OF_DEFECTS_SPEC':@RM ; Props = 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.HAZE_AVG_SPEC':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEF_AVG':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEF_MAX':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.HAZE_AVG_AVG' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
SumOfDefectsSpec = Vals[1,@RM]
|
||||
HazeAvgSpec = Vals[COL2()+1,@RM]
|
||||
SumOfDefectsAvg = Vals[COL2()+1,@RM]
|
||||
SumOfDefectsMax = Vals[COL2()+1,@RM]
|
||||
HazeAvgAvg = Vals[COL2()+1,@RM]
|
||||
|
||||
OutOfSpec = ''
|
||||
IF SumOfDefectsSpec NE '' THEN
|
||||
IF SumOfDefectsMax GE SumOfDefectsSpec THEN
|
||||
OutOfSpec = 1
|
||||
Set_Property(@WINDOW:'.SUM_OF_DEF_MAX','BACKCOLOR',RED$)
|
||||
END
|
||||
IF SumOfDefectsAvg GE SumOfDefectsSpec THEN
|
||||
OutOfSpec = 1
|
||||
Set_Property(@WINDOW:'.SUM_OF_DEF_AVG','BACKCOLOR',RED$)
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
IF HazeAvgSpec NE '' THEN
|
||||
IF HazeAvgAvg GE HazeAvgSpec THEN
|
||||
OutOfSpec = 1
|
||||
Set_Property(@WINDOW:'.HAZE_AVG_SPEC','BACKCOLOR',RED$)
|
||||
END
|
||||
END
|
||||
|
||||
IF OutOfSpec THEN
|
||||
Set_Property(@WINDOW:'.OUT_OF_SPEC','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.OUT_OF_SPEC','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.SUM_OF_DEF_MAX','BACKCOLOR',WHITE$)
|
||||
Set_Property(@WINDOW:'.SUM_OF_DEF_AVG','BACKCOLOR',WHITE$)
|
||||
Set_Property(@WINDOW:'.HAZE_AVG_AVG','BACKCOLOR',WHITE$)
|
||||
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>
|
||||
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 I
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
OrderNo = Get_Property(@WINDOW:'.ORD_NO','TEXT')
|
||||
|
||||
Message = ''
|
||||
IF RowExists('ORDER',OrderNo) THEN
|
||||
IF Get_Property(@WINDOW,'SAVEWARN') THEN
|
||||
Message = 'Order No. ':OrderNo:' has been changed.'
|
||||
END
|
||||
END ELSE
|
||||
Message = 'New Order ':QUOTE(OrderNo):' entered into system.'
|
||||
END
|
||||
|
||||
IF Message NE '' THEN
|
||||
|
||||
Recipients = XLATE('NOTIFICATION','ORDER_ENTRY',NOTIFICATION_USER_ID$,'X')
|
||||
SentFrom = @USER4
|
||||
Subject = 'New/Update Order':OrderNo
|
||||
AttachWindow = 'ORDER2'
|
||||
AttachKey = OrderNo
|
||||
SendToGroup = ''
|
||||
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
*obj_Notes('Create',Parms) ;* Per Request from Customer Service
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
END
|
||||
/*/
|
||||
|
||||
Result = 1
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
/*
|
||||
IF Security_Check('Order',Delete$) THEN
|
||||
Result = 1 ;* Proceed with delete
|
||||
END ELSE
|
||||
Security_Err_Msg('Order',Delete$)
|
||||
Result = 0 ;* Stop event chain
|
||||
END
|
||||
*/
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactEsc:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
/*
|
||||
|
||||
EventKeys = obj_React_Esc('Find')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF INDEX(EventKeys,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PMODE$> = 'K'
|
||||
TypeOver<PDISPLAY$> = EventKeys
|
||||
EventKeys = Popup(@WINDOW,TypeOver,'REACT_ESC_QUERY')
|
||||
END
|
||||
|
||||
CONVERT @VM TO @FM IN EventKeys
|
||||
|
||||
IF INDEX(EventKeys,@FM,1) THEN
|
||||
Send_Event(@WINDOW,'QBFINIT')
|
||||
Set_Property(@WINDOW,'QBFLIST',EventKeys)
|
||||
GOSUB Refresh
|
||||
Send_Event(@WINDOW,'QBFIRST')
|
||||
END ELSE
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:EventKeys)
|
||||
END
|
||||
*/
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
*obj_Notes('Inbox',@USER4) ;* Checks for any new messages
|
||||
|
||||
obj_Appwindow('DetailReturn',@WINDOW)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SendSPC:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.RDS_NO':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.STAGE':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCAN_TOOL':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEF_MIN':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEF_MAX':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SUM_OF_DEF_AVG':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.HAZE_AVG_AVG':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SPOTS':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.FOV':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SCRATCHES':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SCRATCH_LEN':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.REACT_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.WAFER_SIZE':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCRATCH_MAX':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.SS_SCRATCH_AVG' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
RDSNo = Vals[1,@RM]
|
||||
Stage = Vals[COL2()+1,@RM]
|
||||
ScanTool = Vals[COL2()+1,@RM]
|
||||
SumOfDefMin = Vals[COL2()+1,@RM]
|
||||
SumOfDefMax = Vals[COL2()+1,@RM]
|
||||
SumOfDefAvg = Vals[COL2()+1,@RM]
|
||||
HazeAvgAvg = Vals[COL2()+1,@RM]
|
||||
Spots = Vals[COL2()+1,@RM]
|
||||
FOV = Vals[COL2()+1,@RM]
|
||||
Scratches = Vals[COL2()+1,@RM]
|
||||
ScratchLen = Vals[COL2()+1,@RM]
|
||||
ReactNo = Vals[COL2()+1,@RM]
|
||||
WaferSize = Vals[COL2()+1,@RM]
|
||||
SSScratchMax = Vals[COL2()+1,@RM]
|
||||
SSScratchAvg = Vals[COL2()+1,@RM]
|
||||
|
||||
|
||||
WaferSize = WaferSize[1,' '] ;* Data looks like "125 mm 6 in"
|
||||
|
||||
UserName = OCONV(@USER4,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
|
||||
DataLine = QUOTE(ReactNo):TAB$
|
||||
DataLine := QUOTE(RDSNo):TAB$
|
||||
DataLine := QUOTE(Stage):TAB$
|
||||
DataLine := QUOTE(ScanTool):TAB$
|
||||
DataLine := QUOTE(SumOfDefMin):TAB$
|
||||
DataLine := QUOTE(SumOfDefMax):TAB$
|
||||
DataLine := QUOTE(SumOfDefAvg):TAB$
|
||||
DataLine := QUOTE(HazeAvgAvg):TAB$
|
||||
DataLine := QUOTE(Spots):TAB$
|
||||
DataLine := QUOTE(FOV):TAB$
|
||||
DataLine := QUOTE(Scratches):TAB$
|
||||
DataLine := QUOTE(ScratchLen):TAB$
|
||||
DataLine := QUOTE(UserName):TAB$
|
||||
DataLine := QUOTE(SSScratchAvg):TAB$
|
||||
DataLine := QUOTE(SSScratchMax):TAB$
|
||||
DataLine := QUOTE(WaferSize)
|
||||
|
||||
IF @USERNAME = 'BRYCE_BARB' THEN
|
||||
DOSFile = Environment_Services('GetApplicationRootPath') : '\SPC_Surf.TXT'
|
||||
END ELSE
|
||||
*DOSFile = 'R:\SPC_Surf.TXT'
|
||||
* DOSFile = 'N:\IT\CommonRW\OI_SPC_Data_Transfer\SPC_Surf.TXT'
|
||||
* DOSFile = Environment_Services('GetUserDataProductionPath') : '\CommonRW\OI_SPC_Data_Transfer\SPC_Surf.TXT'
|
||||
DOSFile = Environment_Services('GetSPCDataProductionPath') : '\SPC_Surf.txt'
|
||||
END
|
||||
|
||||
* * * * * * *
|
||||
DosRead:
|
||||
* * * * * * *
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
OSRead DOSRecord FROM DOSFile ELSE
|
||||
ErrCode = Status()
|
||||
IF ErrCode = 4 THEN
|
||||
DOSRecord = '' ;* File doesn't exist
|
||||
END ELSE
|
||||
ErrMsg('Unable to read DOS file "SPC_Data.TXT" for update. ':ErrCode:' Please try again.')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
DOSRecord := DataLine:CRLF$
|
||||
|
||||
OSWrite DOSRecord ON DOSFile
|
||||
|
||||
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
Set_Property(@WINDOW:'.SPC_DTM','DEFPROP',CurrDTM)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SetGroupBackground:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
450
LSL2/STPROC/CLEAN_INSP_SERVICES.txt
Normal file
450
LSL2/STPROC/CLEAN_INSP_SERVICES.txt
Normal file
@ -0,0 +1,450 @@
|
||||
Compile function Clean_Insp_Services(@Service, @Params)
|
||||
/***********************************************************************************************************************
|
||||
|
||||
Name : Clean_Insp_Services
|
||||
|
||||
Description : Handler program for all CLEAN_INSP services.
|
||||
|
||||
Notes : Application errors should be logged using the Error Services module. There are a few methodological
|
||||
assumptions built into way errors are managed which are important to understand in order to properly
|
||||
work with Error Services:
|
||||
|
||||
- The term 'top' refers to the originating procedure of a call stack and the term 'bottom' refers to
|
||||
the last routine (or the current routine) within a call stack. Within the OpenInsight Debugger
|
||||
this will appear backwards since the originating procedure always appears at the bottom of the
|
||||
list and the current routine appears at the top of the list. We are using this orientation because
|
||||
it is common to refer to the process of calling other procedures as 'drilling down'.
|
||||
|
||||
- The reason for defining the orientation of the call stack is because Error_Services allows for
|
||||
multiple error conditions to be appended to an original error. In most cases this will happen when
|
||||
a procedure at the bottom of the stack generates an error condition and then returns to its
|
||||
calling procedure. This higher level procedure can optionally add more information relevant to
|
||||
itself. This continues as the call stack 'bubbles' its way back to the top to where the
|
||||
originating procedure is waiting.
|
||||
|
||||
- Native OpenInsight commands that handle errors (e.g., Set_Status, Set_FSError, Set_EventStatus)
|
||||
preserve their error state until explicitly cleared. This can hinder the normal execution of code
|
||||
since subsequent procedures (usually SSPs) will fail if a pre-existing error condition exists.
|
||||
Our philosophy is that error conditions should automatically be cleared before a new procedure
|
||||
is executed to avoid this problem. However, the nature of Basic+ does not make this easy to
|
||||
automate for any given stored procedure. Therefore, if a stored procedure wants to conform to our
|
||||
philosophy then it should include a call into the 'Clear' service request at the top of the
|
||||
program. Alternatively this can be done through a common insert (see SERVICE_SETUP for example.)
|
||||
|
||||
- Service modules will use the SERVICE_SETUP insert and therefore automatically clear out any
|
||||
error conditions that were set before.
|
||||
|
||||
Parameters :
|
||||
Service [in] -- Name of the service being requested
|
||||
Param1-10 [in/out] -- Additional request parameter holders
|
||||
Response [out] -- Response to be sent back to the Controller (MCP) or requesting procedure
|
||||
|
||||
Metadata :
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
11/16/22 djs Original programmer.
|
||||
04/12/23 djs Fixed WO_STEP_PROD_SPEC_ID$ equate typo within UpdateCleanInsp service.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$Insert LOGICAL
|
||||
$Insert SERVICE_SETUP
|
||||
$Insert WO_STEP_EQUATES
|
||||
$Insert CLEAN_INSP_EQUATES
|
||||
$Insert PRS_STAGE_EQUATES
|
||||
$Insert WO_MAT_EQUATES
|
||||
|
||||
Declare function Database_Services, SRP_JSON, Error_Services, obj_Clean_Insp
|
||||
Declare subroutine Database_Services, SRP_JSON, Error_Services, obj_React_Run, Clean_Insp_Services, React_Run_Services
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
|
||||
jsonRecord = ''
|
||||
|
||||
If KeyID NE '' then
|
||||
|
||||
If Record EQ '' then Record = Database_Services('ReadDataRow', 'CLEAN_INSP', KeyID)
|
||||
If Error_Services('NoError') then
|
||||
@DICT = Database_Services('GetTableHandle', 'DICT.CLEAN_INSP')
|
||||
@ID = KeyID
|
||||
@RECORD = Record
|
||||
If SRP_JSON(objJSON, 'New', 'Object') then
|
||||
|
||||
If SRP_JSON(objCleanInsp, 'New', 'Object') then
|
||||
SRP_JSON(objCleanInsp, 'SetValue', 'keyId', @ID)
|
||||
SRP_JSON(objCleanInsp, 'SetValue', 'stage', {STAGE})
|
||||
// Add Cleans Object
|
||||
If SRP_JSON(objCleans, 'New', 'Object') then
|
||||
// Add Cleans Specs Object
|
||||
If SRP_JSON(objSpecCleans, 'New', 'Object') then
|
||||
SRP_JSON(objSpecCleans, 'SetValueArray', 'tools', {SPEC_CLEAN_TOOL}, @VM)
|
||||
SRP_JSON(objSpecCleans, 'SetValueArray', 'recipes', {SPEC_CLEAN_RECIPE}, @VM)
|
||||
SRP_JSON(objCleans, 'Set', 'specs', objSpecCleans)
|
||||
SRP_JSON(objSpecCleans, 'Release')
|
||||
end
|
||||
// Add Cleans Operations
|
||||
If SRP_JSON(objCleansOpsArray, 'New', 'Array') then
|
||||
CleanTools = {CLEAN_TOOL}
|
||||
If CleanTools NE '' then
|
||||
BoatIds = {CLEAN_BOAT_ID}
|
||||
SRDNos = {CLEAN_SRD_NO}
|
||||
CleanUsers = {CLEAN_SIG}
|
||||
CleanDTMs = {CLEAN_SIG_DTM}
|
||||
For each CleanTool in CleanTools using @VM setting vPos
|
||||
If SRP_JSON(objCleansOp, 'New', 'Object') then
|
||||
SRP_JSON(objCleansOp, 'SetValue', 'cleanTool', CleanTool)
|
||||
SRP_JSON(objCleansOp, 'SetValue', 'boatId', BoatIds<0, vPos>)
|
||||
SRP_JSON(objCleansOp, 'SetValue', 'srdNo', SRDNos<0, vPos>)
|
||||
SRP_JSON(objCleansOp, 'SetValue', 'userId', CleanUsers<0, vPos>)
|
||||
SRP_JSON(objCleansOp, 'SetValue', 'cleadDtm', OConv(CleanDTMs<0, vPos>, 'DT2/^H'))
|
||||
SRP_JSON(objCleansOpsArray, 'Add', objCleansOp)
|
||||
SRP_JSON(objCleansOp, 'Release')
|
||||
end
|
||||
Next CleanTool
|
||||
end
|
||||
SRP_JSON(objCleans, 'Set', 'operations', objCleansOpsArray)
|
||||
SRP_JSON(objCleansOpsArray, 'Release')
|
||||
end
|
||||
SRP_JSON(objCleanInsp, 'Set', 'cleans', objCleans)
|
||||
SRP_JSON(objCleans, 'Release')
|
||||
end
|
||||
// Add Inspection Object
|
||||
If SRP_JSON(objInsp, 'New', 'Object') then
|
||||
// Add Specs Object
|
||||
If SRP_JSON(objInspSpecs, 'New', 'Object') then
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'microscopeReq', {SPEC_MICROSCOPE}, 'Boolean')
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'brightlightReq', {SPEC_BRIGHTLIGHT}, 'Boolean')
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'lpd', {SPEC_LPD})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'scratches', {SPEC_SCRATCHES})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'scratchLen', {SPEC_SCRATCH_LEN})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'pits', {SPEC_PITS})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'mounds', {SPEC_MOUNDS})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'stackFaults', {SPEC_STACK_FAULTS})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'spikes', {SPEC_SPIKES})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'spots', {SPEC_SPOTS})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'fov', {SPEC_FOV})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'blDefects', {SPEC_BL_DEFECTS})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'bsideScratches', {SPEC_BSIDE_SCRATCHES})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'bsideScratchLen', {SPEC_BSIDE_SCRATCH_LEN})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'bsideNodules', {SPEC_BSIDE_NODULES})
|
||||
SRP_JSON(objInspSpecs, 'SetValue', 'bsideSpikes', {SPEC_BSIDE_SPIKES})
|
||||
SRP_JSON(objInsp, 'Set', 'specs', objInspSpecs)
|
||||
SRP_JSON(objInspSpecs, 'Release')
|
||||
end
|
||||
SRP_JSON(objCleanInsp, 'Set', 'inspection', objInsp)
|
||||
SRP_JSON(objInsp, 'Release')
|
||||
end
|
||||
// Add Surfscan Object
|
||||
If SRP_JSON(objSurfScan, 'New', 'Object') then
|
||||
If SRP_JSON(objSpecSurfScanArray, 'New', 'Array') then
|
||||
SurfScanRecipes = {SPEC_SURFSCAN_RECIPE}
|
||||
SpecDefects = {SPEC_SURF_DEFECTS}
|
||||
SpecHazes = {SPEC_SURF_HAZE}
|
||||
SpecSampleQtys = {SPEC_SS_SAMP_QTY}
|
||||
If SurfScanRecipes NE '' then
|
||||
For each SurfScanRecipe in SurfScanRecipes using @VM setting vPos
|
||||
If SRP_JSON(objSpecSurfScan, 'New', Object) then
|
||||
SRP_JSON(objSpecSurfScan, 'SetValue', 'recipe', SurfScanRecipe)
|
||||
SRP_JSON(objSpecSurfScan, 'SetValue', 'defect', SpecDefects<0, vPos>)
|
||||
SRP_JSON(objSpecSurfScan, 'SetValue', 'haze', SpecHazes<0, vPos>)
|
||||
SRP_JSON(objSpecSurfScan, 'SetValue', 'sampleQty', SpecSampleQtys<0, vPos>)
|
||||
SRP_JSON(objSpecSurfScanArray, 'Add', objSpecSurfScan)
|
||||
SRP_JSON(objSpecSurfScan, 'Release')
|
||||
end
|
||||
|
||||
Next SurfScanRecipe
|
||||
end
|
||||
SRP_JSON(objSurfScan, 'Set', 'specs', objSpecSurfScanArray)
|
||||
SRP_JSON(objSpecSurfScanArray, 'Release')
|
||||
end
|
||||
SRP_JSON(objCleanInsp, 'Set', 'surfScan', objSurfScan)
|
||||
SRP_JSON(objSurfScan, 'Release')
|
||||
end
|
||||
|
||||
SRP_JSON(objJSON, 'Set', 'cleanInsp', objCleanInsp)
|
||||
SRP_JSON(objCleanInsp, 'Release')
|
||||
end
|
||||
|
||||
If itemURL NE '' then
|
||||
// The itemURL was passed in so add HAL+JSON properties.
|
||||
|
||||
// Create the _links property and then all link objects needed for this resource.
|
||||
If SRP_JSON(objLinks, 'New', 'Object') then
|
||||
// Create a self link.
|
||||
If SRP_JSON(objLink, 'New', 'Object') then
|
||||
SRP_JSON(objLink, 'SetValue', 'href', ItemURL, 'String')
|
||||
SRP_JSON(objLink, 'SetValue', 'title', 'Self', 'String')
|
||||
SRP_JSON(objLinks, 'Set', 'self', objLink)
|
||||
SRP_JSON(objLink, 'Release')
|
||||
end
|
||||
SRP_JSON(objJSON, 'Set', '_links', objLinks)
|
||||
SRP_JSON(objLinks, 'Release')
|
||||
end
|
||||
|
||||
// Create the _class property for this resource.
|
||||
SRP_JSON(objJSON, 'SetValue', '_class', 'resource')
|
||||
end
|
||||
jsonRecord = SRP_JSON(objJSON, 'Stringify', 'Styled')
|
||||
SRP_JSON(objJSON, 'Release')
|
||||
end else
|
||||
Error_Services('Add', 'Unable to create JSON representation in the ' : Service : ' service.')
|
||||
end
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'KeyID argument was missing in the ' : Service : ' service.')
|
||||
end
|
||||
|
||||
Response = jsonRecord
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
Service ConvertJSONToRecord(JSON)
|
||||
|
||||
If JSON NE '' then
|
||||
If SRP_JSON(objJSON, 'Parse', JSON) EQ '' then
|
||||
objCleanInsp = SRP_JSON(objJSON, 'Get', 'cleanInsp')
|
||||
@ID = SRP_JSON(objCleanInsp, 'GetValue', 'keyId')
|
||||
If @ID NE '' then
|
||||
@Record = Database_Services('ReadDataRow', 'CLEAN_INSP', @ID)
|
||||
If Error_Services('NoError') then
|
||||
@Dict = Database_Services('GetTableHandle', 'DICT.CLEAN_INSP')
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'Error in ':Service:' service. Null value for cleanInsp.keyID.')
|
||||
end
|
||||
SRP_JSON(objCleanInsp, 'Release')
|
||||
SRP_JSON(objJSON, 'Release')
|
||||
end else
|
||||
Error_Services('Add', 'Error in ':Service:' service. Unable to parse JSON payload.')
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'Error in ':Service:' service. Null JSON passed in.')
|
||||
end
|
||||
|
||||
Response = @Record
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// UpdateCleanInsp
|
||||
//
|
||||
// CleanInspKey - [Required]
|
||||
//
|
||||
// Updates or deletes a CLEAN_INSP record associated with an RDS or WM_OUT record per the PSN.
|
||||
// This is useful when a PSN has changed such that PRS_STAGES have been added and/or removed and/or modified.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service UpdateCleanInsp(CleanInspKey)
|
||||
|
||||
CIRec = ''
|
||||
ErrorMsg = ''
|
||||
If CleanInspKey NE '' then
|
||||
CIRec = Database_Services('ReadDataRow', 'CLEAN_INSP', CleanInspKey)
|
||||
If CIRec NE '' then
|
||||
WONo = CIRec<CLEAN_INSP_WO_NO$>
|
||||
WOStep = CIRec<CLEAN_INSP_WO_STEP$>
|
||||
WOStepKey = WONo:'*':WOStep
|
||||
ReactType = Xlate('WO_STEP', WOStepKey, 'REACTOR_TYPE', 'X')
|
||||
If ReactType NE 'GAN' then
|
||||
CassNo = CIRec<CLEAN_INSP_CASS_NO$>
|
||||
Stage = CIRec<CLEAN_INSP_STAGE$>
|
||||
RDSNo = CIRec<CLEAN_INSP_RDS_NO$>
|
||||
PSNo = XLATE('WO_STEP', WONo:'*':WOStep, WO_STEP_PROD_SPEC_ID$, 'X')
|
||||
If ( (PSNo NE '') and (Stage NE '') ) then
|
||||
PrsStageKey = PSNo:'*':Stage
|
||||
PRSStageRec = Database_Services('ReadDataRow', 'PRS_STAGE', PrsStageKey)
|
||||
IF PRSStageRec NE '' THEN
|
||||
CIRec<CLEAN_INSP_SPEC_INSP_REQ$> = PRSStageRec<PRS_STAGE_INSP_SIG_REQ$>
|
||||
CIRec<CLEAN_INSP_SPEC_SURFSCAN_REQ$> = PRSStageRec<PRS_STAGE_SURFSCAN_SIG_REQ$>
|
||||
CIRec<CLEAN_INSP_SPEC_CLEAN_REQ$> = PRSStageRec<PRS_STAGE_CLEAN_SIG_REQ$>
|
||||
CIRec<CLEAN_INSP_SPEC_BRIGHTLIGHT$> = PRSStageRec<PRS_STAGE_BRIGHTLIGHT$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_MICROSCOPE$> = PRSStageRec<PRS_STAGE_MICROSCOPE$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_EDGE$> = PRSStageRec<PRS_STAGE_EDGE$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_PITS$> = PRSStageRec<PRS_STAGE_PITS$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_MOUNDS$> = PRSStageRec<PRS_STAGE_MOUNDS$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_BL_DEFECTS$> = PRSStageRec<PRS_STAGE_BL_DEFECTS$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_SPOTS$> = PRSStageRec<PRS_STAGE_SPOTS$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_FOV$> = PRSStageRec<PRS_STAGE_FOV$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_SCRATCHES$> = PRSStageRec<PRS_STAGE_SCRATCHES$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_SCRATCH_LEN$> = PRSStageRec<PRS_STAGE_SCRATCH_LEN$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_LPD$> = PRSStageRec<PRS_STAGE_LPD$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_STACK_FAULTS$> = PRSStageRec<PRS_STAGE_STACK_FAULTS$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_SPIKES$> = PRSStageRec<PRS_STAGE_SPIKES$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_INSP_INTERVAL$> = PRSStageRec<PRS_STAGE_INSP_INTERVAL$> ;* Visual Inspection
|
||||
CIRec<CLEAN_INSP_SPEC_SURFSCAN_RECIPE$> = PRSStageRec<PRS_STAGE_SURFSCAN_RECIPE$> ;* Surface Scan
|
||||
CIRec<CLEAN_INSP_SPEC_SURF_HAZE$> = PRSStageRec<PRS_STAGE_SURF_HAZE$> ;* Surface Scan
|
||||
CIRec<CLEAN_INSP_SPEC_SURF_DEFECTS$> = PRSStageRec<PRS_STAGE_SURF_DEFECTS$> ;* Surface Scan
|
||||
CIRec<CLEAN_INSP_SPEC_SS_SAMP_QTY$> = PRSStageRec<PRS_STAGE_SS_SAMP_QTY$> ;* Surface Scan
|
||||
CIRec<CLEAN_INSP_SPEC_CLEAN_TOOL$> = PRSStageRec<PRS_STAGE_CLEAN_TOOL$> ;* Cleans
|
||||
CIRec<CLEAN_INSP_SPEC_CLEAN_RECIPE$> = PRSStageRec<PRS_STAGE_CLEAN_RECIPE$> ;* Cleans
|
||||
Database_Services('WriteDataRow', 'CLEAN_INSP', CleanInspKey, CIRec, True$, False$, True$)
|
||||
end else
|
||||
// PRS Stage no longer exists, so delete the clean & insp record
|
||||
Database_Services('DeleteDataRow', 'CLEAN_INSP', CleanInspKey)
|
||||
CIRec = ''
|
||||
// Remove references to the CLEAN_INSP record
|
||||
Begin Case
|
||||
Case ReactType EQ 'EPP'
|
||||
// Remove CleanInspKey from WO_MAT_EPI_CI_NO$/WO_MAT_EPO_CI_NO$
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||
If Error_Services('NoError') then
|
||||
Begin Case
|
||||
Case Stage EQ 'PRE'
|
||||
WOMatRec<WO_MAT_EPI_CI_NO$> = ''
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec)
|
||||
Case Stage EQ 'POST'
|
||||
WOMatRec<WO_MAT_EPO_CI_NO$> = ''
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec)
|
||||
Case Otherwise$
|
||||
// We should never get here as EPP only supports CLEAN_INSP on the PRE and POST stages
|
||||
Null
|
||||
End Case
|
||||
end
|
||||
Case Otherwise$
|
||||
// Remove CleanInspKey and stage from REACT_RUN record
|
||||
React_Run_Services('RemCleanInsp', RDSNo, CleanInspKey, Stage)
|
||||
End Case
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Could not determine PRS_STAGE key for CLEAN_INSP record ':CleanInspKey:'.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. GaN is not supported.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. CLEAN_INSP record ':CleanInspKey:' does not exist.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Null CleanInsp key passed into service.'
|
||||
end
|
||||
|
||||
If ErrorMsg NE '' then
|
||||
Error_Services('Add', ErrorMsg)
|
||||
end else
|
||||
Response = CIRec
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// UpdateAllCleanInsp
|
||||
//
|
||||
// WOMatKey - [Required]
|
||||
//
|
||||
// Creates/Deletes/Updates all CLEAN_INSP records associated with an RDS or WM_OUT record per the PSN.
|
||||
// This is useful when a PSN has changed such that PRS_STAGES have been added and/or removed and/or modified.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service UpdateAllCleanInsp(WOMatKey)
|
||||
|
||||
ErrorMsg = ''
|
||||
If WOMatKey NE '' then
|
||||
WONo = Field(WOMatKey, '*', 1)
|
||||
CassNo = Field(WOMatKey, '*', 2)
|
||||
PSNo = Xlate('WO_STEP', WONo:'*1', WO_STEP_PROD_SPEC_ID$, 'X')
|
||||
If PSNo NE '' then
|
||||
ReactType = Xlate('PROD_SPEC', PSNo, 'REACTOR_TYPE', 'X')
|
||||
Begin Case
|
||||
Case ReactType EQ 'EPP'
|
||||
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||
// Update CLEAN_INSP records associated with the WM_OUT record
|
||||
// The app on supports CLEAN_INSP records on the PRE and POST stages
|
||||
PreCINo = Xlate('WO_MAT', WOMatKey, WO_MAT_EPI_CI_NO$, 'X')
|
||||
Begin Case
|
||||
Case PreCINo NE ''
|
||||
// Update/delete the CLEAN_INSP record
|
||||
Clean_Insp_Services('UpdateCleanInsp', PreCINo)
|
||||
Case ( (PreCINo EQ '') and (RowExists('PRS_STAGE', PSNo:'*PRE') ) )
|
||||
// Create the CLEAN_INSP record
|
||||
ociParms = WONo:@RM ;* WONo
|
||||
ociParms := 1:@RM ;* WOStep
|
||||
ociParms := CassNo:@RM ;* CassNo
|
||||
ociParms := 'PRE':@RM ;* Stage ;* Pre Epi Cleaning on inbound material
|
||||
ociParms := '':@RM ;* RDSNo ;* No specific RDS on Epi Pro inbound material
|
||||
ociParms := PSNo:@RM ;* PSNo
|
||||
ociParms := '' ;* PSRec ;* Optional
|
||||
WOMatRec<WO_MAT_EPI_CI_NO$> = obj_Clean_Insp('Create',ociParms)
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec)
|
||||
End Case
|
||||
PostCINo = Xlate('WO_MAT', WOMatKey, WO_MAT_EPO_CI_NO$, 'X')
|
||||
Begin Case
|
||||
Case PostCINo NE ''
|
||||
// Update/delete the CLEAN_INSP record
|
||||
Clean_Insp_Services('UpdateCleanInsp', PostCINo)
|
||||
Case ( (PostCINo EQ '') and (RowExists('PRS_STAGE', PSNo:'*POST') ) )
|
||||
// Create the CLEAN_INSP record
|
||||
ociParms = WONo:@RM ;* WONo
|
||||
ociParms := 1:@RM ;* WOStep
|
||||
ociParms := CassNo:@RM ;* CassNo
|
||||
ociParms := 'POST':@RM ;* Stage ;* Pre Epi Cleaning on inbound material
|
||||
ociParms := '':@RM ;* RDSNo ;* No specific RDS on Epi Pro inbound material
|
||||
ociParms := PSNo:@RM ;* PSNo
|
||||
ociParms := '' ;* PSRec ;* Optional
|
||||
WOMatRec<WO_MAT_EPO_CI_NO$> = obj_Clean_Insp('Create',ociParms)
|
||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec)
|
||||
End Case
|
||||
Case ReactType EQ 'GAN'
|
||||
// Not supported
|
||||
ErrorMsg = 'Error in ':Service:' service. GAN is not supported.'
|
||||
Case Otherwise$
|
||||
// Update CLEAN_INSP records associated with the RDS record
|
||||
RDSNo = Xlate('WO_MAT', WOMatKey, 'RDS_NO', 'X')
|
||||
Stages = 'PRE,FWI,LWI,POST'
|
||||
For each Stage in Stages using ','
|
||||
CICol = Stage:'_CI_NO'
|
||||
StageCINo = Xlate('RDS', RDSNo, CICol, 'X')
|
||||
Begin Case
|
||||
Case StageCINo NE ''
|
||||
// Update/delete the CLEAN_INSP record
|
||||
Clean_Insp_Services('UpdateCleanInsp', StageCINo)
|
||||
Case ( (StageCINo EQ '') and (RowExists('PRS_STAGE', PSNo:'*':Stage) ) )
|
||||
// Create the CLEAN_INSP record
|
||||
ociParms = WONo:@RM ;* WONo
|
||||
ociParms := 1:@RM ;* WOStep
|
||||
ociParms := CassNo:@RM ;* CassNo
|
||||
ociParms := Stage:@RM ;* Stage ;* Pre Epi Cleaning on inbound material
|
||||
ociParms := RDSNo:@RM ;* RDSNo
|
||||
ociParms := PSNo:@RM ;* PSNo
|
||||
ociParms := '' ;* PSRec ;* Optional
|
||||
NewCINo = obj_Clean_Insp('Create',ociParms)
|
||||
// Add the stage and key ID to the REACT_RUN record
|
||||
React_Run_Services('AddCleanInsp', RDSNo, NewCINo, Stage)
|
||||
End Case
|
||||
Next Stage
|
||||
End Case
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Could not determine PS_NO for WO_MAT record ':WOMatKey:'.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Null WO_MAT key passed into service.'
|
||||
end
|
||||
|
||||
If ErrorMsg NE '' then
|
||||
Error_Services('Add', ErrorMsg)
|
||||
Response = False$
|
||||
end else
|
||||
Response = True$
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
72
LSL2/STPROC/CLEAN_UP_JUNK.txt
Normal file
72
LSL2/STPROC/CLEAN_UP_JUNK.txt
Normal file
@ -0,0 +1,72 @@
|
||||
COMPILE ROUTINE CLEAN_UP_JUNK(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
|
||||
DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info, Send_Dyn
|
||||
DECLARE FUNCTION Get_Status, Set_Printer, Popup
|
||||
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT SCHEDULE_EQU
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
|
||||
DEBUG
|
||||
|
||||
|
||||
|
||||
OPEN 'JCH_LOG' TO LogTable ELSE
|
||||
DEBUG
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
SelectStatement = 'SELECT JCH_LOG '
|
||||
|
||||
errCode = ''
|
||||
RList(SelectStatement, TARGET_ACTIVELIST$, '','','')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
DEBUG
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT LogNo ELSE Done = 1
|
||||
UNTIL Done
|
||||
|
||||
READ LogRec FROM LogTable,LogNo THEN
|
||||
|
||||
IF LogRec[1,7] = 'RDS_PRE' THEN
|
||||
DELETE LogTable,LogNo THEN
|
||||
Send_Dyn(LogNo:' - Deleted')
|
||||
END
|
||||
END ELSE
|
||||
|
||||
*WRITE WORec ON WOLogTable,WONo THEN
|
||||
Send_Dyn(LogNo:' ':LogRec)
|
||||
*END
|
||||
END
|
||||
END
|
||||
|
||||
REPEAT
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
||||
63
LSL2/STPROC/CLEAN_UP_SYSLISTS.txt
Normal file
63
LSL2/STPROC/CLEAN_UP_SYSLISTS.txt
Normal file
@ -0,0 +1,63 @@
|
||||
COMPILE ROUTINE CLEAN_UP_SYSLISTS(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE Send_Dyn,Send_Infom, RList, RList, ErrMsg
|
||||
DECLARE SUBROUTINE Set_Status, Send_Info,
|
||||
DECLARE FUNCTION Get_Status, Set_Printer, Popup
|
||||
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT SCHEDULE_EQU
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
OPEN 'SYSLISTS' TO FileIn ELSE
|
||||
DEBUG
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
SelectStatement = 'SELECT SYSLISTS'
|
||||
|
||||
RList(SelectStatement, TARGET_ACTIVELIST$, '','','')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
DEBUG
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
DEBUG
|
||||
|
||||
Done = 0
|
||||
RecCnt = 0
|
||||
LOOP
|
||||
READNEXT ID ELSE Done = 1
|
||||
UNTIL Done
|
||||
|
||||
|
||||
|
||||
READ Rec FROM FileIn,ID THEN
|
||||
RecCnt += 1
|
||||
*DELETE FileIn,ID THEN
|
||||
Send_Dyn(ID)
|
||||
Send_Info(RecCnt:' ':ID)
|
||||
*END
|
||||
END
|
||||
|
||||
REPEAT
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
||||
11
LSL2/STPROC/COA_COC.txt
Normal file
11
LSL2/STPROC/COA_COC.txt
Normal file
@ -0,0 +1,11 @@
|
||||
COMPILE Insert COA_COC
|
||||
|
||||
* Equates for COA_COC table
|
||||
|
||||
EQU COA_COC_PO_NO$ TO 1
|
||||
EQU COA_COC_SHIP_DT$ TO 2
|
||||
EQU COA_COC_SPEC$ TO 3
|
||||
EQU COA_COC_VEND_LOT_NO$ TO 4
|
||||
EQU COA_COC_VEND_LOT_QTY$ TO 5
|
||||
EQU COA_COC_PATH$ TO 6
|
||||
EQU COA_COC_XLFILENAME$ TO 7
|
||||
94
LSL2/STPROC/COC_RPT1.txt
Normal file
94
LSL2/STPROC/COC_RPT1.txt
Normal file
@ -0,0 +1,94 @@
|
||||
compile function COC_RPT1()
|
||||
begin condition
|
||||
pre:
|
||||
post:
|
||||
end condition
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property
|
||||
declare subroutine rlist, or_view, activate_save_select, yield
|
||||
$insert rlist_equates
|
||||
$insert msg_equates
|
||||
|
||||
Params = dialog_box( 'COC_RPT1', @window, '*CENTER' )
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
open 'SYSLISTS' to SysListsTable else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to open SYSLISTS...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
ListsId = 'COC_RPT1*':@station
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
Void = msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
convert '*' to @fm in Params
|
||||
CocFrom = Params<1>
|
||||
CocThru = Params<2>
|
||||
DirToPrinter = Params<3>
|
||||
|
||||
Stat = utility( 'CURSOR', 'H' )
|
||||
Stmt = 'SELECT COC BY WO'
|
||||
if CocFrom and CocThru then
|
||||
Stmt := " WITH ENTRY_DATE FROM ":QUOTE(CocFrom):' TO ':QUOTE(CocThru)
|
||||
end else
|
||||
if CocFrom then
|
||||
Stmt := " WITH ENTRY_DATE GE ":QUOTE(CocFrom)
|
||||
end
|
||||
if CocThru then
|
||||
Stmt := " WITH ENTRY_DATE LE ":QUOTE(CocThru)
|
||||
end
|
||||
end
|
||||
rlist( Stmt, target_savelist$, ListsId, '', '' )
|
||||
activate_save_select( ListsId )
|
||||
if @reccount then
|
||||
Cmd = "LIST COC CUST_NAME JUSTLEN 35 WO JUSTLEN 8 PO TOTAL TOT_QTY "
|
||||
Cmd:= " HEADING ":'"':" COC (Shipments) by Work Order 'T' PAGE # 'PP''L' for Selected Dates From (":CocFrom:" ) Thru (":CocThru:")":'" '
|
||||
Cmd:= " ID-SUPP"
|
||||
if DirToPrinter = 'Yes' then
|
||||
rlist( Cmd, 0, '', '', '' )
|
||||
end else
|
||||
or_view( '', Cmd )
|
||||
Void = set_property( 'ORPRV.PRINT', 'ENABLED', 0 )
|
||||
WinId = 'ORPRV'
|
||||
loop
|
||||
while get_property( WinId, 'HANDLE' )
|
||||
yield()
|
||||
repeat
|
||||
ToPrint = ''
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'Do you want to print this report?'
|
||||
MsgInfo<micon$> = '?'
|
||||
MsgInfo<mtype$> = 'BNY'
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
MsgInfo<mdefbtn$> = 2 ;* default to no
|
||||
ToPrint = msg( '', MsgInfo )
|
||||
if ToPrint then
|
||||
activate_save_select( ListsId )
|
||||
rlist( Cmd, 0, '', '', '' )
|
||||
end
|
||||
end
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'NO Records meeting your date criteria!!'
|
||||
MsgInfo<micon$> = '!'
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
Void = MSG( '', MsgInfo )
|
||||
end
|
||||
write '' on SysListsTable, ListsId else
|
||||
MsgInfo<mtext$> = 'Unable to clear SYSLISTS ':ListsId:'...'
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
msg( '', MsgInfo )
|
||||
return 0
|
||||
end
|
||||
RETURN 0
|
||||
139
LSL2/STPROC/COC_SRPT1.txt
Normal file
139
LSL2/STPROC/COC_SRPT1.txt
Normal file
@ -0,0 +1,139 @@
|
||||
COMPILE FUNCTION COC_SRPT1()
|
||||
|
||||
declare function msg, set_property, send_event, dialog_box, utility, get_property
|
||||
declare function set_printer, PrintSetup, obj_Install
|
||||
declare subroutine rlist, or_view, activate_save_select, yield
|
||||
declare subroutine order_srpt1
|
||||
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT OIPRINT_EQUATES
|
||||
$INSERT RPT_CFG_EQU
|
||||
$INSERT PRINTSETUP_EQUATES
|
||||
|
||||
TimeX = OCONV(Time(),'MTS')
|
||||
|
||||
CrLf = Char(13):Char(10)
|
||||
CurDte = OCONV(Date(),"D4/")
|
||||
|
||||
ReportID = "COC001_SRPTCFG"
|
||||
ReportControl = "COC_SRPT1"
|
||||
TableName = 'COC'
|
||||
ListsId = ReportControl:'*':@station
|
||||
TtlLin1 = ''
|
||||
TtlLin2 = ''
|
||||
TtlLin3 = ''
|
||||
TtlLin4 = ''
|
||||
|
||||
open 'CONFIG' to ConfigTable else
|
||||
Void = msg( '', 'Unable to open CONFIG...' )
|
||||
return 0
|
||||
end
|
||||
|
||||
Read SRptConfig From ConfigTable,ReportID Else
|
||||
Void = msg( '', 'Unable to read ': ReportID:' From CONFIG table!' )
|
||||
return 0
|
||||
End
|
||||
|
||||
Params = dialog_box( ReportControl, @window, '*CENTER' )
|
||||
|
||||
if Params = 'CANCEL' or Params = '' then
|
||||
return 0
|
||||
end
|
||||
|
||||
|
||||
|
||||
convert '*' to @fm in Params
|
||||
BegDte = Params<1>
|
||||
EndDte = Params<2>
|
||||
|
||||
Void = utility( 'CURSOR', 'H' )
|
||||
|
||||
WithStmt = 'SELECT ':TableName:' '
|
||||
WthSwt = 0
|
||||
|
||||
BEGIN CASE
|
||||
CASE BegDte = EndDte AND BegDte NE '' AND EndDte NE ''
|
||||
TtlLin2 = 'Ship Date:':BegDte
|
||||
WithStmt := " WITH SHIP_DT = '":BegDte:"'"
|
||||
WthSwt = 1
|
||||
|
||||
CASE BegDte and EndDte
|
||||
TtlLin2 = 'Ship Dates: From ':BegDte:' To ':EndDte
|
||||
WithStmt := " WITH SHIP_DT FROM '": BegDte:"' TO '":EndDte: "' "
|
||||
WthSwt = 1
|
||||
|
||||
CASE BegDte
|
||||
TtlLin2 = 'Ship Dates: From ':BegDte:' To ':CurDte
|
||||
WithStmt := " WITH SHIP_DT GE '":BegDte:"' "
|
||||
WthSwt = 1
|
||||
|
||||
CASE EndDte
|
||||
TtlLin2 = 'Ship Dates: From Earliest To ':EndDte
|
||||
WithStmt := " WITH SHIP_DT LE '":EndDte:"' "
|
||||
WthSwt = 1
|
||||
|
||||
CASE 1
|
||||
TtlLin2 = 'Entry Dates: ALL'
|
||||
|
||||
END CASE
|
||||
|
||||
rlist( WithStmt, target_savelist$, ListsId, '', '' )
|
||||
activate_save_select( ListsId )
|
||||
|
||||
Script = SRptConfig<SlistScript$>
|
||||
|
||||
RptWdt = SRptConfig<Width$>
|
||||
|
||||
Title = obj_Install('Get_Prop','Company'):' ':SRptConfig<Title$>
|
||||
Margin = INT((RptWdt - LEN(Title))/2)
|
||||
LMargin = Margin - 10 ;* 10 equals length of the date
|
||||
RMargin = Margin - 8 ;* 8 equals length of 'Page....'
|
||||
Title = OCONV(Date(),'D4/'):SPACE(LMargin):Title:SPACE(RMargin):"Page'PP''L'"
|
||||
|
||||
SWAP '~Title~' WITH Title IN Script
|
||||
|
||||
TitleLine2 = TtlLin2
|
||||
TitleLine3 = TtlLin3
|
||||
TitleLine4 = TtlLin4
|
||||
|
||||
IF TitleLine2 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine2))/2)
|
||||
LMargin = Margin - 7 ;* 7 equals length of time (12:15PM)
|
||||
RMargin = Margin
|
||||
TitleLine2 = OCONV(Time(),'MTH'):SPACE(LMargin):TitleLine2:SPACE(RMargin)
|
||||
SWAP '~SecondTitleLine~' WITH TitleLine2 IN Script
|
||||
END ELSE
|
||||
SWAP '~SecondTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine3 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine3))/2)
|
||||
SWAP '~ThirdTitleLine~' WITH "'L'":TitleLine3 IN Script
|
||||
END ELSE
|
||||
SWAP '~ThirdTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
IF TitleLine4 NE '' THEN
|
||||
Margin = INT((RptWdt - LEN(TitleLine4))/2)
|
||||
SWAP '~FourthTitleLine~' WITH "'L'":TitleLine4 IN Script
|
||||
END ELSE
|
||||
SWAP '~FourthTitleLine~' WITH '' IN Script
|
||||
END
|
||||
|
||||
|
||||
* Added after upgrade to OI4.13a to reset default printer in OIPI32 engine.
|
||||
|
||||
PrintCount = PrintSetup(PRN_GET$,'',Printers,DefaultPrinter)
|
||||
CONVERT ',' TO @FM IN DefaultPrinter
|
||||
DefPrintPath = DefaultPrinter<1>:@FM:DefaultPrinter<3>
|
||||
|
||||
Void = set_printer( 'INIT', '', '', .63:@fm:.63:@fm:.25:@fm:'', 0,'',DefPrintPath )
|
||||
Void = Set_Printer('TERM')
|
||||
|
||||
call slist( Script )
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
|
||||
|
||||
|
||||
RETURN 0
|
||||
795
LSL2/STPROC/COMM_ANN_CONT.txt
Normal file
795
LSL2/STPROC/COMM_ANN_CONT.txt
Normal file
@ -0,0 +1,795 @@
|
||||
COMPILE FUNCTION Comm_Ann_Cont(Instruction, Parm1,Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for ANN_CONT (Annual Contract) window
|
||||
|
||||
07/16/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event, Set_List_Box_Data
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,ErrMsg
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, RowExists, obj_Prod_Ord, obj_Annual_Contracts, NextKey
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT ANNUAL_CONTRACTS_EQU
|
||||
$INSERT PROD_SPEC_EQU
|
||||
$INSERT QUOTE_EQU
|
||||
$INSERT NOTIFICATION_EQU
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$QUOTE_NO TO 1 ;* Equates for Quote Table on 1st page
|
||||
EQU COL$QSTATUS TO 2
|
||||
EQU COL$PART_NO TO 3
|
||||
EQU COL$QUOTE_PSN TO 4
|
||||
EQU COL$QUOTE_DESC TO 5
|
||||
|
||||
|
||||
EQU COL$PRO_NO TO 1
|
||||
EQU COL$ORD_DT TO 2
|
||||
EQU COL$CUST_PO_NO TO 3
|
||||
EQU COL$CUST_PO_LINE TO 4
|
||||
EQU COL$CUST_PO_REL TO 5
|
||||
EQU COL$SETUP_CHG TO 6
|
||||
EQU COL$WAFER_CNT TO 7
|
||||
EQU COL$WAFER_AMT TO 8
|
||||
|
||||
EQU COL$REL_NO TO 1
|
||||
EQU COL$PO_REL TO 2
|
||||
EQU COL$DATE TO 3
|
||||
EQU COL$WO_LOG TO 4
|
||||
EQU COL$SETUP TO 5
|
||||
EQU COL$QTY TO 6
|
||||
EQU COL$PRICE TO 7
|
||||
EQU COL$AMOUNT TO 8
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Ann_Cont'
|
||||
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 = 'Page' ; GOSUB Page
|
||||
CASE Instruction = 'Delete' ; GOSUB Delete
|
||||
CASE Instruction = 'Close' ; GOSUB Close
|
||||
CASE Instruction = 'New' ; GOSUB New
|
||||
CASE Instruction = 'LUDate' ; GOSUB LUDate
|
||||
CASE Instruction = 'LUACNo' ; GOSUB LUACNo
|
||||
CASE Instruction = 'QuoteDC' ; GOSUB QuoteDC
|
||||
CASE Instruction = 'QuotePC' ; GOSUB QuotePC
|
||||
CASE Instruction = 'CustChar' ; GOSUB CustChar
|
||||
CASE Instruction = 'LUCustNo' ; GOSUB LUCustNo
|
||||
CASE Instruction = 'ViewCust' ; GOSUB ViewCust
|
||||
CASE Instruction = 'LUNameNo' ; GOSUB LUNameNo
|
||||
CASE Instruction = 'ViewName' ; GOSUB ViewName
|
||||
CASE Instruction = 'ProdOrdDC' ; GOSUB ProdOrdDC
|
||||
CASE Instruction = 'SendMessage' ; GOSUB SendMessage
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction ':QUOTE(Instruction):' passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
* Change the security tables to match the table names after conversion and take this note out
|
||||
|
||||
IF NOT(Security_Check('Annual Contracts',READ$)) THEN
|
||||
Security_Err_Msg('Annual Contracts',READ$)
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
Set_List_Box_Data(@WINDOW)
|
||||
|
||||
* 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
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
Send_Event(@WINDOW,'PAGE',1)
|
||||
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
IF Security_Check('Annual Contracts',EDIT$) THEN
|
||||
obj_AppWindow('ReadOnly',@WINDOW:@RM:1) ;* enable all database controls
|
||||
END ELSE
|
||||
obj_AppWindow('ReadOnly',@WINDOW) ;* disable all database controls
|
||||
END
|
||||
|
||||
|
||||
Ctrls = @WINDOW:'.ENTRY_ID':@RM ; Props = 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.ENTRY_DT':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.CLOSE_DATE' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
EnterBy = Vals[1,@RM]
|
||||
EnterDTM = Vals[COL2()+1,@RM]
|
||||
CloseDt = Vals[COL2()+1,@RM]
|
||||
|
||||
|
||||
IF EnterBy = '' THEN Vals = 1:@RM ELSE Vals = 0:@RM
|
||||
IF EnterDTM = '' THEN Vals := 1:@RM ELSE Vals := 0:@RM
|
||||
IF CloseDt = '' THEN Vals := 1 ELSE Vals := 0
|
||||
|
||||
Props = 'ENABLED':@RM:'ENABLED':@RM:'ENABLED'
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
ACNo = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF ACNo = '' THEN
|
||||
Set_Property(@WINDOW:'.NEW_BUTTON','ENABLED',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.NEW_BUTTON','ENABLED',0)
|
||||
END
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
|
||||
IF CustNo = '' THEN
|
||||
Set_Property(@WINDOW:'.QUOTE_GROUP','ENABLED',0)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.QUOTE_GROUP','ENABLED',1)
|
||||
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>
|
||||
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 I
|
||||
NEXT I
|
||||
|
||||
QCtrl = @WINDOW:'.QUOTE_TABLE'
|
||||
|
||||
QuoteList = Get_Property(QCtrl,'LIST')
|
||||
|
||||
FOR I = 1 TO COUNT(QuoteList,@FM) + (QuoteList NE '')
|
||||
QStatFirst = QuoteList<I,COL$QSTATUS>[1,1]
|
||||
|
||||
IF QStatFirst NE 'O' AND QStatFirst NE '' THEN
|
||||
stat = Send_Message(QCtrl,'COLOR_BY_POS',COL$QSTATUS,I,YELLOW$)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
TotalList = Get_Property(@WINDOW:'.TOTALS_TABLE','LIST') ;* One line edit table 3 columns wide
|
||||
|
||||
Balance = TotalList<1,3>
|
||||
IF Balance NE '' THEN
|
||||
IF Balance <= 0 THEN
|
||||
stat = Send_Message(@WINDOW:'.TOTALS_TABLE','COLOR_BY_POS',3,1,RED$)
|
||||
END ELSE
|
||||
stat = Send_Message(@WINDOW:'.TOTALS_TABLE','COLOR_BY_POS',3,1,GREEN$)
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Page:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Page')
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
* * * This is called from the event handler as a PreRead event * * *
|
||||
|
||||
ProdOrdNo = Get_Property(@WINDOW:'AC_NO','TEXT')
|
||||
|
||||
IF NOT(RowExists('ANNUAL_CONTRACTS',ProdOrdNo)) THEN
|
||||
IF NOT(Security_Check('Annual Contracts',WRITE$)) THEN
|
||||
Security_Err_Msg('Annual Contracts',WRITE$)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
Forward_Event() ;* passed security, do the read
|
||||
|
||||
EnterBy = Get_Property(@WINDOW:'.ENTRY_ID','TEXT')
|
||||
IF EnterBy = '' THEN
|
||||
CurrDate = OCONV(Date(),'D4/')
|
||||
Set_Property(@WINDOW:'.ENTRY_ID','TEXT',OCONV(@USER4,'[XLATE_CONV,LSL_USERS*FIRST_LAST]'))
|
||||
Set_Property(@WINDOW:'.ENTRY_DATE','TEXT',CurrDate)
|
||||
Set_Property( @WINDOW:'.CUST_NO', "FOCUS",1)
|
||||
END
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.TOTALS_TABLE':@RM ; Props = 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.MIN_BALANCE':@RM ; Props := 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.STATUS':@RM ; Props := 'VALUE':@RM
|
||||
Ctrls := @WINDOW:@RM ; Props := 'ID':@RM
|
||||
Ctrls := @WINDOW:@RM ; Props := 'SAVEWARN':@RM
|
||||
Ctrls := @WINDOW:'.CUST_NAME' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
Totals = Vals[1,@RM]
|
||||
MinBalance = Vals[COL2()+1,@RM]
|
||||
Status = Vals[COL2()+1,@RM]
|
||||
ACId = Vals[COL2()+1,@RM]
|
||||
SaveWarn = Vals[COL2()+1,@RM]
|
||||
CustName = Vals[COL2()+1,@RM]
|
||||
|
||||
Totals = OCONV(ICONV(Totals,'MD2'),'MD2') ;* Remove any commas
|
||||
MinBalance = OCONV(ICONV(MinBalance,'MD2'),'MD2')
|
||||
|
||||
OrderTotal = Totals<1,1> ; * This is from a single row edit table -> three columns
|
||||
RelTotal = Totals<1,2>
|
||||
Balance = Totals<1,3>
|
||||
|
||||
IF MinBalance = '' THEN MinBalance = '1001.00' ;* default = $1001.00
|
||||
|
||||
IF Balance <= MinBalance THEN
|
||||
Balance = OCONV(ICONV(Balance,'MD2'),'MD2,$')
|
||||
Mesg = 'The Current Balance on Annual Contract No ':ACID
|
||||
Mesg := ' for ':CustName:' is below minimum at ':Balance
|
||||
|
||||
Recipient = XLATE('NOTIFICATION','ANN_CONT',NOTIFICATION_USER_ID$,'X')
|
||||
|
||||
Create_Note(Recipient,'System','Annual Contract Balance',Mesg,'ANNUAL_CONTRACTS',ACId)
|
||||
END
|
||||
|
||||
IF Status = 'C' AND SaveWarn THEN
|
||||
MsgInfo = ''
|
||||
MsgInfo<MTYPE$> = 'BNY'
|
||||
MsgInfo<MTEXT$> = 'This contract is closed!':CRLF$:'Are you sure you wish to save changes?'
|
||||
MsgInfo<MICON$> = '!'
|
||||
SaveIt = Msg(@WINDOW,MsgInfo,'')
|
||||
IF SaveIt THEN
|
||||
Result = 1
|
||||
END ELSE
|
||||
Result = 0
|
||||
END
|
||||
END
|
||||
|
||||
Result = 1 ;* Perform the write event
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
IF Security_Check('Annual Contracts',Delete$) THEN
|
||||
Result = 1 ;* Proceed with delete
|
||||
END ELSE
|
||||
Security_Err_Msg('Annual Contracts',Delete$)
|
||||
Result = 0 ;* Stop event chain
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
New:
|
||||
* * * * * * *
|
||||
|
||||
ACNo = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF ACNo = '' THEN
|
||||
NextACNo = NextKey('ANNUAL_CONTRACTS')
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextACNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUACNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
ACKeys = obj_Annual_Contracts('Find')
|
||||
|
||||
IF ACKeys = '' THEN RETURN
|
||||
|
||||
CONVERT @FM TO @VM IN ACKeys
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = AcKeys
|
||||
TypeOver<PTITLE$> = 'Annual Contracts'
|
||||
TypeOver<PSELECT$> = 2 ;* multiple select
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
ACKeys = Popup(@WINDOW,TypeOver,'COMP_ANN_CONT')
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
IF INDEX(ACKeys,@VM,1) THEN
|
||||
Send_Event(@WINDOW,'QBFINIT')
|
||||
Set_Property(@WINDOW,'QBFLIST',ACKeys)
|
||||
GOSUB Refresh
|
||||
Send_Event(@WINDOW,'QBFIRST')
|
||||
END ELSE
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:ACKeys)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
obj_Notes('Inbox',@USER4) ;* Checks for any new messages
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
QuoteDC:
|
||||
* * * * * * *
|
||||
|
||||
* DoubleClick event handler for the Quotes Table
|
||||
|
||||
CtrlEntId = @WINDOW:'.QUOTE_TABLE'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
RowData = Get_Property(CtrlEntId,'ROWDATA')
|
||||
ColData = Get_Property(CtrlEntId,'ARRAY')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
|
||||
IF CurrCol = COL$QUOTE_NO THEN
|
||||
IF RowData<1,CurrCol> = '' THEN
|
||||
OPEN 'DICT.QUOTE' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNo:@VM:@FM
|
||||
SearchString := 'STATUS':@VM:'=O':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'QUOTE', DictVar, QuoteKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@window, MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF QuoteKeys = '' THEN
|
||||
ErrMsg('No Quotes on file for customer ':CustNo)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF INDEX(QuoteKeys,@VM,1) THEN
|
||||
|
||||
QuoteKeys := @VM
|
||||
CONVERT @VM TO @RM IN QuoteKeys
|
||||
CALL V119('S','','D','R',QuoteKeys,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN QuoteKeys
|
||||
QuoteKeys[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = QuoteKeys
|
||||
TypeOver<PSELECT$> = 1 ;* Single value select
|
||||
TypeOver<PTITLE$> = 'Open Quotes for ':OCONV(CustNo,'[XLATE_CONV,COMPANY*CO_NAME]')
|
||||
|
||||
QuoteKey = Popup(@WINDOW,TypeOver,'QUOTE')
|
||||
|
||||
END ELSE
|
||||
QuoteKey = QuoteKeys
|
||||
END
|
||||
|
||||
IF QuoteKey NE '' THEN
|
||||
obj_Appwindow('LUValReturn',QuoteKey:@RM:CtrlEntId:@RM:CurrPos)
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.QUOTE in COMM_ANN_CONT.')
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
QuoteNo = RowData<CurrCol>
|
||||
IF QuoteNo NE '' THEN
|
||||
obj_AppWindow('ViewRelated','QUOTE2':@RM:QuoteNo)
|
||||
END
|
||||
|
||||
END ;* End of check for null value in column
|
||||
END ;* End of check for Quote No column
|
||||
|
||||
IF CurrCol = COL$QUOTE_PSN THEN
|
||||
PSNNos = RowData<CurrCol>
|
||||
SWAP ', ' WITH @VM IN PSNNos
|
||||
IF PSNNos NE '' THEN
|
||||
obj_AppWindow('ViewRelated','PROD_SPEC':@RM:PSNNos)
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
|
||||
IF CurrCol = COL$PART_NO AND RowData<CurrCol> = '' THEN
|
||||
|
||||
PSNos = RowData<COL$QUOTE_PSN>
|
||||
SWAP ', ' WITH @VM IN PSNos ;* Changed 11/18/2004 JCH
|
||||
PartNos = XLATE('PROD_SPEC',PSNos,PROD_SPEC_CUST_PART_NO$,'X')
|
||||
|
||||
PartsInTable = ColData<COL$PART_NO>
|
||||
|
||||
TableLineCnt = COUNT(PartsInTable,@VM) + (PartsInTable NE '')
|
||||
|
||||
LOOP
|
||||
Test = PartsInTable[-1,1]
|
||||
UNTIL Test NE @VM
|
||||
PartsInTable[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
ExistPartCnt = COUNT(PartsInTable,@VM) + (PartsInTable NE '')
|
||||
|
||||
FOR I = 1 TO ExistPartCnt
|
||||
PartInTable = PartsInTable<1,I>
|
||||
LOCATE PartInTable IN PartNos USING @VM Setting Pos THEN
|
||||
PartNos = DELETE(PartNos,1,Pos,0)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No parts available on associated PSN or all parts already added.')
|
||||
END
|
||||
|
||||
IF INDEX(PartNos,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PTITLE$> = 'Part Numbers on Product Specification ':PSNos
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDOW,TypeOver,'PART_NO')
|
||||
IF PartNos = '' THEN RETURN
|
||||
END
|
||||
|
||||
NewPartCnt = COUNT(PartNos,@VM) + (PartNos NE '')
|
||||
|
||||
LinesAvailable = TableLineCnt - (ExistPartCnt + NewPartCnt)
|
||||
|
||||
IF LinesAvailable <= 0 THEN
|
||||
NewLines = ((LinesAvailable*-1) + 1)
|
||||
FOR I = 1 TO NewLines
|
||||
stat = Send_Message(CtrlEntID, "INSERT", -1, STR(@VM,6))
|
||||
NEXT I
|
||||
END
|
||||
|
||||
IF INDEX(PartNos,@VM,1) THEN
|
||||
QuoteNo = RowData<COL$QUOTE_NO>
|
||||
FOR I = 1 TO COUNT(PartNos,@VM) + (PartNos NE '')
|
||||
|
||||
PartNo = PartNos<1,I>
|
||||
TRow = (CurrRow + I - 1)
|
||||
obj_Appwindow('LUValReturn',QuoteNo:@RM:CtrlEntID:@RM:COL$QUOTE_NO:@FM:(CurrRow + I -1))
|
||||
*Send_Event(CtrlEntID,'CALCULATE',COL$PSTATUS)
|
||||
obj_Appwindow('LUValReturn',PartNo:@RM:CtrlEntID:@RM:COL$PART_NO:@FM:(CurrRow + I -1))
|
||||
NEXT I
|
||||
END ELSE
|
||||
obj_Appwindow('LUValReturn',PartNos:@RM:CtrlEntID:@RM:CurrPos)
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
QuotePC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntId = @WINDOW:'.QUOTE_TABLE'
|
||||
|
||||
Ctrls = CtrlEntId:@RM ; Props = 'SELPOS':@RM
|
||||
Ctrls := CtrlEntId:@RM ; Props := 'LIST':@RM
|
||||
Ctrls := CtrlEntId:@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := CtrlEntId ; Props := 'PREVSELPOS'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
CurrPos = Vals[1,@RM]
|
||||
ListData = Vals[COL2()+1,@RM]
|
||||
ColData = Vals[COL2()+1,@RM]
|
||||
PrevPos = Vals[COL2()+1,@RM]
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
PrevCol = PrevPos<1>
|
||||
PrevRow = PrevPos<2>
|
||||
|
||||
|
||||
QStatus = ListData<CurrRow,COL$QSTATUS>
|
||||
PSNNo = ListData<CurrRow,COL$QUOTE_PSN>
|
||||
|
||||
|
||||
QuoteNo = ListData<PrevRow,COL$QUOTE_NO>
|
||||
PSNNos = ListData<PrevRow,COL$QUOTE_PSN>
|
||||
PartNo = ListData<PrevRow,COL$PART_NO>
|
||||
|
||||
SWAP ', ' WITH @VM IN PSNNos
|
||||
|
||||
IF PrevCol = COL$QUOTE_NO AND QuoteNo NE '' THEN
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
QuoteRec = XLATE('QUOTE',QuoteNo,'','X')
|
||||
IF QuoteRec<QUOTE_CUST_NO$> NE CustNO THEN
|
||||
ErrMsg('Quote is for a different customer!')
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevPos)
|
||||
Send_Event(CtrlEntID,'CALCULATE',COL$QSTATUS)
|
||||
Set_Property(CtrlEntID,'SELPOS',PrevPos)
|
||||
END
|
||||
END
|
||||
|
||||
IF PrevCol = COL$PART_NO AND PartNo NE '' THEN
|
||||
PSNParts = XLATE('PROD_SPEC',PSNNos,PROD_SPEC_CUST_PART_NO$,'X')
|
||||
|
||||
LOCATE PartNo IN PSNParts USING @VM SETTING Dummy ELSE
|
||||
ErrMsg('Part No is not listed on the associated PSN!')
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevPos)
|
||||
Set_Property(CtrlEntID,'SELPOS',PrevPos)
|
||||
END
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_NO'
|
||||
|
||||
DataIn = Get_Property(CtrlName,'TEXT')
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'TEXT','') ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCustNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
|
||||
CustNo = Popup(@WINDOW,TypeOver,'CUSTOMER')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('LUValReturn',CustNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ViewCust:
|
||||
* * * * * * *
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','COMPANY':@RM:CustNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUNameNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
|
||||
IF CompNo NE '' THEN
|
||||
|
||||
* This is the pushbutton - show the short name list
|
||||
OPEN 'DICT.NAMES' TO DictVar THEN
|
||||
SearchString = 'CO_ID':@VM:CompNo:@FM
|
||||
Btree.Extract(SearchString,'NAMES',DictVar,NameNos,'',Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NameNos = '' THEN
|
||||
ErrMsg('No names on file for Customer Number ':CompNo)
|
||||
RETURN
|
||||
END ELSE
|
||||
IF INDEX(NameNos,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = NameNos
|
||||
TypeOver<PTITLE$> = 'Contact Names for ':XLATE('COMPANY',CompNo,4,'X')
|
||||
NameNo = Popup(@WINDOW,TypeOver,'COMP_NAME')
|
||||
END ELSE
|
||||
NameNo = NameNos
|
||||
END
|
||||
obj_AppWindow('LUValReturn',NameNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.NAMES in COMM_ANN_CONT routine.')
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
NameNo = Popup(@WINDOW,'','NAMES')
|
||||
IF NameNo NE '' THEN
|
||||
obj_AppWindow('LUValReturn',NameNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ViewName:
|
||||
* * * * * * *
|
||||
|
||||
NameNo = Get_Property(@WINDOW:'.NAME_NO','TEXT')
|
||||
IF NameNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','NAMES':@RM:NameNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ProdOrdDC:
|
||||
* * * * * * *
|
||||
|
||||
ACNo = Get_Property(@WINDOW,'ID')
|
||||
CtrlEntID = @WINDOW:'.PROD_ORDER'
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
OrdNo = Get_Property(CtrlEntID,'CELLPOS',COL$PRO_NO:@FM:CurrRow)
|
||||
IF OrdNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','ORDER2':@RM:OrdNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SendMessage:
|
||||
* * * * * * *
|
||||
|
||||
ACNo = Get_Property(@WINDOW,'ID')
|
||||
IF ACNo = '' THEN RETURN
|
||||
QBFList = Get_Property(@WINDOW,'QBFLIST')
|
||||
IF QBFList = '' THEN
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
END
|
||||
|
||||
Dummy = Dialog_Box('NOTES_ATTACH',@WINDOW,'ANN_CONT*':ACNo:'*':QBFList)
|
||||
IF QBFList = '' THEN
|
||||
obj_Appwindow('LoadFormKeys', @WINDOW:@RM:ACNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
188
LSL2/STPROC/COMM_APPLICATION.txt
Normal file
188
LSL2/STPROC/COMM_APPLICATION.txt
Normal file
@ -0,0 +1,188 @@
|
||||
COMPILE FUNCTION Comm_Application(Event,CtrlEntId,CtrlClassId,Parm1,Parm2,Parm3)
|
||||
|
||||
DECLARE SUBROUTINE Set_Property
|
||||
DECLARE FUNCTION Get_Property
|
||||
|
||||
* Application wide event handlers
|
||||
* initially for support of <ALT><O> and <ALT><C> functionality
|
||||
* 9/27/1999 - John C. Henry - J.C. Henry, Inc.
|
||||
|
||||
EQU COL$ TO 1
|
||||
EQU ROW$ TO 2
|
||||
|
||||
|
||||
IF Event = 'READ' THEN
|
||||
Ctrls = CtrlEntId:@RM:CtrlEntId:@RM:CtrlEntId:@RM:CtrlEntId
|
||||
Props = '@PREV_ID':@RM:'@PREV_REC':@RM:'ID':@RM:'RECORD'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
PrevID = Vals[1,@RM]
|
||||
PrevRec = Vals[COL2()+1,@RM]
|
||||
ID = Vals[COL2()+1,@RM]
|
||||
Record = Vals[COL2()+1,@RM]
|
||||
|
||||
IF PrevID = '' THEN Set_Property(CtrlEntId,'@PREV_ID',ID)
|
||||
IF PrevRec = '' THEN Set_Property(CtrlEntId,'@PREV_REC',Record)
|
||||
|
||||
RETURN 1
|
||||
END
|
||||
|
||||
IF Event = 'WRITE' THEN
|
||||
|
||||
Ctrls = CtrlEntId:@RM:CtrlEntId
|
||||
Props = 'ID':@RM:'RECORD'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
ID = Vals[1,@RM]
|
||||
Record = Vals[COL2()+1,@RM]
|
||||
|
||||
Props = '@PREV_ID':@RM:'@PREV_REC'
|
||||
Vals = ID:@RM:Record
|
||||
|
||||
Set_Property(Ctrls,Props,Vals) ;* Store off ID and record for defaults
|
||||
|
||||
RETURN 1
|
||||
END
|
||||
|
||||
|
||||
IF Event = 'PREV_REC' THEN
|
||||
|
||||
* <ALT><C> - Copy previous record
|
||||
|
||||
Ctrls = @WINDOW:@RM:@WINDOW:@RM:@WINDOW
|
||||
Props = 'FOCUS':@RM:'@PREV_REC':@RM:'CTRLMAP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
CtrlName = Vals[1,@RM]
|
||||
PrevRec = Vals[COL2()+1,@RM]
|
||||
CtrlMap = Vals[COL2()+1,@RM]
|
||||
|
||||
CONVERT @FM TO @RM IN CtrlMap
|
||||
|
||||
PosList = Get_Property(CtrlMap,STR('POS':@RM,COUNT(CtrlMap,@RM)):'POS')
|
||||
ConvList = Get_Property(CtrlMap,STR('CONV':@RM,COUNT(CtrlMap,@RM)):'CONV')
|
||||
|
||||
Ctrls = ''
|
||||
Props = ''
|
||||
Vals = ''
|
||||
|
||||
FOR I = 1 TO COUNT(PosList,@RM) + (PosList NE '')
|
||||
|
||||
Pos = FIELD(PosList,@RM,I)
|
||||
|
||||
IF Pos NE '' AND Pos > 0 THEN
|
||||
Conv = FIELD(ConvList,@RM,I)
|
||||
Ctrl = FIELD(CtrlMap,@RM,I)
|
||||
|
||||
IF INDEX(Pos,@SVM,1) THEN
|
||||
|
||||
* We're in a Multivalued control i.e. edittable
|
||||
|
||||
CtrlArray = ''
|
||||
|
||||
FOR N = 1 TO COUNT(Pos,@SVM) + (Pos NE '')
|
||||
ColPos = FIELD(Pos,@SVM,N)
|
||||
ColConv = FIELD(Conv,@SVM,N)
|
||||
ColValues = PrevRec<ColPos>
|
||||
IF ColConv NE '' THEN
|
||||
ColValues = OCONV(ColValues,ColConv)
|
||||
END
|
||||
|
||||
CtrlArray<N> = ColValues
|
||||
NEXT N
|
||||
|
||||
Ctrls := Ctrl:@RM
|
||||
Props := 'DEFPROP':@RM
|
||||
Vals := CtrlArray:@RM
|
||||
|
||||
END ELSE
|
||||
|
||||
Value = PrevRec<Pos>
|
||||
|
||||
IF Conv NE '' THEN Value = OCONV(Value,Conv)
|
||||
|
||||
Ctrls := FIELD(CtrlMap,@RM,I):@RM
|
||||
Props := 'DEFPROP':@RM
|
||||
Vals := Value:@RM
|
||||
END
|
||||
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Ctrls[-1,1] = ''
|
||||
Props[-1,1] = ''
|
||||
Vals[-1,1] = ''
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
RETURN ''
|
||||
|
||||
END
|
||||
|
||||
IF Event = 'PREV_VAL' THEN
|
||||
|
||||
* <ALT><O> - Copy previous field value, also works in the keys fields
|
||||
|
||||
Ctrls = @WINDOW:@RM:@WINDOW:@RM:@WINDOW
|
||||
Props = 'FOCUS':@RM:'@PREV_ID':@RM:'@PREV_REC'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
CtrlName = Vals[1,@RM]
|
||||
PrevID = Vals[COL2()+1,@RM]
|
||||
PrevRec = Vals[COL2()+1,@RM]
|
||||
|
||||
Ctrls = CtrlName:@RM:CtrlName:@RM:CtrlName
|
||||
Props = 'POS':@RM:'PART':@RM:'CONV'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
Pos = Vals[1,@RM]
|
||||
Part = Vals[COL2()+1,@RM]
|
||||
Conv = Vals[COL2()+1,@RM]
|
||||
|
||||
IF Index(Pos,@SVM,1) THEN
|
||||
|
||||
* Multi-Valued control i.e. We're in an edit table
|
||||
|
||||
SelPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
SelCol = SelPos<COL$>
|
||||
SelRow = SelPos<ROW$>
|
||||
|
||||
ColPos = FIELD(Pos,@SVM,SelCol)
|
||||
ColConv = FIELD(Conv,@SVM,SelCol)
|
||||
|
||||
Value = PrevRec<ColPos,SelRow>
|
||||
|
||||
IF Conv NE '' THEN Value = OCONV(Value,ColConv)
|
||||
|
||||
Set_Property(CtrlName,'DEFPROP',Value,SelPos)
|
||||
Set_Property(CtrlName,'SELECTION',1,@FM:LEN(Value))
|
||||
|
||||
|
||||
END ELSE
|
||||
|
||||
* Single valued control
|
||||
|
||||
IF Pos = 0 THEN
|
||||
Value = FIELD(PrevID,'*',Part)
|
||||
END ELSE
|
||||
Value = PrevRec<Pos>
|
||||
END
|
||||
|
||||
IF Conv NE '' THEN Value = OCONV(Value,Conv)
|
||||
|
||||
Set_Property(CtrlName,'DEFPROP',Value)
|
||||
Set_Property(CtrlName,'SELECTION',1,@FM:LEN(Value))
|
||||
|
||||
END
|
||||
|
||||
RETURN ''
|
||||
|
||||
END
|
||||
|
||||
RETURN 0
|
||||
311
LSL2/STPROC/COMM_ASM_PART.txt
Normal file
311
LSL2/STPROC/COMM_ASM_PART.txt
Normal file
@ -0,0 +1,311 @@
|
||||
COMPILE FUNCTION Comm_ASM_Part(Instruction, Parm1,Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for ASM Part window
|
||||
|
||||
08/28/2006 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, Set_Status, ErrMsg, Set_Property, obj_AppWindow, Set_List_Box_Data
|
||||
DECLARE SUBROUTINE Btree.Extract, Send_Event, Security_Err_Msg, Forward_Event, End_Window, Start_Window
|
||||
DECLARE SUBROUTINE Send_Message
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box, RowExists
|
||||
DECLARE FUNCTION Dialog_Box, obj_WO_Log, MemberOf, obj_NCR, Send_Message, MemberOf, obj_Popup
|
||||
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_ASM_Part'
|
||||
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 = 'LU_ASMPart' ; GOSUB LU_ASMPart
|
||||
CASE Instruction = 'GasesDC' ; GOSUB GasesDC
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine'
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
IF NOT(Security_Check('ASM Part',READ$)) THEN
|
||||
Security_Err_Msg('ASM Part',READ$)
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
Result = 1
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('DetailReturn')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
* 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>
|
||||
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
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LU_ASMPart:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
Retval = Popup(@WINDOW,TypeOver,'ASM_MFC')
|
||||
|
||||
IF RetVal = '' THEN RETURN
|
||||
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:RetVal)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
MFC_DC:
|
||||
* * * * * * *
|
||||
|
||||
ReactorNo = Get_Property(@WINDOW:'.REACT_NO','TEXT')
|
||||
|
||||
CtrlEntID = @WINDOW:'.MFC_FUNC'
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
|
||||
IF CurrCol = COL$MFC_CODE THEN
|
||||
|
||||
CurrMfcCodes = Get_Property(CtrlEntID,'ARRAY')<COL$MFC_CODE> ;* Existing MFC codes in edit table
|
||||
CurrMfcCodesTrimmed = ''
|
||||
FOR I = 1 TO COUNT(CurrMfcCodes,@VM) + (CurrMfcCodes NE '')
|
||||
IF CurrMfcCodes<1,I> NE '' THEN
|
||||
CurrMfcCodesTrimmed<1,I> = CurrMfcCodes<1,I>
|
||||
END
|
||||
NEXT I
|
||||
CurrMfcCodes = CurrMfcCodesTrimmed
|
||||
CurrMfcCodePositions = obj_Popup('CodePosition','REACT_MFC_FUNC':@RM:CurrMfcCodes)
|
||||
|
||||
MfcCodes = Popup(@WINDOW,'','REACT_MFC_FUNC')
|
||||
|
||||
IF MfcCodes = '' THEN RETURN
|
||||
|
||||
NewMfcCodePositions = obj_Popup('CodePosition','REACT_MFC_FUNC':@RM:MfcCodes)
|
||||
|
||||
FOR I = 1 TO COUNT(NewMfcCodePositions,@VM) + (NewMfcCodePositions NE '')
|
||||
NewMFcCodePosition = NewMfcCodePositions<1,I>
|
||||
MfcCode = MfcCodes<1,I>
|
||||
LOCATE NewMfcCodePosition IN CurrMfcCodePositions BY 'AR' USING @VM SETTING POS ELSE
|
||||
CurrMfcCodePositions = INSERT(CurrMfcCodePositions,1,POS,0,NewMfcCodePosition)
|
||||
|
||||
Send_Message(CtrlEntID,'INSERT',POS,MfcCode:@VM:@VM)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
Send_Event(@WINDOW:'.MFC_FUNC','CALCULATE',COL$MFC_FUNCTION)
|
||||
|
||||
GOSUB Refresh
|
||||
END ;* End of MfcCode column
|
||||
|
||||
/*
|
||||
IF CurrCol = COL$MFC_SERIAL_NO THEN
|
||||
QuoteNo = Get_Property(CtrlEntID,'CELLPOS',COL$QUOTE_NO:@FM:CurrRow)
|
||||
|
||||
IF OrderNo NE '' AND QuoteNo NE '' THEN
|
||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
END
|
||||
|
||||
DetWindow = 'QUOTE2'
|
||||
DetKeys = QuoteNo
|
||||
DefaultRec = ''
|
||||
RetKey = OrderNo
|
||||
RetPage = 1
|
||||
RetCtrl = CtrlEntID
|
||||
RetPos = CurrPos
|
||||
|
||||
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
|
||||
END ;* End of QuoteNo column
|
||||
|
||||
*/
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
GasesDC:
|
||||
* * * * * * *
|
||||
|
||||
ReactorNo = Get_Property(@WINDOW:'.REACT_NO','TEXT')
|
||||
|
||||
CtrlEntID = @WINDOW:'.GASES'
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CurrGases = Get_Property(CtrlEntID,'ARRAY') ;* Existing MFC codes in edit table
|
||||
CurrGasesTrimmed = ''
|
||||
FOR I = 1 TO COUNT(CurrGases,@VM) + (CurrGases NE '')
|
||||
IF CurrGases<1,I> NE '' THEN
|
||||
CurrGasesTrimmed<1,I> = CurrGases<1,I>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
CurrGases = CurrGasesTrimmed
|
||||
CurrGasesPositions = obj_Popup('CodePosition','REACTOR_GASES':@RM:CurrGases)
|
||||
|
||||
Gases = Popup(@WINDOW,'','REACTOR_GASES')
|
||||
|
||||
IF Gases = '' THEN RETURN
|
||||
|
||||
NewGasesPositions = obj_Popup('CodePosition','REACTOR_GASES':@RM:Gases)
|
||||
|
||||
FOR I = 1 TO COUNT(NewGasesPositions,@VM) + (NewGasesPositions NE '')
|
||||
NewGasesPosition = NewGasesPositions<1,I>
|
||||
Gas = Gases<1,I>
|
||||
LOCATE NewGasesPosition IN CurrGasesPositions BY 'AR' USING @VM SETTING POS ELSE
|
||||
CurrGasesPositions = INSERT(CurrGasesPositions,1,POS,0,NewGasesPosition)
|
||||
|
||||
Send_Message(CtrlEntID,'INSERT',POS,Gas)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
*Send_Event(@WINDOW:'.MFC_FUNC','CALCULATE',COL$MFC_FUNCTION)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
8
LSL2/STPROC/COMM_CLEAN_INSP.txt
Normal file
8
LSL2/STPROC/COMM_CLEAN_INSP.txt
Normal file
@ -0,0 +1,8 @@
|
||||
COMPILE FUNCTION Comm_Clean_Insp(Instruction,Parm1,Parm2)
|
||||
|
||||
/*
|
||||
Moved to new style commuter 'CLEAN_INSP"
|
||||
*/
|
||||
|
||||
RETURN ''
|
||||
|
||||
161
LSL2/STPROC/COMM_COA.txt
Normal file
161
LSL2/STPROC/COMM_COA.txt
Normal file
@ -0,0 +1,161 @@
|
||||
COMPILE FUNCTION Comm_Coa(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Coawindow
|
||||
|
||||
04/18/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window,Print_Vend_CofA
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
ErrTitle = 'Error in Comm_Coa'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'Write' ; GOSUB Write
|
||||
CASE Instruction = 'Delete' ; GOSUB Delete
|
||||
CASE Instruction = 'Print' ; GOSUB Print
|
||||
CASE Instruction = 'LUCompNo' ; GOSUB LUCompNo
|
||||
CASE Instruction = 'LotNoGF' ; GOSUB LotNoGF
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
Center_Window(@WINDOW)
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
ErrMsg('Records may not be modified.')
|
||||
|
||||
Result = 0 ;* No Writes
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
ErrMsg('Records may not be modified.')
|
||||
|
||||
Result = 0 ;* No Deletes
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCompNo:
|
||||
* * * * * * *
|
||||
|
||||
CompKeys = Collect.IXVals('COA', 'COMP_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN CompKeys
|
||||
|
||||
PopOver = ''
|
||||
PopOver<PDISPLAY$> = CompKeys
|
||||
|
||||
CompanyKey = Popup(@WINDOW,PopOver,'COMPANY_COA')
|
||||
|
||||
IF CompanyKey NE '' THEN
|
||||
obj_AppWindow('LUValReturn',CompanyKey:@RM:@WINDOW:'.COMP_NO')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoGF:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.COMP_NO','INVALUE')
|
||||
LotNo = Get_Property(@WINDOW:'.LOT_NO','TEXT')
|
||||
|
||||
IF CompNo NE '' AND LotNo = '' THEN
|
||||
OPEN 'DICT.COA' TO DictCOA THEN
|
||||
SearchString = 'COMP_NO':@VM:CompNo:@FM
|
||||
Btree.Extract(SearchString, 'COA', DictCOA, COAKeys, '', '')
|
||||
|
||||
IF COAKeys = '' THEN RETURN
|
||||
|
||||
COAKeys := @VM
|
||||
CONVERT @VM TO @RM IN COAKeys
|
||||
CALL V119('S','','D','R',COAKeys,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN COAKeys
|
||||
COAKeys[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
PopOver = ''
|
||||
PopOver<PDISPLAY$> = COAKeys
|
||||
|
||||
COAKey = Popup(@WINDOW,PopOver,'COA')
|
||||
|
||||
IF COAKey NE '' THEN
|
||||
LotNo = FIELD(COAKey,'*',2)
|
||||
obj_AppWindow('LUValReturn',LotNo:@RM:@WINDOW:'.LOT_NO')
|
||||
END
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Print:
|
||||
* * * * * * *
|
||||
|
||||
CoaID = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF CoaID = '' THEN RETURN
|
||||
|
||||
Print_Vend_CofA( CoaID, PDFPath )
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
178
LSL2/STPROC/COMM_COA_COC.txt
Normal file
178
LSL2/STPROC/COMM_COA_COC.txt
Normal file
@ -0,0 +1,178 @@
|
||||
COMPILE FUNCTION Comm_Coa_Coc(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Coa_Coc window
|
||||
|
||||
03/03/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Coa_Coc'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'LUCompNo' ; GOSUB LUCompNo
|
||||
CASE Instruction = 'LotDC' ; GOSUB LotDC
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
Center_Window(@WINDOW)
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCompNo:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CompanyKeys = Collect.IXVals('COA_COC', 'COMP_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN CompanyKeys
|
||||
|
||||
OverRide = ''
|
||||
OverRide<PMODE$> = 'K'
|
||||
OverRide<PDISPLAY$> = CompanyKeys
|
||||
|
||||
CompanyKey = Popup(@WINDOW,OverRide,'COMPANY2')
|
||||
|
||||
IF CompanyKey = '' THEN RETURN
|
||||
|
||||
OPEN 'DICT.COA_COC' TO DictVar THEN
|
||||
|
||||
TableName = 'COA_COC'
|
||||
Flag = ''
|
||||
Option = ''
|
||||
Search = 'COMP_NO':@VM:CompanyKey:@FM
|
||||
|
||||
Btree.Extract(Search, TableName, DictVar, CoaCocKeys, Option, Flag)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
OverRide = ''
|
||||
OverRide<PMODE$> = 'K'
|
||||
OverRide<PDISPLAY$> = CoaCocKeys
|
||||
CoaCocKey = Popup(@WINDOW,OverRide,'COA_COC')
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:CoaCocKey)
|
||||
|
||||
|
||||
END ;* End of DICT.COA_COC open
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * *
|
||||
LotDC:
|
||||
* * * * * *
|
||||
|
||||
LotList = Get_Property(@WINDOW:'.VEND_LOT_NO','LIST')
|
||||
CurrPos = Get_Property(@WINDOW:'.VEND_LOT_NO','SELPOS')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
LotNo = LotList<CurrRow,1>
|
||||
|
||||
IF LotNo NE '' THEN
|
||||
xlFileName = Get_Property(@WINDOW:'.XLFILENAME','TEXT')
|
||||
Path = Get_Property(@WINDOW:'.PATH','TEXT')
|
||||
|
||||
TestWacker = xlFileName[1,'_']
|
||||
IF LEN(TestWacker) = 6 AND NUM(TestWacker) THEN
|
||||
WackerNo = TestWacker
|
||||
END ELSE
|
||||
WackerNo = ''
|
||||
END
|
||||
|
||||
Frame = Get_Property(@WINDOW, "MDIFRAME")
|
||||
|
||||
Code = ''
|
||||
|
||||
Code<-1> = 'Set objExcel = CreateObject("excel.Application")'
|
||||
Code<-1> = 'objExcel.WindowState = 3'
|
||||
Code<-1> = 'objExcel.Visible = True'
|
||||
|
||||
Code<-1> = 'Path = ':QUOTE(Path:xlFileName)
|
||||
Code<-1> = 'objExcel.Workbooks.Open Path'
|
||||
|
||||
Code<-1> = 'objExcel.Sheets("':WackerNo:'_L").Select'
|
||||
|
||||
hScript = Frame:'.SCRIPTCONTROL'
|
||||
|
||||
swap @tm with crlf$ in Code
|
||||
swap @fm with crlf$ in Code
|
||||
|
||||
script = 'function main(argstring)'
|
||||
script := crlf$:''
|
||||
script := crlf$:'result = 0'
|
||||
script := crlf$:code
|
||||
script := crlf$:'main = result'
|
||||
script := crlf$:''
|
||||
script := crlf$:'end function'
|
||||
language = 'VbScript'
|
||||
strResult = Send_Message( hScript, 'Reset')
|
||||
|
||||
Set_Property( hScript ,'Language',language)
|
||||
|
||||
strResult = Send_Message( hScript, 'AddCode', script )
|
||||
strResult = Send_Message( hScript, 'Run', "main","" )
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
82
LSL2/STPROC/COMM_COMPANY2.txt
Normal file
82
LSL2/STPROC/COMM_COMPANY2.txt
Normal file
@ -0,0 +1,82 @@
|
||||
COMPILE FUNCTION Comm_Company2(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for COMPANY2 window
|
||||
|
||||
002/29/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, SetInitDirOptions
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Make.List,Set_Property, Send_Event
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Fieldcount
|
||||
DECLARE FUNCTION Collect.Ixvals
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Company2'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'LUComp_No' ; GOSUB LUComp_No
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
SetInitDirOptions('-R-SD')
|
||||
InitDir "R:\InboundCofA\*."
|
||||
SubDirectories = @FM:DirList()
|
||||
|
||||
Set_Property(@WINDOW:'.COA_FOLDER','LIST',SubDirectories)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
LUComp_No:
|
||||
* * * * * * *
|
||||
|
||||
CompKeys = Collect.IXVals('COA', 'COMP_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN CompKeys
|
||||
|
||||
PopOver = ''
|
||||
PopOver<PDISPLAY$> = CompKeys
|
||||
|
||||
CompanyKey = Popup(@WINDOW,PopOver,'COMPANY_COA')
|
||||
IF CompanyKey NE '' THEN
|
||||
Set_Property(@WINDOW:'.CO_NO','DEFPROP',CompanyKey)
|
||||
Send_Event(@WINDOW,'READ')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
77
LSL2/STPROC/COMM_COMPANY_FIX.txt
Normal file
77
LSL2/STPROC/COMM_COMPANY_FIX.txt
Normal file
@ -0,0 +1,77 @@
|
||||
COMPILE FUNCTION Comm_Company_Fix(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for COMPANY_FIX window
|
||||
|
||||
002/29/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, SetInitDirOptions
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Make.List,Set_Property, Send_Event, obj_Appwindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Fieldcount
|
||||
DECLARE FUNCTION Collect.Ixvals
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Company_Fix'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'LUCustNo' ; GOSUB LUCustNo
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCustNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
|
||||
CustNo = Popup(@WINDOW,TypeOver,'CUSTOMER')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('LUValReturn',CustNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
142
LSL2/STPROC/COMM_COMP_LOOKUP.txt
Normal file
142
LSL2/STPROC/COMM_COMP_LOOKUP.txt
Normal file
@ -0,0 +1,142 @@
|
||||
COMPILE SUBROUTINE COMM_COMP_LOOKUP( Instruction, Parm1,Parm2 )
|
||||
|
||||
/*
|
||||
|
||||
Commuter module for COMP_LOOKUP window
|
||||
|
||||
07/12/2004 - JCH - J.C. Henry, Inc.
|
||||
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE ErrMsg, obj_Appwindow, Set_Property, Btree.Extract, End_Window
|
||||
DECLARE FUNCTION Get_Property
|
||||
|
||||
EQU TRUE$ TO 1
|
||||
EQU FALSE TO 0
|
||||
|
||||
* Sub Clients Table Equates
|
||||
|
||||
EQU COL$CLIENT_NO TO 1
|
||||
EQU COL$CLIENT_TYPE TO 2
|
||||
EQU COL$CLIENT_NAME TO 3
|
||||
EQU COL$CLIENT_COMPANY TO 4
|
||||
EQU COL$CLIENT_DESC TO 5
|
||||
|
||||
|
||||
ReturnVal = ''
|
||||
|
||||
* Dispather
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'OK' ; GOSUB OK
|
||||
CASE Instruction = 'NameChar' ; GOSUB NameChar
|
||||
CASE Instruction = 'TableDC' ; GOSUB TableDC
|
||||
CASE 1
|
||||
ErrMsg('Invalid Instruction ':QUOTE(Instruction):' passed to COMM_COMP_LOOKUP routine')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN ReturnVal
|
||||
|
||||
* * * * * *
|
||||
Create:
|
||||
* * * * * *
|
||||
|
||||
CharacterIn = Parm1<1,1>
|
||||
CompType = Parm1<1,2>
|
||||
ReturnToCtrl = Parm1<2>
|
||||
ReturnToPos = FIELD(Parm1,@FM,3,2) ;* Fields 3 and 4
|
||||
|
||||
obj_AppWindow('Create',@WINDOW)
|
||||
|
||||
Set_Property(@WINDOW:".NAME","TEXT",CharacterIn)
|
||||
Set_Property(@WINDOW:'.NAME','SELECTION',LEN(CharacterIn)+1:@FM:65534 )
|
||||
Set_Property(@WINDOW,'@COMP_TYPE',CompType)
|
||||
Set_Property(@WINDOW,'@RETURN_TO_CTRL',ReturnToCtrl)
|
||||
Set_Property(@WINDOW,'@RETURN_TO_POS',ReturnToPos)
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NameChar:
|
||||
* * * * * * *
|
||||
|
||||
IF Instruction = 'NameChar' THEN
|
||||
CharacterIn = Get_Property(@WINDOW:'.NAME','TEXT')
|
||||
END
|
||||
|
||||
IF LEN(CharacterIn) < 3 OR CharacterIn[-1,1] = ' ' THEN RETURN
|
||||
|
||||
CONVERT ' ' TO @VM IN CharacterIn
|
||||
|
||||
SearchCriteria = ''
|
||||
|
||||
IF INDEX(CharacterIn,@VM,1) THEN
|
||||
LastWord = CharacterIn[-1,'B':@VM] ;* Multiple words in name
|
||||
WordCnt = COUNT(CharacterIn,@VM) + (CharacterIn NE '')
|
||||
FOR I = 1 TO WordCnt
|
||||
SearchCriteria := 'CO_NAME_XREF':@VM:CharacterIn<1,I>:']':@FM
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
SearchCriteria = 'CO_NAME_XREF':@VM:CharacterIn:']':@FM
|
||||
END
|
||||
|
||||
CompType = Get_Property(@WINDOW,'@COMP_TYPE') ;* Can be V(endor), C(ustomer) or O(ther)
|
||||
|
||||
OPEN "DICT.COMPANY" To DictVar THEN
|
||||
|
||||
IF CompType NE '' THEN
|
||||
SearchCriteria := 'CO_TYPE':@VM:CompType:@FM
|
||||
END
|
||||
KeyList = ''
|
||||
Option = ''
|
||||
Flag = ''
|
||||
Btree.Extract(SearchCriteria, 'COMPANY',DictVar,KeyList,Option,Flag)
|
||||
KeyCnt = COUNT(KeyList,@VM) + (KeyList NE '')
|
||||
IF KeyList NE '' THEN
|
||||
NameArray = ''
|
||||
ClientTypes = XLATE('COMPANY',KeyList,'CO_TYPE','X')
|
||||
ClientNames = XLATE('COMPANY',KeyList,'CO_NAME','X')
|
||||
ClientDivisions = XLATE('COMPANY',KeyList,'DIVISION','X')
|
||||
ClientCities = XLATE('COMPANY',KeyList,'CITY','X')
|
||||
NameArray = KeyList:@FM:ClientTypes:@FM:ClientNames:@FM:ClientDivisions:@FM:ClientCities
|
||||
|
||||
END
|
||||
Set_Property(@WINDOW:'.LOOKUP_TABLE','DEFPROP',NameArray)
|
||||
IF KeyCnt = 1 THEN
|
||||
Set_Property(@WINDOW:'.LOOKUP_TABLE','SELPOS',1:@FM:1)
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','FOCUS',1)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.CLIENT for index lookup')
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
TableDC:
|
||||
* * * * * * *
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
CurrPos = Get_Property(@WINDOW:'.LOOKUP_TABLE','SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
LookupList = Get_Property(@WINDOW:'.LOOKUP_TABLE','LIST')
|
||||
CustNo = LookupList<CurrRow,COL$CLIENT_NO>
|
||||
ReturnToCtrl = Get_Property(@WINDOW,'@RETURN_TO_CTRL')
|
||||
ReturnToPos = Get_Property(@WINDOW,'@RETURN_TO_POS')
|
||||
|
||||
End_Window(@WINDOW)
|
||||
|
||||
obj_AppWindow('LUValReturn',CustNo:@RM:ReturnToCtrl:@RM:ReturnToPos:@RM:1) ;* Last Param (SkipCalculate) required when called from collector
|
||||
|
||||
|
||||
RETURN
|
||||
99
LSL2/STPROC/COMM_CUSTOMER.txt
Normal file
99
LSL2/STPROC/COMM_CUSTOMER.txt
Normal file
@ -0,0 +1,99 @@
|
||||
COMPILE FUNCTION Comm_Customer(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for CUSTOMER window
|
||||
|
||||
06/24/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, SetInitDirOptions
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Make.List,Set_Property, Send_Event, obj_Appwindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Fieldcount
|
||||
DECLARE FUNCTION Collect.Ixvals
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Customer'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Clear' ; GOSUB Clear
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'Page' ; GOSUB Page
|
||||
CASE Instruction = 'LUCustNo' ; GOSUB LUCustNo
|
||||
CASE 1
|
||||
debug
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Page:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Page')
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCustNo:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
CompKeys = Collect.IXVals('COA', 'COMP_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN CompKeys
|
||||
|
||||
PopOver = ''
|
||||
PopOver<PDISPLAY$> = CompKeys
|
||||
|
||||
CompanyKey = Popup(@WINDOW,PopOver,'COMPANY_COA')
|
||||
IF CompanyKey NE '' THEN
|
||||
Set_Property(@WINDOW:'.CO_NO','DEFPROP',CompanyKey)
|
||||
Send_Event(@WINDOW,'READ')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
818
LSL2/STPROC/COMM_CUSTOMER_EPI.txt
Normal file
818
LSL2/STPROC/COMM_CUSTOMER_EPI.txt
Normal file
@ -0,0 +1,818 @@
|
||||
COMPILE FUNCTION Comm_Customer_EPI(Instruction, Parm1,Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Customer_Epi () window
|
||||
|
||||
07/08/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Set_List_Box_Data, SetInitDirOptions
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,ErrMsg
|
||||
DECLARE SUBROUTINE obj_Notes, Security_Err_Msg, End_Window, Forward_Event, Start_Window, Create_Note, RList
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, RowExists, NextKey
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT COMPANY_EQU
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Equates for the SHIP_TO_CUST_NO edit table control
|
||||
EQU COL$SAP_NO TO 2
|
||||
EQU COL$COMPANY TO 3
|
||||
EQU COL$ABBREV TO 4
|
||||
EQU COL$ADDRESS TO 5
|
||||
EQU COL$CSZ TO 6
|
||||
|
||||
ErrTitle = 'Error in Comm_Customer_EPI'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
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 = 'Page' ; GOSUB Page
|
||||
CASE Instruction = 'Delete' ; GOSUB Delete
|
||||
CASE Instruction = 'Close' ; GOSUB Close
|
||||
CASE Instruction = 'New' ; GOSUB New
|
||||
CASE Instruction = 'LUDate' ; GOSUB LUDate
|
||||
CASE Instruction = 'LUCompNo' ; GOSUB LUCompNo
|
||||
CASE Instruction = 'CompChar' ; GOSUB CompChar
|
||||
CASE Instruction = 'CompNoLF' ; GOSUB CompNoLF
|
||||
CASE Instruction = 'ViewBillTo' ; GOSUB ViewBillTo
|
||||
CASE Instruction = 'ShipToDC' ; GOSUB ShipToDC
|
||||
CASE Instruction = 'Contacts' ; GOSUB Contacts
|
||||
CASE Instruction = 'AnnConts' ; GOSUB AnnConts
|
||||
CASE Instruction = 'Quotes' ; GOSUB Quotes
|
||||
CASE Instruction = 'ProdSpecs' ; GOSUB ProdSpecs
|
||||
CASE Instruction = 'OpenOrders' ; GOSUB OpenOrders
|
||||
CASE Instruction = 'LUIncoCode' ; GOSUB LUIncoCode
|
||||
CASE Instruction = 'LUShipDocDir' ; GOSUB LUShipDocDir
|
||||
CASE Instruction = 'LUShipDataDir' ; GOSUB LUShipDataDir
|
||||
CASE Instruction = 'LUExportName' ; GOSUB LUExportName
|
||||
CASE Instruction = 'EnableCheckBoxes' ; GOSUB EnableCheckBoxes
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction ':QUOTE(Instruction):' passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
* Change the security tables to match the table names after conversion and take this note out
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
IF NOT(Security_Check('Company',READ$)) THEN
|
||||
Security_Err_Msg('Company',READ$)
|
||||
End_Window(@WINDOW)
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
Set_List_Box_Data(@WINDOW)
|
||||
|
||||
* 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
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
Send_Event(@WINDOW,'PAGE',1)
|
||||
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
IF Security_Check('Company',EDIT$) THEN
|
||||
obj_AppWindow('ReadOnly',@WINDOW:@RM:1) ;* enable all database controls
|
||||
END ELSE
|
||||
obj_AppWindow('ReadOnly',@WINDOW) ;* disable all database controls
|
||||
END
|
||||
|
||||
Ctrls = @WINDOW:'.ENTRY_ID':@RM ; Props = 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.ENTRY_DT' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
EnterBy = Vals[1,@RM]
|
||||
EnterDTM = Vals[COL2()+1,@RM]
|
||||
|
||||
IF EnterBy = '' THEN Vals = 1:@RM ELSE Vals = 0:@RM
|
||||
IF EnterDTM = '' THEN Vals := 1 ELSE Vals := 0
|
||||
|
||||
Props = 'ENABLED':@RM:'ENABLED'
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
CompNo = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF CompNo = '' THEN
|
||||
Set_Property(@WINDOW:'.NEW_BUTTON','ENABLED',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.NEW_BUTTON','ENABLED',0)
|
||||
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>
|
||||
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 '')
|
||||
IF N NE COL$SAP_NO THEN
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',ETCols<1,I,N>,Line,GREEN$)
|
||||
END
|
||||
NEXT N
|
||||
END
|
||||
NEXT Line
|
||||
NEXT I
|
||||
|
||||
ShipList = Get_Property(@WINDOW:'.SHIP_TO_CUST_NO','LIST')
|
||||
FOR I = 1 TO COUNT(ShipList,@FM) + (ShipList NE '')
|
||||
IF ShipList<I,COL$SAP_NO> NE '' THEN
|
||||
stat = Send_Message(@WINDOW:'.SHIP_TO_CUST_NO','COLOR_BY_POS',COL$SAP_NO,I,SAP_READ_ONLY$)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
GoSub EnableCheckBoxes
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Page:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Page')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
* * * This is called from the event handler as a PreRead event * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
|
||||
IF NOT(RowExists('COMPANY',CompNo)) THEN
|
||||
IF NOT(Security_Check('Company',WRITE$)) THEN
|
||||
Security_Err_Msg('Company',WRITE$)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
Forward_Event() ;* passed security, do the read
|
||||
|
||||
EnterBy = Get_Property(@WINDOW:'.ENTRY_ID','TEXT')
|
||||
IF EnterBy = '' THEN
|
||||
CurrDate = OCONV(Date(),'D4/')
|
||||
Set_Property(@WINDOW:'.ENTRY_ID','TEXT',OCONV(@USER4,'[XLATE_CONV,LSL_USERS*FIRST_LAST]'))
|
||||
Set_Property(@WINDOW:'.ENTRY_DATE','TEXT',CurrDate)
|
||||
Set_Property( @WINDOW:'.VISION_CUST_NO', 'FOCUS',1)
|
||||
END
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
CompType = Get_Property(@WINDOW:'.CO_TYPE','INVALUE')
|
||||
|
||||
IF CompType = '' THEN Set_Property(@WINDOW:'.CO_TYPE','TEXT','C')
|
||||
|
||||
Result = 1
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
*IF Security_Check('Company',Delete$) THEN
|
||||
* Result = 1 ;* Proceed with delete
|
||||
*END ELSE
|
||||
Security_Err_Msg('Company',Delete$)
|
||||
Result = 0 ;* Stop event chain
|
||||
*END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
New:
|
||||
* * * * * * *
|
||||
|
||||
CompanyNo = Get_Property(@WINDOW,'ID')
|
||||
|
||||
IF CompanyNo = '' THEN
|
||||
NextCompanyNo = NextKey('COMPANY')
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextCompanyNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
obj_Notes('Inbox',@USER4) ;* Checks for any new messages
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CompChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CO_NO'
|
||||
|
||||
IF Get_Property(@WINDOW, "QBFSTATUS") THEN RETURN ;* QBFStatus returns 1 if QBF is active
|
||||
|
||||
|
||||
DataIn = Get_Property(CtrlName,'TEXT')
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'TEXT','') ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCompNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
|
||||
CustNo = Popup(@WINDOW,TypeOver,'CUSTOMER')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('LUValReturn',CustNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CompNoLF:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CO_NO'
|
||||
|
||||
DataIn = Get_Property(CtrlName,'TEXT')
|
||||
|
||||
IF LEN(DataIn) = 6 AND NUM(DataIn) AND DataIn[1,1] = 0 THEN
|
||||
* Must be a Vision Part No
|
||||
OPEN 'DICT.COMPANY' TO DictCompany ELSE
|
||||
ErrMsg('Unable to open "DICT.COMPANY" for lookup in COMM_CUSTOMER_EPI - CompNoLF Method.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SearchString = 'VISION_CUST_NO':@VM:DataIn:@FM
|
||||
Option = ''
|
||||
Flag = ''
|
||||
Btree.Extract(SearchString,'COMPANY',DictCompany,CompNos,Option,Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF CompNos = '' THEN
|
||||
ErrMsg('No customer with Vision Customer No ':QUOTE(DataIn):' on file.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF Index(CompNos,@VM,1) THEN
|
||||
DEBUG
|
||||
END ELSE
|
||||
obj_Appwindow('LUValReturn',CompNos:@RM:CtrlName:@RM:'')
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUNameNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
|
||||
IF CompNo NE '' THEN
|
||||
|
||||
* This is the pushbutton - show the short name list
|
||||
|
||||
OPEN 'DICT.NAMES' TO DictVar THEN
|
||||
SearchString = 'CO_ID':@VM:CompNo:@FM
|
||||
Btree.Extract(SearchString,'NAMES',DictVar,NameNos,'',Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NameNos = '' THEN
|
||||
ErrMsg('No names on file for Customer Number ':CompNo)
|
||||
RETURN
|
||||
END ELSE
|
||||
IF INDEX(NameNos,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = NameNos
|
||||
TypeOver<PTITLE$> = 'Contact Names for ':XLATE('COMPANY',CompNo,4,'X')
|
||||
NameNo = Popup(@WINDOW,TypeOver,'COMP_NAME')
|
||||
END ELSE
|
||||
NameNo = NameNos
|
||||
END
|
||||
obj_AppWindow('LUValReturn',NameNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.NAMES in COMM_ANN_CONT routine.')
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
NameNo = Popup(@WINDOW,'','NAMES')
|
||||
IF NameNo NE '' THEN
|
||||
obj_AppWindow('LUValReturn',NameNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ViewName:
|
||||
* * * * * * *
|
||||
|
||||
NameNo = Get_Property(@WINDOW:'.NAME_NO','TEXT')
|
||||
IF NameNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','NAMES':@RM:NameNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ViewBillTo:
|
||||
* * * * * * *
|
||||
|
||||
BillToCustNo = Get_Property(@WINDOW:'.BILL_TO_CUST_NO','TEXT')
|
||||
IF BillToCustNo NE '' THEN
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
Set_Property(@WINDOW:'.CO_NO','TEXT',BillToCustNo)
|
||||
Send_Event(@WINDOW:'.CO_NO','LOSTFOCUS')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ShipToDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntId = @WINDOW:'.SHIP_TO_CUST_NO'
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
RowData = Get_Property(CtrlEntId,'ROWDATA')
|
||||
ColData = Get_Property(CtrlEntId,'ARRAY')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
IF RowData<1,1> = '' THEN RETURN
|
||||
|
||||
ShipToCustNo = RowData<1,1>
|
||||
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
Set_Property(@WINDOW:'.CO_NO','TEXT',ShipToCustNo)
|
||||
Send_Event(@WINDOW:'.CO_NO','LOSTFOCUS')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Contacts:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
IF CompNo = '' THEN RETURN
|
||||
|
||||
IF Security_Check('Names',Read$) THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = 'WITH CO_ID "':CompNo:'" BY LAST BY FIRST'
|
||||
|
||||
NameNos = Popup(@WINDOW,TypeOver,'SHOW_NAMES')
|
||||
|
||||
IF NameNos = CHAR(27) THEN RETURN ;* Canceled
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
ParamToPass = NameNos:'*':CompNo
|
||||
Start_Window( 'NAMES', @WINDOW, ParamToPass, '', '' )
|
||||
|
||||
END ELSE
|
||||
Security_Err_Msg('Names',Read$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
AnnConts:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
IF CompNo = '' THEN RETURN
|
||||
|
||||
IF Security_Check('Annual Contracts',Read$) THEN
|
||||
|
||||
OPEN 'DICT.ANNUAL_CONTRACTS' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CompNo:@FM
|
||||
*SearchString := 'STATUS':@VM:'O':@FM
|
||||
|
||||
Btree.Extract(SearchString,'ANNUAL_CONTRACTS',DictVar,ACIDs,'',Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ACIDs= '' THEN
|
||||
ErrMsg('No Annual Contracts on file for Customer Number ':CustNo)
|
||||
RETURN
|
||||
END ELSE
|
||||
IF INDEX(ACIDs,@VM,1) THEN
|
||||
|
||||
ACIDs := @VM
|
||||
CONVERT @VM TO @RM IN ACIDs
|
||||
CALL V119('S','','D','R',ACIDs,'')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
CONVERT @RM TO @VM IN ACIDs
|
||||
ACIDs[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = ACIDs
|
||||
TypeOver<PSELECT$> = 2
|
||||
TypeOver<PTITLE$> = 'Annual Contracts for ':XLATE('COMPANY',CompNo,4,'X')
|
||||
ACIDs = Popup(@WINDOW,TypeOver,'COMP_ANN_CONT')
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
obj_AppWindow('ViewRelated','ANN_CONT':@RM:ACIDs)
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ANNUAL_CONTRACTS in COMM_PROD_ORD routine.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
END ELSE
|
||||
Security_Err_Msg('Annual Contracts',Read$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Quotes:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
IF CompNo = '' THEN RETURN
|
||||
|
||||
IF Security_Check('Quote',Read$) THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = 'WITH CUST_NO "':CompNo:'" BY-DSND ENTRY_DATE'
|
||||
|
||||
QuoteNos = Popup(@WINDOW,TypeOver,'SHOW_QUOTES')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NameNos NE '' THEN
|
||||
obj_AppWindow('ViewRelated','QUOTE2':@RM:QuoteNos)
|
||||
END
|
||||
END ELSE
|
||||
Security_Err_Msg('Quote',Read$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ProdSpecs:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
IF CompNo = '' THEN RETURN
|
||||
|
||||
|
||||
IF Security_Check('Prod Spec',Read$) THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = 'WITH CUST_ID "':CompNo:'" BY-DSND REV_DATE'
|
||||
|
||||
PSNos = Popup(@WINDOW,TypeOver,'SHOW_PROD_SPEC')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF PSNos NE '' THEN
|
||||
obj_AppWindow('ViewRelated','PROD_SPEC':@RM:PSNos)
|
||||
END
|
||||
END ELSE
|
||||
Security_Err_Msg('Prod Spec',Read$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OpenOrders:
|
||||
* * * * * * *
|
||||
|
||||
CompNo = Get_Property(@WINDOW:'.CO_NO','TEXT')
|
||||
IF CompNo = '' THEN RETURN
|
||||
|
||||
IF Security_Check('Order',Read$) THEN
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = 'WITH CUST_NO "':CompNo:'" AND WITH CURR_STATUS NE "C" BY-DSND ENTRY_DATE'
|
||||
|
||||
OrderNos = Popup(@WINDOW,TypeOver,'SHOW_ORDERS')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NameNos NE '' THEN
|
||||
obj_AppWindow('ViewRelated','ORDER2':@RM:OrderNos)
|
||||
END
|
||||
END ELSE
|
||||
Security_Err_Msg('Order',Read$)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUIncoCode:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Result = Popup(@WINDOW,'','INCO_CODES')
|
||||
|
||||
obj_Appwindow('LUValReturn',Result:@RM:FocusControl:@RM:FocusPos)
|
||||
Send_Event(@WINDOW:'.INCO_DESC','CALCULATE')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUShipDocDir:
|
||||
* * * * * * *
|
||||
|
||||
Directory = "R:\Ship_eMail\" ;* Hard Coded Directory
|
||||
|
||||
SetInitDirOptions("D")
|
||||
InitDir Directory:'*.*'
|
||||
|
||||
SubDirList = ''
|
||||
|
||||
List = DirList()
|
||||
|
||||
LOOP
|
||||
Line = List[1,@FM]
|
||||
List[1,Col2()] = ""
|
||||
UNTIL Line = ''
|
||||
IF Line NE '.' AND Line NE '..' THEN
|
||||
SubDirList<1,-1> = Line
|
||||
END
|
||||
REPEAT
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = SubDirList
|
||||
TypeOver<PTITLE$> = Directory
|
||||
|
||||
SubDir = Popup(@WINDOW,TypeOver,'SINGLE_COLUMN')
|
||||
|
||||
IF SubDir ='' OR SubDir = CHAR(27) THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.SHIP_DOC_DIR','DEFPROP',Directory:SubDir)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUShipDataDir:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
Directory = "R:\Ship_Data\" ;* Hard Coded Directory
|
||||
|
||||
SetInitDirOptions("D")
|
||||
InitDir Directory:'*.*'
|
||||
|
||||
SubDirList = ''
|
||||
|
||||
List = DirList()
|
||||
|
||||
LOOP
|
||||
Line = List[1,@FM]
|
||||
List[1,Col2()] = ""
|
||||
UNTIL Line = ''
|
||||
IF Line NE '.' AND Line NE '..' THEN
|
||||
SubDirList<1,-1> = Line
|
||||
END
|
||||
REPEAT
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = SubDirList
|
||||
TypeOver<PTITLE$> = Directory
|
||||
|
||||
SubDir = Popup(@WINDOW,TypeOver,'SINGLE_COLUMN')
|
||||
|
||||
IF SubDir ='' OR SubDir = CHAR(27) THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.SHIP_DATA_DIR','DEFPROP',Directory:SubDir)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUExportName:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
|
||||
RList('SELECT EXPORTS BY NAME WITH NAME [] "_SYSTEM_"', TARGET_ACTIVELIST$, '', '', '' )
|
||||
|
||||
|
||||
Result = PopUp(@WINDOW,'','SHOW_EXPORTS')
|
||||
|
||||
IF Result NE '' THEN
|
||||
obj_Appwindow('LUValReturn',Result:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * * * *
|
||||
EnableCheckBoxes:
|
||||
* * * * * * * * *
|
||||
Set_Property(@Window:'.SHIP_DATA_FLAG', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.SHIP_DOC_FLAG', 'ENABLED', True$)
|
||||
ShipDocFlag = Get_Property(@Window:'.SHIP_DOC_FLAG', 'DEFPROP')
|
||||
If ShipDocFlag EQ True$ then
|
||||
Set_Property(@Window:'.COB_AUTO_TX_DOC_FLAG', 'ENABLED', True$)
|
||||
end else
|
||||
Set_Property(@Window:'.COB_AUTO_TX_DOC_FLAG', 'ENABLED', False$)
|
||||
end
|
||||
|
||||
ShipDataFlag = Get_Property(@Window:'.SHIP_DATA_FLAG', 'DEFPROP')
|
||||
If ShipDataFlag EQ True$ then
|
||||
Set_Property(@Window:'.STANDARD_COA', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.COB_AUTO_FTP_FLAG', 'ENABLED', True$)
|
||||
end else
|
||||
Set_Property(@Window:'.STANDARD_COA', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.COB_AUTO_FTP_FLAG', 'ENABLED', False$)
|
||||
end
|
||||
StandardCOAFlag = Get_Property(@Window:'.STANDARD_COA', 'DEFPROP')
|
||||
If ShipDataFlag EQ True$ AND StandardCOAFlag = True$ then
|
||||
Set_Property(@Window:'.CMB_FTP_SERVER', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.FTP_DIRECTORY', 'ENABLED', True$)
|
||||
end else
|
||||
Set_Property(@Window:'.CMB_FTP_SERVER', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.FTP_DIRECTORY', 'ENABLED', False$)
|
||||
end
|
||||
return
|
||||
|
||||
|
||||
|
||||
337
LSL2/STPROC/COMM_CUST_TW_PART.txt
Normal file
337
LSL2/STPROC/COMM_CUST_TW_PART.txt
Normal file
@ -0,0 +1,337 @@
|
||||
COMPILE FUNCTION Comm_Cust_TW_Part(CtrlEntID,Event,Parm1, Parm2, Parm3, Parm4, Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for CUST_TW_PART (Test Wafer Use) window
|
||||
|
||||
12/2/2010 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, Set_Status, ErrMsg, Set_Property, obj_AppWindow, Btree.Extract
|
||||
DECLARE SUBROUTINE Send_Event, obj_TW_Use, Security_Err_Msg, Post_Event, Start_Window
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg
|
||||
DECLARE FUNCTION obj_Quote, Security_Check
|
||||
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT NOTIFICATION_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT ANNUAL_CONTRACTS_EQU
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
ErrTitle = 'Error in Comm_Cust_TW_Part'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE CtrlEntID = @WINDOW AND Event = 'CREATE' ; GOSUB Create
|
||||
CASE CtrlEntID = @WINDOW AND Event = 'READ' ; GOSUB Read
|
||||
CASE CtrlEntID = @WINDOW AND Event = 'DELETE' ; GOSUB Delete
|
||||
CASE CtrlEntID = @WINDOW AND Event = 'CLEAR' ; GOSUB Refresh
|
||||
CASE CtrlEntID = @WINDOW AND Event[1,3] = 'QBF' ; GOSUB Refresh
|
||||
|
||||
CASE CtrlEntID = @WINDOW:'.CUST_NO'
|
||||
BEGIN CASE
|
||||
CASE Event = 'CHAR' ; GOSUB CustChar
|
||||
CASE Event = 'LOSTFOCUS' ; GOSUB LU_TWPartNo
|
||||
END CASE
|
||||
|
||||
CASE CtrlEntID = @WINDOW:'.LU_CUSTOMER' AND Event = 'CLICK' ; GOSUB LUCustNo
|
||||
CASE CtrlEntID = @WINDOW:'.LU_TW_PART' AND Event = 'CLICK' ; GOSUB LU_TWPartNo
|
||||
|
||||
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine':CRLF$:CtrlEntID:' - ':Event
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
* Provides compatibility with the existing messaging attachment system
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
PassedKeys = FIELD(Parm1,'*',1)
|
||||
obj_Appwindow('ViewRelated',@WINDOW:@RM:PassedKeys)
|
||||
END
|
||||
|
||||
IOOptions = Get_Property(@WINDOW,'IOOPTIONS')
|
||||
IOOptions<10> = 1 ;* Check for required fields on WRITE event
|
||||
IOOptions<11> = 1 ;* Create READ event on QBF load
|
||||
|
||||
Set_Property(@WINDOW,'IOOPTIONS',IOOptions)
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
Return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
OrderNo = Get_Property(@WINDOW:'.ORDER_NO','TEXT')
|
||||
ItemNo = Get_Property(@WINDOW:'.ITEM_NO','TEXT')
|
||||
|
||||
IF RowExists('ORDER_DET',OrderNo:'*':ItemNo) THEN
|
||||
IF NOT(Security_Check('Order',EDIT$)) THEN
|
||||
obj_AppWindow('ReadOnly',@WINDOW) ;* disable all database controls
|
||||
Set_Property(@WINDOW,'@READONLY',1)
|
||||
END
|
||||
END ELSE
|
||||
IF NOT(Security_Check('Order',WRITE$)) THEN
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
Security_Err_Msg('Order',WRITE$)
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
Return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
|
||||
Return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('ReadOnly',@RM:1) ;* Reenables data bound controls
|
||||
Set_Property(@WINDOW,'@READONLY',0) ;* Clear flag on window
|
||||
|
||||
|
||||
|
||||
GOTO Refresh
|
||||
|
||||
Return
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(Security_Check('Order',DELETE$)) THEN
|
||||
Security_Err_Msg('Order',DELETE$)
|
||||
RETURN
|
||||
END
|
||||
|
||||
*Forward_Event()
|
||||
|
||||
obj_AppWindow('ReadOnly',@WINDOW:@RM:1) ;* Clear Read Only
|
||||
|
||||
Result = 0
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
* 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>
|
||||
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
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_NO'
|
||||
|
||||
DataIn = Get_Property(CtrlName,'TEXT')
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
*Set_Property(CtrlName,'TEXT','') ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUCustNo:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
|
||||
CustNo = Popup(@WINDOW,TypeOver,'CUSTOMER')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('LUValReturn',CustNo:@RM:FocusControl:@RM:FocusPos)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ViewCust:
|
||||
* * * * * * *
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','TEXT')
|
||||
IF CustNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','CUSTOMER_EPI':@RM:CustNo)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LU_TWPartNo:
|
||||
* * * * * * *
|
||||
|
||||
CustNo = Get_Property(@WINDOW:'.CUST_NO','DEFPROP')
|
||||
TWPartNo = Get_Property(@WINDOW:'.TW_PART_NO','DEFPROP')
|
||||
|
||||
IF TWPartNo NE '' THEN RETURN
|
||||
|
||||
IF CustNo = '' THEN
|
||||
OPEN 'CUST_TW_PART' TO FileIn THEN
|
||||
SELECT FileIn
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PMODE$> = 'C'
|
||||
TypeOver<PDISPLAY$> = '0'
|
||||
|
||||
CustTWPartKeys = Popup(@WINDOW,TypeOver,'CUST_TW_PART')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
END
|
||||
END ELSE
|
||||
|
||||
IF NOT(NUM(CustNo)) THEN
|
||||
* Doing customer lookup based on typed in name
|
||||
Set_Property(CtrlName,'TEXT','') ;* Clear characters input
|
||||
RETURN
|
||||
END
|
||||
|
||||
SearchString = 'CUST_NO':@VM:CustNo:@FM
|
||||
OPEN 'DICT.CUST_TW_PART' TO DictVar ELSE
|
||||
ErrMsg('Unable to open DICT.CUST_TW_PART for index lookup.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
Options = ''
|
||||
Flag = ''
|
||||
|
||||
BTREE.EXTRACT(SearchString, 'CUST_TW_PART', DictVar, CustTWPartKeys, Options, flag)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF CustTWPartKeys = '' THEN
|
||||
ErrMsg('No TW Part Numbers on file for Customer ':QUOTE(CustNo):'.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = CustTWPartKeys
|
||||
|
||||
CustTWPartKeys = Popup(@WINDOW,TypeOver,'CUST_TW_PART')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
END ;* End of check for null Customer numer
|
||||
|
||||
IF CustTWPartKeys NE '' THEN
|
||||
|
||||
IF INDEX(CustTWPartKeys,@VM,1) THEN
|
||||
Send_Event(@WINDOW,'QBFINIT')
|
||||
Set_Property(@WINDOW,'QBFLIST',CustTWPartKeys)
|
||||
Send_Event(@WINDOW,'QBFFIRST')
|
||||
END ELSE
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:CustTWPartKeys)
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
329
LSL2/STPROC/COMM_DIALOG_CARTON_PACK.txt
Normal file
329
LSL2/STPROC/COMM_DIALOG_CARTON_PACK.txt
Normal file
@ -0,0 +1,329 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Carton_Pack(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for PACK_CARTON dialog window.
|
||||
|
||||
9/16/2003 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Send_Message
|
||||
DECLARE FUNCTION obj_WM_Out
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$ORDER_NO TO 1 ;* Order Line Item edit table column equates
|
||||
EQU COL$LINE_NO TO 2
|
||||
EQU COL$STEP_NO TO 3
|
||||
EQU COL$CASS_NO TO 4
|
||||
EQU COL$RDS_NO TO 5
|
||||
EQU COL$PART_NO TO 6
|
||||
EQU COL$LOT_NO TO 7
|
||||
EQU COL$REJECT TO 8
|
||||
EQU COL$WAFER_QTY TO 9
|
||||
|
||||
EQU COL$CASS1 TO 1 ;* Carton edit table column equates
|
||||
EQU COL$CASS2 TO 2
|
||||
EQU COL$CASS3 TO 3
|
||||
EQU COL$CASS4 TO 4
|
||||
EQU COL$CASS5 TO 5
|
||||
EQU COL$CASS6 TO 6
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT COC_EQU
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT RDS_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT ORDER_EQU
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Carton_Pack'
|
||||
ErrorMsg = ''
|
||||
|
||||
Instructions = 'Create':@FM
|
||||
Instructions := 'PackCarton':@FM
|
||||
Instructions := 'PackNext':@FM
|
||||
Instructions := 'UnpackCarton':@FM
|
||||
Instructions := 'PrintLabels':@FM ;* This functions as the 'OK' button
|
||||
Instructions := 'Cancel'
|
||||
|
||||
RetVal = ''
|
||||
|
||||
LOCATE Instruction IN Instructions USING @FM SETTING Pos THEN
|
||||
ON Pos GOSUB Create,PackCarton,PackNext,UnpackCarton,PrintLabels,Cancel
|
||||
END
|
||||
|
||||
RETURN RetVal
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
COCId = Parm1
|
||||
|
||||
IF COCId = '' THEN GOTO Cancel ;* Nothing to do
|
||||
|
||||
* get the current style
|
||||
|
||||
Style = Get_Property(@WINDOW:'.CASSETTES', 'STYLE')
|
||||
|
||||
/* the style property can be in hex format but bitor only works with decimal integers */
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
AddStyle = 512 ;* MultiLine Select
|
||||
|
||||
Style = BitOr(Style, AddStyle)
|
||||
Set_Property(@WINDOW:'.CASSETTES', "STYLE", Style)
|
||||
|
||||
Set_Property(@WINDOW,'TEXT','Packing Cartons for Certicate of Compliance: ':COCId)
|
||||
|
||||
Void = Center_Window(@WINDOW)
|
||||
|
||||
COCRec = XLATE('COC',COCId,'','X')
|
||||
|
||||
WONo = COCRec<coc_wo$>
|
||||
WORec = XLATE('WO_LOG',WONo,'','X')
|
||||
|
||||
OrderNo = WORec<WO_LOG_ORDER_NO$>
|
||||
OrderRec = XLATE('ORDER',OrderNo,'','X')
|
||||
|
||||
RDSNos = COCRec<COC_RDS_NO$>
|
||||
WOStepNos = COCRec<COC_WO_STEP$>
|
||||
CassNos = COCRec<COC_CASS_NO$>
|
||||
|
||||
|
||||
RDSList = ''
|
||||
|
||||
FOR I = 1 TO COUNT(WOStepNos,@VM) + (WOStepNos NE '')
|
||||
WMOutKey = WONo:'*':WOStepNos<1,I>:'*':CassNos<1,I>
|
||||
IF RDSNos<1,I> = '' THEN
|
||||
RdsNo = ''
|
||||
WfrsOut = XLATE('WM_OUT',WMOutKey,'WFRS_OUT','X')
|
||||
WfrsRej = XLATE('WM_OUT',WMOutKey,'WFRS_REJ','X')
|
||||
|
||||
PartNo = obj_WM_Out('GetPartNoQtys',WMOutKey)<1> ; IF INDEX(PartNo,@VM,1) THEN PartNo = 'Multi'
|
||||
LotNo = obj_WM_Out('GetLotNos',WMOutKey) ; IF INDEX(LotNo,@VM,1) THEN LotNo = 'Multi'
|
||||
OrderItem = obj_WM_Out('GetOrderItems',WMOutKey) ; IF INDEX(OrderItem,@VM,1) THEN OrderItem = 'Multi'
|
||||
END ELSE
|
||||
RdsNo = RDSNos<1,I>
|
||||
RDSRec = XLATE('RDS',RDSNo,'','X')
|
||||
WfrsOut = XLATE('RDS',RDSNo,'WFRS_OUT','X')
|
||||
WfrsRej = XLATE('RDS',RDSNo,'TOT_REJ','X')
|
||||
PartNo = RDSRec<RDS_PART_NUM$>
|
||||
LotNo = RDSRec<RDS_LOT_NUM$>
|
||||
OrderItem = RDSRec<RDS_ORDER_ITEM$>
|
||||
END
|
||||
|
||||
|
||||
RDSList<I,COL$ORDER_NO> = OrderNo
|
||||
RDSList<I,COL$LINE_NO> = OrderItem
|
||||
RDSList<I,COL$STEP_NO> = WOStepNos<1,I>
|
||||
RDSList<I,COL$CASS_NO> = CassNos<1,I>
|
||||
RDSList<I,COL$RDS_NO> = RDSNo
|
||||
RDSList<I,COL$PART_NO> = PartNo
|
||||
RDSList<I,COL$LOT_NO> = LotNo
|
||||
|
||||
RDSList<I,COL$REJECT> = WfrsRej
|
||||
RDSList<I,COL$WAFER_QTY> = WfrsOut
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.CASSETTES','LIST',RDSList)
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
CassList = Get_Property(@WINDOW:'.CASSETTES','LIST')
|
||||
|
||||
IF CassList<1,1> = '' THEN
|
||||
Set_Property(@WINDOW:'.PRINT_LABEL_BUTTON','ENABLED',1)
|
||||
Set_Property(@WINDOW:'.PACK_BUTTON','ENABLED',0)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.PRINT_LABEL_BUTTON','ENABLED',0)
|
||||
Set_Property(@WINDOW:'.PACK_BUTTON','ENABLED',1)
|
||||
END
|
||||
|
||||
CartonList = Get_Property(@WINDOW:'.CARTONS','LIST')
|
||||
IF CartonList<1,1> = '' THEN
|
||||
Set_Property(@WINDOW:'.UNPACK_BUTTON','ENABLED',0)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.UNPACK_BUTTON','ENABLED',1)
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
PackCarton:
|
||||
* * * * * * *
|
||||
|
||||
SelectedRows = Get_Property(@WINDOW:'.CASSETTES','SELPOS')<2> ;* Returns list of selected row numbers
|
||||
|
||||
CONVERT @VM TO @FM in SelectedRows
|
||||
|
||||
SelCnt = COUNT(SelectedRows,@FM) + (SelectedRows NE '')
|
||||
|
||||
IF SelCnt > 6 THEN
|
||||
ErrMsg('Maximum of 6 cassettes per carton permitted.')
|
||||
RETURN
|
||||
END
|
||||
IF SelCnt = 0 THEN RETURN
|
||||
|
||||
Cassettes = ''
|
||||
FOR I = 1 TO SelCnt
|
||||
Cassette = Get_Property(@WINDOW:'.CASSETTES','CELLPOS',0:@FM:SelectedRows<I>) ;* Retrive rows of data
|
||||
Cassettes<-1> = Cassette
|
||||
NEXT I
|
||||
CONVERT @VM TO '|' IN Cassettes
|
||||
|
||||
CartonList = Get_Property(@WINDOW:'.CARTONS','LIST')
|
||||
|
||||
CartonCnt = COUNT(CartonList,@FM) + (CartonList NE '')
|
||||
NextCartonNo = 1 ;* Find next empty carton number
|
||||
LOOP
|
||||
UNTIL CartonList<NextCartonNo,COL$CASS1> = ''
|
||||
NextCartonNo += 1
|
||||
REPEAT
|
||||
|
||||
IF NextCartonNo = CartonCnt THEN
|
||||
Dummy = Send_Message(@WINDOW:'.CARTONS', "INSERT", -1, @VM:@VM:@VM:@VM:@VM)
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW:'.CARTONS','SELPOS',COL$CASS1:@FM:NextCartonNo)
|
||||
Set_Property(@WINDOW:'.CARTONS','ROWDATA',Cassettes) ;* Fill carton with Cassette data
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
Send_Message(@WINDOW:'.CASSETTES','DELETE',SelectedRows<I>) ;* Remove Cassette rows from list
|
||||
NEXT I
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PackNext:
|
||||
* * * * * * *
|
||||
|
||||
CartonPack = Get_Property(@WINDOW:'.CASS_PER_CARTON','TEXT')
|
||||
IF CartonPack = '' THEN RETURN
|
||||
|
||||
SelColumns = ''
|
||||
FOR I = 1 TO CartonPack
|
||||
SelColumns<1,-1> = I
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CASSETTES','SELPOS',1:@FM:SelColumns)
|
||||
|
||||
GOTO PackCarton
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
UnpackCarton:
|
||||
* * * * * * *
|
||||
|
||||
CartonData = Get_Property(@WINDOW:'.CARTONS','ROWDATA')
|
||||
|
||||
|
||||
CONVERT @VM TO @FM IN CartonData
|
||||
CONVERT '|' TO @VM IN CartonData
|
||||
|
||||
CartonCnt = COUNT(CartonData,@VM) + (CartonData NE '')
|
||||
|
||||
CassList = Get_Property(@WINDOW:'.CASSETTES','LIST')
|
||||
|
||||
CassCnt = COUNT(CassList,@FM) + (CassList NE '')
|
||||
|
||||
CassSortArray = ''
|
||||
FOR I = 1 TO CassCnt
|
||||
SortKey = CassList<I,COL$ORDER_NO>:CassList<I,COL$LINE_NO>:CassList<I,COL$STEP_NO>:CassList<I,COL$CASS_NO>
|
||||
UNTIL SortKey = '' ;* Found empty line
|
||||
LOCATE SortKey IN CassSortArray BY 'AR' USING @VM SETTING Pos ELSE
|
||||
CassSortArray = INSERT(CassSortArray,1,Pos,0,SortKey)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
FOR I = 1 TO CartonCnt
|
||||
SortKey = CartonData<I,COL$ORDER_NO>:CartonData<I,COL$LINE_NO>:CartonData<I,COL$STEP_NO>:CartonData<I,COL$CASS_NO>
|
||||
UNTIL SortKey = ''
|
||||
LOCATE SortKey IN CassSortArray BY 'AR' USING @VM SETTING Pos ELSE
|
||||
CassSortArray = INSERT(CassSortArray,1,Pos,0,SortKey)
|
||||
CassList = INSERT(CassList,Pos,0,0,CartonData<I>)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CASSETTES','LIST',CassList) ;* Put cassettes back in the list of cassettes
|
||||
|
||||
CurrCartonRow = Get_Property(@WINDOW:'.CARTONS','SELPOS')<2>
|
||||
|
||||
Send_Message(@WINDOW:'.CARTONS','DELETE',CurrCartonRow) ;* Remove cassettes from carton
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
PrintLabels:
|
||||
* * * * * * *
|
||||
|
||||
CartonList = Get_Property(@WINDOW:'.CARTONS','LIST')
|
||||
|
||||
SWAP '|' WITH @SVM IN CartonList
|
||||
|
||||
* Strip out any blank columns or rows left from the edit table
|
||||
|
||||
CartonData = ''
|
||||
CLCnt = COUNT(CartonList,@FM) + (CartonList NE '')
|
||||
FOR I = 1 TO CLCnt
|
||||
UNTIL CartonList<I,1> = ''
|
||||
FOR N = 1 TO 6
|
||||
UNTIL CartonList<I,N,1> = ''
|
||||
CartonData<I,N> = CartonList<I,N>
|
||||
NEXT N
|
||||
NEXT I
|
||||
|
||||
End_Dialog(@WINDOW,CartonData)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
699
LSL2/STPROC/COMM_DIALOG_CASS_MET_EXPORT.txt
Normal file
699
LSL2/STPROC/COMM_DIALOG_CASS_MET_EXPORT.txt
Normal file
@ -0,0 +1,699 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Cass_Met_Export(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Cass_Met_Exportwindow.
|
||||
|
||||
10/28/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT WM_OUT_EQUATES
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'CustPNDC' ; GOSUB CustPNDC
|
||||
CASE Method = 'SubPNDC' ; GOSUB SubPNDC
|
||||
CASE Method = 'LotNoDC' ; GOSUB LotNoDC
|
||||
CASE Method = 'PSNoDC' ; GOSUB PSNoDC
|
||||
CASE Method = 'WONoDC' ; GOSUB WONoDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SubPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Substrate Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'SUB_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawPartNos = XLATE('WO_LOG',WOKeys,'SUB_PART_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PartNos = ''
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Substrate Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.SUB_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Lot Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'LOT_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawLotNos = XLATE('WO_LOG',WOKeys,'LOT_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
LotNos = ''
|
||||
FOR I = 1 TO COUNT(RawLotNos,@VM) + (RawLotNos NE '')
|
||||
RawLotNo = RawLotNos<1,I>
|
||||
LOCATE RawLotNo IN LotNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
LotNos = INSERT(LotNos,1,Pos,0,RawLotNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
LotNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF LotNos = '' THEN
|
||||
ErrMsg('No Lot Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
LotNos := @VM
|
||||
CONVERT @VM TO @RM IN LotNos
|
||||
CALL V119('S','','D','R',LotNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN LotNos
|
||||
LotNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = LotNos
|
||||
LotNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF LotNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.LOT_NO','DEFPROP',LotNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PSNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Product Specifications..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PS_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PSNs = ''
|
||||
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPSNs = XLATE('WO_LOG',WOKey,'PS_NO','X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPSNs,@VM) + (RawPSNs NE '')
|
||||
RawPSN = RawPSNs<1,I>
|
||||
|
||||
LOCATE RawPSN IN PSNs BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PSNs = INSERT(PSNs,1,Pos,0,RawPSN)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PSNs = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PSNs = '' THEN
|
||||
ErrMsg('No Product Specifications on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PSNs := @VM
|
||||
CONVERT @VM TO @RM IN PSNs
|
||||
CALL V119('S','','D','R',PSNs,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PSNs
|
||||
PSNs[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PSNs
|
||||
PSNs = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PSNs NE '' THEN
|
||||
CONVERT @VM TO @FM IN PSNs
|
||||
Set_Property(@WINDOW:'.PS_NO','LIST',PSNs)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WONoDC:
|
||||
* * * * * * *
|
||||
|
||||
WOKeys = Collect.IXVals('WM_OUT', 'WO_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN WOKeys
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = WOKeys
|
||||
TypeOver<PMODE$> = 'K'
|
||||
|
||||
WOKeys = Popup(@WINDOW,TypeOver,'WO_LOG_QUERY')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
CONVERT @VM TO @FM IN WOKeys
|
||||
Set_Property(@WINDOW:'.WO_NO','LIST',WOKeys)
|
||||
END
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'CUST_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Customer Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;* Needs a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.CUST_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
* Customer numbers *
|
||||
|
||||
SearchString = 'MAKEUP_BOX':@VM:'0':@VM:'':@FM
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastVar = CustNos[-1,'B':@VM]
|
||||
UNTIL LastVar NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos NE '' THEN SearchString := 'CUST_NO':@VM:CustNos:@FM
|
||||
|
||||
* LotNumbers *
|
||||
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = LotNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR LotNos = ''
|
||||
LotNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF LotNos NE '' THEN SearchString := 'LOT_NO':@VM:LotNos:@FM
|
||||
|
||||
|
||||
* Cust Part Number *
|
||||
|
||||
CustPNs = Get_Property(@WINDOW:'.CUST_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = CustPNs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR CustPNs = ''
|
||||
CustPNS[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustPNs NE '' THEN SearchString := 'CUST_PART_NO':@VM:CustPNs:@FM
|
||||
|
||||
* Substrate Part Numbers *
|
||||
|
||||
SubPartNos = Get_Property(@WINDOW:'.SUB_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = SubPartNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR SubPartNos = ''
|
||||
SubPartNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF SubPartNos NE '' THEN SearchString := 'SUB_PART_NO':@VM:SubPartNos:@FM
|
||||
|
||||
* PSN Nos *
|
||||
|
||||
PS_NOs = Get_Property(@WINDOW:'.PS_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = PS_NOs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR PS_NOs = ''
|
||||
PS_NOs[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF PS_NOs NE '' THEN SearchString := 'SHIP_PSN':@VM:PS_NOs:@FM
|
||||
|
||||
|
||||
* WO Nos *
|
||||
|
||||
WO_NOs = Get_Property(@WINDOW:'.WO_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = WO_NOs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR WO_NOs = ''
|
||||
WO_NOs[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF WO_NOs NE '' THEN SearchString := 'WO_NO':@VM:WO_NOs:@FM
|
||||
|
||||
* Entry Dates *
|
||||
|
||||
StartDt = ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D')
|
||||
EndDt = ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D')
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
SearchString := 'RDS_FINAL_SIG_DT':@VM:'>=':OConv(StartDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SearchString := 'RDS_FINAL_SIG_DT':@VM:'<=':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
* Fudge the dates - '~' is not inclusive of the end dates
|
||||
StartDt -= 1
|
||||
EndDt += 1
|
||||
SearchString := 'RDS_FINAL_SIG_DT':@VM:OConv(StartDt, 'D4/'):'~':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
|
||||
OPEN 'DICT.WO_MAT' TO DictVar THEN
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting WO_MAT Recrods..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
Btree.Extract(SearchString,'WO_MAT',DictVar,WMOKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,WMOKeys)
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_MAT in routine COMM_DIALOG_CASS_MET_EXPORT')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
149
LSL2/STPROC/COMM_DIALOG_CASS_QTY_CHANGE.txt
Normal file
149
LSL2/STPROC/COMM_DIALOG_CASS_QTY_CHANGE.txt
Normal file
@ -0,0 +1,149 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Cass_Qty_Change(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Cass_Qty_Change window.
|
||||
|
||||
06/06/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$CASS_NO TO 1
|
||||
EQU COL$BATCH_NO TO 2
|
||||
EQU COL$LOT_NO TO 3
|
||||
EQU COL$CURR_QTY TO 4
|
||||
EQU COL$CUST_PART_NO TO 5
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT WO_MAT_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Cass_Qty_Chg'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
WONo = Parm1[1,@FM]
|
||||
CassKeys = Parm1[COL2()+1,@FM]
|
||||
|
||||
Title = 'Work Order: ':WONo:' - Cassette Qty Change'
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',Title)
|
||||
|
||||
CassCnt = COUNT(CassKeys,@VM) + (CassKeys NE '')
|
||||
|
||||
CassettesList = ''
|
||||
|
||||
|
||||
FOR I = 1 TO CassCnt
|
||||
CassKey = CassKeys<1,I>
|
||||
WOMatRec = XLATE('WO_MAT',CassKey,'','X')
|
||||
CassettesList<I,1> = CassKey[-1,'B*']
|
||||
CassettesList<I,2> = WOMatRec<WO_MAT_SAP_BATCH_NO$>
|
||||
CassettesList<I,3> = WOMatRec<WO_MAT_LOT_NO$>
|
||||
CassettesList<I,4> = WOMatRec<WO_MAT_WAFER_QTY$>
|
||||
CassettesList<I,5> = WOMatRec<WO_MAT_CUST_PART_NO$>
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CASSETTES','LIST',CassettesList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.CASSETTES':@RM ; Props = 'SELPOS':@RM
|
||||
Ctrls := @WINDOW:'.CASSETTES':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NEW_CASS_QTY':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.REASON' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
SelCassette = Vals[1,@RM]
|
||||
CassArray = Vals[COL2()+1,@RM]
|
||||
NewCassQty = Vals[COL2()+1,@RM]
|
||||
Reason = Vals[COL2()+1,@RM]
|
||||
|
||||
IF SelCassette = '' THEN
|
||||
ErrMsg('You must select a cassette to change!')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.CASSETTES')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NewCassQty = '' THEN
|
||||
ErrMsg('New Cassette Qty is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.NEW_CASS_QTY')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF Reason = '' THEN
|
||||
ErrMsg('Reason is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.REVISION')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SelectedLine = SelCassette<2>
|
||||
|
||||
CassNo = CassArray<COL$CASS_NO,SelectedLine>
|
||||
OrgCassQty = CassArray<COL$CURR_QTY,SelectedLine>
|
||||
|
||||
Result = CassNo:@FM:Reason:@FM:OrgCassQty:@FM:NewCassQty
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
91
LSL2/STPROC/COMM_DIALOG_CHANGE_LOG.txt
Normal file
91
LSL2/STPROC/COMM_DIALOG_CHANGE_LOG.txt
Normal file
@ -0,0 +1,91 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Change_Log(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Change_Log window.
|
||||
|
||||
07/13/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Send_Event, Btree.Extract
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Change_Log'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'RecentChanges' ; GOSUB RecentChanges
|
||||
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Send_Event(@WINDOW:'.ORDER_CHANGES','CLICK')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RecentChanges:
|
||||
* * * * * * *
|
||||
|
||||
OPEN 'DICT.ORDER_CHANGE' TO DictVar ELSE
|
||||
Errmsg('Unable to open "DICT.ORDER_CHANGE" for index lookup')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SearchString = 'TS_DT':@VM:'>=':OCONV(Date()-90,'D4/'):@FM
|
||||
|
||||
option = ''
|
||||
flag = ''
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER_CHANGE', DictVar, OCKeys, option, flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OCKeys = '' THEN RETURN
|
||||
|
||||
OCKeys := @VM
|
||||
CONVERT @VM TO @RM IN OCKeys
|
||||
CALL V119('S','','D','R',OCKeys,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN OCKeys
|
||||
OCKeys[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = OCkeys
|
||||
|
||||
OrderNo = Popup(@WINDOW,TypeOver,'ORDER_CHANGE_LOG')
|
||||
|
||||
IF OrderNo NE '' THEN
|
||||
obj_Appwindow('ViewRelated','ORDER2':@RM:OrderNo)
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
781
LSL2/STPROC/COMM_DIALOG_COC_QUERY.txt
Normal file
781
LSL2/STPROC/COMM_DIALOG_COC_QUERY.txt
Normal file
@ -0,0 +1,781 @@
|
||||
COMPILE FUNCTION Comm_Dialog_COC_Query(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_COC_Query window.
|
||||
|
||||
10/28/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract, Comm_Dialog_Order_Find
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Key_Sort, Msg, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT COC_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_COC_Query'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'WONoDC' ; GOSUB WONoDC
|
||||
CASE Method = 'PONoDC' ; GOSUB PONoDC
|
||||
CASE Method = 'LotDC' ; GOSUB LotDC
|
||||
CASE Method = 'PartDC' ; GOSUB PartDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'SelectStatusCodes' ; GOSUB SelectStatusCodes
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW:'.USER_ID','INVALUE',@USER4)
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
stat = Send_Message(@WINDOW:'.CURR_STATUS','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PONoDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting PO Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PO_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
RawPONos = XLATE('ORDER',OrderKeys,ORDER_PO_NO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PONos = ''
|
||||
FOR I = 1 TO COUNT(RawPONos,@VM) + (RawPONos NE '')
|
||||
RawPONo = RawPONos<1,I>
|
||||
LOCATE RawPONo IN PONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PONos = INSERT(PONos,1,Pos,0,RawPONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PONos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PONos := @VM
|
||||
CONVERT @VM TO @RM IN PONos
|
||||
CALL V119('S','','D','R',PONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PONos
|
||||
PONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PONos
|
||||
PONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PONos NE '' THEN
|
||||
PONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.PO_NO','DEFPROP',PONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WONoDC:
|
||||
* * * * * * *
|
||||
DEBUG
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Work Order Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.COC' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'WO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'COC', DictVar, ShipmentKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ShipmentKeys NE '' THEN
|
||||
RawWONos = XLATE('COC',ShipmentKeys,COC_WO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
WONos = ''
|
||||
FOR I = 1 TO COUNT(RawWONos,@VM) + (RawWONos NE '')
|
||||
RawWONo = RawWONos<1,I>
|
||||
LOCATE RawWONo IN WONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
WONos = INSERT(WONos,1,Pos,0,RawWONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
WONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF WONos = '' THEN
|
||||
ErrMsg('No Work Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
WONos := @VM
|
||||
CONVERT @VM TO @RM IN WONos
|
||||
CALL V119('S','','D','R',WONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN WONos
|
||||
WONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = WONos
|
||||
WONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF WONos NE '' THEN
|
||||
WONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.WO_NO','DEFPROP',WONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.COC in COMM_DIALOG_COC_QUERY.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotDC:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting PO Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PO_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
RawPONos = XLATE('ORDER',OrderKeys,ORDER_PO_NO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PONos = ''
|
||||
FOR I = 1 TO COUNT(RawPONos,@VM) + (RawPONos NE '')
|
||||
RawPONo = RawPONos<1,I>
|
||||
LOCATE RawPONo IN PONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PONos = INSERT(PONos,1,Pos,0,RawPONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PONos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PONos := @VM
|
||||
CONVERT @VM TO @RM IN PONos
|
||||
CALL V119('S','','D','R',PONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PONos
|
||||
PONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PONos
|
||||
PONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PONos NE '' THEN
|
||||
PONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.PO_NO','DEFPROP',PONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PartDC:
|
||||
* * * * * * *
|
||||
|
||||
DEBUG
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
OrderNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
OrderNo = XLATE('WO_LOG',WOKey,WO_LOG_ORDER_NO$,'X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
|
||||
LOCATE OrderNo IN OrderNos<Pos> BY 'DR' USING @VM SETTING OPos ELSE
|
||||
OrderNos = INSERT(OrderNos,Pos,OPos,0,OrderNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
debug
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectStatusCodes:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = @WINDOW:'.CURR_STATUS'
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple select
|
||||
|
||||
StatusCodes = Popup(@WINDOW,TypeOver,'RDS_CURR_STATUS')
|
||||
|
||||
IF StatusCodes NE '' THEN
|
||||
ExistingArray = ''
|
||||
FOR I = 1 TO COUNT(StatusCodes,@VM) + (StatusCodes NE '') + 1
|
||||
ExistingArray<1,I> = StatusCodes<1,I>
|
||||
ExistingArray<2,I> = OCONV(StatusCodes<1,I>,'[RDS_CURR_STATUS_CONV]')
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CURR_STATUS','DEFPROP',ExistingArray)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
open 'DICT.COC' to DictCOCTable else
|
||||
Void = msg( '', 'Unable to open DICT.COC...' )
|
||||
return 0
|
||||
end
|
||||
SearchStr = ''
|
||||
|
||||
CustIds = Get_Property(@WINDOW:'.CUSTOMER_INFO','ARRAY')<1>
|
||||
EntryDateFrom = Get_Property(@WINDOW:'.ENTRY_DATE_FROM','TEXT')
|
||||
EntryDateThru = Get_Property(@WINDOW:'.ENTRY_DATE_THRU','TEXT')
|
||||
EntryIds = Get_Property(@WINDOW:'.ENTRY_IDS','ARRAY')<1>
|
||||
Wo = Get_Property(@WINDOW:'.WO','ARRAY')
|
||||
Po = Get_Property(@WINDOW:'.PO','ARRAY')
|
||||
swap @vm:@vm with '' in Wo
|
||||
if Wo[-1,1] = @vm then Wo[-1,1] = ''
|
||||
swap @vm:@vm with '' in Po
|
||||
if Po[-1,1] = @vm then Po[-1,1] = ''
|
||||
swap @vm:@vm with '' in CustIds
|
||||
if CustIds[-1,1] = @vm then CustIds[-1,1] = ''
|
||||
swap @vm:@vm with '' in EntryIds
|
||||
if EntryIds[-1,1] = @vm then EntryIds[-1,1] = ''
|
||||
|
||||
|
||||
|
||||
if CustIds then
|
||||
SearchStr<-1> = 'WO_CUST_NO_SHIP_TO':@vm:CustIds
|
||||
end
|
||||
if EntryDateFrom and EntryDateThru then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:EntryDateFrom:'...':EntryDateThru
|
||||
end else
|
||||
if EntryDateFrom then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:'>=':EntryDateFrom
|
||||
end
|
||||
if EntryDateThru then
|
||||
SearchStr<-1> = 'ENTRY_DATE':@vm:'<=':EntryDateThru
|
||||
end
|
||||
end
|
||||
if EntryIds then
|
||||
SearchStr<-1> = 'ENTRY_ID':@vm:EntryIds
|
||||
end
|
||||
if Wo then
|
||||
SearchStr<-1> = 'WO':@vm:Wo
|
||||
end
|
||||
if Po then
|
||||
SearchStr<-1> = 'PO':@VM:Po
|
||||
end
|
||||
if SearchStr then
|
||||
SearchStr := @fm
|
||||
Void = utility( 'CURSOR', 'H' )
|
||||
* do a btree.extract
|
||||
btree.extract( SearchStr, 'COC', DictCOCTable, Keys, '', Flag )
|
||||
if Flag <> 0 then
|
||||
Void = msg( '', 'Error while extracting COC records...' )
|
||||
return 0
|
||||
end
|
||||
if Keys then
|
||||
convert @vm to @fm in Keys
|
||||
Keys = key_sort( Keys, 'COC', 'CUST_NAME_BILL_TO':@fm:'#ENTRY_DATE', 1 )
|
||||
end_dialog( @window, Keys )
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
end else
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'You have not entered any search criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
OPEN 'DICT.RDS' TO DictRDSTable ELSE
|
||||
ErrMsg( 'Unable to open DICT.RDS...' )
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
WONos = Get_Property(@WINDOW:'.WO','ARRAY')<1>
|
||||
Reactors = Get_Property(@WINDOW:'.REACTORS','ARRAY')<1>
|
||||
PSNs = Get_Property(@WINDOW:'.PSN_NOS','ARRAY')<1>
|
||||
QuoteNos = Get_Property(@WINDOW:'.QUOTE_NOS','ARRAY')<1>
|
||||
PONos = Get_Property(@WINDOW:'.PO','ARRAY')<1>
|
||||
PartNos = Get_Property(@WINDOW:'.PART_NUM','ARRAY')<1>
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NUM','ARRAY')<1>
|
||||
CurrStatusCds = Get_Property(@WINDOW:'.CURR_STATUS','ARRAY')<1>
|
||||
CustIds = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<1>
|
||||
|
||||
SWAP @VM:@VM WITH '' IN WONos ; IF WONos[-1,1] = @VM THEN WONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN Reactors ; IF Reactors[-1,1] = @VM THEN Reactors[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PSNs ; IF PSNs[-1,1] = @VM THEN PSNs[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN QuoteNos ; IF QuoteNos[-1,1] = @VM THEN QuoteNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PONos ; IF PONos[-1,1] = @VM THEN PONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PartNos ; IF PartNos[-1,1] = @VM THEN PartNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN LotNos ; IF LotNos[-1,1] = @VM THEN LotNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CurrStatusCds ; IF CurrStatusCds[-1,1] = @VM THEN CurrStatusCds[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CustIDs ; IF CustIDs[-1,1] = @VM THEN CustIds[-1,1] = ''
|
||||
|
||||
DateInFrom = Get_Property(@WINDOW:'.DATE_IN_FROM','TEXT')
|
||||
DateInThru = Get_Property(@WINDOW:'.DATE_IN_THRU','TEXT')
|
||||
DateOutFrom = Get_Property(@WINDOW:'.DATE_OUT_FROM','TEXT')
|
||||
DateOutThru = Get_Property(@WINDOW:'.DATE_OUT_THRU','TEXT')
|
||||
TimeInFrom = Get_Property(@WINDOW:'.TIME_IN_FROM','TEXT')
|
||||
TimeInThru = Get_Property(@WINDOW:'.TIME_IN_THRU','TEXT')
|
||||
TimeOutFrom = Get_Property(@WINDOW:'.TIME_OUT_FROM','TEXT')
|
||||
TimeOutThru = Get_Property(@WINDOW:'.TIME_OUT_THRU','TEXT')
|
||||
|
||||
SearchStr = ''
|
||||
|
||||
IF WONos THEN SearchStr<-1> = 'WO':@VM:WONos
|
||||
IF Reactors THEN SearchStr<-1> = 'REACTOR':@VM:Reactors
|
||||
IF PSNs THEN SearchStr<-1> = 'PROD_SPEC_ID':@VM:PSNs
|
||||
IF QuoteNos THEN SearchStr<-1> = 'QUOTE_NO':@VM:QuoteNos
|
||||
IF PONos THEN SearchStr<-1> = 'PO':@VM:PONos
|
||||
IF PartNos THEN SearchStr<-1> = 'PART_NUM':@VM:PartNos
|
||||
IF LotNos THEN SearchStr<-1> = 'LOT_NUM':@VM:LotNos
|
||||
IF CurrStatusCds THEN SearchStr<-1> = 'CURR_STATUS':@VM:CurrStatusCds
|
||||
IF CustIds THEN SearchStr<-1> = 'CUST_NO':@VM:CustIds
|
||||
|
||||
|
||||
IF DateInFrom AND DateInThru THEN
|
||||
SearchStr<-1> = 'DATE_IN':@VM:DateInFrom:'...':DateInThru
|
||||
END ELSE
|
||||
IF DateInFrom THEN SearchStr<-1> = 'DATE_IN':@VM:'>=':DateInFrom
|
||||
IF DateInThru THEN SearchStr<-1> = 'DATE_IN':@VM:'<=':DateInThru
|
||||
END
|
||||
|
||||
IF DateOutFrom and DateOutThru THEN
|
||||
SearchStr<-1> = 'DATE_OUT':@VM:DateOutFrom:'...':DateOutThru
|
||||
END ELSE
|
||||
IF DateOutFrom THEN SearchStr<-1> = 'DATE_OUT':@VM:'>=':DateOutFrom
|
||||
IF DateOutThru THEN SearchStr<-1> = 'DATE_OUT':@VM:'<=':DateOutThru
|
||||
END
|
||||
|
||||
IF TimeInFrom and TimeInThru THEN
|
||||
SearchStr<-1> = 'TIME_IN':@VM:TimeInFrom:'...':TimeInThru
|
||||
END ELSE
|
||||
IF TimeInFrom THEN SearchStr<-1> = 'TIME_IN':@VM:'>=':TimeInFrom
|
||||
IF TimeInThru THEN SearchStr<-1> = 'TIME_IN':@VM:'<=':TimeInThru
|
||||
END
|
||||
|
||||
IF TimeOutFrom and TimeOutThru THEN
|
||||
SearchStr<-1> = 'TIME_OUT':@VM:TimeOutFrom:'...':TimeOutThru
|
||||
END ELSE
|
||||
IF TimeOutFrom THEN SearchStr<-1> = 'TIME_OUT':@VM:'>=':TimeOutFrom
|
||||
IF TimeOutThru THEN SearchStr<-1> = 'TIME_OUT':@VM:'<=':TimeOutThru
|
||||
END
|
||||
|
||||
IF SearchStr THEN
|
||||
SearchStr := @FM
|
||||
Void = Utility( 'CURSOR', 'H' )
|
||||
* do a btree.extract
|
||||
Btree.Extract( SearchStr, 'RDS', DictRDSTable, RDSNos, '', Flag )
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
IF RDSNos THEN
|
||||
CONVERT @VM TO @FM IN RDSNos
|
||||
RDSNos = Key_Sort( RDSNos, 'RDS', 'CUST_NAME':@fm:'WO':@fm:'RUN_ORDER_NUM', 0 )
|
||||
End_Dialog( @WINDOW, RDSNos )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'You have not entered any search criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
116
LSL2/STPROC/COMM_DIALOG_CUST_INFO.txt
Normal file
116
LSL2/STPROC/COMM_DIALOG_CUST_INFO.txt
Normal file
@ -0,0 +1,116 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Cust_Info(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Cust_Info window.
|
||||
|
||||
08/06/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Cust_Info'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Title = Parm1[1,@FM]
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',Title)
|
||||
|
||||
Vals = FIELD(Parm1,@FM,2,99)
|
||||
CONVERT @FM TO @RM IN Vals
|
||||
|
||||
Ctrls = @WINDOW:'.COMPANY':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ATTENTION':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ADDRESS':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CITY':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ST':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ZIP':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.COUNTRY' ; Props := 'DEFPROP'
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.COMPANY':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ATTENTION':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ADDRESS':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CITY':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ST':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.ZIP':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.COUNTRY' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
CONVERT @RM TO @FM IN Vals
|
||||
|
||||
Addr = Vals<3>
|
||||
|
||||
LOOP
|
||||
UNTIL Addr[-1,1] NE @TM OR Addr = ''
|
||||
Addr[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
Vals<3> = Addr
|
||||
CONVERT @FM TO @RM IN Vals
|
||||
|
||||
End_Dialog(@WINDOW,Vals)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
99
LSL2/STPROC/COMM_DIALOG_DATE.txt
Normal file
99
LSL2/STPROC/COMM_DIALOG_DATE.txt
Normal file
@ -0,0 +1,99 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Date(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Date window.
|
||||
|
||||
09/21/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg,
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Msg, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Date'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'PickDt' ; GOSUB PickDt
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
Note = Parm1<1>
|
||||
DateLabel = Parm1<2>
|
||||
|
||||
IF Note NE '' THEN
|
||||
Set_Property(@WINDOW:'.NOTE_TEXT','DEFPROP',Note)
|
||||
END
|
||||
IF DateLabel NE '' THEN
|
||||
Set_Property(@WINDOW:'.GENERIC_DT_LABEL','TEXT',DateLabel)
|
||||
END
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PickDt:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1
|
||||
IF ReturnCtrl = '' THEN
|
||||
ReturnCtrl = Get_Property(@WINDOW,'@FOCUS')
|
||||
END ELSE
|
||||
IF INDEX(ReturnCtrl,'.',1) ELSE
|
||||
ReturnCtrl = @WINDOW:'.':ReturnCtrl
|
||||
END
|
||||
END
|
||||
|
||||
ReturnVal = OCONV(Dialog_Box("POPUP_MONTH",@WINDOW),'D4/')
|
||||
|
||||
obj_Appwindow('LUValReturn',ReturnVal:@RM:ReturnCtrl:@RM:'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
GenericDt= Get_Property(@WINDOW:'.GENERIC_DT','TEXT')
|
||||
|
||||
|
||||
End_Dialog( @WINDOW, GenericDt )
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
89
LSL2/STPROC/COMM_DIALOG_DATE_RANGE.txt
Normal file
89
LSL2/STPROC/COMM_DIALOG_DATE_RANGE.txt
Normal file
@ -0,0 +1,89 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Date_Range(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Date_Range window.
|
||||
|
||||
08/07/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg,
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Msg, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Date_Range'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'PickDt' ; GOSUB PickDt
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PickDt:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1
|
||||
IF ReturnCtrl = '' THEN
|
||||
ReturnCtrl = Get_Property(@WINDOW,'@FOCUS')
|
||||
END ELSE
|
||||
IF INDEX(ReturnCtrl,'.',1) ELSE
|
||||
ReturnCtrl = @WINDOW:'.':ReturnCtrl
|
||||
END
|
||||
END
|
||||
|
||||
ReturnVal = OCONV(Dialog_Box("POPUP_MONTH",@WINDOW),'D4/')
|
||||
|
||||
obj_Appwindow('LUValReturn',ReturnVal:@RM:ReturnCtrl:@RM:'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
StartDt = Get_Property(@WINDOW:'.START_DT','TEXT')
|
||||
EndDt = Get_Property(@WINDOW:'.END_DT','TEXT')
|
||||
|
||||
End_Dialog( @WINDOW, StartDt:@FM:EndDt )
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
699
LSL2/STPROC/COMM_DIALOG_EPIPRO_EXPORT.txt
Normal file
699
LSL2/STPROC/COMM_DIALOG_EPIPRO_EXPORT.txt
Normal file
@ -0,0 +1,699 @@
|
||||
COMPILE FUNCTION Comm_Dialog_EpiPro_Export(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_EpiPro_Exportwindow.
|
||||
|
||||
10/28/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT WM_OUT_EQUATES
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'CustPNDC' ; GOSUB CustPNDC
|
||||
CASE Method = 'SubPNDC' ; GOSUB SubPNDC
|
||||
CASE Method = 'LotNoDC' ; GOSUB LotNoDC
|
||||
CASE Method = 'PSNoDC' ; GOSUB PSNoDC
|
||||
CASE Method = 'WONoDC' ; GOSUB WONoDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SubPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Substrate Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'SUB_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawPartNos = XLATE('WO_LOG',WOKeys,'SUB_PART_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PartNos = ''
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Substrate Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.SUB_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Lot Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'LOT_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawLotNos = XLATE('WO_LOG',WOKeys,'LOT_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
LotNos = ''
|
||||
FOR I = 1 TO COUNT(RawLotNos,@VM) + (RawLotNos NE '')
|
||||
RawLotNo = RawLotNos<1,I>
|
||||
LOCATE RawLotNo IN LotNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
LotNos = INSERT(LotNos,1,Pos,0,RawLotNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
LotNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF LotNos = '' THEN
|
||||
ErrMsg('No Lot Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
LotNos := @VM
|
||||
CONVERT @VM TO @RM IN LotNos
|
||||
CALL V119('S','','D','R',LotNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN LotNos
|
||||
LotNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = LotNos
|
||||
LotNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF LotNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.LOT_NO','DEFPROP',LotNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PSNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Product Specifications..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PS_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PSNs = ''
|
||||
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPSNs = XLATE('WO_LOG',WOKey,'PS_NO','X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPSNs,@VM) + (RawPSNs NE '')
|
||||
RawPSN = RawPSNs<1,I>
|
||||
|
||||
LOCATE RawPSN IN PSNs BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PSNs = INSERT(PSNs,1,Pos,0,RawPSN)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PSNs = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PSNs = '' THEN
|
||||
ErrMsg('No Product Specifications on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PSNs := @VM
|
||||
CONVERT @VM TO @RM IN PSNs
|
||||
CALL V119('S','','D','R',PSNs,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PSNs
|
||||
PSNs[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PSNs
|
||||
PSNs = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PSNs NE '' THEN
|
||||
CONVERT @VM TO @FM IN PSNs
|
||||
Set_Property(@WINDOW:'.PS_NO','LIST',PSNs)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WONoDC:
|
||||
* * * * * * *
|
||||
|
||||
WOKeys = Collect.IXVals('WM_OUT', 'WO_NO')
|
||||
|
||||
CONVERT @FM TO @VM IN WOKeys
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(ErrCode)
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = WOKeys
|
||||
TypeOver<PMODE$> = 'K'
|
||||
|
||||
WOKeys = Popup(@WINDOW,TypeOver,'WO_LOG_QUERY')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
CONVERT @VM TO @FM IN WOKeys
|
||||
Set_Property(@WINDOW:'.WO_NO','LIST',WOKeys)
|
||||
END
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'CUST_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Customer Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;* Needs a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.CUST_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
If @USER4 EQ 'DANIEL_ST' then debug
|
||||
* Customer numbers *
|
||||
|
||||
SearchString = 'MAKEUP_BOX':@VM:'0':@FM
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastVar = CustNos[-1,'B':@VM]
|
||||
UNTIL LastVar NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos NE '' THEN SearchString := 'CUST_NO':@VM:CustNos:@FM
|
||||
|
||||
* LotNumbers *
|
||||
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = LotNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR LotNos = ''
|
||||
LotNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF LotNos NE '' THEN SearchString := 'LOT_NO':@VM:LotNos:@FM
|
||||
|
||||
|
||||
* Cust Part Number *
|
||||
|
||||
CustPNs = Get_Property(@WINDOW:'.CUST_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = CustPNs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR CustPNs = ''
|
||||
CustPNS[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustPNs NE '' THEN SearchString := 'CUST_PART_NO':@VM:CustPNs:@FM
|
||||
|
||||
* Substrate Part Numbers *
|
||||
|
||||
SubPartNos = Get_Property(@WINDOW:'.SUB_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = SubPartNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR SubPartNos = ''
|
||||
SubPartNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF SubPartNos NE '' THEN SearchString := 'SUB_PART_NO':@VM:SubPartNos:@FM
|
||||
|
||||
* PSN Nos *
|
||||
|
||||
PS_NOs = Get_Property(@WINDOW:'.PS_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = PS_NOs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR PS_NOs = ''
|
||||
PS_NOs[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF PS_NOs NE '' THEN SearchString := 'PS_NO':@VM:PS_NOs:@FM
|
||||
|
||||
|
||||
* WO Nos *
|
||||
|
||||
WO_NOs = Get_Property(@WINDOW:'.WO_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = WO_NOs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR WO_NOs = ''
|
||||
WO_NOs[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF WO_NOs NE '' THEN SearchString := 'WO_NO':@VM:WO_NOs:@FM
|
||||
|
||||
* Entry Dates *
|
||||
|
||||
StartDt = ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D')
|
||||
EndDt = ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D')
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
SearchString := 'SUP_VER_SIG_DT':@VM:'>=':OConv(StartDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SearchString := 'SUP_VER_SIG_DT':@VM:'<=':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
* Fudge the dates - '~' is not inclusive of the end dates
|
||||
StartDt -= 1
|
||||
EndDt += 1
|
||||
SearchString := 'SUP_VER_SIG_DT':@VM:OConv(StartDt, 'D4/'):'~':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
|
||||
OPEN 'DICT.WM_OUT' TO DictVar THEN
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting WM_OUT Recrods..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
Btree.Extract(SearchString,'WM_OUT',DictVar,WMOKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,WMOKeys)
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WM_OUT in routine COMM_DIALOG_EPIPRO_EXPORT')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
393
LSL2/STPROC/COMM_DIALOG_EPI_PRO_MET.txt
Normal file
393
LSL2/STPROC/COMM_DIALOG_EPI_PRO_MET.txt
Normal file
@ -0,0 +1,393 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Epi_Pro_Met(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Epi_Pro_Met window.
|
||||
|
||||
05/17/2006 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Send_Event, obj_RDS_Test
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, ErrMsg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, obj_Test_Point_Map, obj_RDS_Test
|
||||
Declare function Error_Services, MemberOf, Get_EventStatus
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
$INSERT RDS_LAYER_EQUATES
|
||||
$INSERT REACT_RUN_EQUATES
|
||||
$INSERT REACTOR_EQUATES
|
||||
$INSERT RDS_EPILOAD
|
||||
$INSERT NCR_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
EQU ORP$THICK_READS TO 1
|
||||
EQU ORP$SHEET_RHO_READS TO 2
|
||||
EQU ORP$HGCV1_READS TO 3
|
||||
|
||||
EQU EPI_READS$READ_NO TO 1
|
||||
EQU EPI_READS$THICKNESS TO 2
|
||||
EQU EPI_READS$SHEET_RHO TO 3
|
||||
EQU EPI_READS$HGCV1 TO 4
|
||||
EQU EPI_READS$HGCV2 TO 5
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Epi_Pro_Met'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'Done' ; GOSUB Done
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'ReadingsDel' ; GOSUB ReadingsDel
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
MetNo = FIELD(Parm1,@FM,1)
|
||||
|
||||
IF MetNo = '' THEN
|
||||
ErrMsg('Null MetNo passed to Dialog Box...')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
|
||||
MetRec = XLATE('RDS_TEST',MetNo,'','X')
|
||||
|
||||
RDSNo = MetRec<RDS_TEST_RDS_NO$>
|
||||
LSId = MetRec<RDS_TEST_LS_ID$>
|
||||
Zone = MetRec<RDS_TEST_ZONE$>
|
||||
TestPointMap = MetRec<RDS_TEST_TEST_POINT_MAP$>
|
||||
|
||||
IF Zone = '' THEN MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS','X')
|
||||
IF Zone = 1 THEN MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS_Z1','X')
|
||||
IF Zone = 2 THEN MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS_Z2','X')
|
||||
|
||||
RdsLSKeys = XLATE('RDS',RDSNo,RDS_RDS_LAYER_KEYS$,'X')
|
||||
ReactorNo = XLATE('REACT_RUN',RDSNo,REACT_RUN_REACTOR$,'X')
|
||||
ReactType = XLATE('REACTOR',ReactorNo,REACTOR_REACT_TYPE$,'X')
|
||||
|
||||
IF INDEX(RdsLSKeys,@VM,1) THEN
|
||||
* Multiple layers
|
||||
|
||||
DepTimeTargets = ''
|
||||
LSCnt = COUNT(RdsLSKeys,@VM) + (RdsLSKeys NE '')
|
||||
|
||||
DepTimeTargets = XLATE('RDS_LAYER',RdsLSKeys,RDS_LAYER_EPI_TIME$,'X')
|
||||
DepTimeTargets = OCONV(DepTimeTargets,'MD1')
|
||||
|
||||
LS1DepTime = ''
|
||||
LS2DepTime = ''
|
||||
|
||||
FOR I = 1 TO LSCnt
|
||||
RdsLSKey = RdsLSKeys<1,I>
|
||||
IF INDEX(RdsLSKey,'L1',1) THEN LS1DepTime = DepTimeTargets<1,I>
|
||||
IF INDEX(RdsLSKey,'L2',1) THEN LS2DepTime = DepTimeTargets<1,I>
|
||||
NEXT I
|
||||
|
||||
ErrorMsg = ''
|
||||
IF LS1DepTime = '' THEN ErrorMsg = 'Deposit Time for LS1 has not been enterered yet.'
|
||||
IF LS2DepTime = '' THEN ErrorMsg = 'Deposit Time for LS2 has not been enterered yet.'
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrorMsg)
|
||||
End_Dialog(@WINDOW,'')
|
||||
Set_Property('RDS_TEST.MET_NO','DEFPROP',MeTNo)
|
||||
Send_Event('RDS_TEST','READ')
|
||||
END ELSE
|
||||
|
||||
TotDepTime = LS1DepTime + LS2DepTime
|
||||
LS1Ratio = LS1DepTime/TotDepTime
|
||||
END
|
||||
MetReadings = ''
|
||||
|
||||
|
||||
FOR I = 1 TO COUNT(MetKeys,@VM) + (MetKeys NE '')
|
||||
MetKey = MetKeys<1,I>
|
||||
LMetReadings = obj_RDS_Test('GetReadSet',MetKey)
|
||||
|
||||
IF I = 1 THEN
|
||||
MetReadings<1> = LMetReadings<1> ;* Line Numbers
|
||||
MetReadings<3> = LMetReadings<3> ;* SheetRho
|
||||
MetReadings<4> = LMetReadings<4> ;* Hgcv
|
||||
END
|
||||
|
||||
IF I = 2 THEN
|
||||
MetReadings<5> = LMetReadings<4> ;* Hgcv
|
||||
END
|
||||
|
||||
IF I = 3 THEN
|
||||
MetReadings<2> = LMetReadings<2> ;* Thickness readings
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
LS1Ratio = 1
|
||||
MetReadings = obj_RDS_Test('GetReadSet',MetNo)
|
||||
END
|
||||
|
||||
|
||||
Ctrls = @WINDOW:'.MET_NO':@RM ; Props = 'TEXT':@RM ; Vals = MetNo:@RM
|
||||
Ctrls := @WINDOW:'.RDS_NO':@RM ; Props := 'TEXT':@RM ; Vals := RDSNo:@RM
|
||||
Ctrls := @WINDOW:'.LS_ID':@RM ; Props := 'TEXT':@RM ; Vals := LSId:@RM
|
||||
Ctrls := @WINDOW:'.ZONE':@RM ; Props := 'TEXT':@RM ; Vals := Zone:@RM
|
||||
Ctrls := @WINDOW:'.TEST_POINT_MAP':@RM ; Props := 'TEXT':@RM ; Vals := TestPointMap:@RM
|
||||
Ctrls := @WINDOW:'.L1_RATIO' ; Props := 'TEXT' ; Vals := LS1Ratio
|
||||
|
||||
IF MetReadings<1> NE '' THEN
|
||||
|
||||
CONVERT @FM TO @RM IN MetReadings
|
||||
oTPM_Parms = TestPointMap:@RM:MetReadings
|
||||
Results = obj_Test_Point_Map('PointToResult',oTPM_Parms)
|
||||
ThicknessArray = FIELD(Results,@FM,2,4)
|
||||
|
||||
Ctrls := @RM:@WINDOW:'.THICKNESS' ; Props := @RM:'DEFPROP' ; Vals := @RM:ThicknessArray<1>
|
||||
Ctrls := @RM:@WINDOW:'.SHEETRHO' ; Props := @RM:'DEFPROP' ; Vals := @RM:ThickNessArray<2>
|
||||
Ctrls := @RM:@WINDOW:'.HGCV1' ; Props := @RM:'DEFPROP' ; Vals := @RM:ThicknessArray<3>
|
||||
Ctrls := @RM:@WINDOW:'.HGCV2' ; Props := @RM:'DEFPROP' ; Vals := @RM:ThickNessArray<4>
|
||||
|
||||
END
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE LSId = 'L1'
|
||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',RCV_BLUE$)
|
||||
|
||||
CASE LSId = 'L2'
|
||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',PRE_BLUE$)
|
||||
|
||||
CASE LSId = '2'
|
||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',INP_BLUE$)
|
||||
|
||||
CASE 1
|
||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',GREEN$)
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Done:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.TEST_POINT_MAP':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.MET_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.THICKNESS':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.SHEETRHO':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.HGCV1':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.HGCV2':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.L1_RATIO' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
TestPointMap = Vals[1,@RM]
|
||||
MetNo = Vals[COL2()+1,@RM]
|
||||
ThickReads = Vals[COL2()+1,@RM]
|
||||
SheetRhoReads = Vals[COL2()+1,@RM]
|
||||
HgCV1ResReads = Vals[COL2()+1,@RM]
|
||||
HgCV2ResReads = Vals[COL2()+1,@RM]
|
||||
L1Ratio = Vals[COL2()+1,@RM]
|
||||
|
||||
ReadingNos = ''
|
||||
|
||||
|
||||
FOR I = 1 TO 9
|
||||
ReadingNos<1,I> = I
|
||||
NEXT I
|
||||
|
||||
oTPM_Parms = TestPointMap:@RM:ReadingNos:@RM:ThickReads:@RM:SheetRhoReads:@RM:HgCV1ResReads:@RM:HgCV2ResReads
|
||||
|
||||
EpiReads = obj_Test_Point_Map('ResultToPoint',oTPM_Parms)
|
||||
|
||||
MetRec = XLATE('RDS_TEST',MetNo,'','X')
|
||||
|
||||
Zone = MetRec<RDS_TEST_ZONE$>
|
||||
RDSNo = MetRec<RDS_TEST_RDS_NO$>
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE Zone = '1' ; MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS_Z1','X')
|
||||
CASE Zone = '2' ; MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS_Z2','X')
|
||||
CASE 1 ; MetKeys = XLATE('REACT_RUN',RDSNo,'MET_KEYS','X')
|
||||
END CASE
|
||||
|
||||
UpdatesAllowed = True$ ; // Flag to determine if cassette has not been signed for FQA. Assumed not signed yet.
|
||||
Override = False$ ; // Assume no override for now.
|
||||
|
||||
IF INDEX(MetKeys,@VM,1) THEN
|
||||
LOCATE MetNo IN MetKeys USING @VM SETTING Pos THEN
|
||||
MetKeys = DELETE(MetKeys,1,Pos,0)
|
||||
END
|
||||
oRTParms_L1 = ''
|
||||
oRTParms_L2 = ''
|
||||
|
||||
|
||||
FOR J = 1 TO COUNT(EpiReads<1>,@VM) + (EpiReads<1> NE '')
|
||||
oRTParms_L1<ORP$THICK_READS,J> = OCONV(ICONV(EpiReads<EPI_READS$THICKNESS,J> * L1Ratio, 'MD2'),'MD2')
|
||||
oRTParms_L2<ORP$THICK_READS,J> = EpiReads<EPI_READS$THICKNESS,J> - oRTParms_L1<ORP$THICK_READS,J>
|
||||
|
||||
IF EpiReads<EPI_READS$SHEET_RHO,J> NE '' THEN
|
||||
|
||||
oRTParms_L1<ORP$SHEET_RHO_READS,J> = EpiReads<EPI_READS$SHEET_RHO,J>
|
||||
oRTParms_L2<ORP$SHEET_RHO_READS,J> = ''
|
||||
EpiReads<EPI_READS$SHEET_RHO,J> = ''
|
||||
|
||||
END ELSE
|
||||
oRTParms_L1<ORP$SHEET_RHO_READS,J> = ''
|
||||
oRTParms_L2<ORP$SHEET_RHO_READS,J> = ''
|
||||
END
|
||||
|
||||
IF EpiReads<EPI_READS$HGCV1,J> NE '' THEN
|
||||
oRTParms_L1<ORP$HGCV1_READS,J> = EpiReads<EPI_READS$HGCV1,J>
|
||||
END
|
||||
|
||||
IF EpiReads<EPI_READS$HGCV2,J> NE '' THEN
|
||||
oRTParms_L2<ORP$HGCV1_READS,J> = EpiReads<EPI_READS$HGCV2,J>
|
||||
END
|
||||
|
||||
NEXT J
|
||||
|
||||
CONVERT @FM TO @RM IN oRTParms_L1
|
||||
CONVERT @FM TO @RM IN oRTParms_L2
|
||||
|
||||
obj_RDS_Test('SetReadSet',MetKeys<1,1>:@RM:oRTParms_L1,Override)
|
||||
|
||||
If Error_Services('HasError') then
|
||||
* IF Get_Status(errCode) THEN
|
||||
FileError = @File.Error
|
||||
ErrorNumber = FileError<1>
|
||||
ErrorMessage = FileError<2>
|
||||
* Message = Error_Services('GetMessage')
|
||||
* ErrorNumber = Message[1, ':']
|
||||
* ErrorMessage = Message[Col2() + 1, ':']
|
||||
If ErrorNumber EQ '104' then
|
||||
MsgStruct = ''
|
||||
MsgStruct<MCOL$> = -1
|
||||
MsgStruct<MROW$> = -1
|
||||
// Users belonging to the SPEC_CHANGE security group will be allowed to override the block. However, these
|
||||
// users must confirm that this is what they want.
|
||||
If MemberOf(@User4, 'SPEC_CHANGE') then
|
||||
Override = Msg(@Window, MsgStruct, 'YESNO', '', 'RDS Test' : @FM : ErrorMessage : @TM : @TM : 'Please confirm that you want to override.')
|
||||
If Override EQ True$ then
|
||||
obj_RDS_Test('SetReadSet',MetKeys<1,1>:@RM:oRTParms_L1,Override)
|
||||
end else
|
||||
UpdatesAllowed = False$
|
||||
end
|
||||
end else
|
||||
UpdatesAllowed = False$
|
||||
Msg(@Window, MsgStruct, 'OK', '', 'RDS Test' : @FM : ErrorMessage)
|
||||
end
|
||||
end else
|
||||
ErrMsg(errCode)
|
||||
end
|
||||
end
|
||||
|
||||
If UpdatesAllowed EQ True$ then
|
||||
obj_RDS_Test('SetReadSet',MetKeys<1,2>:@RM:oRTParms_L2,Override)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
end
|
||||
|
||||
END
|
||||
|
||||
If UpdatesAllowed EQ True$ then
|
||||
|
||||
oRTParms = ''
|
||||
oRTParms<ORP$THICK_READS> = EpiReads<EPI_READS$THICKNESS>
|
||||
oRTParms<ORP$SHEET_RHO_READS> = EpiReads<EPI_READS$SHEET_RHO>
|
||||
oRTParms<ORP$HGCV1_READS> = EpiReads<EPI_READS$HGCV1>
|
||||
|
||||
CONVERT @FM TO @RM IN oRTParms
|
||||
|
||||
obj_RDS_Test('SetReadSet',MetNo:@RM:oRTParms,Override)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Message = Error_Services('GetMessage')
|
||||
ErrorNumber = Message[1, ':']
|
||||
ErrorMessage = Message[Col2() + 1, ':']
|
||||
If ErrorNumber EQ 'FS104' then
|
||||
MsgStruct = ''
|
||||
MsgStruct<MCOL$> = -1
|
||||
MsgStruct<MROW$> = -1
|
||||
// Users belonging to the SPEC_CHANGE security group will be allowed to override the block. However, these
|
||||
// users must confirm that this is what they want.
|
||||
If MemberOf(@User4, 'SPEC_CHANGE') then
|
||||
Override = Msg(@Window, MsgStruct, 'YESNO', '', 'RDS Test' : @FM : ErrorMessage : @TM : @TM : 'Please confirm that you want to override.')
|
||||
If Override EQ True$ then
|
||||
obj_RDS_Test('SetReadSet',MetKeys<1,1>:@RM:oRTParms,Override)
|
||||
end else
|
||||
UpdatesAllowed = False$
|
||||
end
|
||||
end else
|
||||
UpdatesAllowed = False$
|
||||
Msg(@Window, MsgStruct, 'OK', '', 'RDS Test' : @FM : ErrorMessage)
|
||||
end
|
||||
end else
|
||||
ErrMsg(errCode)
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
Set_Property('RDS_TEST.MET_NO','DEFPROP',MetNo)
|
||||
Send_Event('RDS_TEST','READ')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReadingsDel:
|
||||
* * * * * * *
|
||||
|
||||
DeletedRowIndex = Parm1
|
||||
DeletedRowText = Parm2
|
||||
|
||||
CurrCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
Dummy = Send_Message(CurrCtrl, "INSERT",DeletedRowIndex, DeletedRowText)
|
||||
|
||||
ErrMsg('Rows may not be inserted or deleted.')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
158
LSL2/STPROC/COMM_DIALOG_HOLD.txt
Normal file
158
LSL2/STPROC/COMM_DIALOG_HOLD.txt
Normal file
@ -0,0 +1,158 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Hold(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Hold window.
|
||||
|
||||
06/09/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Hold'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'LU_UserID' ; GOSUB LU_UserID
|
||||
CASE Method = 'UserIDLF' ; GOSUB UserIDLF
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Transition = Parm1<1>
|
||||
TableName = Parm1<2>
|
||||
HoldType = Parm1<3>
|
||||
|
||||
IF HoldType = '' THEN HoldType = 'HOLD'
|
||||
|
||||
BEGIN CASE
|
||||
CASE Transition = 'ON' AND HoldType = 'HOLD'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Hold On')
|
||||
WinText = 'Hold Change'
|
||||
|
||||
CASE Transition = 'OFF' AND HoldType = 'HOLD'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Hold Off')
|
||||
WinText = 'Hold Change'
|
||||
|
||||
CASE Transition = 'ON' AND HoldType = 'SHOLD'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Ship Hold On')
|
||||
WinText = 'Ship Hold Change'
|
||||
|
||||
CASE Transition = 'OFF' AND HoldType = 'SHOLD'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Ship Hold Off')
|
||||
WinText = 'Ship Hold Change'
|
||||
|
||||
CASE Transition = 'ESC'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Start Escalation')
|
||||
WinText = TableName:' Escalation Change'
|
||||
|
||||
CASE Transition = 'D-ESC'
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL_FIX','TEXT','Stop Escalation')
|
||||
WinText = TableName:' Escalation Change'
|
||||
END CASE
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',WinText) ; * Window title in top bar
|
||||
|
||||
UserName = OCONV(@USER4,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
|
||||
Set_Property(@WINDOW:'.USER_ID','DEFPROP',@USER4)
|
||||
Set_Property(@WINDOW:'.USER_NAME','DEFPROP',UserName)
|
||||
Set_Property(@WINDOW:'.REASON','FOCUS',1)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LU_UserID:
|
||||
* * * * * * *
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
TypeOver<PDISPLAY$> = 'BY LAST_FIRST'
|
||||
|
||||
UserID = Popup(@WINDOW,TypeOver,'SHOW_USERS')
|
||||
|
||||
IF UserID NE '' THEN
|
||||
Set_Property(@WINDOW:'.USER_ID','DEFPROP',UserID)
|
||||
END ELSE
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
UserIDLF:
|
||||
* * * * * * *
|
||||
|
||||
UserID = Get_Property(@WINDOW:'.USER_ID','DEFPROP')
|
||||
|
||||
UserName = OCONV(UserID,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
Set_Property(@WINDOW:'.USER_NAME','DEFPROP',UserName)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
UserID = Get_Property(@WINDOW:'.USER_ID','DEFPROP')
|
||||
Reason = Get_Property(@WINDOW:'.REASON','DEFPROP')
|
||||
Extended = Get_Property(@WINDOW:'.HOLD_EXTENDED','CHECK')
|
||||
|
||||
Result = UserID:@FM:Reason:@FM:Extended
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
729
LSL2/STPROC/COMM_DIALOG_LOAD_EPI_PRO.txt
Normal file
729
LSL2/STPROC/COMM_DIALOG_LOAD_EPI_PRO.txt
Normal file
@ -0,0 +1,729 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Load_Epi_Pro(Method, Parm1, Parm2)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Load_Epi_Pro window.
|
||||
|
||||
03/13/2006 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, obj_RDS2, Send_Event, RDS_React_Run, Send_Info
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, obj_WM_IN, obj_WM_Wfrs, obj_React_Status
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, obj_WM_In, Send_Message, obj_NCR, obj_WM_Wfrs
|
||||
DECLARE FUNCTION SRP_Array, Database_Services, Set_Property
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
$INSERT EPI_SUSCEPTOR_EQUATES
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT EPI_PART_EQUATES
|
||||
$INSERT RDS_EPILOAD
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT NCR_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU COL$WM_CASS_IN TO 1
|
||||
EQU COL$WM_SLOT_IN TO 2
|
||||
|
||||
EQU COL$POCKET TO 1
|
||||
EQU COL$USAGE TO 2
|
||||
EQU COL$ZONE TO 3
|
||||
EQU COL$IN_CASS TO 4
|
||||
EQU COL$IN_SLOT TO 5
|
||||
EQU COL$WAFER_TYPE TO 6
|
||||
EQU COL$OUT_CASS TO 7
|
||||
EQU COL$OUT_SLOT TO 8
|
||||
|
||||
EQU COL$NCR_NO TO 1
|
||||
EQU COL$CASS_NO TO 2
|
||||
EQU COL$SLOT_NO TO 3
|
||||
|
||||
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 Comm_Dialog_Load_Epi_Pro'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'LoadMat' ; GOSUB LoadMat
|
||||
CASE Method = 'ReturnMat' ; GOSUB ReturnMat
|
||||
CASE Method = 'ReactIR' ; GOSUB ReactIR
|
||||
CASE Method = 'ReactDR' ; GOSUB ReactDR
|
||||
CASE Method = 'TestRun' ; GOSUB TestRun
|
||||
CASE Method = 'ConfigComp' ; GOSUB ConfigComp
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
|
||||
|
||||
* get the current style
|
||||
|
||||
Style = Get_Property(@WINDOW:'.WM_IN', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.WM_IN', "STYLE", Style)
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,'')
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,DROPDOWN_STYLE$)
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,ReactorStyles)
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$USAGE,'TEST':@VM:'PROD':@VM:'DUMMY')
|
||||
|
||||
RDSNo = FIELD(Parm1,@FM,1)
|
||||
CurrentLoad = FIELD(Parm1,@FM,2,99)
|
||||
|
||||
IF RDSNo = '' THEN
|
||||
ErrMsg('Null RDS No passed to Dialog Box...')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
|
||||
RDSRec = XLATE('RDS',RDSNo,'','X')
|
||||
|
||||
ReactorNo = RDSRec<RDS_REACTOR$>
|
||||
WONo = RDSRec<RDS_WO$>
|
||||
WOStep = FIELD(RDSRec<RDS_WO_STEP_KEY$>,'*',2)
|
||||
|
||||
Ctrls = @WINDOW:'.RDS_NO':@RM:@WINDOW:'.WO_NO':@RM:@WINDOW:'.WO_STEP':@RM:@WINDOW:'.REACTOR_NO'
|
||||
Props = 'DEFPROP':@RM: 'DEFPROP':@RM: 'DEFPROP':@RM: 'DEFPROP'
|
||||
Vals = RDSNo:@RM:WONo:@RM:WOStep:@RM:ReactorNo
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
LoadCnt = 0
|
||||
OpenCnt = 0
|
||||
|
||||
RCtrl = @WINDOW:'.REACTOR_TABLE'
|
||||
|
||||
TestInCass = CurrentLoad<COL$IN_CASS> ;* 6/2/2009 JCH Better test for loaded wafers added
|
||||
CONVERT @VM TO '' IN TestInCass ;* 6/2/2009 JCH
|
||||
|
||||
IF TestInCass = '' THEN
|
||||
|
||||
EpiPartNo = XLATE('WO_LOG',WONo,WO_LOG_EPI_PART_NO$,'X')
|
||||
SubWaferSize = XLATE('EPI_PART',EpiPartNo,EPI_PART_SUB_WAFER_SIZE$,'X')
|
||||
|
||||
BEGIN CASE
|
||||
CASE SubWaferSize = '150 mm 6 in'
|
||||
EpiSusceptor = XLATE('EPI_SUSCEPTOR','6','','X')
|
||||
|
||||
CASE SubWaferSize = '125 mm 5 in'
|
||||
EpiSusceptor = XLATE('EPI_SUSCEPTOR','5','','X')
|
||||
|
||||
CASE SubWaferSize = '200 mm 8 in'
|
||||
EpiSusceptor = XLATE('EPI_SUSCEPTOR','8','','X')
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Epi Part: ':QUOTE(EpiPartNo):' has a wafer size of ':SubWaferSize:'.':CRLF$:CRLF$
|
||||
ErrorMsg := 'The EpiPRO reactors cannot process wafers of this size.'
|
||||
|
||||
ErrMsg(ErrorMsg)
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
END CASE
|
||||
|
||||
Pockets = EpiSusceptor<EPI_SUSCEPTOR_POCKET_NO$>
|
||||
Zones = EpiSusceptor<EPI_SUSCEPTOR_POCKET_ZONE$>
|
||||
PTypes = EpiSusceptor<EPI_SUSCEPTOR_POCKET_TYPE$>
|
||||
|
||||
FOR I = 1 TO COUNT(Pockets,@VM) + (Pockets NE '')
|
||||
Set_Property(RCtrl,'CELLPOS',Pockets<1,I>,COL$POCKET:@FM:I) ;* Loads Pocket Numbers - Default data from Susceptor Record
|
||||
Set_Property(RCtrl,'CELLPOS',PTypes<1,I>,COL$USAGE:@FM:I) ;* Test pockets
|
||||
Set_Property(RCtrl,'CELLPOS',Zones<1,I>,COL$ZONE:@FM:I) ;* Zones
|
||||
OpenCnt += 1
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
|
||||
FOR I = 1 TO COUNT(CurrentLoad<1>,@VM) + (CurrentLoad<1> NE '')
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$POCKET,I>,COL$POCKET:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$USAGE,I>,COL$USAGE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$ZONE,I>,COL$ZONE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$IN_CASS,I>,COL$IN_CASS:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$IN_SLOT,I>,COL$IN_SLOT:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$WAFER_TYPE,I>,COL$WAFER_TYPE:@FM:I)
|
||||
LoadCnt += 1
|
||||
NEXT I
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'@OPEN_POCKETS',OpenCnt)
|
||||
|
||||
|
||||
IF LoadCnt = 0 AND OpenCnt = 0 THEN
|
||||
ErrMsg('LoadCnt = 0 and OpenCnt = 0, internal program error.')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE LoadCnt > 0
|
||||
|
||||
* Loaded
|
||||
|
||||
BriefTxt = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
|
||||
BriefTxt := '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\b\f0\fs20 Return Material to Inbound Cassette\par'
|
||||
BriefTxt := '\b0\par'
|
||||
BriefTxt := ' 1.) Return Material to Inbound Cassette\b\par'
|
||||
BriefTxt := '\b0\par'
|
||||
BriefTxt := '}'
|
||||
|
||||
Set_Property(@WINDOW:'.CONFIG_COMPLETE','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.TEST_RUN','VISIBLE',0)
|
||||
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.RETURN_MATERIAL','VISIBLE',1)
|
||||
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','ENABLED',0)
|
||||
Set_Property(@WINDOW:'.RETURN_MATERIAL','ENABLED',1)
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,'')
|
||||
|
||||
ReactorStyles<COL$USAGE> = BitAnd(ReactorStyles<COL$USAGE>,BitNot(DROPDOWN_STYLE$))
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitAnd(ReactorStyles<COL$WAFER_TYPE>,BitNot(DROPDOWN_STYLE$))
|
||||
|
||||
|
||||
ReactorStyles<COL$POCKET> = BitOr(ReactorStyles<COL$POCKET>,PROTECTED$)
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,PROTECTED$)
|
||||
ReactorStyles<COL$ZONE> = BitOr(ReactorStyles<COL$ZONE>,PROTECTED$)
|
||||
ReactorStyles<COL$IN_CASS> = BitOr(ReactorStyles<COL$IN_CASS>,PROTECTED$)
|
||||
ReactorStyles<COL$IN_SLOT> = BitOr(ReactorStyles<COL$IN_SLOT>,PROTECTED$)
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitOr(ReactorStyles<COL$WAFER_TYPE>,PROTECTED$)
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$USAGE,'')
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$WAFER_TYPE,'')
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,ReactorStyles)
|
||||
|
||||
|
||||
CASE OpenCnt > 0
|
||||
|
||||
* Ready to Load
|
||||
|
||||
BriefTxt = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
|
||||
BriefTxt := '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\b\f0\fs20\par'
|
||||
BriefTxt := ' Load Material into EPIPro Reactor\par'
|
||||
BriefTxt := '\b0\par'
|
||||
BriefTxt := ' 1.) Configure Pocket Utilization & Wafer Types\par'
|
||||
BriefTxt := ' 2.) Check Load Configuration Complete checkbox\par'
|
||||
BriefTxt := ' 3.) Verify Inbound Material\par'
|
||||
BriefTxt := ' 4.) Load Material into Reactor\par'
|
||||
BriefTxt := '\par'
|
||||
BriefTxt := '}'
|
||||
|
||||
Set_Property(@WINDOW:'.CONFIG_COMPLETE','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.TEST_RUN','VISIBLE',1)
|
||||
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.RETURN_MATERIAL','VISIBLE',0)
|
||||
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','ENABLED',0)
|
||||
Set_Property(@WINDOW:'.RETURN_MATERIAL','ENABLED',0)
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,'')
|
||||
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,DROPDOWN_STYLE$)
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitOr(ReactorStyles<COL$WAFER_TYPE>,DROPDOWN_STYLE$)
|
||||
|
||||
ReactorStyles<COL$POCKET> = BitAnd(ReactorStyles<COL$POCKET>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$ZONE> = BitAnd(ReactorStyles<COL$ZONE>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$IN_CASS> = BitAnd(ReactorStyles<COL$IN_CASS>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$IN_SLOT> = BitAnd(ReactorStyles<COL$IN_SLOT>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitAnd(ReactorStyles<COL$WAFER_TYPE>,BitNot(PROTECTED$))
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,ReactorStyles)
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$USAGE,'TEST':@VM:'PROD':@VM:'DUMMY')
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$WAFER_TYPE,'':@VM:'TEST')
|
||||
|
||||
Set_Property('SYSTEM','FOCUS',@WINDOW:'.REACTOR_TABLE')
|
||||
|
||||
CASE 1
|
||||
|
||||
END CASE
|
||||
|
||||
Set_Property(@WINDOW:'.BRIEF_EDITBOX','RTFTEXT',BriefTxt)
|
||||
|
||||
WOStepKey = RDSRec<RDS_WO_STEP_KEY$>
|
||||
|
||||
WONo = WOStepKey[1,'*']
|
||||
WOStep = WOStepKey[COL2()+1,'*']
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RecordLocked = False$
|
||||
InboundMat = Get_Property(@Window:'.WM_IN', 'ARRAY')
|
||||
If InboundMat NE '' then
|
||||
CassNos = InboundMat<1>
|
||||
CassNos = SRP_Array('Clean', CassNos, 'TrimAndMakeUnique', @VM)
|
||||
If CassNos NE '' then
|
||||
For each CassNo in CassNos using @VM setting vPos
|
||||
WMInKey = WONo:'*1*':CassNo
|
||||
RecordLocked = Database_Services('IsKeyIDLocked', 'WM_IN', WMInKey)
|
||||
If RecordLocked then
|
||||
LockOwner = Xlate('WM_IN', WMInKey, 'LOCKED_BY', 'X')
|
||||
If LockOwner NE '' then
|
||||
DisplayName = Oconv(LockOwner,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
end else
|
||||
DisplayName = 'an unknown user'
|
||||
end
|
||||
MsgParms = ''
|
||||
MsgParms<1> = 'Record Locked'
|
||||
MsgParms<2> = 'The WM_IN record for this RDS is locked by ':DisplayName:'. Only one user session at a time can edit an RDS.'
|
||||
Msg(@Window, '', 'OK', '', MsgParms)
|
||||
// Disable Load button
|
||||
Set_Property(@Window:'.LOAD_MATERIAL', 'ENABLED', -1)
|
||||
Set_Property(@Window:'.TEST_RUN', 'ENABLED', -1)
|
||||
end
|
||||
Until RecordLocked EQ True$
|
||||
Next CassNo
|
||||
end
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
WMILocks = Get_Property(@WINDOW,'@LOCKED_WFRS')
|
||||
|
||||
IF WMILocks NE '' THEN
|
||||
obj_WM_Wfrs('UnlockSet','WMI_WFRS':@RM:WMILocks) ; * Remove locks on the wafer slots
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'@LOCKED_WFRS','')
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
|
||||
IF RDSNo NE '' THEN
|
||||
Set_Property('RDS.RDS_NO','DEFPROP',RDSNo)
|
||||
Send_Event('RDS','READ')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RCtrl = @WINDOW:'.REACTOR_TABLE'
|
||||
WMICtrl = @WINDOW:'.WM_IN'
|
||||
|
||||
ReactorList = Get_Property(RCtrl,'LIST')
|
||||
WMInList = Get_Property(WMICtrl,'LIST')
|
||||
|
||||
OpenTestCnt = 0
|
||||
OpenProdCnt = 0
|
||||
|
||||
LineColor = ''
|
||||
|
||||
FOR I = 1 TO COUNT(ReactorList,@FM) + (ReactorList NE '')
|
||||
|
||||
IF ReactorList<I,COL$POCKET> NE '' THEN
|
||||
|
||||
|
||||
IF ReactorList<I,COL$USAGE> = 'TEST' THEN
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,YELLOW$)
|
||||
IF ReactorList<I,COL$WAFER_TYPE> = '' THEN OpenTestCnt += 1
|
||||
END
|
||||
|
||||
IF ReactorList<I,COL$USAGE> = 'DUMMY' THEN
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,WHITE$)
|
||||
END
|
||||
|
||||
IF ReactorList<I,COL$USAGE> = 'PROD' OR ReactorList<I,COL$USAGE> = '' THEN
|
||||
Set_Property(RCtrl,'CELLPOS','',COL$USAGE:@FM:I)
|
||||
Zone = ReactorList<I,COL$ZONE>
|
||||
IF Zone = 1 THEN LineColor = RCV_BLUE$
|
||||
IF Zone = 2 THEN LineColor = PRE_BLUE$
|
||||
IF Zone = 3 THEN LineColor = INP_BLUE$
|
||||
IF Zone = 4 THEN LineColor = POS_BLUE$
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,LineColor)
|
||||
END
|
||||
|
||||
IF (ReactorList<I,COL$USAGE> = '' OR ReactorList<I,COL$USAGE> = 'PROD') AND ReactorList<I,COL$WAFER_TYPE> = '' THEN OpenProdCnt += 1
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.OPEN_PROD_POCKETS','DEFPROP',OpenProdCnt)
|
||||
Set_Property(@WINDOW:'.OPEN_TEST_POCKETS','DEFPROP',OpenTestCnt)
|
||||
|
||||
|
||||
ReadyToLoad = 0
|
||||
|
||||
WMICnt = COUNT(WMInList,@FM) + (WMInList NE '')
|
||||
|
||||
FOR I = 1 TO WMICnt
|
||||
IF WMInList<I,COL$WM_CASS_IN> NE '' THEN ReadyToLoad = 1
|
||||
UNTIL ReadyToLoad
|
||||
|
||||
NEXT I
|
||||
|
||||
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
|
||||
BlockLoad = Xlate('RDS', RDSNo, 'BLOCK_LOAD', 'X')
|
||||
|
||||
If BlockLoad EQ True$ then ReadyToLoad = False$
|
||||
|
||||
IF ReadyToLoad THEN
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','ENABLED',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.LOAD_MATERIAL','ENABLED',0)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LoadMat:
|
||||
* * * * * * *
|
||||
|
||||
WMInLoadList = Get_Property(@WINDOW:'.WM_IN','LIST')
|
||||
ReactorList = Get_Property(@WINDOW:'.REACTOR_TABLE','LIST')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
|
||||
SelectedRows = ''
|
||||
WMIWaferKeys = ''
|
||||
|
||||
FOR I = 1 TO COUNT(WMInLoadList,@FM) + (WMInLoadList NE '')
|
||||
IF WMInLoadList<I,COL$WM_CASS_IN> NE '' AND WMInLoadList<I,COL$WM_SLOT_IN> NE '' THEN
|
||||
WMIWaferKeys<1,-1> = WONo:'*':WOStep:'*':WMInLoadList<I,COL$WM_CASS_IN>:'*':WMInLoadList<I,COL$WM_SLOT_IN>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
OrgColor = Set_Property('DIALOG_LOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',YELLOW$) ;* //////// Messaging
|
||||
|
||||
Set_Status(0)
|
||||
obj_RDS2('LoadMat',RDSNo:@RM:ReactorList:@RM:WMIWaferKeys)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
WMILocks = Get_Property(@WINDOW,'@LOCKED_WFRS')
|
||||
|
||||
IF WMILocks NE '' THEN
|
||||
obj_WM_Wfrs('UnlockSet','WMI_WFRS':@RM:WMILocks) ; * Remove locks on the wafer slots
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'@LOCKED_WFRS','')
|
||||
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
Set_Property('RDS.RDS_NO','DEFPROP',RDSNo)
|
||||
Send_Event('RDS','READ')
|
||||
|
||||
RETURN
|
||||
|
||||
GOSUB REFRESH
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReturnMat:
|
||||
* * * * * * *
|
||||
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
|
||||
IF RDSNo = '' THEN RETURN
|
||||
|
||||
OrgColor = Set_Property('DIALOG_LOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',YELLOW$) ;* //////// Messaging
|
||||
|
||||
Set_Status(0)
|
||||
obj_RDS2('ReturnMat',RDSNo)
|
||||
|
||||
Send_Info(STR(' ',60)) ;** - Messaging - **
|
||||
Dummy = Set_Property('DIALOG_LOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',OrgColor) ;** - Messaging - **
|
||||
|
||||
IF Get_Status(ErrCode) THEN
|
||||
ErrMsg(ErrCode)
|
||||
END
|
||||
|
||||
GOTO Close
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactIR:
|
||||
* * * * * * *
|
||||
|
||||
RowIndex = Parm1
|
||||
|
||||
IF RowIndex = '' THEN RETURN
|
||||
|
||||
CtrlID = @WINDOW:'.REACTOR_TABLE'
|
||||
|
||||
Dummy = Send_Message(CtrlID,'DELETE',RowIndex)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactDR:
|
||||
* * * * * * *
|
||||
|
||||
RowIndex = Parm1
|
||||
RowData = Parm2
|
||||
|
||||
IF RowIndex = '' THEN RETURN
|
||||
|
||||
CtrlID = @WINDOW:'.REACTOR_TABLE'
|
||||
|
||||
Dummy = Send_Message(CtrlID, "INSERT", RowIndex, RowData)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
TestRun:
|
||||
* * * * * * *
|
||||
|
||||
ReactorArray = Get_Property(@WINDOW:'.REACTOR_TABLE','ARRAY')
|
||||
|
||||
Usage = ReactorArray<COL$USAGE>
|
||||
|
||||
IF INDEX(Usage,'PROD',1) = 0 THEN
|
||||
LineCnt = COUNT(Usage,@VM) + (Usage NE '')
|
||||
FOR I = 1 To LineCnt
|
||||
IF ReactorArray<COL$POCKET,I> NE '' AND Usage<1,I> = '' THEN
|
||||
ReactorArray<COL$USAGE,I> = 'DUMMY'
|
||||
END
|
||||
Set_Property(@WINDOW:'.REACTOR_TABLE','ARRAY',ReactorArray)
|
||||
NEXT I
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ConfigComp:
|
||||
* * * * * * *
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
|
||||
CComp = Get_Property(@WINDOW:'.CONFIG_COMPLETE','CHECK')
|
||||
|
||||
IF CComp THEN
|
||||
|
||||
* Check for more pockets configured than avaible inbound wafers *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
|
||||
RemainingWafers = obj_WM_In('RemainingSlots',WONo:@RM:WoStep)
|
||||
|
||||
RWCnt = COUNT(RemainingWafers,@FM) + (RemainingWafers NE '')
|
||||
|
||||
OpenProdPockets = Get_Property(@WINDOW:'.OPEN_PROD_POCKETS','DEFPROP')
|
||||
OpenTestPockets = Get_Property(@WINDOW:'.OPEN_TEST_POCKETS','DEFPROP')
|
||||
|
||||
OpenPockets = OpenProdPockets + OpenTestPockets
|
||||
|
||||
IF OpenPockets > RWCnt THEN
|
||||
Title = 'EpiPRO Reactor Load Configuration'
|
||||
Message = 'There are more slots configured for loading (':OpenPockets:') than WMI wafers remaining to load (':RWCnt:').':CRLF$:CRLF$
|
||||
Message := 'Change ':(OpenPockets - RWCnt):' additional pockets to DUMMY load to correct.'
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<MICON$> = '*'
|
||||
|
||||
Msg(@WINDOW,TypeOver,'OK','',Title:@FM:Message)
|
||||
|
||||
Set_Property(@WINDOW:'.CONFIG_COMPLETE','CHECK',0)
|
||||
|
||||
RETURN
|
||||
|
||||
END ;* End of check for more open slots than WMI wafers remaining to be used.
|
||||
|
||||
|
||||
* "lock down" reactor setup fields from further changes *
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,'')
|
||||
|
||||
ReactorStyles<COL$USAGE> = BitAnd(ReactorStyles<COL$USAGE>,BitNot(DROPDOWN_STYLE$))
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitAnd(ReactorStyles<COL$WAFER_TYPE>,BitNot(DROPDOWN_STYLE$))
|
||||
|
||||
ReactorStyles<COL$POCKET> = BitOr(ReactorStyles<COL$POCKET>,PROTECTED$)
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,PROTECTED$)
|
||||
ReactorStyles<COL$ZONE> = BitOr(ReactorStyles<COL$ZONE>,PROTECTED$)
|
||||
ReactorStyles<COL$IN_CASS> = BitOr(ReactorStyles<COL$IN_CASS>,PROTECTED$)
|
||||
ReactorStyles<COL$IN_SLOT> = BitOr(ReactorStyles<COL$IN_SLOT>,PROTECTED$)
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitOr(ReactorStyles<COL$WAFER_TYPE>,PROTECTED$)
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$USAGE,'')
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$WAFER_TYPE,'')
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,ReactorStyles)
|
||||
|
||||
Set_Property(@WINDOW:'.TEST_RUN','VISIBLE',0)
|
||||
|
||||
* Build list of WMI wafers to load *
|
||||
|
||||
NeededProduct = FIELD(RemainingWafers,@FM,1,OpenPockets)
|
||||
|
||||
WMIWaferKeys = ''
|
||||
WMICnt = COUNT(NeededProduct,@FM) + (NeededProduct NE '')
|
||||
FOR I = 1 TO WMICnt
|
||||
WMIWaferKeys<1,I> = WONo:'*':WOStep:'*':NeededProduct<I,1>:'*':NeededProduct<I,2>
|
||||
NEXT I
|
||||
|
||||
Set_Status(0)
|
||||
LockedWMIKeys = obj_WM_Wfrs('LockSet','WMI_WFRS':@RM:WMIWaferKeys)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END ELSE
|
||||
Set_Property(@WINDOW,'@LOCKED_WFRS',LockedWMIKeys)
|
||||
END
|
||||
|
||||
FOR M = 1 TO OpenPockets
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS',NeededProduct<M,1>,1:@FM:M)
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS',NeededProduct<M,2>,2:@FM:M)
|
||||
NEXT M
|
||||
|
||||
FOR M = OpenPockets + 1 TO 25
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS','',1:@FM:M)
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS','',2:@FM:M)
|
||||
NEXT M
|
||||
|
||||
|
||||
END ELSE
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,'')
|
||||
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,DROPDOWN_STYLE$)
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitOr(ReactorStyles<COL$WAFER_TYPE>,DROPDOWN_STYLE$)
|
||||
|
||||
ReactorStyles<COL$POCKET> = BitAnd(ReactorStyles<COL$POCKET>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$USAGE> = BitAnd(ReactorStyles<COL$USAGE>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$ZONE> = BitAnd(ReactorStyles<COL$ZONE>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$IN_CASS> = BitAnd(ReactorStyles<COL$IN_CASS>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$IN_SLOT> = BitAnd(ReactorStyles<COL$IN_SLOT>,BitNot(PROTECTED$))
|
||||
ReactorStyles<COL$WAFER_TYPE> = BitAnd(ReactorStyles<COL$WAFER_TYPE>,BitNot(PROTECTED$))
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$USAGE,'TEST':@VM:'PROD':@VM:'DUMMY')
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLFORMAT',COL$WAFER_TYPE,'':@VM:'TEST')
|
||||
|
||||
Send_Message(@WINDOW:'.REACTOR_TABLE','COLSTYLE',0,ReactorStyles)
|
||||
|
||||
Set_Property(@WINDOW:'.TEST_RUN','VISIBLE',1)
|
||||
|
||||
LockedWMIKeys = Get_Property(@WINDOW,'@LOCKED_WFRS')
|
||||
|
||||
Set_Status(0)
|
||||
obj_WM_Wfrs('UnlockSet','WMI_WFRS':@RM:LockedWMIKeys)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END ELSE
|
||||
Set_Property(@WINDOW,'@LOCKED_WFRS','')
|
||||
END
|
||||
|
||||
FOR M = 1 TO 25
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS','',1:@FM:M)
|
||||
Set_Property(@WINDOW:'.WM_IN','CELLPOS','',2:@FM:M)
|
||||
NEXT M
|
||||
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RecordLocked = False$
|
||||
InboundMat = Get_Property(@Window:'.WM_IN', 'ARRAY')
|
||||
If InboundMat NE '' then
|
||||
CassNos = InboundMat<1>
|
||||
CassNos = SRP_Array('Clean', CassNos, 'TrimAndMakeUnique', @VM)
|
||||
If CassNos NE '' then
|
||||
For each CassNo in CassNos using @VM setting vPos
|
||||
WMInKey = WONo:'*1*':CassNo
|
||||
RecordLocked = Database_Services('IsKeyIDLocked', 'WM_IN', WMInKey)
|
||||
If RecordLocked then
|
||||
LockOwner = Xlate('WM_IN', WMInKey, 'LOCKED_BY', 'X')
|
||||
If LockOwner NE '' then
|
||||
DisplayName = Oconv(LockOwner,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
end else
|
||||
DisplayName = 'an unknown user'
|
||||
end
|
||||
MsgParms = ''
|
||||
MsgParms<1> = 'Record Locked'
|
||||
MsgParms<2> = 'The WM_OUT record for this RDS is locked by ':DisplayName:'. Only one user session at a time can edit an RDS.'
|
||||
Msg(@Window, '', 'OK', '', MsgParms)
|
||||
// Disable Load button
|
||||
Set_Property(@Window:'.LOAD_MATERIAL', 'ENABLED', -1)
|
||||
Set_Property(@Window:'.TEST_RUN', 'ENABLED', -1)
|
||||
Set_Property(@Window:'.CONFIG_COMPLETE', 'ENABLED', -1)
|
||||
end
|
||||
Until RecordLocked EQ True$
|
||||
Next CassNo
|
||||
end
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
406
LSL2/STPROC/COMM_DIALOG_LOT_NO_CHANGE.txt
Normal file
406
LSL2/STPROC/COMM_DIALOG_LOT_NO_CHANGE.txt
Normal file
@ -0,0 +1,406 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Lot_No_Change(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Lot_No_Change window.
|
||||
|
||||
05/06/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT WO_MAT_EQUATES
|
||||
|
||||
EQU COL$WM_CASS_NO TO 1
|
||||
EQU COL$WM_LOT_NO TO 2
|
||||
EQU COL$WM_RDS_NO TO 3
|
||||
|
||||
EQU COL$LOT_NO TO 1
|
||||
EQU COL$CASS_NOS TO 2
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Lot_No_Change'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OrgLotNoLF' ; GOSUB OrgLotNoLF
|
||||
CASE Method = 'NewLotNoLF' ; GOSUB NewLotNoLF
|
||||
CASE Method = 'CassNoLF' ; GOSUB CassNoLF
|
||||
CASE Method = 'SelectCassettes' ; GOSUB SelectCassettes
|
||||
CASE Method = 'SelectOriginal' ; GOSUB SelectOriginal
|
||||
CASE Method = 'SelectNew' ; GOSUB SelectNew
|
||||
CASE Method = 'LULotNo' ; GOSUB LULotNo
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'LotNoPC' ; GOSUB LotNoPC
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
WONo = Parm1[1,@FM]
|
||||
|
||||
Title = 'Work Order: ':WONo:' - Lot No Change'
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',Title)
|
||||
|
||||
OPEN 'DICT.WO_MAT' TO DictVar ELSE
|
||||
ErrMsg('Unable to open "DICT.WO_MAT" for index lookup in COMM_DIALOG_LOT_NO_CHANGE routine.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
SearchString = 'WO_NO':@VM:WONo:@FM
|
||||
WOMatKeys = ''
|
||||
Flag = ''
|
||||
Btree.Extract(SearchString, 'WO_MAT', DictVar, WOMatKeys, '', Flag)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF INDEX(WOMatKeys,@VM,1) THEN
|
||||
|
||||
WOMatKeys := @VM
|
||||
CONVERT @VM TO @RM IN WOMatKeys
|
||||
CALL V119('S','','A','R',WOMatKeys,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN WOMatKeys
|
||||
WOMatKeys[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
END ELSE
|
||||
NULL
|
||||
END
|
||||
|
||||
|
||||
|
||||
WOMatList = ''
|
||||
LotNoArray = ''
|
||||
|
||||
LotNos = ''
|
||||
CassNos = ''
|
||||
RDSNos = ''
|
||||
|
||||
OPEN 'WO_MAT' TO WOMatTable ELSE
|
||||
ErrMsg('Unable to open "WO_MAT" for reads in COMM_DIALOG_LOT_NO_CHANGE - Create Event')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
kCnt = COUNT(WOMatKeys,@VM) + (WOMatKeys NE '')
|
||||
|
||||
FOR I = 1 TO kCnt
|
||||
WOMatKey = WOMatKeys<1,I>
|
||||
|
||||
READ WOMatRec FROM WOMatTable,WOMatKey THEN
|
||||
|
||||
CassNo = FIELD(WOMatKey,'*',2)
|
||||
LotNo = WOMatRec<WO_MAT_LOT_NO$>
|
||||
RDSNos = WOMatRec<WO_MAT_RDS_NO$>
|
||||
|
||||
SWAP @VM WITH ', ' IN RDSNos
|
||||
|
||||
WOMatList<I> = CassNo:@VM:LotNo:@VM:RDSNos
|
||||
|
||||
LOCATE LotNo IN LotNos USING @FM SETTING Pos THEN
|
||||
LOCATE CassNo IN CassNos<Pos> USING @VM SETTING vPos ELSE
|
||||
CassNos = INSERT(CassNos,Pos,vPos,0,CassNo)
|
||||
END
|
||||
END ELSE
|
||||
LotNos = INSERT(LotNos,Pos,0,0,LotNo)
|
||||
CassNos = INSERT(CassNos,Pos,0,0,CassNo)
|
||||
END
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.WO_MAT_KEYS','LIST',WOMatList)
|
||||
|
||||
SWAP @VM WITH ', ' IN CassNos
|
||||
CONVERT @FM TO @VM IN CassNos
|
||||
CONVERT @FM TO @VM IN LotNos
|
||||
|
||||
LotNoArray = LotNos:@FM:CassNos
|
||||
|
||||
Set_Property(@WINDOW:'.LOT_NOS','DEFPROP',LotNoArray)
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.LOT_NOS'
|
||||
|
||||
CurrList = Get_Property(CtrlEntID,'LIST')
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CurrLotNo = CurrList<CurrRow,COL$LOT_NO>
|
||||
CurrCassNos = CurrList<CurrRow,COL$CASS_NOS>
|
||||
|
||||
WOMatCtrl = @WINDOW:'.WO_MAT_KEYS'
|
||||
WOMatList = Get_Property(WOMatCtrl,'LIST')
|
||||
|
||||
LineCnt = COUNT(WOMatList,@FM) + (WOMatList NE '')
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
LineLotNo = WOMatList<Line,COL$WM_LOT_NO>
|
||||
|
||||
IF LineLotNo = CurrLotNo THEN
|
||||
stat = Send_Message(WOMatCtrl,'COLOR_BY_POS',0,Line,YELLOW$)
|
||||
END ELSE
|
||||
stat = Send_Message(WOMatCtrl,'COLOR_BY_POS',0,Line,GREEN$)
|
||||
END
|
||||
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LULotNo:
|
||||
* * * * * * *
|
||||
|
||||
* * * * * NOT USED JCH - Remove when done on 2 DEC 2016 **********************************************
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
LotList = Get_Property(@WINDOW,'@LOT_NOS')
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = LotList
|
||||
|
||||
RetVal = Popup(@WINDOW,TypeOver,'CUST_LOT_NO')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectOriginal:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.LOT_NOS'
|
||||
|
||||
CurrList = Get_Property(CtrlEntID,'LIST')
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CurrLotNo = CurrList<CurrRow,COL$LOT_NO>
|
||||
|
||||
Set_Property(@WINDOW:'.ORG_LOT_NO','DEFPROP',CurrLotNo)
|
||||
|
||||
Return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OrgLotNoLF:
|
||||
* * * * * * *
|
||||
|
||||
OrgLotNo = Get_Property(@WINDOW:'.ORG_LOT_NO','TEXT')
|
||||
IF OrgLotNo = '' THEN RETURN
|
||||
|
||||
ValidLotNos = Get_Property(@WINDOW,'@LOT_NOS')
|
||||
|
||||
LOCATE OrgLotNo IN ValidLotNos USING @VM SETTING Pos ELSE
|
||||
ErrMsg('Lot No:':QUOTE(OrgLotNo):' is not on this Work Order!')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.ORG_LOT_NO')
|
||||
Set_Property(@WINDOW:'.ORG_LOT_NO','TEXT','')
|
||||
END
|
||||
|
||||
Return
|
||||
|
||||
* * * * * * *
|
||||
SelectNew:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.LOT_NOS'
|
||||
|
||||
CurrList = Get_Property(CtrlEntID,'LIST')
|
||||
CurrPos = Get_Property(CtrlEntID,'SELPOS')
|
||||
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CurrLotNo = CurrList<CurrRow,COL$LOT_NO>
|
||||
|
||||
Set_Property(@WINDOW:'.NEW_LOT_NO','DEFPROP',CurrLotNo)
|
||||
|
||||
Return
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NewLotNoLF:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
Return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectCassettes:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
WOMatCtrl = @WINDOW:'.WO_MAT_KEYS'
|
||||
|
||||
WOMatKeyList = Get_Property(WOMatCtrl,'LIST')
|
||||
|
||||
SlotSelection = Get_Property(WOMatCtrl,'SELPOS')
|
||||
SelectedRows = SlotSelection<2>
|
||||
|
||||
CONVERT @VM TO @FM in SelectedRows
|
||||
|
||||
SelCnt = COUNT(SelectedRows,@FM) + (SelectedRows NE '')
|
||||
IF SelCnt = 0 THEN
|
||||
ErrMsg('No WO Cassettes selected.')
|
||||
RETURN
|
||||
End
|
||||
|
||||
CassNoDisp = ''
|
||||
For I = 1 To SelCnt
|
||||
SelectedRow = SelectedRows<I>
|
||||
CassNoDisp<-1> = WOMatKeyList<SelectedRow,COL$WM_CASS_NO>
|
||||
Next I
|
||||
|
||||
Swap @FM With ', ' In CassNoDisp
|
||||
|
||||
Set_Property(@WINDOW:'.CASS_NOS','DEFPROP',CassNoDisp)
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
CassNoLF:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
Return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.ORG_LOT_NO':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NEW_LOT_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.REASON':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NOS' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
OrgLotNo = Vals[1,@RM]
|
||||
NewLotNo = Vals[COL2()+1,@RM]
|
||||
Reason = Vals[COL2()+1,@RM]
|
||||
CassNos = Vals[COL2()+1,@RM]
|
||||
|
||||
Swap ', ' With @VM In CassNos
|
||||
|
||||
|
||||
IF OrgLotNo = '' THEN
|
||||
ErrMsg('Original Lot Number is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.ORG_LOT_NO')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF NewLotNo = '' THEN
|
||||
ErrMsg('New Lot Number is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.NEW_LOT_NO')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF Reason = '' THEN
|
||||
ErrMsg('Reason is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.REVISION')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
IF CassNos = '' THEN
|
||||
ErrMsg('CassNos is a required field and must be filled in.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.CASS_NOS')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
Result = OrgLotNo
|
||||
Result<2> = NewLotNo
|
||||
Result<3> = Reason
|
||||
Result<4> = CassNos
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
764
LSL2/STPROC/COMM_DIALOG_MAT_SCAN.txt
Normal file
764
LSL2/STPROC/COMM_DIALOG_MAT_SCAN.txt
Normal file
@ -0,0 +1,764 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Mat_Scan(Instruction, Parm1,Parm2)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
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, Logging_Services
|
||||
DECLARE SUBROUTINE Btree.Extract, Send_Event, Security_Err_Msg, obj_Appwindow, End_Dialog, End_Window
|
||||
DECLARE SUBROUTINE Send_Message, Print_Cass_Ship_Label, Print_SAP_Cass_Ship_Label, Post_Event
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box, Logging_Services
|
||||
DECLARE FUNCTION obj_Schedule, Dialog_Box, Utility, obj_WO_Mat, Database_Services, Environment_Services, Start_Window, End_Window
|
||||
|
||||
$INSERT RDS_EQUATES
|
||||
$INSERT REACT_RUN_EQUATES
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT WO_MAT_EQUATES
|
||||
|
||||
Equ Tab$ to \09\
|
||||
Equ CRLF$ to \0D0A\
|
||||
Equ LF$ to \0A\
|
||||
Equ Comma$ to ','
|
||||
|
||||
EQU COL$LABEL_SCAN TO 1
|
||||
EQU COL$CURR_STATUS TO 2
|
||||
EQU COL$CURR_LOC TO 3
|
||||
EQU COL$CR_COMP TO 4
|
||||
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WoMatLog'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Material Log.csv'
|
||||
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'Notes'
|
||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Mat_Scan'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'OK' ; GOSUB OK
|
||||
CASE Instruction = 'Cancel' ; GOSUB Cancel
|
||||
CASE Instruction = 'CassIDPC' ; GOSUB CassIDPC
|
||||
CASE Instruction = 'LocLF' ; GOSUB LocLF
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine'
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
IF @User4 EQ 'DAN_CR' OR @User4 EQ 'DON_T' OR @User4 EQ 'MADELINE_S' OR @User4 EQ 'JUSTIN_H' OR @User4 EQ 'JOSEPH_F' THEN
|
||||
Set_Property(@WINDOW:'.BTN_NEW','VISIBLE',True$)
|
||||
END
|
||||
IF NOT(Security_Check('RDS',READ$)) THEN
|
||||
Security_Err_Msg('RDS',READ$)
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
RETURN
|
||||
END
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
IF Parm1<1,1> = 'Ship' THEN
|
||||
WONo = Parm1<1,2>[-1,'B ']
|
||||
Set_Property(@WINDOW,'@WONO',WONo)
|
||||
Set_Property(@WINDOW,'@SHIPMENT',1)
|
||||
Set_Property(@WINDOW,'TEXT',Parm1<1,2>)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scan WO ':WONo:' Shipment')
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'@SHIPMENT','')
|
||||
Set_Property(@WINDOW:'@WONO','')
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
Send_Event(@WINDOW,'PAGE',1)
|
||||
|
||||
GOTO Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
WindowLabel = Get_Property(@WINDOW:'.WINDOW_LABEL','TEXT')
|
||||
|
||||
IF INDEX(WindowLabel,' IN ',1) THEN
|
||||
BackColor = GREEN$
|
||||
END ELSE
|
||||
BackColor = YELLOW$
|
||||
END
|
||||
|
||||
CtrlName = @WINDOW:'.CASS_IDS'
|
||||
CassArray = Get_Property(CtrlName,'DEFPROP')
|
||||
CassStatuses = CassArray<COL$CURR_STATUS> ;* Second Column
|
||||
CurrLocations = CassArray<COL$CURR_LOC>
|
||||
CurrCRCompFlags = ICONV(CassArray<COL$CR_COMP>,'B')
|
||||
|
||||
Location = Get_Property(@WINDOW:'.LOCATION_CODE','DEFPROP')
|
||||
SWAP '\J' WITH '*' IN Location
|
||||
|
||||
Beeped = 0
|
||||
FOR I = 1 TO COUNT(CassStatuses,@VM) + (CassStatuses NE '')
|
||||
CassStatus = CassStatuses<1,I>
|
||||
CurrLocation = CurrLocations<1,I>
|
||||
CurrCRCompFlag = CurrCRCompFlags<1,I>
|
||||
|
||||
BEGIN CASE
|
||||
CASE Location[-3,3] = 'PTO' AND CurrLocation NE ''
|
||||
|
||||
IF CurrCRCompFlag OR CassStatus = 'Verify Qty' THEN
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,GREEN$)
|
||||
END ELSE
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,RED$)
|
||||
IF NOT(Beeped) THEN
|
||||
void = Utility('BEEP')
|
||||
Beeped = 1
|
||||
END
|
||||
END
|
||||
CASE Location[-2,2] = 'SB' AND CurrLocation NE ''
|
||||
IF INDEX(CassStatus,'-',1) THEN
|
||||
CassStatus = FIELD(CassStatus,'-',1)
|
||||
CassStatus = TRIM(CassStatus)
|
||||
END
|
||||
IF CassStatus[-4,4] NE 'Ship' THEN
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,RED$)
|
||||
IF NOT(Beeped) THEN
|
||||
void = Utility('BEEP')
|
||||
Beeped = 1
|
||||
END
|
||||
END ELSE
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,GREEN$)
|
||||
END
|
||||
CASE 1
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,GREEN$)
|
||||
END CASE
|
||||
|
||||
NEXT I
|
||||
|
||||
IF Beeped = 1 THEN
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','ENABLED',0)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','ENABLED',1)
|
||||
END
|
||||
|
||||
LastLabel = CassArray<COL$LABEL_SCAN>[-1,'B':@VM]
|
||||
IF LastLabel NE '' THEN
|
||||
Send_Message(CtrlName, "INSERT", -1,'':@VM :'') ;* Insert blank row at bottom of the list
|
||||
Set_Property(CtrlName,'SELPOS',1:@FM:-1) ;* Move cursor down
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
LocCd = Get_Property(@WINDOW:'.LOCATION_CODE','DEFPROP')
|
||||
|
||||
IF LocCd = '' THEN
|
||||
ErrMsg('Missing Location Code')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SWAP '/J' WITH '*' IN LocCd
|
||||
|
||||
WhCd = LocCd[1,'*']
|
||||
LocCd = LocCd[COL2()+1,'*']
|
||||
|
||||
CassIDs = Get_Property(@WINDOW:'.CASS_IDS','ARRAY')<1>
|
||||
LOOP
|
||||
UNTIL CassIDs[-1,1] NE @VM OR CassIDs = ''
|
||||
CassIDs[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
IF CassIDs<1,1> = '' THEN RETURN
|
||||
|
||||
TestCassID = CassIDs<1,1>
|
||||
Convert '*' to '.' in TestCassID
|
||||
Action = 'PLACE' ;* Default Action
|
||||
|
||||
PrintLabelWOs = ''
|
||||
PLSteps = ''
|
||||
PLCassNos = ''
|
||||
PLRDSNos = ''
|
||||
|
||||
IF INDEX(TestCassID,'.',2) THEN EpiPRO = 1 ELSE EpiPRO = 0
|
||||
IF INDEX(TestCassID,'.',1) THEN GaN = 1 ELSE GaN = 0
|
||||
|
||||
IF LocCd = 'PTO' THEN
|
||||
|
||||
PrintLabelWOs = Get_Property(@WINDOW,'@WONO') ;
|
||||
|
||||
FOR I = 1 To COUNT(CassIDs,@VM) + (CassIDs NE '')
|
||||
CassID = CassIDs<1,I>
|
||||
|
||||
BEGIN CASE
|
||||
CASE EpiPRO EQ True$
|
||||
IF CassID[1,1] = 'O' THEN CassID[1,1] = ''
|
||||
IF CassID[1,1] = 'I' THEN CassID[1,1] = ''
|
||||
|
||||
WONo = FIELD(CassID,'.',1)
|
||||
StepNo = FIELD(CassID,'.',2)
|
||||
CassNo = FIELD(CassID,'.',3)
|
||||
RDSNo = ''
|
||||
CASE GaN EQ True$
|
||||
IF CassID[1,1] = 'O' THEN CassID[1,1] = ''
|
||||
IF CassID[1,1] = 'I' THEN CassID[1,1] = ''
|
||||
Convert '*' to '.' in CassID
|
||||
WONo = FIELD(CassID,'.',1)
|
||||
StepNo = 1
|
||||
CassNo = FIELD(CassID,'.',2)
|
||||
RDSNo = ''
|
||||
CASE Otherwise$
|
||||
RDSNo = CassID
|
||||
|
||||
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 CASE
|
||||
|
||||
PLSteps<1,-1> = StepNo ;
|
||||
PLCassNos<1,-1> = CassNo ;
|
||||
PLRDSNos<1,-1> = RDSNo ;
|
||||
|
||||
NEXT I
|
||||
|
||||
WOCnt = COUNT(PrintLabelWOs,@FM) + (PrintLabelWOs NE '')
|
||||
|
||||
FOR I = 1 TO WOCnt
|
||||
PrintLabelWO = PrintLabelWOs<I>
|
||||
PrintLabelProdOrd = XLATE('WO_LOG',PrintLabelWO,WO_LOG_PROD_ORD_NO$,'X')
|
||||
|
||||
IF PrintLabelProdOrd NE '' THEN
|
||||
Print_SAP_Cass_Ship_Label(PrintLabelWO,PLSteps<I>,PLCassNos<I>,PLRDSNos<I>)
|
||||
END
|
||||
NEXT I
|
||||
END
|
||||
|
||||
IF Get_Property(@WINDOW,'@SHIPMENT') THEN
|
||||
IF INDEX(TestCassID,'.',2) THEN EpiPRO = 1 ELSE EpiPRO = 0
|
||||
|
||||
Result = '' ;* This gets returned to COMM_SHIPMENT and placed on the shipment record
|
||||
|
||||
FOR I = 1 To COUNT(CassIDs,@VM) + (CassIDs NE '')
|
||||
CassID = CassIDs<1,I>
|
||||
|
||||
IF NOT(EpiPRO) THEN
|
||||
RDSNo = CassID
|
||||
ReactRunRec = XLATE('REACT_RUN',RDSNo,'','X')
|
||||
WONo = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
StepNo = ReactRunRec<REACT_RUN_WO_STEP$>
|
||||
CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
|
||||
Result<-1> = StepNo:@VM:CassNo:@VM:RDSNo
|
||||
END ELSE
|
||||
IF CassID[1,1] = 'O' THEN CassID[1,1] = ''
|
||||
IF CassID[1,1] = 'I' THEN CassID[1,1] = ''
|
||||
Step = FIELD(CassID,'.',2)
|
||||
CassNo = FIELD(CassID,'.',3)
|
||||
Result<-1> = Step:@VM:CassNo
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Action = 'SHIP'
|
||||
|
||||
END
|
||||
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
WONos = ''
|
||||
CassNos = ''
|
||||
|
||||
CassCnt = COUNT(CassIDs,@VM) + (CassIDs NE '')
|
||||
|
||||
FOR I = 1 TO CassCnt
|
||||
CassID = CassIDs<1,I>
|
||||
|
||||
BEGIN CASE
|
||||
CASE ( (EpiPro EQ True$) or (GaN EQ True$) )
|
||||
IF CassID[1,1] = 'I' OR CassID[1,1] = 'O' THEN CassID[1,1] = '' ;* Skip the first character (I or O)
|
||||
Convert '*' to '.' in CassID
|
||||
WONos<1,I> = CassID[1,'.']
|
||||
CassNos<1,I> = CassID[-1,'B.']
|
||||
CASE Otherwise$
|
||||
* Numeric CassID is an RDS
|
||||
ReactRunRec = XLATE('REACT_RUN',CassID,'','X')
|
||||
WONos<1,I> = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
CassNos<1,I> = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
END CASE
|
||||
|
||||
NEXT I
|
||||
|
||||
UserID = @USER4
|
||||
IF UserID = '' THEN UserID = @USERNAME
|
||||
|
||||
LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
// Log form contents
|
||||
FormContents = Get_Property(@Window:'.CASS_IDS', 'LIST')
|
||||
|
||||
NumRows = DCount(FormContents, @FM)
|
||||
LogContents = ''
|
||||
For Row = 1 to NumRows
|
||||
Cass = FormContents<Row, 1>
|
||||
IF Cass NE '' THEN
|
||||
LogContents<-1> = FormContents<Row>
|
||||
END
|
||||
Next Row
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = '*** Form Contents ***'
|
||||
LogData<2, 1> = LoggingDTM
|
||||
LogData<2, 2> = @User4
|
||||
LogData<3> = LogContents
|
||||
Logging_Services('AppendLog', objLog, LogData, @FM, @VM)
|
||||
|
||||
// Log Material Log parameters
|
||||
LogData<1> = ' '
|
||||
LogData<2> = '*** Material Log Parameters ***'
|
||||
LogData<3> = 'LogFile: ':LogFile
|
||||
LogData<4> = 'CurrDTM: ':CurrDTM
|
||||
LogData<5> = 'Action: ':Action
|
||||
LogData<6> = 'WhCd: ':WhCd
|
||||
LogData<7> = 'LocCd: ':LocCd
|
||||
LogData<8> = 'WONos: ':WONos
|
||||
LogData<9> = 'CassNos: ':CassNos
|
||||
LogData<10> = 'UserID: ':UserID
|
||||
LogData<11> = 'CassIDs: ':CassIDs
|
||||
LogData<12> = ' '
|
||||
Logging_Services('AppendLog', objLog, LogData, @FM, @VM)
|
||||
|
||||
obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONos:@RM:CassNos:@RM:UserID:@RM:CassIDs)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Errmsg(errCode)
|
||||
END
|
||||
|
||||
IF Get_Property(@WINDOW,'@SHIPMENT') THEN
|
||||
End_Dialog(@WINDOW,Result) ;* Move this down and replace the CLEAR when called from the Shipment window
|
||||
RETURN
|
||||
END ELSE
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * * *
|
||||
Cancel:
|
||||
* * * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * * *
|
||||
CassIDPC:
|
||||
* * * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CASS_IDS'
|
||||
|
||||
Shipment = Get_Property(@WINDOW, '@SHIPMENT') ;* Shipment flag
|
||||
AtWONo = Get_Property(@WINDOW, '@WONO')
|
||||
Location = Get_Property(@WINDOW:'.LOCATION_CODE','DEFPROP')[-1,'B*']
|
||||
|
||||
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 = 1
|
||||
|
||||
* 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$LABEL_SCAN THEN
|
||||
ScanCassID = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF ScanCassID[1,2] = '1T' THEN
|
||||
Swap '1T' with '' in ScanCassID
|
||||
Set_Property(CtrlEntId,"CELLPOS",ScanCassID,PrevSelPos)
|
||||
END
|
||||
CassID = ScanCassID
|
||||
* Check for data already in the list (repeat scan)
|
||||
TestArray = ArrayData<1> ;* First Column
|
||||
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
|
||||
|
||||
IF INDEX(CassID,'.',2) THEN
|
||||
EpiPRO = 1
|
||||
GaN = 0
|
||||
END ELSE IF INDEX(CassID,'.',1) THEN
|
||||
GaN = 1
|
||||
EpiPRO = 0
|
||||
END
|
||||
|
||||
CONVERT '.' TO '*' IN CassID
|
||||
Test = ''
|
||||
CurrStatus = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE CassID[1,1] = 'I'
|
||||
* WM_IN table
|
||||
TestKey = CassID[2,99]
|
||||
Test = XLATE('WM_IN',TestKey,'','X')
|
||||
CurrStatus = OCONV(XLATE('WM_IN',TestKey,'CURR_STATUS','X'),'[WM_IN_CURR_STATUS_CONV]')
|
||||
TestWO = FIELD(TestKey,'*',1)
|
||||
|
||||
IF Location = 'PTO' THEN
|
||||
IF AtWONo = '' THEN
|
||||
Set_Property(@WINDOW,'@WONO',TestWO)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scanning WO ':TestWO)
|
||||
END
|
||||
END
|
||||
|
||||
WOMatKey = TestWO:'*':FIELD(TestKey,'*',3)
|
||||
LastPTO = obj_WO_Mat('OutofPTO',WOMatKey)
|
||||
|
||||
IF LastPTO THEN
|
||||
MsgHead = 'Cassette already scanned through the PTO'
|
||||
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)
|
||||
|
||||
IF NOT(OK) THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* User opted out of rescan and print
|
||||
RETURN
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
CASE CassID[1,1] = 'O'
|
||||
* GaN or EPP
|
||||
TestKey = CassID[2,99]
|
||||
|
||||
IF GaN THEN
|
||||
Test = XLATE('WO_MAT',TestKey,'','X')
|
||||
END ELSE
|
||||
Test = XLATE('WM_OUT',TestKey,'','X')
|
||||
END
|
||||
|
||||
CurrStatus = OCONV(XLATE('WM_OUT',TestKey,'CURR_STATUS','X'),'[WM_OUT_CURR_STATUS_CONV]')
|
||||
TestWO = FIELD(TestKey,'*',1)
|
||||
|
||||
IF Location = 'PTO' THEN
|
||||
IF AtWONo = '' THEN
|
||||
Set_Property(@WINDOW,'@WONO',TestWO)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scanning WO ':TestWO)
|
||||
END
|
||||
END
|
||||
|
||||
IF (FIELD(TestKey,'*',3)) THEN
|
||||
WOMatKey = TestWO:'*':FIELD(TestKey,'*',3)
|
||||
END ELSE
|
||||
WOMatKey = TestWO:'*':FIELD(TestKey,'*',2)
|
||||
END
|
||||
|
||||
LastPTO = obj_WO_Mat('OutofPTO',WOMatKey)
|
||||
|
||||
IF LastPTO THEN
|
||||
|
||||
MsgHead = 'Cassette already scanned through PTO'
|
||||
|
||||
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)
|
||||
|
||||
IF NOT(OK) THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* User opted out of rescan and print
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
CASE ( INDEX(CassID,'*',1) AND NOT(INDEX(CassID,'*',2)) OR INDEX(CassID,'.',1) AND NOT(INDEX(CassID,'.',2)) )
|
||||
* This is a WO_MAT format label
|
||||
TestKey = CassID
|
||||
Test = XLATE('WO_MAT',TestKey,'','X')
|
||||
CurrStatus = OCONV(XLATE('WO_MAT',TestKey,'CURR_STATUS','X'),'[WO_MAT_CURR_STATUS_CONV]')
|
||||
TestWO = FIELD(TestKey,'*',1)
|
||||
|
||||
IF Location = 'PTO' THEN
|
||||
IF AtWONo = '' THEN
|
||||
Set_Property(@WINDOW,'@WONO',TestWO)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scanning WO ':TestWO)
|
||||
END
|
||||
END
|
||||
|
||||
WOMatKey = TestKey
|
||||
LastPTO = obj_WO_Mat('OutofPTO',WOMatKey)
|
||||
|
||||
IF LastPTO THEN
|
||||
MsgHead = 'Cassette already scanned through the PTO'
|
||||
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)
|
||||
|
||||
IF NOT(OK) THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* User opted out of rescan and print
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
CASE INDEX(CassID,'*',2)
|
||||
* EpiPRO material indeterminate direction
|
||||
TestKey = CassID
|
||||
Test = XLATE('WM_IN',TestKey,'','X')
|
||||
CurrStatus = OCONV(XLATE('WM_IN',TestKey,'CURR_STATUS','X'),'[WM_IN_CURR_STATUS_CONV]')
|
||||
|
||||
IF Test = '' THEN
|
||||
Test = XLATE('WM_OUT',TestKey,'','X')
|
||||
CurrStatus = OCONV(XLATE('WM_OUT',TestKey,'CURR_STATUS','X'),'[WM_OUT_CURR_STATUS_CONV]')
|
||||
END
|
||||
|
||||
TestWO = FIELD(TestKey,'*',1)
|
||||
|
||||
IF Location = 'PTO' THEN
|
||||
IF AtWONo = '' THEN
|
||||
Set_Property(@WINDOW,'@WONO',TestWO)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scanning WO ':TestWO)
|
||||
END
|
||||
END
|
||||
|
||||
WOMatKey = FIELD(TestKey,'*',3)
|
||||
LastPTO = obj_WO_Mat('OutofPTO',WOMatKey)
|
||||
|
||||
IF LastPTO THEN
|
||||
MsgHead = 'Cassette already scanned through the PTO'
|
||||
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)
|
||||
|
||||
IF NOT(OK) THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* User opted out of rescan and print
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
CASE 1
|
||||
ReactRunRec = XLATE('REACT_RUN',CassID,'','X')
|
||||
|
||||
IF ReactRunRec EQ '' 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
|
||||
|
||||
IF Location = 'PTO' THEN
|
||||
IF AtWONo = '' THEN
|
||||
Set_Property(@WINDOW,'@WONO',TestWO)
|
||||
Set_Property(@WINDOW:'.WINDOW_LABEL','TEXT','Scanning WO ':TestWO)
|
||||
END
|
||||
END
|
||||
|
||||
WOMatKey = TestWO:'*':CassNo
|
||||
Test = XLATE('WO_MAT',WOMatKey,'','X')
|
||||
CurrStatus = OCONV(XLATE('WO_MAT',WOMatKey,'CURR_STATUS','X'),'[WO_MAT_CURR_STATUS_CONV]')
|
||||
LastPTO = obj_WO_Mat('OutofPTO',WOMatKey)
|
||||
SAPBatchNo = Test<WO_MAT_SAP_BATCH_NO$>
|
||||
|
||||
IF LastPTO THEN
|
||||
MsgHead = 'Cassette already scanned through the PTO'
|
||||
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)
|
||||
|
||||
IF NOT(OK) THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* User opted out of rescan and print
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
END CASE
|
||||
|
||||
WoMatAction = Database_Services('ReadDataColumn', 'WO_MAT',WoMatKey, 8)
|
||||
SAPBatchNo = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
|
||||
hasPack = Index(WoMatAction, 'PACK', 1) > 0
|
||||
IF ( (Location EQ 'PTO') AND (hasPack EQ False$) ) THEN
|
||||
MsgHead = 'Cassette is missing Packaging scan'
|
||||
MsgText = 'Unable to print SAP label without packaging scan.':CRLF$
|
||||
MsgText := 'Please return cassette #':CassID:' to warehouse manager.'
|
||||
OK = Msg(@WINDOW, '', 'OK', '', MsgHead:@FM:MsgText)
|
||||
Set_Property(CtrlEntID, 'SELPOS', PrevSelPos);*remove entry from grid
|
||||
Set_Property(CtrlEntID, 'INVALUE', '', PrevSelPos)
|
||||
LogFile = 'WO_MAT'
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
Action = 'PLACE'
|
||||
WhCd = '1K'
|
||||
LocCd = 'PTI'
|
||||
WONo = Field(WOMatKey, '*', 1)
|
||||
CassNo = Field(WOMatKey, '*', 2)
|
||||
UserID = @User4
|
||||
Tag = 'Missing Packaging Scan'
|
||||
obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONo:@RM:CassNo:@RM:UserID:@RM:Tag)
|
||||
RETURN
|
||||
END ELSE
|
||||
IF ( (Location EQ 'PTO') AND (SAPBatchNo EQ '') ) THEN
|
||||
MsgHead = 'Cassette does not have SAP Batch ID'
|
||||
MsgText = 'Unable to print SAP label without SAP Batch ID.':CRLF$
|
||||
MsgText := 'Please return cassette #':CassID:' to warehouse manager.'
|
||||
OK = Msg(@WINDOW, '', 'OK', '', MsgHead:@FM:MsgText)
|
||||
Set_Property(CtrlEntID, 'SELPOS', PrevSelPos);*remove entry from grid
|
||||
Set_Property(CtrlEntID, 'INVALUE', '', PrevSelPos)
|
||||
//write log entry, showing SAP ID missing in tag
|
||||
LogFile = 'WO_MAT'
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
Action = 'PLACE'
|
||||
WhCd = '1K'
|
||||
LocCd = 'PTI'
|
||||
WONo = Field(WOMatKey, '*', 1)
|
||||
CassNo = Field(WOMatKey, '*', 2)
|
||||
UserID = @User4
|
||||
Tag = 'Missing SAP Batch ID'
|
||||
obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONo:@RM:CassNo:@RM:UserID:@RM:Tag)
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
CRComp = obj_WO_Mat('CRComp',WOMatKey:@RM:@RM)
|
||||
CRComp = OCONV(CRComp,'B')
|
||||
CurrLoc = XLATE('WO_MAT',WOmatKey,'CURR_LOCATION','X')
|
||||
|
||||
AtWONo = Get_Property(@WINDOW,'@WONO')
|
||||
IF AtWONo NE '' THEN
|
||||
IF TestWO NE AtWONo THEN
|
||||
ErrMsg('':@VM:'Process Error':@SVM:'Label Scanned is NOT part of WO ':AtWoNo)
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Work Order scanned doesn't match 1st WO scanned or passed in from the Shipment
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
IF Test = '' THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* No corresponding data record found for label scanned
|
||||
RETURN
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'CELLPOS',CurrStatus,2:@FM:PrevRow) ;* Load Current Status
|
||||
Set_Property(CtrlEntID,'CELLPOS',CurrLoc,3:@FM:PrevRow) ;* Load Current Location
|
||||
Set_Property(CtrlEntID,'CELLPOS',CRComp,4:@FM:PrevRow) ;* Load Cleanroom Complete flag
|
||||
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LocLF:
|
||||
* * * * * * *
|
||||
|
||||
DataIn = Get_Property(@WINDOW:'.LOCATION_CODE','DEFPROP')
|
||||
|
||||
IF DataIn = '' THEN RETURN
|
||||
|
||||
SWAP '/J' WITH '*' IN DataIn
|
||||
|
||||
IF DataIn = '1K*PTI' THEN
|
||||
ErrMsg('PTI scans may not be done with this form. Use the PTI Material Scan form instead.')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','DEFPROP','')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','FOCUS',1)
|
||||
END ELSE IF DataIn = '1K*PTO' THEN
|
||||
ErrMsg('PTO scans may not be done with this form. Use the PTO Material Scan form instead.')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','DEFPROP','')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','FOCUS',1)
|
||||
void = End_Window(@WINDOW)
|
||||
void = Start_Window( 'NDW_PTO_MAT_SCAN', '', '', '', '' )
|
||||
END ELSE IF RowExists('LOCATION',DataIn) THEN
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','DEFPROP',DataIn)
|
||||
END ELSE
|
||||
ErrMsg(QUOTE(DataIn):' is not a valid location in the LOCATION table.')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','DEFPROP','')
|
||||
Set_Property(@WINDOW:'.LOCATION_CODE','FOCUS',1)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
277
LSL2/STPROC/COMM_DIALOG_NCR_REJ_SLOT.txt
Normal file
277
LSL2/STPROC/COMM_DIALOG_NCR_REJ_SLOT.txt
Normal file
@ -0,0 +1,277 @@
|
||||
COMPILE FUNCTION Comm_Dialog_NCR_Rej_Slot(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_NCR_Rej_Slot window.
|
||||
|
||||
08/20/2008 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Send_Event, obj_RDS_Test
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, ErrMsg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, obj_Test_Point_Map, obj_RDS_Test
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT NCR_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU WFR_COL$SLOT TO 1
|
||||
EQU WFR_COL$WAFER_ID TO 2
|
||||
EQU WFR_COL$SLOT_NCR TO 3
|
||||
EQU WFR_COL$MET_NO TO 4
|
||||
EQU WFR_COL$MOVED_TO_SLOT TO 5
|
||||
EQU WFR_COL$REPLACED_BY TO 6
|
||||
|
||||
EQU NCR_COL$SLOT_NO TO 1
|
||||
EQU NCR_COL$WAFER_ID TO 2
|
||||
EQU NCR_COL$PREV_NCR TO 3
|
||||
EQU NCR_COL$REJ_MET_NO TO 4
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_NCR_Rej_Slot'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'WOMatClick' ; GOSUB WOMatClick
|
||||
CASE Method = 'RejWafers' ; GOSUB RejWafers
|
||||
CASE Method = 'RepWafers' ; GOSUB RepWafers
|
||||
CASE Method = 'Apply' ; GOSUB Apply
|
||||
CASE MEthod = 'Cancel' ; GOSUB Cancel
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
* get the current style
|
||||
|
||||
EQU MULTILINE_STYLE$ TO 512 ;* MultiLine Select
|
||||
|
||||
* Set Material Slot edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.WO_MAT_SLOT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT', "STYLE", Style)
|
||||
|
||||
|
||||
* Set NCR Reject Wafers edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.SLOT_REJECT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT', "STYLE", Style)
|
||||
|
||||
|
||||
CONVERT '/' TO @RM IN Parm1
|
||||
|
||||
Ctrls = @WINDOW:'.WO_MAT_SLOT':@RM ; Props = 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Set_Property(Ctrls,Props,Parm1)
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WOMatClick:
|
||||
* * * * * * *
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS')
|
||||
|
||||
SelectedLines = SlotSelection<2>
|
||||
SelCnt = COUNT(SelectedLines,@VM) + (SelectedLines NE '')
|
||||
|
||||
BadLines = ''
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
LineNo = SelectedLines<1,I>
|
||||
IF SlotList<LineNo,WFR_COL$WAFER_ID> = '' THEN
|
||||
BadLines<1,-1> = LineNo
|
||||
END
|
||||
NEXT I
|
||||
|
||||
|
||||
IF BadLines NE '' THEN
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS',1:@FM:BadLines)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Apply:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.WO_MAT_SLOT':@RM ; Props = 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props,Parm1)
|
||||
|
||||
WOMatSlotArray = Vals[1,@RM]
|
||||
NCRRejList = Vals[COL2()+1,@RM]
|
||||
WONo = Vals[COL2()+1,@RM]
|
||||
CassNo = Vals[COL2()+1,@RM]
|
||||
NCRNo = Vals[COL2()+1,@RM]
|
||||
|
||||
End_Dialog(@WINDOW,WOMatSlotArray:@RM:NCRRejList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RejWafers:
|
||||
* * * * * * *
|
||||
|
||||
NCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS')
|
||||
SelectedSlots = SlotSelection<2>
|
||||
|
||||
IF SelectedSlots = '' THEN RETURN
|
||||
SelCnt = COUNT(SelectedSlots,@VM) + (SelectedSlots NE '')
|
||||
|
||||
WaferArray = Get_Property(@WINDOW:'.SLOT_REJECT','ARRAY')
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
SlotLine = SelectedSlots<1,I>
|
||||
SlotNo = SlotList<SlotLine,1>
|
||||
WaferID = SlotList<SlotLine,2>
|
||||
PrevNCR = SlotList<SlotLine,3>
|
||||
RejMetNo = SlotList<SLotLine,4>
|
||||
|
||||
LOCATE SlotNo IN WaferArray<1> BY 'AR' USING @VM SETTING POS ELSE
|
||||
WaferArray = INSERT(WaferArray,1,Pos,0,SlotNo)
|
||||
WaferArray = INSERT(WaferArray,2,Pos,0,WaferID)
|
||||
WaferArray = INSERT(WaferArray,3,Pos,0,PrevNCR)
|
||||
WaferArray = INSERT(WaferArray,4,Pos,0,RejMetNo)
|
||||
END
|
||||
|
||||
SlotList<SlotLine,WFR_COL$WAFER_ID> = ''
|
||||
SlotList<SlotLine,WFR_COL$SLOT_NCR> = NCRNo
|
||||
SlotList<SlotLine,WFR_COL$REPLACED_BY> = ''
|
||||
SlotList<SlotLine,WFR_COL$MET_NO> = ''
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','ARRAY',WaferArray)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RepWafers:
|
||||
* * * * * * *
|
||||
|
||||
WaferList = Get_Property(@WINDOW:'.SLOT_REJECT','LIST')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
|
||||
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
|
||||
SelectedWafers = WaferSelection<2>
|
||||
|
||||
IF SelectedWafers = '' THEN RETURN
|
||||
|
||||
SelCnt = COUNT(SelectedWafers,@VM) + (SelectedWafers NE '')
|
||||
WaferCnt = COUNT(WaferList,@FM) + (WaferList NE '')
|
||||
|
||||
IF SelCnt = WaferCnt THEN
|
||||
ErrMesg = 'There must be at least one rejected wafer on the NCR. '
|
||||
ErrMesg := 'If you are moving wafers from one slot to another, '
|
||||
ErrMesg := 'reject wafers from the cassette and then replace '
|
||||
ErrMesg := 'from the NCR.':CRLF$:CRLF$
|
||||
ErrMesg := 'If you are going to delete the NCR completely, '
|
||||
ErrMesg := 'you do not need to replace the wafers. The program '
|
||||
ErrMesg := 'will replace them during the NCR delete process.'
|
||||
ErrMsg(ErrMesg)
|
||||
RETURN
|
||||
END
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
SelectedWafer = SelectedWafers<1,I>
|
||||
|
||||
SlotNo = WaferList<SelectedWafer,NCR_COL$SLOT_NO>
|
||||
WaferID = WaferList<SelectedWafer,NCR_COL$WAFER_ID>
|
||||
PrevNCR = WaferList<SelectedWafer,NCR_COL$PREV_NCR>
|
||||
RejMetNo = WaferList<SelectedWafer,NCR_COL$REJ_MET_NO>
|
||||
|
||||
WaferList = DELETE(WaferList,SelectedWafer,0,0)
|
||||
|
||||
SlotList<SlotNo,WFR_COL$SLOT> = SlotNo
|
||||
SlotList<SlotNo,WFR_COL$WAFER_ID> = WaferID
|
||||
SlotList<SlotNo,WFR_COL$SLOT_NCR> = PrevNCR
|
||||
SlotList<SlotNo,WFR_COL$MET_NO> = RejMetNo
|
||||
IF PrevNCR NE '' THEN
|
||||
SlotList<SlotNo,WFR_COL$REPLACED_BY> = WaferID
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
333
LSL2/STPROC/COMM_DIALOG_NCR_SRJ_EPI.txt
Normal file
333
LSL2/STPROC/COMM_DIALOG_NCR_SRJ_EPI.txt
Normal file
@ -0,0 +1,333 @@
|
||||
COMPILE FUNCTION Comm_Dialog_NCR_SRJ_Epi(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_NCR_SRJ_EPI window.
|
||||
|
||||
01/20/2009 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Send_Event, obj_RDS_Test
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, ErrMsg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, obj_Test_Point_Map, obj_RDS_Test
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT NCR_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU WFR_COL$OUT_SLOT TO 1
|
||||
EQU WFR_COL$RDS TO 2
|
||||
EQU WFR_COL$POCKET TO 3
|
||||
EQU WFR_COL$ZONE TO 4
|
||||
EQU WFR_COL$IN_CASS TO 5
|
||||
EQU WFR_COL$IN_SLOT TO 6
|
||||
EQU WFR_COL$SLOT_NCR TO 7
|
||||
EQU WFR_COL$MU_WO_NO TO 8
|
||||
EQU WFR_COL$MU_STEP TO 9
|
||||
EQU WFR_COL$MU_CASS TO 10
|
||||
EQU WFR_COL$MU_SLOT TO 11
|
||||
EQU WFR_COL$UM_CASS_ID TO 12
|
||||
EQU WFR_COL$UM_SLOT TO 13
|
||||
|
||||
|
||||
|
||||
EQU NCR_COL$OUT_CASS TO 1 ;* EpiPRO slot information
|
||||
EQU NCR_COL$OUT_SLOT TO 2
|
||||
EQU NCR_COL$RDS TO 3
|
||||
EQU NCR_COL$POCKET TO 4
|
||||
EQU NCR_COL$ZONE TO 5
|
||||
EQU NCR_COL$IN_CASS TO 6
|
||||
EQU NCR_COL$IN_SLOT TO 7
|
||||
EQU NCR_COL$PREV_NCR TO 8
|
||||
EQU NCR_COL$MU_WO_NO TO 9
|
||||
EQU NCR_COL$MU_STEP TO 10
|
||||
EQU NCR_COL$MU_CASS TO 11
|
||||
EQU NCR_COL$MU_SLOT TO 12
|
||||
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_NCR_Rej_Slot'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'WOMatClick' ; GOSUB WOMatClick
|
||||
CASE Method = 'RejWafers' ; GOSUB RejWafers
|
||||
CASE Method = 'RepWafers' ; GOSUB RepWafers
|
||||
CASE Method = 'Apply' ; GOSUB Apply
|
||||
CASE MEthod = 'Cancel' ; GOSUB Cancel
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
* get the current style
|
||||
|
||||
EQU MULTILINE_STYLE$ TO 512 ;* MultiLine Select
|
||||
|
||||
* Set Material Slot edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.WM_OUT_SLOT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT', "STYLE", Style)
|
||||
|
||||
|
||||
* Set NCR Reject Wafers edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.SLOT_REJECT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT', "STYLE", Style)
|
||||
|
||||
|
||||
CONVERT '/' TO @RM IN Parm1
|
||||
|
||||
Ctrls = @WINDOW:'.WM_OUT_SLOT':@RM ; Props = 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.WO_STEP_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Set_Property(Ctrls,Props,Parm1)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WOMatClick:
|
||||
* * * * * * *
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WM_OUT_SLOT','LIST')
|
||||
NCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WM_OUT_SLOT','SELPOS')
|
||||
|
||||
SelectedLines = SlotSelection<2>
|
||||
SelCnt = COUNT(SelectedLines,@VM) + (SelectedLines NE '')
|
||||
|
||||
BadLines = ''
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
LineNo = SelectedLines<1,I>
|
||||
a1 = SlotList<LineNo,WFR_COL$SLOT_NCR>
|
||||
a1 = SlotList<LineNo,WFR_COL$UM_CASS_ID>
|
||||
IF SlotList<LineNo,WFR_COL$SLOT_NCR> = NCRNo OR SlotList<LineNo,WFR_COL$UM_CASS_ID> NE '' THEN
|
||||
BadLines<1,-1> = LineNo
|
||||
END
|
||||
NEXT I
|
||||
|
||||
|
||||
IF BadLines NE '' THEN
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT','SELPOS',1:@FM:BadLines)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Apply:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.WM_OUT_SLOT':@RM ; Props = 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props,Parm1)
|
||||
|
||||
WOMatSlotArray = Vals[1,@RM]
|
||||
NCRRejList = Vals[COL2()+1,@RM]
|
||||
WONo = Vals[COL2()+1,@RM]
|
||||
CassNo = Vals[COL2()+1,@RM]
|
||||
NCRNo = Vals[COL2()+1,@RM]
|
||||
|
||||
End_Dialog(@WINDOW,WOMatSlotArray:@RM:NCRRejList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RejWafers:
|
||||
* * * * * * *
|
||||
|
||||
NCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')
|
||||
SlotList = Get_Property(@WINDOW:'.WM_OUT_SLOT','LIST')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WM_OUT_SLOT','SELPOS')
|
||||
SelectedSlots = SlotSelection<2>
|
||||
|
||||
IF SelectedSlots = '' THEN RETURN
|
||||
SelCnt = COUNT(SelectedSlots,@VM) + (SelectedSlots NE '')
|
||||
|
||||
WaferArray = Get_Property(@WINDOW:'.SLOT_REJECT','ARRAY')
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
SlotLine = SelectedSlots<1,I>
|
||||
OutSlotNo = SlotList<SlotLine,WFR_COL$OUT_SLOT>
|
||||
RDSNo = SlotList<SlotLine,WFR_COL$RDS>
|
||||
Pocket = SlotList<SlotLine,WFR_COL$POCKET>
|
||||
Zone = SlotList<SlotLine,WFR_COL$ZONE>
|
||||
InCass = SlotList<SlotLine,WFR_COL$IN_CASS>
|
||||
InSlotNo = SlotList<SlotLine,WFR_COL$IN_SLOT>
|
||||
PrevNCR = SlotList<SlotLine,WFR_COL$SLOT_NCR>
|
||||
MUWONo = SlotList<SlotLine,WFR_COL$MU_WO_NO>
|
||||
MUWOStep = SlotList<SlotLine,WFR_COL$MU_STEP>
|
||||
MUCassID = SlotList<SlotLine,WFR_COL$MU_CASS>
|
||||
MUSlot = SlotList<SlotLine,WFR_COL$MU_SLOT>
|
||||
|
||||
LOCATE OutSlotNo IN WaferArray<NCR_COL$OUT_SLOT> BY 'AR' USING @VM SETTING POS ELSE
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$OUT_CASS,Pos,0,CassNo)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$OUT_SLOT,Pos,0,OutSlotNo)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$RDS,Pos,0,RDSNo)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$POCKET,Pos,0,Pocket)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$ZONE,Pos,0,Zone)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$IN_CASS,Pos,0,InCass)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$IN_SLOT,Pos,0,InSlotNo)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$PREV_NCR,Pos,0,PrevNCR)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$MU_WO_NO,Pos,0,MUWONo)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$MU_STEP,Pos,0,MUWOStep)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$MU_CASS,Pos,0,MUCassID)
|
||||
WaferArray = INSERT(WaferArray,NCR_COL$MU_SLOT,Pos,0,MUSlot)
|
||||
END
|
||||
|
||||
SlotList<SlotLine,WFR_COL$RDS> = ''
|
||||
SlotList<SlotLine,WFR_COL$POCKET> = ''
|
||||
SlotList<SlotLine,WFR_COL$ZONE> = ''
|
||||
SlotList<SlotLine,WFR_COL$IN_CASS> = ''
|
||||
SlotList<SlotLine,WFR_COL$IN_SLOT> = ''
|
||||
SlotList<SlotLine,WFR_COL$SLOT_NCR> = NCRNo
|
||||
SlotList<SlotLine,WFR_COL$MU_WO_NO> = ''
|
||||
SlotList<SlotLine,WFR_COL$MU_STEP> = ''
|
||||
SlotList<SlotLine,WFR_COL$MU_CASS> = ''
|
||||
SlotList<SlotLine,WFR_COL$MU_SLOT> = ''
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','ARRAY',WaferArray)
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RepWafers:
|
||||
* * * * * * *
|
||||
|
||||
WaferList = Get_Property(@WINDOW:'.SLOT_REJECT','LIST')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
|
||||
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
|
||||
SelectedWafers = WaferSelection<2>
|
||||
|
||||
IF SelectedWafers = '' THEN RETURN
|
||||
|
||||
SelCnt = COUNT(SelectedWafers,@VM) + (SelectedWafers NE '')
|
||||
WaferCnt = COUNT(WaferList,@FM) + (WaferList NE '')
|
||||
|
||||
IF SelCnt = WaferCnt THEN
|
||||
ErrMesg = 'There must be at least one rejected wafer on the NCR. '
|
||||
ErrMesg := 'If you are moving wafers from one slot to another, '
|
||||
ErrMesg := 'reject wafers from the cassette and then replace '
|
||||
ErrMesg := 'from the NCR.':CRLF$:CRLF$
|
||||
ErrMesg := 'If you are going to delete the NCR completely, '
|
||||
ErrMesg := 'you do not need to replace the wafers. The program '
|
||||
ErrMesg := 'will replace them during the NCR delete process.'
|
||||
ErrMsg(ErrMesg)
|
||||
RETURN
|
||||
END
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WM_OUT_SLOT','LIST')
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
SelectedWafer = SelectedWafers<1,I>
|
||||
|
||||
|
||||
OutSlot = WaferList<SelectedWafer,NCR_COL$OUT_SLOT>
|
||||
RDSNo = WaferList<SelectedWafer,NCR_COL$RDS>
|
||||
Pocket = WaferList<SelectedWafer,NCR_COL$POCKET>
|
||||
Zone = WaferList<SelectedWafer,NCR_COL$ZONE>
|
||||
InCass = WaferList<SelectedWafer,NCR_COL$IN_CASS>
|
||||
InSlot = WaferList<SelectedWafer,NCR_COL$IN_SLOT>
|
||||
PrevNCR = WaferList<SelectedWafer,NCR_COL$PREV_NCR>
|
||||
MUWONo = WaferList<SelectedWafer,NCR_COL$MU_WO_NO>
|
||||
MUWOStep = WaferList<SelectedWafer,NCR_COL$MU_STEP>
|
||||
MUCassID = WaferList<SelectedWafer,NCR_COL$MU_CASS>
|
||||
MUSlot = WaferList<SelectedWafer,NCR_COL$MU_SLOT>
|
||||
|
||||
WaferList = DELETE(WaferList,SelectedWafer,0,0) ;* Removes rejected wafer from NCR list
|
||||
|
||||
SlotList<OutSlot,WFR_COL$OUT_SLOT> = OutSlot
|
||||
SlotList<OutSlot,WFR_COL$RDS> = RDSNo
|
||||
SlotList<OutSlot,WFR_COL$POCKET> = Pocket
|
||||
SlotList<OutSlot,WFR_COL$ZONE> = Zone
|
||||
SlotList<OutSlot,WFR_COL$IN_CASS> = InCass
|
||||
SlotList<OutSlot,WFR_COL$IN_SLOT> = InSlot
|
||||
SlotList<OutSlot,WFR_COL$SLOT_NCR> = PrevNCR
|
||||
SlotList<OutSlot,WFR_COL$MU_WO_NO> = MUWONo
|
||||
SlotList<OutSlot,WFR_COL$MU_STEP> = MUWOStep
|
||||
SlotList<OutSlot,WFR_COL$MU_CASS> = MUCassID
|
||||
SlotList<OutSlot,WFR_COL$MU_SLOT> = MUSlot
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
157
LSL2/STPROC/COMM_DIALOG_OPEN_QUOTES.txt
Normal file
157
LSL2/STPROC/COMM_DIALOG_OPEN_QUOTES.txt
Normal file
@ -0,0 +1,157 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Open_Quotes(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Open_Quotes window.
|
||||
|
||||
01/07/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Message
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Open_Quotes'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'ItemDC' ; GOSUB ItemDC
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
CustNo = Parm1
|
||||
CustNo = '6622'
|
||||
IF CustNo = '' THEN RETURN
|
||||
|
||||
OPEN 'DICT.QUOTE' TO DictVar ELSE
|
||||
ErrMsg('Unable to open DICT.QUOTE in COMM_DIALOG_OPEN_QUOTES!')
|
||||
RETURN
|
||||
END
|
||||
|
||||
SearchString = 'CUST_NO':@VM:CustNo:@FM
|
||||
SearchString := 'STATUS':@VM:'O':@FM
|
||||
|
||||
Option = ''
|
||||
Flag = ''
|
||||
|
||||
Set_Status(0)
|
||||
Btree.Extract(SearchString, 'QUOTE' ,DictVar, OpenQuotes, Option, Flag)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
IF OpenQuotes = '' THEN
|
||||
ErrMsg('No open quotes on file for customer ':CustNo:'.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
QuoteList = ''
|
||||
|
||||
FOR I = 1 TO COUNT(OpenQuotes,@VM) + (OpenQuotes NE '')
|
||||
QuoteDetKeys = XLATE('QUOTE',OpenQuotes<1,I>,35,'X')
|
||||
QuoteList<-1> = '1-1: ':OpenQuotes<1,I>
|
||||
|
||||
CustPartNos = ''
|
||||
FOR J = 1 TO COUNT(QuoteDetKeys,@VM) + (QuoteDetKeys NE '')
|
||||
QuoteDetKey = QuoteDetKeys<1,J>
|
||||
ItemNo = FIELD(QuoteDetKey,'*',2)
|
||||
|
||||
QuoteDetRec = XLATE('QUOTE_DET',QuoteDetKey,'','X')
|
||||
CustPartNos = QuoteDetRec<12>
|
||||
ProcSteps = QuoteDetRec<8>
|
||||
ProcPSNs = QuoteDetRec<9>
|
||||
ProcDescs = QuoteDetRec<10>
|
||||
|
||||
DetString = ''
|
||||
FOR K = 1 TO COUNT(ProcSteps,@VM) + (ProcSteps NE '')
|
||||
DetString<1,-1> = 'Step ':ProcSteps<1,K>:' PSN: ':ProcPSNs<1,K>:' ':ProcDescs<1,K>
|
||||
NEXT K
|
||||
SWAP @VM WITH ', ' IN DetString
|
||||
QuoteList<-1> = '2-2: Item ':ItemNo:': ':DetString
|
||||
|
||||
NEXT J
|
||||
IF CustPartNos = '' THEN
|
||||
CustPartNos = XLATE('QUOTE',OpenQuotes<1,I>,'CUST_PART_NUMS','X')
|
||||
END
|
||||
|
||||
FOR L = 1 TO COUNT(CustPartNos,@VM) + (CustPartNos NE '')
|
||||
QuoteList<-1> = '3-3: Cust Part No: ':CustPartNos<1,L>
|
||||
NEXT L
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.OPEN_QUOTES','LIST_EX',QuoteList)
|
||||
|
||||
Send_Message(@WINDOW:'.OPEN_QUOTES','EXPAND',0,3)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ItemDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
660
LSL2/STPROC/COMM_DIALOG_ORDER_FIND.txt
Normal file
660
LSL2/STPROC/COMM_DIALOG_ORDER_FIND.txt
Normal file
@ -0,0 +1,660 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Order_Find(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Order_Find window.
|
||||
|
||||
08/16/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'PONoDC' ; GOSUB PONoDC
|
||||
CASE Method = 'AnnContDC' ; GOSUB AnnContDC
|
||||
CASE Method = 'QuoteDC' ; GOSUB QuoteDC
|
||||
CASE Method = 'CustPNDC' ; GOSUB CustPNDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PONoDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting PO Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PO_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
RawPONos = XLATE('ORDER',OrderKeys,ORDER_PO_NO$,'X')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PONos = ''
|
||||
FOR I = 1 TO COUNT(RawPONos,@VM) + (RawPONos NE '')
|
||||
RawPONo = RawPONos<1,I>
|
||||
LOCATE RawPONo IN PONos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PONos = INSERT(PONos,1,Pos,0,RawPONo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PONos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PONos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PONos := @VM
|
||||
CONVERT @VM TO @RM IN PONos
|
||||
CALL V119('S','','D','R',PONos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PONos
|
||||
PONos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PONos
|
||||
PONos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PONos NE '' THEN
|
||||
PONos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.PO_NO','DEFPROP',PONos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
AnnContDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
OPEN 'DICT.ANNUAL_CONTRACTS' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ANNUAL_CONTRACTS', DictVar, ACNos, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ACNos = '' THEN
|
||||
ErrMsg('No Annual Contracts on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
ACNos := @VM
|
||||
CONVERT @VM TO @RM IN ACNos
|
||||
CALL V119('S','','D','R',ACNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN ACNos
|
||||
acNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = ACNos
|
||||
ACNos = Popup(@WINDow,TypeOver,'CUST_ANN_CONT')
|
||||
|
||||
IF ACNos NE '' THEN
|
||||
ACNos := @VM:@VM
|
||||
Set_Property(@WINDOW:'.ANN_CONT','DEFPROP',ACNos)
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ANNUAL_CONTRACTS in COMM_DIALOG_ORDER_FIND routine.')
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
QuoteDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Quotes..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'QUOTE_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER', DictVar, OrderKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderKeys NE '' THEN
|
||||
QuoteNos = ''
|
||||
OrderNos = ''
|
||||
FOR N = 1 TO COUNT(OrderKeys,@VM) + (OrderKeys NE '')
|
||||
OrderKey = OrderKeys<1,N>
|
||||
RawQuoteNos = XLATE('ORDER',OrderKey,'QUOTE_NO','X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawQuoteNos,@VM) + (RawQuoteNos NE '')
|
||||
RawQuoteNo = RawQuoteNos<1,I>
|
||||
|
||||
LOCATE RawQuoteNo IN QuoteNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
QuoteNos = INSERT(QuoteNos,1,Pos,0,RawQuoteNo)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
QuoteNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF QuoteNos = '' THEN
|
||||
ErrMsg('No Quotes on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
QuoteNos := @VM
|
||||
CONVERT @VM TO @RM IN QuoteNos
|
||||
CALL V119('S','','D','R',QuoteNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN QuoteNos
|
||||
QuoteNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = QuoteNos
|
||||
QuoteNos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF QuoteNos NE '' THEN
|
||||
CONVERT @VM TO @FM IN QuoteNos
|
||||
Set_Property(@WINDOW:'.QUOTE','LIST',QuoteNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
OrderNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
OrderNo = XLATE('WO_LOG',WOKey,WO_LOG_ORDER_NO$,'X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
|
||||
LOCATE OrderNo IN OrderNos<Pos> BY 'DR' USING @VM SETTING OPos ELSE
|
||||
OrderNos = INSERT(OrderNos,Pos,OPos,0,OrderNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Purchase Orders on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
debug
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_ORDER_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
* Customer numbers *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastVar = CustNos[-1,'B':@VM]
|
||||
UNTIL LastVar NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
ORdCustNos = ''
|
||||
FOR I = 1 TO COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
ORdCustNos<1,I> = ';':CustNos<1,I>
|
||||
NEXT I
|
||||
|
||||
IF CustNos NE '' THEN SearchString := 'CUST_NO':@VM:CustNos:@FM:'CUST_BILL_TO':@VM:ORdCustNos:@FM
|
||||
|
||||
* Annual contracts *
|
||||
|
||||
ACNos = Get_Property(@WINDOW:'.ANN_CONT','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = ACNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR ACNos = ''
|
||||
ACNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF ACNos NE '' THEN SearchString := 'AC_ID':@VM:ACNos:@FM
|
||||
|
||||
* Work Orders *
|
||||
|
||||
WONos = Get_Property(@WINDOW:'.WO_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = WONos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR WONos = ''
|
||||
WONos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF WONos NE '' THEN SearchString := 'WO_KEYS':@VM:WONos:@FM
|
||||
|
||||
* Quotes *
|
||||
|
||||
QuoteNos = Get_Property(@WINDOW:'.QUOTE','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = QuoteNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR QuoteNos = ''
|
||||
QuoteNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF QuoteNos NE '' THEN SearchString := 'QUOTE_NO':@VM:QuoteNos:@FM
|
||||
|
||||
* PONos *
|
||||
|
||||
PONos = Get_Property(@WINDOW:'.PO_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = PONos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR PONos = ''
|
||||
PONos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF PONos NE '' THEN SearchString := 'PO_NO':@VM:PONos:@FM
|
||||
|
||||
* Start and End Dates
|
||||
|
||||
|
||||
StartDt = ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D')
|
||||
EndDt = ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D')
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
SearchString := 'ENTRY_DATE':@VM:'>=':OConv(StartDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SearchString := 'ENTRY_DATE':@VM:'<=':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
* Fudge the dates - '~' is not inclusive of the end dates
|
||||
StartDt -= 1
|
||||
EndDt += 1
|
||||
SearchString := 'ENTRY_DATE':@VM:OConv(StartDt, 'D4/'):'~':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
OrdStatus = Get_Property(@WINDOW:'.STATUS','VALUE')
|
||||
|
||||
IF OrdStatus NE 'I' THEN
|
||||
IF OrdStatus = 1 THEN
|
||||
SearchString := 'CLOSE_DATE':@VM:'#':@FM
|
||||
END ELSE
|
||||
SearchString := 'CLOSE_DATE':@VM:'=':@FM
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
OPEN 'DICT.ORDER' TO DictVar THEN
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Orders..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
Btree.Extract(SearchString,'ORDER',DictVar,OrderKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,OrderKeys)
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER in routine COMM_DIALOG_ORDER_FIND')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
138
LSL2/STPROC/COMM_DIALOG_PACKED_SHIPMENTS.txt
Normal file
138
LSL2/STPROC/COMM_DIALOG_PACKED_SHIPMENTS.txt
Normal file
@ -0,0 +1,138 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Packed_Shipments(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Packed_Shipments window.
|
||||
|
||||
03/05/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Message
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$SHIP_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
EQU COL$WO_NO TO 3
|
||||
EQU COL$TRACKING_NO TO 4
|
||||
|
||||
$INSERT COC_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Packed_Shipments'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'SelectShipments' ; GOSUB SelectShipments
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectShipments:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
StartDt = Date() - 15
|
||||
|
||||
OPEN 'DICT.COC' TO DictVar THEN
|
||||
SearchString = 'ENTRY_DATE':@VM:'>=':OConv(StartDt, 'D4/'):@FM
|
||||
SearchString := 'CURR_STATUS':@VM:'PACK':@FM
|
||||
|
||||
Flag = ''
|
||||
Btree.Extract(SearchString, 'COC', DictVar, ShipKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@window, MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ShipKeys = '' THEN
|
||||
ErrMsg("No Shipments (COC's) on file for last 5 days.")
|
||||
RETURN
|
||||
END
|
||||
|
||||
OpenShipKeys = ''
|
||||
CurrStatuses = XLATE('COC',ShipKeys,'CURR_STATUS','X')
|
||||
FOR I = 1 TO COUNT(ShipKeys,@VM) + (ShipKeys NE '')
|
||||
IF CurrStatuses<1,I> NE 'COMP' THEN
|
||||
OpenShipKeys<1,-1> = ShipKeys<1,I>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
OpenShipKeys := @VM
|
||||
CONVERT @VM TO @RM IN OpenShipKeys
|
||||
CALL V119('S','','D','R',OpenShipKeys,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN OpenShipKeys
|
||||
OpenShipKeys[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PMODE$> = 'K'
|
||||
TypeOver<PDISPLAY$> = OpenShipKeys
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E'
|
||||
ShipData = Popup(@WINDOW,TypeOver,'COC_QUERY')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF ShipData = '' THEN RETURN
|
||||
|
||||
ArrayData = ''
|
||||
FOR I = 1 TO COUNT(ShipData,@FM) + (ShipData NE '')
|
||||
ArrayData<1,I> = ShipData<I,1>
|
||||
ArrayData<2,I> = ShipData<I,2>
|
||||
ArrayData<3,I> = ShipData<I,4>
|
||||
ArrayData<4,I> = ''
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SHIPMENTS','DEFPROP',ArrayData)
|
||||
|
||||
DEBUG
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
158
LSL2/STPROC/COMM_DIALOG_PASSDOWN.txt
Normal file
158
LSL2/STPROC/COMM_DIALOG_PASSDOWN.txt
Normal file
@ -0,0 +1,158 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Passdown(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_React_Event window.
|
||||
|
||||
01/10/2007 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, RList, Obj_React_Event
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$REACT_NO TO 1
|
||||
EQU COL$REACT_TYPE TO 2
|
||||
EQU COL$RED_PRESS TO 3
|
||||
EQU COL$WAFER_SIZE TO 4
|
||||
EQU COL$TOOL_LOC TO 5
|
||||
EQU COL$ASSIGNMENT TO 6
|
||||
EQU COL$ESC_HOURS TO 7
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Passdown'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'LUReactor' ; GOSUB LUReactor
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'PostEntries' ; GOSUB PostEntries
|
||||
CASE Method = 'ReactNoGF' ; GOSUB ReactNoGF
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactNoGF:
|
||||
* * * * * * *
|
||||
|
||||
* Don't add a return here
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
ReactData = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF ReactData = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.REACT_NO','LIST',ReactData)
|
||||
|
||||
LineCnt = COUNT(ReactData,@FM) + (ReactData NE '')
|
||||
ColCnt = 7
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.REACT_NO','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PostEntries:
|
||||
* * * * * * *
|
||||
|
||||
ReactNos = Get_Property(@WINDOW:'.REACT_NO','ARRAY')<COL$REACT_NO>
|
||||
Comment = Get_Property(@WINDOW:'.COMMENT','DEFPROP')
|
||||
|
||||
LOOP
|
||||
TestChar = ReactNos[-1,1]
|
||||
UNTIL TestChar NE @VM OR ReactNos = ''
|
||||
ReactNos[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
EventKeys = '' ;* Keys to return to the REACT_EVENT window for a browse of the newly created records
|
||||
|
||||
IF ReactNos NE '' AND Comment NE '' THEN
|
||||
|
||||
EventDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS') ;* Same DTM for all new records
|
||||
EventType = 'PD' ;* Passdown
|
||||
LoggedBy = @USER4
|
||||
|
||||
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
||||
|
||||
FOR I = 1 TO ReactCnt
|
||||
ReactNo = ReactNos<1,I>
|
||||
CurrMode = XLATE('REACTOR',ReactNo,'CURR_MODE','X')
|
||||
|
||||
obj_React_Event('Create',ReactNo:@RM:EventDTM:@RM:EventType:@RM:LoggedBy:@RM:Comment:@RM:@RM:CurrMode)
|
||||
EventKeys<I> = ReactNo:'*':ICONV(EventDTM,'DT')
|
||||
NEXT I
|
||||
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,EventKeys)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
250
LSL2/STPROC/COMM_DIALOG_PASSDOWN_RPT.txt
Normal file
250
LSL2/STPROC/COMM_DIALOG_PASSDOWN_RPT.txt
Normal file
@ -0,0 +1,250 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Passdown_Rpt(Method, Parm1, Parm2)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Passdown_Rpt window.
|
||||
|
||||
09/24/2013 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, RList, Reduce
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info, FSMsg, PlaceDialog
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg, SRP_Array
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
Equ NEW_EXIST$ To 0 ; * Reduce Mode 0
|
||||
Equ NEXT_CUR$ To 1
|
||||
Equ ADD_EXIST$ to 2
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Passdown_Rpt'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'LUReactor' ; GOSUB LUReactor
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
// -2 Centers the dialog in the screen and makes it visible.
|
||||
PlaceDialog(-2, -2)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
*stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.REACT_NO'
|
||||
|
||||
CurrReactNos = Get_Property(CtrlEntID,'ARRAY')<1> ;* Existing React_Nos
|
||||
CurrReactNosTrimmed = ''
|
||||
FOR I = 1 TO COUNT(CurrReactNos,@VM) + (CurrReactNos NE '')
|
||||
IF CurrReactNos<1,I> NE '' THEN
|
||||
CurrReactNosTrimmed<1,I> = CurrReactNos<1,I>
|
||||
END
|
||||
NEXT I
|
||||
CurrReactNos = CurrReactNosTrimmed
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple Selections
|
||||
|
||||
NewReactNos = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF NewReactNos = '' OR NewReactNos = CHAR(27) THEN RETURN
|
||||
|
||||
FOR I = 1 TO COUNT(NewReactNos,@VM) + (NewReactNos NE '')
|
||||
NewReactNo = NewReactNos<1,I>
|
||||
LOCATE NewReactNo IN CurrReactNos BY 'AL' USING @VM SETTING POS ELSE
|
||||
CurrReactNos = INSERT(CurrReactNos,1,POS,0,NewReactNo)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(CtrlEntID,'DEFPROP',CurrReactNos)
|
||||
*Send_Event(CtrlEntID,'CALCULATE',2)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'CANCEL')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
* ReactorNo *
|
||||
|
||||
ReactNos = Get_Property(@WINDOW:'.REACT_NO','DEFPROP')
|
||||
|
||||
LOOP
|
||||
TestChar = ReactNos[-1,1]
|
||||
UNTIL TestChar NE @VM OR ReactNos = ''
|
||||
ReactNos[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
* Start and End Dates
|
||||
|
||||
StartDt = OCONV(ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D'),'D4/')
|
||||
EndDt = OCONV(ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D'),'D4/')
|
||||
|
||||
RetReactNos = ReactNos ;* Save ReactNos for use in the report heading
|
||||
|
||||
Flag = ""
|
||||
Done = False$
|
||||
CursorVar = ""
|
||||
|
||||
* Clears all cursors
|
||||
For counter = 0 To 8
|
||||
ClearSelect counter
|
||||
Next counter
|
||||
|
||||
|
||||
ReduceStartDt = OCONV(ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D') - 1,'D4/')
|
||||
ReduceEndDt = OCONV(ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D') + 1,'D4/')
|
||||
SortList = ''
|
||||
|
||||
Mode = NEXT_CUR$
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
ReduceScript = 'WITH {EVENT_DT} GT ':QUOTE(ReduceStartDt):' AND WITH {EVENT_TYPE} EQ "PD"'
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
ReduceScript = 'WITH {EVENT_DT} LT ':QUOTE(ReduceEndDt):' AND WITH {EVENT_TYPE} EQ "PD"'
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
ReduceScript = 'WITH {EVENT_DT} BETWEEN ':QUOTE(ReduceStartDt):' AND ':QUOTE(ReduceEndDt):' AND WITH {EVENT_TYPE} EQ "PD"'
|
||||
|
||||
CASE 1
|
||||
ReduceScript = 'WITH {EVENT_TYPE} EQ "PD"'
|
||||
|
||||
END CASE
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Reactor Events..."
|
||||
Def<MTYPE$> = "U"
|
||||
MsgUp = Msg(@window, Def)
|
||||
EventKeys = ''
|
||||
TableName = "REACT_EVENT"
|
||||
ErrorMsg = ''
|
||||
|
||||
Reduce(ReduceScript, SortList, Mode, TableName, Cursorvar, Flag)
|
||||
If Flag then
|
||||
Select TableName By SortList Using Cursorvar then
|
||||
Open TableName To FileVar then
|
||||
Loop
|
||||
ReadNext Key Using Cursorvar By AT Else Done = True$
|
||||
Until Done
|
||||
EventKeys<0, -1> = Key
|
||||
Repeat
|
||||
|
||||
IF ReactNos NE '' THEN
|
||||
Open 'DICT.':TableName to DictVar then
|
||||
Flag = ''
|
||||
Option = ''
|
||||
RxEvents = ''
|
||||
|
||||
SearchString = 'REACT_NO'
|
||||
For each ReactNo in ReactNos using @VM setting vPos
|
||||
|
||||
SearchString := @VM : ReactNo
|
||||
|
||||
Next ReactNo
|
||||
SearchString := @FM
|
||||
Btree.Extract(SearchString, TableName, DictVar, RxEvents, '', Flag)
|
||||
If Flag NE 0 then
|
||||
ErrorMsg = 'Process Error':@FM:'Error calling Btree.Extract. Please contact FI for assistance.'
|
||||
end
|
||||
EventKeys = SRP_Array('Join', EventKeys, RxEvents, 'AND', @VM)
|
||||
END
|
||||
|
||||
end
|
||||
End Else
|
||||
ErrorMsg = 'Process Error':@FM:'Error opening REACT_EVENT table. Please contact FI for assistance.'
|
||||
End
|
||||
End Else
|
||||
ErrorMsg = 'Process Error':@FM:'Error selecting REACT_EVENT table. Please contact FI for assistance.'
|
||||
end
|
||||
End Else
|
||||
ErrorMsg = 'Process Error':@FM:'Error calling Reduce subroutine. Please contact FI for assistance.'
|
||||
End
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
If ErrorMsg NE '' then ErrMsg(ErrorMsg)
|
||||
|
||||
EventKeys = SRP_Array('SortRows', EventKeys, 'AR1':@FM:'DN2', 'LIST', @VM, '*')
|
||||
End_Dialog(@WINDOW,EventKeys:@FM:RetReactNos:@FM:StartDt:@FM:EndDt)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
423
LSL2/STPROC/COMM_DIALOG_PO_NO_CHANGE.txt
Normal file
423
LSL2/STPROC/COMM_DIALOG_PO_NO_CHANGE.txt
Normal file
@ -0,0 +1,423 @@
|
||||
COMPILE FUNCTION Comm_Dialog_PO_No_Change(Method, Parm1)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_PO_No_Change window.
|
||||
|
||||
02/20/2017 - David Klotz & Francois Rivard
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract
|
||||
DECLARE SUBROUTINE RList, obj_Tables
|
||||
DECLARE SUBROUTINE Print_WO_Mat_In_Labels, Print_WMI_Labels, Print_WMO_Labels, Print_Cass_Labels
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, MemberOf
|
||||
DECLARE FUNCTION obj_Tables
|
||||
DECLARE FUNCTION Msg, Obj_WO_Step
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT COMPANY_EQUATES
|
||||
$INSERT CUST_EPI_PART_EQUATES
|
||||
$INSERT EPI_PART_EQUATES
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT NOTIFICATION_EQU
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT PROD_SPEC_EQU
|
||||
$INSERT PROD_VER_EQUATES
|
||||
$INSERT QUOTE_EQU
|
||||
$INSERT QUOTE_DET_EQU
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT RDS_EQUATES
|
||||
$INSERT REACT_RUN_EQUATES
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT WM_IN_EQUATES
|
||||
$INSERT WM_OUT_EQUATES
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT WO_MAT_EQUATES
|
||||
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT ORDER_DET_EQU
|
||||
|
||||
EQU COL$CASSETTES TO 1
|
||||
EQU TARGET_ACTIVELIST$ TO 5
|
||||
|
||||
EQU COL$WO_PARAM_CASSETTE TO 1
|
||||
EQU COL$WO_PARAM_RDS TO 2
|
||||
EQU COL$WO_PARAM_LOT TO 3
|
||||
EQU COL$WO_PARAM_PO TO 4
|
||||
* EQU COL$WO_PARAM_HOT_LOT TO 5
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_PO_No_Change'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'NewPONoLF' ; GOSUB NewPONoLF
|
||||
CASE Method = 'SelectAll' ; GOSUB SelectAll
|
||||
CASE Method = 'ClearAll' ; GOSUB ClearAll
|
||||
CASE Method = 'PrintLabels' ; GOSUB PrintLabels
|
||||
CASE Method = 'Update' ; GOSUB Update
|
||||
CASE Method = 'Exit' ; GOSUB Exit
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
WONo = Parm1[1,@FM]
|
||||
|
||||
/* Initialize the window's header with the Work Order number */
|
||||
Title = 'Work Order: ':WONo:' - Change PO Number'
|
||||
Set_Property(@WINDOW,'TEXT',Title)
|
||||
|
||||
Set_Property(@WINDOW:'.WO_NO','TEXT',WONo)
|
||||
|
||||
GOSUB RefreshCassettesList
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
**********
|
||||
NewPONoLF:
|
||||
**********
|
||||
RETURN
|
||||
|
||||
|
||||
************
|
||||
PrintLabels:
|
||||
************
|
||||
|
||||
RDSListCtrl = @WINDOW:'.WO_NO'
|
||||
WONo = Get_Property(RDSListCtrl, 'TEXT')
|
||||
|
||||
IF (WONo NE '') THEN
|
||||
|
||||
WOSteps = XLATE('WO_LOG',WONo,WO_LOG_WO_STEP_KEY$,'X')
|
||||
|
||||
IF INDEX(WOSteps,@VM,1) THEN
|
||||
Buttons = ''
|
||||
FOR I = 1 TO COUNT(WOSteps,@VM) + (WOSteps NE '')
|
||||
Buttons<I> = 'Step ':I
|
||||
NEXT I
|
||||
SWAP @FM WITH ',' IN Buttons
|
||||
Buttons = 'B':Buttons
|
||||
TypeOver = ''
|
||||
TypeOver<MTEXT$> = 'Which Work Order step do you wish to print labels for?'
|
||||
TypeOver<MTYPE$> = Buttons
|
||||
TypeOver<MICON$> = '?'
|
||||
TypeOver<MCAPTION$> = 'MultiStep WorkOrder Selection'
|
||||
WOStep = Msg(@window, TypeOver)
|
||||
MultiStepFlag = WOStep
|
||||
|
||||
END ELSE
|
||||
WOStep = 1
|
||||
MultiStepFlag = 0
|
||||
END
|
||||
|
||||
IF (WOStep = 1) THEN
|
||||
PSNo = XLATE('WO_STEP',WONo:'*1',WO_STEP_PROD_SPEC_ID$,'X')
|
||||
ReactorType = XLATE('PROD_SPEC',PSNo,PROD_SPEC_REACTOR_TYPE$,'X')
|
||||
BEGIN CASE
|
||||
CASE ReactorType = 'GAN'
|
||||
Print_WO_Mat_In_Labels(WONo,'')
|
||||
|
||||
CASE ReactorType = 'EPP' OR ReactorType = 'P'
|
||||
Print_WMI_Labels(WONo,1)
|
||||
Print_WMO_Labels(WONo,1)
|
||||
|
||||
CASE 1
|
||||
RDSNos = XLATE('WO_STEP',WOSteps<1,1>,WO_STEP_RDS_KEY$,'X')
|
||||
IF INDEX(RDSNos,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = RDSNos
|
||||
TypeOver<PFIELD$> = 2
|
||||
TypeOver<PTYPE$> = 'K'
|
||||
RDSKeys = Popup(@WINDOW,TypeOver,'WO_LOG_RTS')
|
||||
END ELSE
|
||||
RDSKeys = RDSNos
|
||||
END
|
||||
|
||||
IF RDSKeys = '' THEN
|
||||
ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.')
|
||||
END ELSE
|
||||
CONVERT @VM TO @FM IN RDSKeys
|
||||
Print_Cass_Labels(RDSKeys,MultiStepFlag) ;* Updated labels with Akrion Bar Codes
|
||||
END
|
||||
END CASE
|
||||
|
||||
END ELSE
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Adjusting Step ":WOStep:" Scheduled Quantities..."
|
||||
Def<MTYPE$> = "U"
|
||||
MsgUp = Msg(@window, Def)
|
||||
RDSNos = obj_WO_Step('AdjStepRDSQtys', WOStep:@RM:WOSteps)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode) ;* Display error from the update
|
||||
Msg(@WINDOW,MsgUp) ;* Take down the processing message
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WONo) ;* Reload the data in the form
|
||||
RETURN
|
||||
END
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF INDEX(RDSNos,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = RDSNos
|
||||
TypeOver<PFIELD$> = 2
|
||||
TypeOver<PTYPE$> = 'K'
|
||||
RDSKeys = Popup(@WINDOW,TypeOver,'WO_LOG_RTS')
|
||||
END ELSE
|
||||
RDSKeys = RDSNos
|
||||
END
|
||||
|
||||
IF RDSKeys = '' THEN
|
||||
ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.')
|
||||
END ELSE
|
||||
CONVERT @VM TO @FM IN RDSKeys
|
||||
Print_Cass_Labels(RDSKeys,MultiStepFlag) ;* Updated labels with Akrion Bar Codes
|
||||
END
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('WARNING: WO number is missing.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectAll:
|
||||
* * * * * * *
|
||||
|
||||
RDSListCtrl = @WINDOW:'.RDSNOS'
|
||||
SelectedItems = Get_Property(RDSListCtrl, 'SELPOS')
|
||||
|
||||
RDSKeyList = Get_Property(RDSListCtrl, 'LIST')
|
||||
RDSListCount = COUNT(RDSKeyList,@FM) + (RDSKeyList NE '')
|
||||
|
||||
FOR RDSListIndex = 1 TO RDSListCount
|
||||
IF NOT(Inlist(SelectedItems<2>, RDSListIndex, @VM)) THEN
|
||||
Set_Property(RDSListCtrl, 'SELPOS', '1':@FM:RDSListindex)
|
||||
END
|
||||
NEXT RDSListIndex
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
*********
|
||||
ClearAll:
|
||||
*********
|
||||
|
||||
RDSListCtrl = @WINDOW:'.RDSNOS'
|
||||
SelectedItems = Get_Property(RDSListCtrl, 'SELPOS')
|
||||
|
||||
RDSKeyList = Get_Property(RDSListCtrl, 'LIST')
|
||||
RDSListCount = COUNT(RDSKeyList,@FM) + (RDSKeyList NE '')
|
||||
|
||||
FOR RDSListIndex = 1 TO RDSListCount
|
||||
IF Inlist(SelectedItems<2>, RDSListIndex, @VM) THEN
|
||||
Set_Property(RDSListCtrl, 'SELPOS', '1':@FM:RDSListindex)
|
||||
END
|
||||
NEXT RDSListIndex
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
*********************
|
||||
RefreshCassettesList:
|
||||
*********************
|
||||
|
||||
OPEN 'DICT.RDS' TO DictVar THEN
|
||||
RDSNos = ''
|
||||
Flag = ''
|
||||
SearchString = 'WO':@VM:WONo:@FM
|
||||
Btree.Extract(SearchString, 'RDS', DictVar, RDSNos, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open "DICT.RDS" for index lookup in COMM_DIALOG_PO_NO_CHANGE routine.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF INDEX(RDSNos,@VM,1) THEN /* Sort only if two or more records are found */
|
||||
RDSNos := @VM /* Need a trailer delimiter */
|
||||
CONVERT @VM TO @RM IN RDSNos
|
||||
CALL V119('S','','A','R',RDSNos,'') /* Sort the RDS numbers in ascending order */
|
||||
CONVERT @RM TO @VM IN RDSNos
|
||||
RDSNos[-1,1] = '' /* Strip previous added trailing delimiter */
|
||||
END ELSE
|
||||
NULL
|
||||
END
|
||||
|
||||
OPEN 'RDS' TO RDS_Table ELSE
|
||||
ErrMsg('Unable to open "RDS" for reads in COMM_DIALOG_PO_NO_CHANGE - Create Event')
|
||||
RETURN
|
||||
END
|
||||
|
||||
RDS_List = ''
|
||||
RDSListCount = 0
|
||||
kCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
|
||||
|
||||
FOR I = 1 TO kCnt
|
||||
RDSNo = RDSNos<1,I>
|
||||
READ RDS_Rec FROM RDS_Table,RDSNo THEN
|
||||
PONo = RDS_Rec<RDS_PO$>
|
||||
CassNo = RDS_Rec<RDS_CASS_NO$>
|
||||
LotNo = RDS_Rec<RDS_LOT_NUM$>
|
||||
|
||||
OPEN 'DICT.WO_MAT' TO DictVar THEN
|
||||
SearchString = 'WO_NO':@VM:WONo:@FM
|
||||
WO_MAT_Keys = ''
|
||||
Flag = ''
|
||||
Btree.Extract(SearchString, 'WO_MAT', DictVar, WO_MAT_Keys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open "DICT.WO_MAT" for index lookup in COMM_DIALOG_PO_NO_CHANGE routine.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
OPEN 'WO_MAT' TO WO_MAT_Table ELSE
|
||||
ErrMsg('Unable to open "WO_MAT" for reads in COMM_DIALOG_PO_NO_CHANGE - Create Event')
|
||||
RETURN
|
||||
END
|
||||
|
||||
CassetteFound = 0
|
||||
CassettesCount = COUNT(WO_MAT_Keys,@VM) + (WO_MAT_Keys NE '')
|
||||
FOR CassettesLoopIndex = 1 TO CassettesCount
|
||||
WO_MAT_Key = WO_MAT_Keys<1, CassettesLoopIndex>
|
||||
WO_MAT_Key_Cass = FIELD(WO_MAT_Key,'*',2)
|
||||
IF (WO_MAT_Key_Cass = CassNo) THEN
|
||||
READ WO_MAT_Rec FROM WO_MAT_Table,WO_MAT_Key THEN
|
||||
IF (WO_MAT_Rec<WO_MAT_SHIP_NO$> = '') THEN
|
||||
RDSListCount = RDSListCount + 1
|
||||
IF (WO_MAT_Rec<WO_MAT_HOT_LOT$> = 1) THEN
|
||||
HotLot = 'Hot'
|
||||
END ELSE
|
||||
HotLot = ''
|
||||
END
|
||||
RDS_List<RDSListCount> = CassNo:@VM:RDSNo:@VM:LotNo:@VM:PONo:@VM:HotLot
|
||||
END
|
||||
END
|
||||
CassetteFound = 1
|
||||
END
|
||||
UNTIL CassetteFound = 1
|
||||
NEXT CassettesLoopIndex
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.RDSNOS','LIST',RDS_List)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
******
|
||||
Close:
|
||||
******
|
||||
End_Dialog(@WINDOW,'Exit')
|
||||
RETURN
|
||||
|
||||
|
||||
*****
|
||||
Exit:
|
||||
*****
|
||||
End_Dialog(@WINDOW,'Exit')
|
||||
RETURN
|
||||
|
||||
|
||||
*******
|
||||
Update:
|
||||
*******
|
||||
|
||||
RDSListCtrl = @WINDOW:'.WO_NO'
|
||||
WONo = Get_Property(RDSListCtrl, 'TEXT')
|
||||
|
||||
IF (WONo NE '') THEN
|
||||
|
||||
NewPONumberCtrl = @WINDOW:'.NEW_PO_NO'
|
||||
NewPONumber = TRIM(Get_Property(NewPONumberCtrl, 'DEFPROP'))
|
||||
|
||||
RDSListCtrl = @WINDOW:'.RDSNOS'
|
||||
SelectedItems = Get_Property(RDSListCtrl, 'SELPOS')
|
||||
RDSKeyList = Get_Property(RDSListCtrl, 'LIST')
|
||||
RDSListCount = COUNT(RDSKeyList,@FM) + (RDSKeyList NE '')
|
||||
SelectedItemsCount = COUNT(SelectedItems<2>,@VM) + (SelectedItems<2> NE '')
|
||||
|
||||
IF (SelectedItemsCount > 0) THEN
|
||||
|
||||
Cassettes = ''
|
||||
FOR RDSListIndex = 1 TO RDSListCount
|
||||
IF (Inlist(SelectedItems<2>, RDSListIndex, @VM)) THEN
|
||||
Cassettes := RDSKeyList<RDSListIndex, COL$CASSETTES>:@VM
|
||||
END
|
||||
NEXT RDSListIndex
|
||||
Cassettes[-1,1] = ''
|
||||
|
||||
***********************************************
|
||||
* Update the RDS table with the new PO number *
|
||||
***********************************************
|
||||
IF (NewPONumber NE '') THEN
|
||||
OPEN 'RDS' TO RDSTable ELSE
|
||||
ErrMsg("ERROR! OBJ_WO_LOG :ChangePONo : Unable to open the RDS Table!")
|
||||
RETURN
|
||||
END
|
||||
|
||||
RLIST('SELECT REACT_RUN WITH WO_NO = ':QUOTE(WONo):' ',TARGET_ACTIVELIST$,'','','')
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT RDSNo ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ RDSRec FROM RDSTable,RDSNo THEN
|
||||
PONo = RDSRec<RDS_PO$>
|
||||
RONo = XLATE('RDS', RDSNo, 'RUN_ORDER_NUM', 'X')
|
||||
LOCATE RONo IN Cassettes USING @VM SETTING Pos THEN
|
||||
RDSRec<RDS_PO$> = NewPONumber
|
||||
WRITE RDSRec ON RDSTable,RDSNo THEN
|
||||
Null
|
||||
END
|
||||
obj_Tables('WriteRec','RDS':@RM:RDSNo:@RM:@RM:RDSRec)
|
||||
Result = 'PO Number Changed'
|
||||
END
|
||||
END
|
||||
REPEAT
|
||||
|
||||
/* After making the update, refresh the LIST of cassettes */
|
||||
GOSUB RefreshCassettesList
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('INFO: A new PO number value is required.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.NEW_PO_NO')
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('WARNING: WO number is missing.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
211
LSL2/STPROC/COMM_DIALOG_RDS_QUERY.txt
Normal file
211
LSL2/STPROC/COMM_DIALOG_RDS_QUERY.txt
Normal file
@ -0,0 +1,211 @@
|
||||
COMPILE FUNCTION Comm_Dialog_RDS_Query(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_RDS_Query window.
|
||||
|
||||
03/24/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract, Comm_Dialog_Order_Find
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Utility, Key_Sort, Msg, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_RDS_Query'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'SelectStatusCodes' ; GOSUB SelectStatusCodes
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW:'.USER_ID','INVALUE',@USER4)
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
stat = Send_Message(@WINDOW:'.CURR_STATUS','COLOR_BY_POS',2,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SelectStatusCodes:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = @WINDOW:'.CURR_STATUS'
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple select
|
||||
|
||||
StatusCodes = Popup(@WINDOW,TypeOver,'RDS_CURR_STATUS')
|
||||
|
||||
IF StatusCodes NE '' THEN
|
||||
ExistingArray = ''
|
||||
FOR I = 1 TO COUNT(StatusCodes,@VM) + (StatusCodes NE '') + 1
|
||||
ExistingArray<1,I> = StatusCodes<1,I>
|
||||
ExistingArray<2,I> = OCONV(StatusCodes<1,I>,'[RDS_CURR_STATUS_CONV]')
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.CURR_STATUS','DEFPROP',ExistingArray)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
OPEN 'DICT.RDS' TO DictRDSTable ELSE
|
||||
ErrMsg( 'Unable to open DICT.RDS...' )
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
WONos = Get_Property(@WINDOW:'.WO','ARRAY')<1>
|
||||
Reactors = Get_Property(@WINDOW:'.REACTORS','ARRAY')<1>
|
||||
PSNs = Get_Property(@WINDOW:'.PSN_NOS','ARRAY')<1>
|
||||
QuoteNos = Get_Property(@WINDOW:'.QUOTE_NOS','ARRAY')<1>
|
||||
PONos = Get_Property(@WINDOW:'.PO','ARRAY')<1>
|
||||
PartNos = Get_Property(@WINDOW:'.PART_NUM','ARRAY')<1>
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NUM','ARRAY')<1>
|
||||
CurrStatusCds = Get_Property(@WINDOW:'.CURR_STATUS','ARRAY')<1>
|
||||
CustIds = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<1>
|
||||
|
||||
SWAP @VM:@VM WITH '' IN WONos ; IF WONos[-1,1] = @VM THEN WONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN Reactors ; IF Reactors[-1,1] = @VM THEN Reactors[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PSNs ; IF PSNs[-1,1] = @VM THEN PSNs[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN QuoteNos ; IF QuoteNos[-1,1] = @VM THEN QuoteNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PONos ; IF PONos[-1,1] = @VM THEN PONos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN PartNos ; IF PartNos[-1,1] = @VM THEN PartNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN LotNos ; IF LotNos[-1,1] = @VM THEN LotNos[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CurrStatusCds ; IF CurrStatusCds[-1,1] = @VM THEN CurrStatusCds[-1,1] = ''
|
||||
SWAP @VM:@VM WITH '' IN CustIDs ; IF CustIDs[-1,1] = @VM THEN CustIds[-1,1] = ''
|
||||
|
||||
DateInFrom = Get_Property(@WINDOW:'.DATE_IN_FROM','TEXT')
|
||||
DateInThru = Get_Property(@WINDOW:'.DATE_IN_THRU','TEXT')
|
||||
DateOutFrom = Get_Property(@WINDOW:'.DATE_OUT_FROM','TEXT')
|
||||
DateOutThru = Get_Property(@WINDOW:'.DATE_OUT_THRU','TEXT')
|
||||
TimeInFrom = Get_Property(@WINDOW:'.TIME_IN_FROM','TEXT')
|
||||
TimeInThru = Get_Property(@WINDOW:'.TIME_IN_THRU','TEXT')
|
||||
TimeOutFrom = Get_Property(@WINDOW:'.TIME_OUT_FROM','TEXT')
|
||||
TimeOutThru = Get_Property(@WINDOW:'.TIME_OUT_THRU','TEXT')
|
||||
|
||||
SearchStr = ''
|
||||
|
||||
IF WONos THEN SearchStr<-1> = 'WO':@VM:WONos
|
||||
IF Reactors THEN SearchStr<-1> = 'REACTOR':@VM:Reactors
|
||||
IF PSNs THEN SearchStr<-1> = 'PROD_SPEC_ID':@VM:PSNs
|
||||
IF QuoteNos THEN SearchStr<-1> = 'QUOTE_NO':@VM:QuoteNos
|
||||
IF PONos THEN SearchStr<-1> = 'PO':@VM:PONos
|
||||
IF PartNos THEN SearchStr<-1> = 'PART_NUM':@VM:PartNos
|
||||
IF LotNos THEN SearchStr<-1> = 'LOT_NUM':@VM:LotNos
|
||||
IF CurrStatusCds THEN SearchStr<-1> = 'CURR_STATUS':@VM:CurrStatusCds
|
||||
IF CustIds THEN SearchStr<-1> = 'CUST_NO':@VM:CustIds
|
||||
|
||||
|
||||
IF DateInFrom AND DateInThru THEN
|
||||
SearchStr<-1> = 'DATE_IN':@VM:DateInFrom:'...':DateInThru
|
||||
END ELSE
|
||||
IF DateInFrom THEN SearchStr<-1> = 'DATE_IN':@VM:'>=':DateInFrom
|
||||
IF DateInThru THEN SearchStr<-1> = 'DATE_IN':@VM:'<=':DateInThru
|
||||
END
|
||||
|
||||
IF DateOutFrom and DateOutThru THEN
|
||||
SearchStr<-1> = 'DATE_OUT':@VM:DateOutFrom:'...':DateOutThru
|
||||
END ELSE
|
||||
IF DateOutFrom THEN SearchStr<-1> = 'DATE_OUT':@VM:'>=':DateOutFrom
|
||||
IF DateOutThru THEN SearchStr<-1> = 'DATE_OUT':@VM:'<=':DateOutThru
|
||||
END
|
||||
|
||||
IF TimeInFrom and TimeInThru THEN
|
||||
SearchStr<-1> = 'TIME_IN':@VM:TimeInFrom:'...':TimeInThru
|
||||
END ELSE
|
||||
IF TimeInFrom THEN SearchStr<-1> = 'TIME_IN':@VM:'>=':TimeInFrom
|
||||
IF TimeInThru THEN SearchStr<-1> = 'TIME_IN':@VM:'<=':TimeInThru
|
||||
END
|
||||
|
||||
IF TimeOutFrom and TimeOutThru THEN
|
||||
SearchStr<-1> = 'TIME_OUT':@VM:TimeOutFrom:'...':TimeOutThru
|
||||
END ELSE
|
||||
IF TimeOutFrom THEN SearchStr<-1> = 'TIME_OUT':@VM:'>=':TimeOutFrom
|
||||
IF TimeOutThru THEN SearchStr<-1> = 'TIME_OUT':@VM:'<=':TimeOutThru
|
||||
END
|
||||
|
||||
IF SearchStr THEN
|
||||
SearchStr := @FM
|
||||
Void = Utility( 'CURSOR', 'H' )
|
||||
* do a btree.extract
|
||||
Btree.Extract( SearchStr, 'RDS', DictRDSTable, RDSNos, '', Flag )
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
End_Dialog( @WINDOW,'')
|
||||
END
|
||||
|
||||
IF RDSNos THEN
|
||||
CONVERT @VM TO @FM IN RDSNos
|
||||
RDSNos = Key_Sort( RDSNos, 'RDS', 'CUST_NAME':@fm:'WO':@fm:'RUN_ORDER_NUM', 0 )
|
||||
End_Dialog( @WINDOW, RDSNos )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
Void = utility( 'CURSOR', 'A' )
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'You have not entered any search criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
197
LSL2/STPROC/COMM_DIALOG_RDS_VAL_CHANGE.txt
Normal file
197
LSL2/STPROC/COMM_DIALOG_RDS_VAL_CHANGE.txt
Normal file
@ -0,0 +1,197 @@
|
||||
COMPILE FUNCTION Comm_Dialog_RDS_Val_Change(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_RDS_Val_Change window.
|
||||
|
||||
06/06/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_RDS_Val_Chg'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'InsertRow' ; GOSUB InsertRow
|
||||
CASE Method = 'DeleteRow' ; GOSUB DeleteRow
|
||||
CASE Method = 'SetCommitDt' ; GOSUB SetCommitDt
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Style = Get_Property(@WINDOW:'.CASSETTES', 'STYLE')
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
AddStyle = 512 ;* MultiLine Select
|
||||
MultiStyle = BitOr(Style, AddStyle)
|
||||
Set_Property(@WINDOW:'.CASSETTES', 'STYLE', MultiStyle)
|
||||
|
||||
CassetteList = Parm1
|
||||
|
||||
Set_Property(@WINDOW:'.CASSETTES','LIST',CassetteList)
|
||||
Set_Property(@WINDOW,'@ORG_CASS_LIST',CassetteList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CASSETTES'
|
||||
ActiveList = Get_Property(CtrlName,'LIST')
|
||||
OrgList = Get_Property(@WINDOW,'@ORG_CASS_LIST')
|
||||
|
||||
FOR I = 1 TO COUNT(ActiveList,@FM) + (ActiveList NE '')
|
||||
ActiveLine = ActiveList<I>
|
||||
FOR K = 1 TO COUNT(ActiveLine,@VM) + (ActiveLine NE '')
|
||||
IF ActiveList<I,K> NE OrgList<I,K> THEN
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',K,I,YELLOW$)
|
||||
END ELSE
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',K,I,GREEN$)
|
||||
END
|
||||
NEXT K
|
||||
NEXT I
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
InsertRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CASSETTES'
|
||||
|
||||
RowIndex = Parm1
|
||||
|
||||
DeletedItem = Send_Message(CtrlName, "DELETE", RowIndex)
|
||||
|
||||
ErrMsg('Rows may not be inserted in this table.')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
DeleteRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CASSETTES'
|
||||
|
||||
RowIndex = Parm1
|
||||
RowData = Parm2
|
||||
|
||||
InsertedPosition = Send_Message(CtrlName, "INSERT", RowIndex, RowData)
|
||||
|
||||
ErrMsg('Rows may not be deleted from this table.')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SetCommitDt:
|
||||
* * * * * * *
|
||||
|
||||
SelectedLines = Get_Property(@WINDOW:'.CASSETTES','SELPOS')<2>
|
||||
|
||||
IF SelectedLines = '' THEN
|
||||
ErrMsg('You must have at least one line selected in order to change a commit date.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
CommitDt = Get_Property(@WINDOW:'.COMMIT_DT','TEXT')
|
||||
|
||||
IF CommitDt = '' THEN
|
||||
ErrMsg('Please enter the new commit date you wish to use.')
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.COMMIT_DT')
|
||||
RETURN
|
||||
END
|
||||
|
||||
FOR I = 1 TO COUNT(SelectedLines,@VM) + (SelectedLines NE '')
|
||||
SelectedLine = SelectedLines<1,I>
|
||||
Set_Property(@WINDOW:'.CASSETTES','CELLPOS',CommitDt,4:@FM:SelectedLine) ;* Column 4 is the commit date
|
||||
NEXT I
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CASSETTES'
|
||||
ActiveList = Get_Property(CtrlName,'LIST')
|
||||
OrgList = Get_Property(@WINDOW,'@ORG_CASS_LIST')
|
||||
|
||||
RDSNos = ''
|
||||
CommitDts = ''
|
||||
HotLots = ''
|
||||
MUBoxes = ''
|
||||
CassNos = ''
|
||||
|
||||
ResultCnt = 1
|
||||
FOR I = 1 TO COUNT(ActiveList,@FM) + (ActiveList NE '')
|
||||
ActiveLine = ActiveList<I>
|
||||
OrgLine = OrgList<I>
|
||||
IF ActiveLine NE OrgLine THEN
|
||||
CassNos<1,ResultCnt> = ActiveLine<1,1>
|
||||
RDSNos<1,ResultCnt> = ActiveLine<1,2>
|
||||
CommitDts<1,ResultCnt> = ActiveLine<1,4>
|
||||
HotLots<1,ResultCnt> = ActiveLine<1,3>
|
||||
MUBoxes<1,ResultCnt> = ActiveLine<1,6>
|
||||
ResultCnt += 1
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Result = RDSNos:@FM:CommitDts:@FM:HotLots:@FM:MUBoxes:@FM:CassNos
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
248
LSL2/STPROC/COMM_DIALOG_REACT_COMP_LU.txt
Normal file
248
LSL2/STPROC/COMM_DIALOG_REACT_COMP_LU.txt
Normal file
@ -0,0 +1,248 @@
|
||||
COMPILE FUNCTION Comm_Dialog_React_Comp_LU(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_React_Comp_LU window.
|
||||
|
||||
10/24/2013 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, RList, Send_Message
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT REACT_SERVS_EQUATES
|
||||
$INSERT REACT_COMP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_React_Comp_LU'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.NAVIGATOR'
|
||||
BEGIN CASE
|
||||
CASE Event = 'DBLCK' ; GOSUB NavigatorDC
|
||||
END CASE
|
||||
|
||||
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')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
|
||||
|
||||
SelectSent = "SELECT REACT_COMP WITH CLASS = 'Group' BY DESC"
|
||||
|
||||
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
OPEN 'REACT_COMP' TO ReactCompTable ELSE
|
||||
ErrMsg('Unable to Open "REACT_COMP" table for read')
|
||||
RETURN
|
||||
END
|
||||
|
||||
Done = 0
|
||||
PrevSystem = ''
|
||||
PrevItem = ''
|
||||
PrevAction = ''
|
||||
|
||||
DispLine = 1
|
||||
DispList = ''
|
||||
|
||||
|
||||
IndentLvl = 1
|
||||
IndentLvlKeys = ''
|
||||
|
||||
LOOP
|
||||
READNEXT ReactCompID ELSE Done = 1
|
||||
UNTIL Done
|
||||
IndentLvlKeys<IndentLvl,-1> = ReactCompID
|
||||
REPEAT
|
||||
|
||||
|
||||
DispList = ''
|
||||
|
||||
LOOP
|
||||
|
||||
IndentLvlKey = IndentLvlKeys<IndentLvl,1>
|
||||
IndentLvlKeys = DELETE(IndentLvlKeys,IndentLvl,1,0)
|
||||
|
||||
READ ReactCompRec FROM ReactCompTable,IndentLvlKey THEN
|
||||
|
||||
Class = ReactCompRec<REACT_COMP_CLASS$>
|
||||
Desc = ReactCompRec<REACT_COMP_DESC$>
|
||||
|
||||
DispList := IndentLvl:'-':IndentLvl:':':Class:' - ':Desc:@FM
|
||||
|
||||
IF ReactCompRec<REACT_COMP_SUB_COMP$> NE '' THEN
|
||||
IndentLvl += 1
|
||||
IndentLvlKeys<IndentLvl> = ReactCompRec<REACT_COMP_SUB_COMP$>
|
||||
END
|
||||
|
||||
END ;* End of ReactComprec read.
|
||||
|
||||
IF IndentLvlKeys<IndentLvl> = '' THEN
|
||||
IndentLvl -= 1
|
||||
IF IndentLvlKeys[-1,1] = @FM THEN
|
||||
IndentLvlKeys[-1,1] = ''
|
||||
END
|
||||
END
|
||||
|
||||
UNTIL IndentLvlKeys = ''
|
||||
|
||||
REPEAT
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.NAVIGATOR', 'LIST', DispList)
|
||||
|
||||
*Send_Message(@WINDOW:'.NAVIGATOR', 'EXPAND', 0, 1)
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NavigatorDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
ReactData = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF ReactData = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.REACT_NO','LIST',ReactData)
|
||||
|
||||
LineCnt = COUNT(ReactData,@FM) + (ReactData NE '')
|
||||
ColCnt = 7
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.REACT_NO','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUEventTYpe:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
EventTypes = Popup(@WINDOW,TypeOver,'REACT_EVENT_TYPE')
|
||||
|
||||
IF EventTypes = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.EVENT_TYPE','LIST',EventTypes)
|
||||
|
||||
LineCnt = COUNT(EventTypes,@FM) + (EventTypes NE '')
|
||||
ColCnt = 2
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.EVENT_TYPE','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
|
||||
|
||||
|
||||
End_Dialog(@WINDOW,EventKeys)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
290
LSL2/STPROC/COMM_DIALOG_REACT_EVENT_QUERY.txt
Normal file
290
LSL2/STPROC/COMM_DIALOG_REACT_EVENT_QUERY.txt
Normal file
@ -0,0 +1,290 @@
|
||||
COMPILE FUNCTION Comm_Dialog_React_Event_Query(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_React_Event window.
|
||||
|
||||
01/10/2007 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, RList
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$REACT_NO TO 1
|
||||
EQU COL$REACT_TYPE TO 2
|
||||
EQU COL$RED_PRESS TO 3
|
||||
EQU COL$WAFER_SIZE TO 4
|
||||
EQU COL$TOOL_LOC TO 5
|
||||
EQU COL$ASSIGNMENT TO 6
|
||||
EQU COL$ESC_HOURS TO 7
|
||||
|
||||
EQU COL$EVENT_CD TO 1
|
||||
EQU COL$EVENT_TYPE TO 2
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'LUReactor' ; GOSUB LUReactor
|
||||
CASE Method = 'LUEventType' ; GOSUB LUEventType
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'StartDtGF' ; GOSUB StartDtGF
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
ReactData = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF ReactData = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.REACT_NO','LIST',ReactData)
|
||||
|
||||
LineCnt = COUNT(ReactData,@FM) + (ReactData NE '')
|
||||
ColCnt = 7
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.REACT_NO','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUEventTYpe:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
EventTypes = Popup(@WINDOW,TypeOver,'REACT_EVENT_TYPE')
|
||||
|
||||
IF EventTypes = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.EVENT_TYPE','LIST',EventTypes)
|
||||
|
||||
LineCnt = COUNT(EventTypes,@FM) + (EventTypes NE '')
|
||||
ColCnt = 2
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.EVENT_TYPE','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
StartDtGF:
|
||||
* * * * * * *
|
||||
|
||||
StartDt = Get_Property(@WINDOW:'.START_DT','DEFPROP')
|
||||
|
||||
IF StartDt = '' THEN
|
||||
Set_Property(@WINDOW:'.START_DT','DEFPROP',OCONV(Date(),'D4/'))
|
||||
Set_Property(@WINDOW:'.START_DT','SELECTION',1:@FM:99)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
|
||||
* ReactorNo *
|
||||
|
||||
ReactNos = Get_Property(@WINDOW:'.REACT_NO','ARRAY')<COL$REACT_NO>
|
||||
|
||||
LOOP
|
||||
TestChar = ReactNos[-1,1]
|
||||
UNTIL TestChar NE @VM OR ReactNos = ''
|
||||
ReactNos[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
|
||||
* Event Types *
|
||||
|
||||
EventTypes = Get_Property(@WINDOW:'.EVENT_TYPE','DEFPROP')<COL$EVENT_CD>
|
||||
|
||||
|
||||
LOOP
|
||||
TestChar = EventTypes[-1,1]
|
||||
UNTIL TestChar NE @VM OR EventTypes = ''
|
||||
EventTypes[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
* Start and End Dates
|
||||
|
||||
StartDt = OCONV(ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D'),'D4')
|
||||
EndDt = OCONV(ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D'),'D4')
|
||||
|
||||
|
||||
SelectSent = 'SELECT REACT_EVENT '
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
|
||||
SelectSent := 'WITH EVENT_DT GE ':QUOTE(StartDt)
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SelectSent := 'WITH EVENT_DT LE ':QUOTE(EndDt)
|
||||
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
SelectSent := 'WITH EVENT_DT GE ':QUOTE(StartDt):' AND WITH EVENT_DT LE ':QUOTE(EndDt)
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
IF ReactNos NE '' THEN
|
||||
|
||||
SWAP @VM WITH '" "' in ReactNos
|
||||
|
||||
SelectSent := ' AND WITH REACT_NO ':QUOTE(ReactNos)
|
||||
END
|
||||
|
||||
IF EventTypes NE '' THEN
|
||||
SWAP @VM WITH '" "' IN EventTypes
|
||||
SelectSent := ' AND WITH EVENT_TYPE ':QUOTE(EventTypes)
|
||||
END
|
||||
|
||||
|
||||
IF ReactNos = '' THEN
|
||||
SelectSent := ' BY REACT_NO'
|
||||
END
|
||||
|
||||
SelectSent := ' BY-DSND EVENT_DTM'
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Reactor Events..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@window, MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END ELSE
|
||||
Msg(@window, MsgUp)
|
||||
END
|
||||
|
||||
EventKeys = ''
|
||||
Done = ''
|
||||
|
||||
LOOP
|
||||
READNEXT EventKey ELSE Done = 1
|
||||
UNTIL Done
|
||||
EventKeys := EventKey:@VM
|
||||
REPEAT
|
||||
EventKeys [-1,1] = ''
|
||||
|
||||
End_Dialog(@WINDOW,EventKeys)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
240
LSL2/STPROC/COMM_DIALOG_REACT_SERV_LU.txt
Normal file
240
LSL2/STPROC/COMM_DIALOG_REACT_SERV_LU.txt
Normal file
@ -0,0 +1,240 @@
|
||||
COMPILE FUNCTION Comm_Dialog_React_Serv_LU(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_React_Serv_LU window.
|
||||
|
||||
10/24/2013 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, RList, Send_Message
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
|
||||
$INSERT APPCOLORS
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT REACT_SERVS_EQUATES
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_React_Serv_LU'
|
||||
ErrorMsg = ''
|
||||
ErrCode = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.NAVIGATOR'
|
||||
BEGIN CASE
|
||||
CASE Event = 'DBLCK' ; GOSUB NavigatorDC
|
||||
END CASE
|
||||
|
||||
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')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
SelectSent = 'SELECT REACT_SERVS BY REACT_SYSTEM BY REACT_ITEM BY ACTION BY SVC_DESC'
|
||||
|
||||
|
||||
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
OPEN 'REACT_SERVS' TO ReactServTable ELSE
|
||||
ErrMsg('Unable to Open "REACT_SERVS" table for read')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
|
||||
Done = 0
|
||||
PrevSystem = ''
|
||||
PrevItem = ''
|
||||
PrevAction = ''
|
||||
|
||||
DispLine = 1
|
||||
DispList = ''
|
||||
|
||||
LOOP
|
||||
READNEXT ReactServID ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ ReactServRec FROM ReactServTable,ReactServID THEN
|
||||
|
||||
System = ReactServRec<REACT_SERVS_REACT_SYSTEM$>
|
||||
Item = ReactServRec<REACT_SERVS_REACT_ITEM$>
|
||||
Action = ReactServRec<REACT_SERVS_ACTION$>
|
||||
SvcDesc = ReactServRec<REACT_SERVS_SVC_DESC$>
|
||||
|
||||
IF System = '' THEN System = 'N/A'
|
||||
|
||||
IF System NE PrevSystem THEN
|
||||
DispList := '1-1:':'System - ':System:@FM
|
||||
PrevSystem = System
|
||||
END
|
||||
|
||||
IF Item NE PrevItem THEN
|
||||
DispList := '2-2:':Item:@FM
|
||||
PrevItem = Item
|
||||
END
|
||||
|
||||
IF Action NE PrevAction THEN
|
||||
DispList := '3-3:':Action:@FM
|
||||
PrevAction = Action
|
||||
END
|
||||
|
||||
IF SvcDesc NE '' THEN
|
||||
DispList := '4-4:':SvcDesc:@FM
|
||||
END
|
||||
|
||||
END ;* End of ReactServRec read.
|
||||
REPEAT
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.NAVIGATOR', 'LIST', DispList)
|
||||
|
||||
*Send_Message(@WINDOW:'.NAVIGATOR', 'EXPAND', 0, 1)
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
NavigatorDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
ReactData = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF ReactData = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.REACT_NO','LIST',ReactData)
|
||||
|
||||
LineCnt = COUNT(ReactData,@FM) + (ReactData NE '')
|
||||
ColCnt = 7
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.REACT_NO','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUEventTYpe:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = '2' ;* Multiple Select
|
||||
TypeOver<PTYPE$> = 'E' ;* Return entire row
|
||||
|
||||
EventTypes = Popup(@WINDOW,TypeOver,'REACT_EVENT_TYPE')
|
||||
|
||||
IF EventTypes = '' THEN RETURN
|
||||
|
||||
Set_Property(@WINDOW:'.EVENT_TYPE','LIST',EventTypes)
|
||||
|
||||
LineCnt = COUNT(EventTypes,@FM) + (EventTypes NE '')
|
||||
ColCnt = 2
|
||||
|
||||
FOR Line = 1 TO LineCnt
|
||||
FOR Column = 2 TO ColCnt
|
||||
stat = Send_Message(@WINDOW:'.EVENT_TYPE','COLOR_BY_POS',Column,Line,GREEN$)
|
||||
NEXT Column
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
|
||||
|
||||
|
||||
End_Dialog(@WINDOW,EventKeys)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
249
LSL2/STPROC/COMM_DIALOG_SAP_COMM.txt
Normal file
249
LSL2/STPROC/COMM_DIALOG_SAP_COMM.txt
Normal file
@ -0,0 +1,249 @@
|
||||
COMPILE FUNCTION Comm_Dialog_SAP_Comm( Instruction, Parm1 )
|
||||
|
||||
/*
|
||||
Commuter Module for SAP Communications Window
|
||||
|
||||
J.C. Henry, Inc. - John C. Henry
|
||||
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Center_Window,StatusLine,Set_Property,End_Dialog, Send_Event, Set_Status, Adios, obj_SAP, obj_Notes, obj_Post_Log, RList, SAP_Services
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, obj_Tables, Post_Event, Send_INfo, ShowWindow, obj_Appwindow, Send_Dyn,ErrLog, obj_WO_Mat_Log, Sleepery, Yield, SRP_Stopwatch, SRP_TCPClient
|
||||
DECLARE FUNCTION Get_Property, Get_Status,Dialog_Box, FindWindow, Utility, SAP_Services, Database_Services, SRP_TCPClient
|
||||
|
||||
$INSERT QUOTE_SIGS_EQU
|
||||
$INSERT NOTIFICATION_EQU
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LOGICAL
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU InBoundLimit$ TO 20
|
||||
EQU OutBoundLimit$ TO 10
|
||||
EQU DEFAULT_INTERVAL$ TO 10 /* Seconds */
|
||||
|
||||
$INSERT ENVIRON_CONSTANTS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_SAP_Comm routine'
|
||||
ErrorMsg = ''
|
||||
|
||||
Instructions = 'Create'
|
||||
Instructions := @FM:'Timer'
|
||||
Instructions := @FM:'StartStop'
|
||||
Instructions := @FM:'CommStartStop'
|
||||
Instructions := @FM:'Close'
|
||||
|
||||
RetVal = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Timer' ; GOSUB Timer
|
||||
CASE Instruction EQ @Window : '.LOG_ON' AND Parm1 EQ 'CLICK' ; GoSub LOG_ON.CLICK
|
||||
CASE Instruction EQ @Window : '.TRANS_QTY' AND Parm1 EQ 'LOSTFOCUS' ; GoSub TRANS_QTY.LOSTFOCUS
|
||||
CASE Instruction EQ @Window : '.SAP_HOLD_START_DTM' AND Parm1 EQ 'LOSTFOCUS' ; GoSub SAP_HOLD_START_DTM.LOSTFOCUS
|
||||
CASE Instruction EQ @Window : '.SAP_HOLD_STOP_DTM' AND Parm1 EQ 'LOSTFOCUS' ; GoSub SAP_HOLD_STOP_DTM.LOSTFOCUS
|
||||
CASE Instruction = 'Close' ; GOSUB Close
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction ':QUOTE(Instruction):' passed to routine'
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
|
||||
RETURN RetVal
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
otParms = 'SYSOBJ':@RM:'SAP_COMM'
|
||||
obj_Tables('LockRec',otParms) ;* Places lock on fictional record
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrorMsg = ErrTitle:@SVM:'Another SAP Communications Server is already running.'
|
||||
ErrMsg(ErrorMsg)
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
RETURN
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'@LOCKED',1) ;* Set ad-hoc property '@LOCKED' to true
|
||||
Set_Property(@WINDOW,'TIMER','0':@FM:'1000') ;* Set timer event to start in 1000 msecs (1 second). Do not set for auto-repeat. Let the TIMER event handle this.
|
||||
|
||||
Set_Property(@WINDOW:'.TRANS_QTY', 'INVALUE', SAP_Services('GetSAPTransactionLimit'))
|
||||
Set_Property(@WINDOW:'.SAP_HOLD_START_DTM', 'INVALUE', SAP_Services('GetSAPHoldStartDateTime'))
|
||||
Set_Property(@WINDOW:'.SAP_HOLD_STOP_DTM', 'INVALUE', SAP_Services('GetSAPHoldStopDateTime'))
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
LOG_ON.CLICK:
|
||||
|
||||
LoggingFlag = Get_Property(@Window : '.LOG_ON', 'CHECK')
|
||||
SAP_Services('SetTransactionLoggingFlag', LoggingFlag)
|
||||
|
||||
return
|
||||
|
||||
|
||||
TRANS_QTY.LOSTFOCUS:
|
||||
|
||||
TransactionLimit = Get_Property(@Window : '.TRANS_QTY', 'TEXT')
|
||||
SAP_Services('SetSAPTransactionLimit', TransactionLimit)
|
||||
|
||||
return
|
||||
|
||||
|
||||
SAP_HOLD_START_DTM.LOSTFOCUS:
|
||||
|
||||
HoldStartDTM = Get_Property(@Window : '.SAP_HOLD_START_DTM', 'INVALUE')
|
||||
SAP_Services('SetSAPHoldStartDateTime', HoldStartDTM)
|
||||
|
||||
return
|
||||
|
||||
|
||||
SAP_HOLD_STOP_DTM.LOSTFOCUS:
|
||||
|
||||
HoldStopDTM = Get_Property(@Window : '.SAP_HOLD_STOP_DTM', 'INVALUE')
|
||||
SAP_Services('SetSAPHoldStopDateTime', HoldStopDTM)
|
||||
|
||||
return
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
UNLOCK ALL
|
||||
NumWindows = Utility('WINCOUNT')
|
||||
If NumWindows EQ 1 then Set_Property('SYSTEM','IDLEPROC','ADIOS')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Timer:
|
||||
* * * * * * *
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
Set_Property(@WINDOW:'.CURR_TIME','TEXT',OCONV( Time(), 'MTHS' )) ;* Clock on window
|
||||
|
||||
LastTime = Get_Property(@WINDOW,'@LAST_TIME')
|
||||
|
||||
* * * Added 1/29/2015 JCH/DKK * * *
|
||||
|
||||
*** Used to temporarily stop the SAP interface during specified time periods, like SAP-PI outage, EOM procesing, VM backups.
|
||||
|
||||
SAPOutage = SAP_Services('GetSAPOutageFlag')
|
||||
IF SAPOutage THEN
|
||||
Set_Property(@WINDOW:'.BACKUP_HOLD','VISIBLE',1)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.BACKUP_HOLD','VISIBLE',0)
|
||||
END
|
||||
|
||||
|
||||
IF LastTime > Time() THEN
|
||||
Set_Property(@WINDOW,'@LAST_TIME', Time()) ;* Midnight -> clock resets to 0
|
||||
LastTime = Time()
|
||||
// Call the SRPEngineService and pass it the command
|
||||
Command = 'RUN SAP_SERVICES "SendReconcile"'
|
||||
TCPServerSettings@ = Database_Services('ReadDataRow', 'APP_INFO', 'SQL_TCPIP_SETTINGS')
|
||||
TcpClientHandle = 0
|
||||
If SRP_TcpClient(TcpClientHandle, 'CONNECT', TCPServerSettings@<1>, TCPServerSettings@<2>) then
|
||||
SRP_TcpClient(TcpClientHandle, 'SEND_SES', Command)
|
||||
SRP_TcpClient(TcpClientHandle, 'CLOSE_SES')
|
||||
end
|
||||
* obj_SAP('SendReconcile') ;* WIP Recom data sent to SAP once each day at midnight
|
||||
END
|
||||
|
||||
CommOn = Get_Property(@WINDOW,'@COMM_ACTIVE')
|
||||
CommOnTime = Get_Property(@WINDOW,'@COMM_ACTIVE_TIME')
|
||||
|
||||
IF CommOn THEN
|
||||
Send_Info('Comm Active...')
|
||||
IF Time() - CommOnTime > 22 THEN
|
||||
Set_Property(@WINDOW,'@COMM_ACTIVE',0) ;* FTP window timeout takes about 21 seconds
|
||||
Set_Property(@WINDOW,'@COMM_ACTIVE_TIME','') ;* Hold off retrying until
|
||||
END
|
||||
|
||||
END ELSE
|
||||
Interval = DEFAULT_INTERVAL$
|
||||
IF Time() >= (LastTime + Interval) Then ;* SAP_Comm cycle time setting = 10 sec - changed to 8 sec -dkk 1/14/15
|
||||
|
||||
Set_Property(@WINDOW,'@LAST_TIME', Time())
|
||||
|
||||
END ;* End of comm interval time check
|
||||
|
||||
END ;* End of check for @COMM_ON flag
|
||||
|
||||
|
||||
*********************************************
|
||||
* Refresh the SAP Buffer Outbound Qty Count *
|
||||
*********************************************
|
||||
|
||||
OutboundQty = SAP_Services('GetOutboundPending')
|
||||
|
||||
Set_Property(@WINDOW:'.OUTBOUND_QTY','TEXT', OutboundQty)
|
||||
|
||||
If (OutboundQty >= OutBoundLimit$) Then
|
||||
OutBoundMsgSent = Get_Property(@Window,'@OutBoundMsgSent')
|
||||
If (OutBoundMsgSent NE True$) Then
|
||||
Recipients = XLATE('NOTIFICATION', 'FI_SUPPORT', 'USER_ID', 'X')
|
||||
SentFrom = 'OI Admin'
|
||||
Subject = 'SAP Comm OUTBOUND Pending Buffer'
|
||||
Message = 'SAP Comm OUTBOUND Pending Buffer is filling up with ':OutboundQty:' records not sent. Check SAP interface.'
|
||||
AttachWindow = ''
|
||||
AttachKey = ''
|
||||
SendToGroup = ''
|
||||
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
|
||||
Set_Property(@WINDOW,'@OutBoundMsgSent', True$)
|
||||
end
|
||||
|
||||
end else
|
||||
Set_Property(@WINDOW,'@OutBoundMsgSent', False$)
|
||||
end
|
||||
|
||||
|
||||
************************************************
|
||||
* Refresh the SAP Buffer Inbound Pending Count *
|
||||
************************************************
|
||||
Set_Status(0)
|
||||
|
||||
InboundPending = SAP_Services('GetInboundPending')
|
||||
If InboundPending < 0 then InboundPending = 0
|
||||
Set_Property(@WINDOW:'.INBOUND_PENDING','TEXT', InboundPending)
|
||||
|
||||
If (InboundPending >= InBoundLimit$) Then
|
||||
|
||||
InBoundMsgSent = Get_Property(@Window,'@InBoundMsgSent')
|
||||
If (InBoundMsgSent NE True$) Then
|
||||
Recipients = XLATE('NOTIFICATION', 'FI_SUPPORT', 'USER_ID', 'X')
|
||||
SentFrom = 'OI Admin'
|
||||
Subject = 'SAP Comm INBOUND Pending Buffer'
|
||||
Message = 'SAP Comm INBOUND Pending Buffer is filling up with ':InBoundPending:' records not received. Check SAP interface.'
|
||||
AttachWindow = ''
|
||||
AttachKey = ''
|
||||
SendToGroup = ''
|
||||
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
|
||||
Set_Property(@WINDOW,'@InBoundMsgSent', True$)
|
||||
end
|
||||
|
||||
end else
|
||||
Set_Property(@WINDOW,'@InBoundMsgSent', False$)
|
||||
end
|
||||
|
||||
Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield(); Yield()
|
||||
Sleepery(500)
|
||||
Set_Property(@WINDOW,'TIMER','0':@FM:'1000') ;* Set the next timer event to start in 1000 msecs (1 second).
|
||||
|
||||
RETURN
|
||||
81
LSL2/STPROC/COMM_DIALOG_TEXT.txt
Normal file
81
LSL2/STPROC/COMM_DIALOG_TEXT.txt
Normal file
@ -0,0 +1,81 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Text(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Text window.
|
||||
|
||||
06/09/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Text'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
WindowTitle = Parm1<1>
|
||||
TextIn = Parm1<2>
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',WindowTitle)
|
||||
Set_Property(@WINDOW:'.TEXT_BOX','DEFPROP',TextIn)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
Text = Get_Property(@WINDOW:'.TEXT_BOX','DEFPROP')
|
||||
|
||||
Result = Text
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
241
LSL2/STPROC/COMM_DIALOG_TOOL_MODE.txt
Normal file
241
LSL2/STPROC/COMM_DIALOG_TOOL_MODE.txt
Normal file
@ -0,0 +1,241 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Tool_Mode(Method, Parm1, Parm2, Parm3)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Tool_Mode window.
|
||||
|
||||
10/23/2007 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, obj_Tool_Log
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, SRP_Array
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT APPCOLORS
|
||||
$insert IR_INSERTS
|
||||
$INSERT TOOL_EQUATES
|
||||
|
||||
ErrCode = ''
|
||||
ErrorMsg = ''
|
||||
ErrTitle = 'Error in Comm_Dialog_Tool_Mode'
|
||||
|
||||
Result = ''
|
||||
|
||||
Begin Case
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'LU_UserID' ; GOSUB LU_UserID
|
||||
CASE Method = 'UserIDLF' ; GOSUB UserIDLF
|
||||
CASE Method = 'LU_ChgToMode' ; GOSUB LU_ChgToMode
|
||||
Case Method = 'EnableOK' ; GOSUB EnableOK
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
End Case
|
||||
|
||||
Return Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
obj_AppWindow('Create')
|
||||
|
||||
ToolID = Parm1
|
||||
ToolRec = XLATE('TOOL', ToolID, '', 'X')
|
||||
ToolDesc = ToolRec<TOOL_TOOL_DESC$>
|
||||
ToolProc = ToolRec<TOOL_TOOL_PROC$>
|
||||
|
||||
CurrMode = XLATE('TOOL', ToolID, 'CURR_MODE', 'X')<1,1>
|
||||
|
||||
IF CurrMode EQ "" THEN
|
||||
obj_Tool_Log('InitialLog', ToolID)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
CurrMode = 'OUT'
|
||||
END
|
||||
|
||||
* Window title in top bar
|
||||
|
||||
WinText = 'Tool Mode Change - ':ToolDesc
|
||||
Set_Property(@WINDOW, 'TEXT', WinText)
|
||||
|
||||
UserName = Oconv(@USER4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
|
||||
Set_Property(@WINDOW:'.USER_ID', 'DEFPROP', @USER4)
|
||||
Set_Property(@WINDOW:'.USER_NAME', 'DEFPROP', UserName)
|
||||
Set_Property(@WINDOW:'.REASON', 'FOCUS', 1)
|
||||
Set_Property(@WINDOW:'.TOOL_ID', 'DEFPROP', ToolID)
|
||||
Set_Property(@WINDOW:'.CURR_MODE', 'DEFPROP', CurrMode)
|
||||
|
||||
ModeData = XLATE('SYSREPOSPOPUPS', 'LSL2**TOOL_MODE', '8', 'X')
|
||||
|
||||
|
||||
Ctrls = @WINDOW:'.NEW_MODE':@RM ; Props = 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.NEW_MODE_GROUP':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.CHG_TO_MODE':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LU_CHG_TO_MODE':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.CHG_TO_MODE_LABEL' ; Props := 'VISIBLE'
|
||||
|
||||
|
||||
|
||||
*IF ToolProc = 'G' THEN
|
||||
|
||||
* GaN process
|
||||
|
||||
Vals = '0':@RM:'0':@RM:'1':@RM:'1':@RM:'1'
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
*END ELSE
|
||||
/*
|
||||
* Si Process
|
||||
|
||||
Vals = '1':@RM:'1':@RM:'0':@RM:'0':@RM:'0'
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
|
||||
TextVals = ''
|
||||
ValueVals = ''
|
||||
|
||||
FOR I = 1 TO COUNT(ModeData,@VM) + (ModeData NE '')
|
||||
ModeID = ModeData<1,I,1>
|
||||
ModeDesc = ModeData<1,I,2>
|
||||
IF ModeID NE CurrMode THEN
|
||||
TextVals := ModeDesc:@RM
|
||||
ValueVals := ModeID:@RM
|
||||
END
|
||||
NEXT I
|
||||
|
||||
*TextVals[-1,1] = '' ;* Leave the hanging @RM -> These are concatenated a few lines down
|
||||
ValueVals[-1,1] = ''
|
||||
|
||||
Ctrls = @WINDOW:'.NEW_MODE.LABELFORMODE1':@RM:@WINDOW:'.NEW_MODE.LABELFORMODE2':@RM:@WINDOW:'.NEW_MODE.LABELFORMODE3':@RM
|
||||
Ctrls := @WINDOW:'.NEW_MODE.LABELFORMODE1':@RM:@WINDOW:'.NEW_MODE.LABELFORMODE2':@RM:@WINDOW:'.NEW_MODE.LABELFORMODE3'
|
||||
|
||||
Props = 'TEXT':@RM:'TEXT':@RM:'TEXT':@RM:'VALUE':@RM:'VALUE':@RM:'VALUE'
|
||||
Vals = TextVals:ValueVals
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
DefVal = ValueVals[1,@RM]
|
||||
Set_Property(@WINDOW:'.NEW_MODE', 'VALUE', DefVal)
|
||||
*/
|
||||
|
||||
*END ;* End of check for Process flag
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LU_UserID:
|
||||
* * * * * * *
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 1
|
||||
TypeOver<PDISPLAY$> = 'BY LAST_FIRST'
|
||||
|
||||
UserID = Popup(@WINDOW,TypeOver,'SHOW_USERS')
|
||||
|
||||
IF UserID NE '' THEN
|
||||
Set_Property(@WINDOW:'.USER_ID','DEFPROP',UserID)
|
||||
END ELSE
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
* * * * * * *
|
||||
UserIDLF:
|
||||
* * * * * * *
|
||||
|
||||
UserID = Get_Property(@WINDOW:'.USER_ID','DEFPROP')
|
||||
|
||||
UserName = OCONV(UserID,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
Set_Property(@WINDOW:'.USER_NAME','DEFPROP',UserName)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LU_ChgToMode:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = @WINDOW:'.':Parm1
|
||||
|
||||
|
||||
NewMode = Popup(@WINDOW,'','TOOL_MODE')
|
||||
|
||||
IF NewMode = '' THEN RETURN
|
||||
|
||||
obj_AppWindow('LUValReturn',NewMode:@RM:ReturnCtrl)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * *
|
||||
OK:
|
||||
* * * * * *
|
||||
|
||||
UserID = Get_Property(@WINDOW:'.USER_ID', 'DEFPROP')
|
||||
Reason = Get_Property(@WINDOW:'.REASON', 'DEFPROP')
|
||||
ChgToMode = Get_Property(@WINDOW:'.CHG_TO_MODE','DEFPROP')
|
||||
|
||||
Result = UserID:@FM:Reason:@FM:ChgToMode
|
||||
|
||||
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
EnableOK:
|
||||
* * * * * * *
|
||||
|
||||
ChgToMode = Get_Property(@WINDOW:'.CHG_TO_MODE','DEFPROP')
|
||||
ValidModes = Xlate('SYSREPOSPOPUPS', 'LSL2**TOOL_MODE', 'DISPLAY', 'X')
|
||||
ValidModes = SRP_Array('Rotate', ValidModes, @VM, @SVM)
|
||||
ValidModes = ValidModes<0, 1>
|
||||
Locate ChgToMode in ValidModes using @SVM setting vsPos then
|
||||
Enabled = True$
|
||||
end else
|
||||
Enabled = False$
|
||||
end
|
||||
Set_Property(@Window:'.OK_BUTTON', 'ENABLED', Enabled)
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
370
LSL2/STPROC/COMM_DIALOG_TOOL_STATUS.txt
Normal file
370
LSL2/STPROC/COMM_DIALOG_TOOL_STATUS.txt
Normal file
@ -0,0 +1,370 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Tool_Status(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Tool_Status window.
|
||||
|
||||
10/18/2007 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, Tool_Services, Error_Services
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, obj_Tool_Log
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
DECLARE FUNCTION obj_Tool, SRP_Array, Error_Services
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU FONTBLUE$ TO 16711680 ;* \FF0000\
|
||||
EQU FONTRED$ TO 255 ;* \0000FF\
|
||||
EQU APPYELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT TOOL_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Tool_Status'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'TBClick' ; GOSUB TBClick
|
||||
CASE Method = 'Timer' ; GOSUB Refresh
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
ScreenSize = Get_Property('SYSTEM','SIZE')
|
||||
DialogSize = Get_Property(@WINDOW,'SIZE')
|
||||
|
||||
wScreen = ScreenSize<3>
|
||||
hScreen = ScreenSize<4>
|
||||
|
||||
xDialog = DialogSize<1>
|
||||
yDialog = DialogSize<2>
|
||||
wDialog = DialogSize<3>
|
||||
hDialog = DialogSize<4>
|
||||
|
||||
DialogSize<1> = (wScreen - wDialog)/2
|
||||
DialogSize<2> = 580; //496 ;* 50 pixels @ top + 444 pixel dialog above + 2 pixel space
|
||||
|
||||
Set_Property(@WINDOW,'SIZE',DialogSize:@FM:-1)
|
||||
|
||||
CurSize = Get_Property(@Window, "SIZE")
|
||||
MinW = CurSize<3>
|
||||
MinH = CurSize<4>
|
||||
MaxW = CurSize<3>
|
||||
MaxH = CurSize<4>
|
||||
Set_Property(@Window,"TRACKINGSIZE",MinW:@FM:MinH:@FM:MaxW:@FM:MaxH)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
Set_Property(@WINDOW,'TIMER',60000:@FM:40000)
|
||||
|
||||
Set_Property(@WINDOW,'VISIBLE',1)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
ToolIDs = obj_Tool('KeysByType') ;* All tool IDs sorted by TOOL_TYPE
|
||||
|
||||
CleansTools = ''
|
||||
MetrologyTools = ''
|
||||
InspectionTools = ''
|
||||
TransferTools = ''
|
||||
QuartzTools = ''
|
||||
OtherTools = ''
|
||||
|
||||
CTCnt = 0
|
||||
MTCnt = 0
|
||||
ITCnt = 0
|
||||
TRCnt = 0
|
||||
QZCnt = 0
|
||||
OtherCnt = 0
|
||||
|
||||
DispTools = ''
|
||||
|
||||
For Each ToolID in ToolIDs using @VM
|
||||
ToolRec = XLATE('TOOL',ToolID,'','X')
|
||||
ToolType = ToolRec<TOOL_TOOL_TYPE$>
|
||||
ToolDesc = ToolRec<TOOL_TOOL_DESC$>
|
||||
ToolMode = XLATE('TOOL', ToolID, 'CURR_MODE', 'X')<1,1>
|
||||
ToolHrs = OCONV(XLATE('TOOL', ToolID, 'CURR_MODE_HRS', 'X'), 'MD2')
|
||||
PMStatus = XLATE('TOOL', ToolID, 'PM_STATUS', 'X')
|
||||
IF ToolRec<TOOL_ACTIVE_ESCALATION$> = '' THEN
|
||||
ToolEsc = 0
|
||||
END ELSE
|
||||
ToolEsc = 1
|
||||
ToolHrs = XLATE('TOOL_ESC',ToolRec<TOOL_ACTIVE_ESCALATION$>,'ELAPSED_HRS','X')
|
||||
ToolHrs = OCONV(ToolHrs,'MD2')
|
||||
END
|
||||
|
||||
BEGIN CASE
|
||||
CASE INDEX(ToolType,'Cleans',1)
|
||||
SortPriority = 1
|
||||
* CTCnt += 1
|
||||
* CleansTools<CTCnt,1> = ToolID
|
||||
* CleansTools<CTCnt,2> = ToolDesc
|
||||
* CleansTools<CTCnt,3> = ToolMode
|
||||
* CleansTools<CTCnt,4> = ToolHrs
|
||||
* CleansTools<CTCnt,5> = ToolEsc
|
||||
*
|
||||
CASE ToolType = 'Metrology'
|
||||
SortPriority = 2
|
||||
* MTCnt += 1
|
||||
* MetrologyTools<MTCnt,1> = ToolID
|
||||
* MetrologyTools<MTCnt,2> = ToolDesc
|
||||
* MetrologyTools<MTCnt,3> = ToolMode
|
||||
* MetrologyTools<MTCnt,4> = ToolHrs
|
||||
* MetrologyTools<MTCnt,5> = ToolEsc
|
||||
*
|
||||
CASE ToolType = 'Inspection'
|
||||
SortPriority = 3
|
||||
* ITCnt += 1
|
||||
* InspectionTools<ITCnt,1> = ToolID
|
||||
* InspectionTools<ITCnt,2> = ToolDesc
|
||||
* InspectionTools<ITCnt,3> = ToolMode
|
||||
* InspectionTools<ITCnt,4> = ToolHrs
|
||||
* InspectionTools<ITCnt,5> = ToolEsc
|
||||
*
|
||||
CASE ToolType = 'Transfer'
|
||||
SortPriority = 4
|
||||
* TRCnt += 1
|
||||
* TransferTools<TRCnt,1> = ToolID
|
||||
* TransferTools<TRCnt,2> = ToolDesc
|
||||
* TransferTools<TRCnt,3> = ToolMode
|
||||
* TransferTools<TRCnt,4> = ToolHrs
|
||||
* TransferTools<TRCnt,5> = ToolEsc
|
||||
*
|
||||
CASE ToolType = 'Quartz'
|
||||
SortPriority = 5
|
||||
* QZCnt += 1
|
||||
* QuartzTools<QZCnt,1> = ToolID
|
||||
* QuartzTools<QZCnt,2> = ToolDesc
|
||||
* QuartzTools<QZCnt,3> = ToolMode
|
||||
* QuartzTools<QZCnt,4> = ToolHrs
|
||||
* QuartzTools<QZCnt,5> = ToolEsc
|
||||
*
|
||||
CASE 1
|
||||
SortPriority = 6
|
||||
* OtherCnt += 1
|
||||
* OtherTools<OtherCnt,1> = ToolID
|
||||
* OtherTools<OtherCnt,2> = ToolDesc
|
||||
* OtherTools<OtherCnt,3> = ''
|
||||
* OtherTools<OtherCnt,4> = ToolHrs
|
||||
* OtherTools<OtherCnt,5> = ToolEsc
|
||||
*
|
||||
END CASE
|
||||
|
||||
DispTools := ToolID : @VM : ToolDesc : @VM : ToolMode : @VM : ToolHrs : @VM : ToolEsc : @VM : SortPriority : @VM: PMStatus : @FM
|
||||
|
||||
Next ToolID
|
||||
|
||||
DispTools[-1, 1] = ''
|
||||
DispTools = SRP_Array('SortRows', DispTools, 'AR6' : @FM : 'AL1', 'LIST', @FM, @VM)
|
||||
|
||||
* CTColCnt = INT(CTCnt/6)
|
||||
* IF MOD(CTCnt,6) > 0 THEN CTColCnt += 1
|
||||
* CTPnlCnt = CTColCnt * 6
|
||||
* CleansTools := STR(@FM:@VM,CTPnlCnt - CTCnt)
|
||||
*
|
||||
* MTColCnt = INT(MTCnt/6)
|
||||
* IF MOD(MTCnt,6) > 0 THEN MTColCnt += 1
|
||||
* MTPnlCnt = MTColCnt * 6
|
||||
* MetrologyTools := STR(@FM:@VM,MTPnlCnt - MTCnt)
|
||||
*
|
||||
* ITColCnt = INT(ITCnt/6)
|
||||
* IF MOD(ITCnt,6) > 0 THEN ITColCnt += 1
|
||||
* ITPnlCnt = ITColCnt * 6
|
||||
* InspectionTools := STR(@FM:@VM,ITPnlCnt - ITCnt)
|
||||
*
|
||||
* TRColCnt = INT(TRCnt/6)
|
||||
* IF MOD(TRCnt,6) > 0 THEN TRColCnt += 1
|
||||
* TRPnlCnt = TRColCnt * 6
|
||||
* TransferTools := STR(@FM:@VM,TRPnlCnt - TRCnt)
|
||||
*
|
||||
* QZColCnt = INT(QZCnt/6)
|
||||
* IF MOD(TRCnt,6) > 0 THEN QZColCnt += 1
|
||||
* QZPnlCnt = QZColCnt * 6
|
||||
* QuartzTools := STR(@FM:@VM,QZPnlCnt - QZCnt)
|
||||
*
|
||||
* OtherColCnt = INT(OtherCnt/6)
|
||||
* IF MOD(OtherCnt,6) > 0 THEN OtherColCnt += 1
|
||||
* OtherPnlCnt = OtherColCnt * 6
|
||||
* OtherTools := STR(@FM:@VM,OtherPnlCnt - OtherCnt)
|
||||
|
||||
* DispTools = ''
|
||||
* IF CleansTools NE '' THEN DispTools := CleansTools
|
||||
* IF MetrologyTools NE '' THEN DispTools := @FM:MetrologyTools
|
||||
* IF InspectionTools NE '' THEN DispTools := @FM:InspectionTools
|
||||
* IF TransferTools NE '' THEN DispTools := @FM:TransferTools
|
||||
* IF QuartzTools NE '' THEN DispTools := @FM:QuartzTools
|
||||
* IF OtherTools NE '' THEN DispTools := @FM:OtherTools
|
||||
|
||||
GreenButton = '.\BMPS\GreenButton.png'
|
||||
RedButton = '.\BMPS\RedButton.png'
|
||||
YellowButton = '.\BMPS\YellowButton.png'
|
||||
GrayButton = '.\BMPS\GrayButton.png'
|
||||
QuestionButton = '.\BMPS\help_32.bmp'
|
||||
|
||||
DefaultBackColor = Get_Property(@WINDOW,'BACKCOLOR')
|
||||
|
||||
NumTools = DCount(DispTools, @FM)
|
||||
|
||||
FOR I = 1 TO NumTools
|
||||
|
||||
ToolID = DispTools<I,1>
|
||||
ToolDesc = DispTools<I,2>
|
||||
ToolStatus = DispTools<I,3>
|
||||
ToolHrs = DispTools<I,4>
|
||||
ToolEsc = DispTools<I,5>
|
||||
PMStatus = DispTools<I,7>
|
||||
|
||||
IF ToolID NE '' THEN
|
||||
|
||||
* If ( (ToolID EQ 'BIORAD2') or (ToolID EQ 'BIORAD3') or (ToolID EQ 'BIORAD4') or (ToolID EQ 'BIORAD5') ) then
|
||||
Begin Case
|
||||
Case PMStatus EQ 'OVERDUE'
|
||||
BackColor = RED$
|
||||
Case PMStatus EQ 'CURRENTLY_DUE'
|
||||
BackColor = ORANGE$
|
||||
Case PMStatus EQ 'DUE_SOON'
|
||||
BackColor = YELLOW$
|
||||
Case PMStatus EQ 'NOT_SCHEDULED'
|
||||
BackColor = DefaultBackColor
|
||||
Case PMStatus EQ 'NOT_DUE'
|
||||
BackColor = GREEN$
|
||||
Case PMStatus EQ 'ERROR'
|
||||
BackColor = BRED$
|
||||
End Case
|
||||
* end else
|
||||
* BackColor = DefaultBackColor
|
||||
* end
|
||||
|
||||
Set_Property(@WINDOW:'.TP':I,'TEXT',ToolDesc)
|
||||
Set_Property(@WINDOW:'.TP':I,'@TOOLID',ToolID)
|
||||
Set_Property(@WINDOW:'.TT':I,'TEXT',ToolHrs)
|
||||
Set_Property(@WINDOW:'.TT':I,'FORECOLOR',FONTBLUE$)
|
||||
Set_Property(@WINDOW:'.TB':I,'ENABLED',1)
|
||||
|
||||
Set_Property(@WINDOW:'.TP':I, 'BACKCOLOR', BackColor)
|
||||
Set_Property(@WINDOW:'.TB':I, 'BACKCOLOR', BackColor)
|
||||
|
||||
BEGIN CASE
|
||||
CASE ToolStatus = 'PROD'
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP',GreenButton)
|
||||
|
||||
CASE ToolStatus[-3,3] = 'MTC' or ToolStatus = 'QUAL_OVERDUE' or ToolStatus EQ 'VER_FAILED'
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP',RedButton)
|
||||
|
||||
CASE ToolStatus = 'LIM' OR ToolStatus = 'QUAL' OR ToolStatus = 'EWORK' or ToolStatus EQ 'VER'
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP',YellowButton)
|
||||
|
||||
CASE ToolStatus = 'OUT' OR ToolStatus = 'FACILITIES (UnSched)'
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP',GrayButton)
|
||||
|
||||
CASE 1
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP',QuestionButton)
|
||||
|
||||
END CASE
|
||||
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.TP':I,'TEXT','')
|
||||
Set_Property(@WINDOW:'.TT':I,'TEXT','')
|
||||
Set_Property(@WINDOW:'.TB':I,'ENABLED',0)
|
||||
Set_Property(@WINDOW:'.TB':I,'BITMAP','')
|
||||
END
|
||||
NEXT I
|
||||
|
||||
* Set_Property(@WINDOW, 'VISIBLE', 1)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
TBClick:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = Get_Property(@WINDOW,'FOCUS')
|
||||
CtrlName = FIELD(CtrlEntID,'.',2)
|
||||
|
||||
CONVERT 'B' TO 'P' In CtrlEntID ;* Buttons are named 'TB':n
|
||||
ToolID = Get_Property(CtrlEntID,'@TOOLID') ;* Properties are on panels named 'TP':n
|
||||
|
||||
* Check and lock
|
||||
|
||||
Open "TOOL" to hTable then
|
||||
DialogWin = "DIALOG_TOOL_MODE"
|
||||
DialogKey = DialogWin:"*":ToolID
|
||||
|
||||
Lock hTable, DialogKey then
|
||||
ModeChangeParms = Dialog_Box("DIALOG_TOOL_MODE", @WINDOW, ToolID)
|
||||
Unlock hTable, DialogKey
|
||||
end else
|
||||
Mtext = "Another user is currently updating this tool's status."
|
||||
Msg(@Window, "", "ERROR", "", "Update Tool Status" :@FM: Mtext)
|
||||
ModeChangeParms = "Cancel"
|
||||
end
|
||||
end
|
||||
|
||||
* Cancel returned from dialog box
|
||||
|
||||
IF ModeChangeParms = 'Cancel' THEN RETURN
|
||||
|
||||
UserID = ModeChangeParms[1,@FM]
|
||||
Reason = ModeChangeParms[COL2()+1,@FM]
|
||||
NewMode = ModeChangeParms[COL2()+1,@FM]
|
||||
|
||||
* Two users trying to update at same time leaves more than one current mode. Take the first one.
|
||||
|
||||
CurrModeDTM = XLATE('TOOL', ToolID, TOOL_CURR_MODE_KEY$, 'X')<1,1>
|
||||
CurrModeDTM = FIELD(CurrModeDTM,'*',2)
|
||||
CurrModeDTM = OCONV(CurrModeDTM,'DT4/^S')
|
||||
|
||||
Parms = ToolID:@RM
|
||||
Parms := CurrModeDTM:@RM
|
||||
Parms := NewMode:@RM
|
||||
Parms := Reason
|
||||
|
||||
//obj_Tool_Log('SetMode', Parms)
|
||||
Tool_Services('ChangeToolMode', ToolID, NewMode, Reason, @User4, 0)
|
||||
* IF Get_Status(errCode) THEN
|
||||
* Errmsg(errCode)
|
||||
* RETURN
|
||||
* END
|
||||
If Error_Services('HasError') then
|
||||
Error_Services('DisplayError')
|
||||
end
|
||||
|
||||
|
||||
GoSub Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
647
LSL2/STPROC/COMM_DIALOG_UNLOAD_EPI_PRO.txt
Normal file
647
LSL2/STPROC/COMM_DIALOG_UNLOAD_EPI_PRO.txt
Normal file
@ -0,0 +1,647 @@
|
||||
COMPILE FUNCTION Comm_Dialog_Unload_Epi_Pro(Method, Parm1, Parm2)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_Unload_Epi_Pro window.
|
||||
|
||||
05/01/2006 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, obj_RDS2, Send_Event, RDS_React_Run, Post_Event, obj_Tables
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, obj_WM_Out, obj_WM_Wfrs, obj_React_Status, Send_Info
|
||||
DECLARE SUBROUTINE Database_Services
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, obj_WM_Out, Send_Message, obj_NCR, ETMethod, obj_WM_Wfrs, obj_Tables
|
||||
DECLARE FUNCTION Set_Property, SRP_Array, Database_Services
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT RDS_EQU
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
$INSERT REACTOR_EQUATES
|
||||
$INSERT RDS_EPILOAD
|
||||
$INSERT NCR_EQU
|
||||
$INSERT EPI_SUSCEPTOR_EQUATES
|
||||
$INSERT PROD_SPEC_EQUATES
|
||||
$INSERT PRS_STAGE_EQUATES
|
||||
$INSERT EPI_PART_EQUATES
|
||||
$INSERT QUOTE_SPEC_EQU
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT WM_OUT_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU COL$WM_OUT_CASS TO 1
|
||||
EQU COL$WM_OUT_SLOT TO 2
|
||||
|
||||
EQU COL$POCKET TO 1
|
||||
EQU COL$USAGE TO 2
|
||||
EQU COL$ZONE TO 3
|
||||
EQU COL$IN_CASS TO 4
|
||||
EQU COL$IN_SLOT TO 5
|
||||
EQU COL$WAFER_TYPE TO 6
|
||||
EQU COL$OUT_CASS TO 7
|
||||
EQU COL$OUT_SLOT TO 8
|
||||
EQU COL$OUT_NCR TO 9
|
||||
|
||||
EQU COL$NCR_NO TO 1
|
||||
EQU COL$NCR_POCKET TO 2
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Load_Epi_Pro'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
|
||||
CASE Method = 'ReloadProduct' ; GOSUB ReloadProduct
|
||||
CASE Method = 'UnloadProduct' ; GOSUB UnloadProduct
|
||||
CASE Method = 'ReactIR' ; GOSUB ReactIR
|
||||
CASE Method = 'ReactDR' ; GOSUB ReactDR
|
||||
CASE Method = 'SlotOverview' ; GOSUB SlotOverview
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
* get the current style
|
||||
|
||||
EQU MULTILINE_STYLE$ TO 512 ;* MultiLine Select
|
||||
EQU DROPDOWN_STYLE$ TO 131072
|
||||
|
||||
Style = Get_Property(@WINDOW:'.REACTOR_TABLE', 'STYLE')
|
||||
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.REACTOR_TABLE', "STYLE", Style)
|
||||
|
||||
RDSNo = FIELD(Parm1,@FM,1)
|
||||
CurrentLoad = FIELD(Parm1,@FM,2,99)
|
||||
|
||||
IF RDSNo = '' THEN
|
||||
ErrMsg('Null RDS No passed to Dialog Box...')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
|
||||
Set_Status(0)
|
||||
otParmsRDS = 'RDS':@RM:RDSNo
|
||||
RDSRec = obj_Tables('ReadRec',otParmsRDS)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
* BlockUnload = Xlate('RDS', RDSNo, 'BLOCK_UNLOAD', 'X')
|
||||
*
|
||||
* If BlockUnload EQ True$ then
|
||||
* Set_Property(@Window:'.UNLOAD_PRODUCT', 'ENABLED', False$)
|
||||
* end
|
||||
|
||||
Set_Property(@WINDOW,'@LOCKED_RDS',otParmsRDS)
|
||||
|
||||
|
||||
ReactorNo = RDSRec<RDS_REACTOR$>
|
||||
WONo = RDSRec<RDS_WO$>
|
||||
WOStepKey = RDSRec<RDS_WO_STEP_KEY$>
|
||||
WOStep = FIELD(WOStepKey,'*',2)
|
||||
|
||||
otParms = 'WO_LOG':@RM:WONo:'*Unload' ;* Added 7/8/2009 JCH * * * * * * *
|
||||
obj_Tables('LockRec',otParms) ;* Places lock on fictional record
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrorMsg = 'Another workstation is currently Unloading a Reactor Run for this Work Order.'
|
||||
ErrMsg(ErrorMsg)
|
||||
|
||||
obj_Tables('UnlockRec',otParmsRDS)
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW,'@LOCKED',otParms)
|
||||
|
||||
PSNo = XLATE('WO_STEP',WOStepKey,1,'X')
|
||||
*ReactorType = XLATE('PROD_SPEC',PSNo,PROD_SPEC_REACTOR_TYPE$,'X') ;* Variable not used progrqam 8/27/2014 JCH
|
||||
PSType = XLATE('PROD_SPEC',PSNo,'SPEC_TYPE','X') ;* New reference 8/22/2012 JCH
|
||||
EpiPN = XLATE('WO_LOG',WONo,WO_LOG_EPI_PART_NO$,'X')
|
||||
|
||||
*SubstrateSpec = XLATE('PROD_SPEC',PSNo,PROD_SPEC_SPEC_SUBSTRATE$,'X')
|
||||
|
||||
SubPostClean = XLATE('PRS_STAGE',PSNo:'*POST',PRS_STAGE_CLEAN_TOOL$,'X') ;* SubstrateSpec<1,QSSubPostClean$>
|
||||
WaferSize = XLATE('EPI_PART',EpiPN,EPI_PART_SUB_WAFER_SIZE$,'X') ;* SubstrateSpec<1,QSSubWaferSize$>
|
||||
|
||||
BEGIN CASE
|
||||
CASE WaferSize = '125 mm 5 in' ; EpiSusceptorKey = '5'
|
||||
CASE WaferSize = '150 mm 6 in' ; EpiSusceptorKey = '6'
|
||||
CASE WaferSize = '200 mm 8 in' ; EpiSusceptorKey = '8'
|
||||
CASE 1
|
||||
ErrMsg('Unknown Wafer Size ':QUOTE(WaferSize):' in PSN ':PSNo)
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
END CASE
|
||||
|
||||
EpiSusceptorRec = XLATE('EPI_SUSCEPTOR',EpiSusceptorKey,'','X')
|
||||
|
||||
Pockets = EpiSusceptorRec<EPI_SUSCEPTOR_POCKET_NO$>
|
||||
Zones = EpiSusceptorRec<EPI_SUSCEPTOR_POCKET_ZONE$>
|
||||
PTypes = EpiSusceptorRec<EPI_SUSCEPTOR_POCKET_TYPE$>
|
||||
|
||||
Ctrls = @WINDOW:'.RDS_NO':@RM:@WINDOW:'.WO_NO':@RM:@WINDOW:'.WO_STEP':@RM:@WINDOW:'.REACTOR_NO'
|
||||
Props = 'DEFPROP':@RM: 'DEFPROP':@RM: 'DEFPROP':@RM: 'DEFPROP'
|
||||
Vals = RDSNo:@RM:WONo:@RM:WOStep:@RM:ReactorNo
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
ProdLoadCnt = 0
|
||||
ProdUnloadCnt = 0
|
||||
|
||||
|
||||
RCtrl = @WINDOW:'.REACTOR_TABLE'
|
||||
IF CurrentLoad<1,1> = '' THEN
|
||||
|
||||
PocketCnt = COUNT(Pockets,@VM) + (Pockets NE '')
|
||||
FOR I = 1 TO PocketCnt
|
||||
Set_Property(RCtrl,'CELLPOS',Pockets<1,I>,COL$POCKET:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',PTypes<1,I>,COL$USAGE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',Zones<1,I>,COL$ZONE:@FM:I)
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW,'@LAST_POCKET',I-1)
|
||||
|
||||
END ELSE
|
||||
|
||||
* Use load data previously saved on the RDS
|
||||
|
||||
FOR I = 1 TO COUNT(CurrentLoad<1>,@VM) + (CurrentLoad<1> NE '')
|
||||
|
||||
Usage = CurrentLoad<COL$USAGE,I>
|
||||
WfrType = CurrentLoad<COL$WAFER_TYPE,I>
|
||||
OutCass = CurrentLoad<COL$OUT_CASS,I>
|
||||
OutSlot = CurrentLoad<COL$OUT_SLOT,I>
|
||||
|
||||
IF WfrType = 'PROD' AND Usage = '' AND OutCass = '' THEN
|
||||
ProdLoadCnt += 1 ;* Product wafers to be unloaded
|
||||
END
|
||||
|
||||
IF OutCass NE '' THEN
|
||||
ProdUnloadCnt += 1
|
||||
END
|
||||
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$POCKET,I>,COL$POCKET:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',Usage,COL$USAGE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$ZONE,I>,COL$ZONE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$IN_CASS,I>,COL$IN_CASS:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$IN_SLOT,I>,COL$IN_SLOT:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',WfrType,COL$WAFER_TYPE:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',OutCass,COL$OUT_CASS:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$OUT_SLOT,I>,COL$OUT_SLOT:@FM:I)
|
||||
Set_Property(RCtrl,'CELLPOS',CurrentLoad<COL$OUT_NCR,I>,COL$OUT_NCR:@FM:I)
|
||||
|
||||
NEXT I
|
||||
END
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE ProdLoadCnt > 0 AND ProdUnloadCnt = 0
|
||||
|
||||
BriefTxt = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
|
||||
BriefTxt := '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\ri200\b\f0\fs20\par Unload Product from EpiPro Reactor\par'
|
||||
BriefTxt := '\b0\par'
|
||||
BriefTxt := ' 1.) Verify Outbound Cassette and Slots\par'
|
||||
BriefTxt := ' 2.) Unload Product into Outbound Cassette\par}'
|
||||
|
||||
Title = 'Unload Product from EpiPro Reactor'
|
||||
|
||||
Set_Property(@WINDOW:'.UNLOAD_PRODUCT','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.RELOAD_PRODUCT','VISIBLE',0)
|
||||
|
||||
CASE ProdLoadCnt = 0 AND ProdUnloadCnt > 0
|
||||
|
||||
BriefTxt = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
|
||||
BriefTxt := '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\ri200\b\f0\fs20\par Return Product to EpiPro Reactor\par'
|
||||
BriefTxt := '\b0\par'
|
||||
BriefTxt := ' 1.) Return Product to Reactor\par'
|
||||
BriefTxt := '\par}'
|
||||
|
||||
Title = 'Return Product to EpiPro Reactor'
|
||||
|
||||
Set_Property(@WINDOW:'.UNLOAD_PRODUCT','VISIBLE',0)
|
||||
Set_Property(@WINDOW:'.RELOAD_PRODUCT','VISIBLE',1)
|
||||
|
||||
|
||||
CASE 1
|
||||
|
||||
ErrMsg('No wafers loaded in Reactor.') ;* Not yet loaded
|
||||
|
||||
|
||||
END CASE
|
||||
|
||||
Set_Property(@WINDOW:'.BRIEF_EDITBOX','RTFTEXT',BriefTxt)
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','LIST',STR(@VM:@FM,25)) ;* Put empty lines in WM_OUT_TABLE
|
||||
|
||||
IF ProdLoadCnt > 0 THEN
|
||||
|
||||
AllOpenSlotIDs = obj_WM_Out('NextOpenSlots',WONo:@RM:WoStep) ;* Get a list of all open WMO slots on this work order
|
||||
|
||||
OpenSlotIDs = FIELD(AllOpenSlotIDs,@FM,1,ProdLoadCnt) ;* Take the number needed to unload the reactor load
|
||||
|
||||
IF OpenSlotIDs = '' THEN
|
||||
|
||||
ErrMsg('No open WM_OUT slots available to unload into.')
|
||||
|
||||
obj_Tables('UnlockRec',Get_Property(@WINDOW,'@LOCKED'))
|
||||
obj_Tables('UnlockRec',Get_Property(@WINDOW,'@LOCKED_RDS'))
|
||||
|
||||
GOTO Cancel
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','LIST',STR(@VM:@FM,25))
|
||||
|
||||
WMOWaferKeys = ''
|
||||
|
||||
FOR M = 1 TO ProdLoadCnt
|
||||
|
||||
OpenSlotID = OpenSlotIDs<M>
|
||||
OpenCass = OpenSlotID<1,1>
|
||||
OpenSlot = OpenSlotID<1,2>
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','CELLPOS',OpenCass,COL$WM_OUT_CASS:@FM:M) ;* Load Available WMO slots into WM_OUT array
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','CELLPOS',OpenSlot,COL$WM_OUT_SLOT:@FM:M)
|
||||
|
||||
WMOWaferKey = WONo:'*':WOStep:'*':OpenCass:'*':OpenSlot
|
||||
WMOWaferKeys<1,-1> = WMOWaferKey
|
||||
|
||||
NEXT M
|
||||
|
||||
FOR M = ProdLoadCnt + 1 TO 25
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','CELLPOS','',COL$WM_OUT_CASS:@FM:M) ;* Put blank lines from last Slot to bottom of display
|
||||
Set_Property(@WINDOW:'.WM_OUT_TABLE','CELLPOS','',COL$WM_OUT_SLOT:@FM:M)
|
||||
NEXT M
|
||||
|
||||
|
||||
Set_Status(0)
|
||||
LockedWMOKeys = obj_WM_Wfrs('LockSet','WMO_WFRS':@RM:WMOWaferKeys) ;* This locks the cass/slots available to unload into
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
|
||||
obj_Tables('UnlockRec',Get_Property(@WINDOW,'@LOCKED'))
|
||||
obj_Tables('UnlockRec',Get_Property(@WINDOW,'@LOCKED_RDS'))
|
||||
|
||||
GOTO Cancel
|
||||
|
||||
END ELSE
|
||||
Set_Property(@WINDOW,'@LOCKED_WFRS',LockedWMOKeys)
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
RecordLocked = False$
|
||||
OutboundMat = Get_Property(@Window:'.WM_OUT_TABLE', 'ARRAY')
|
||||
If OutboundMat NE '' then
|
||||
CassNos = OutboundMat<1>
|
||||
CassNos = SRP_Array('Clean', CassNos, 'TrimAndMakeUnique', @VM)
|
||||
If CassNos NE '' then
|
||||
For each CassNo in CassNos using @VM setting vPos
|
||||
WMOutKey = WONo:'*1*':CassNo
|
||||
RecordLocked = Database_Services('IsKeyIDLocked', 'WM_OUT', WMOutKey)
|
||||
If RecordLocked then
|
||||
LockOwner = Xlate('WM_OUT', WMOutKey, 'LOCKED_BY', 'X')
|
||||
If LockOwner NE '' then
|
||||
DisplayName = Oconv(LockOwner,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
|
||||
end else
|
||||
DisplayName = 'an unknown user'
|
||||
end
|
||||
MsgParms = ''
|
||||
MsgParms<1> = 'Record Locked'
|
||||
MsgParms<2> = 'The WM_OUT record for this RDS is locked by ':DisplayName:'. Only one user session at a time can edit an RDS.'
|
||||
Msg(@Window, '', 'OK', '', MsgParms)
|
||||
// Disable Unload button
|
||||
Set_Property(@Window:'.UNLOAD_PRODUCT', 'ENABLED', -1)
|
||||
Set_Property(@Window:'.RELOAD_PRODUCT', 'ENABLED', -1)
|
||||
Set_Property(@Window:'.SLOT_STATUS', 'ENABLED', -1)
|
||||
// Clear JCH semaphore locks and close the form
|
||||
GOSUB ClearLocks
|
||||
End_Dialog(@WINDOW,'')
|
||||
end
|
||||
Until RecordLocked EQ True$
|
||||
Next CassNo
|
||||
end
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
|
||||
GOSUB ClearLocks ;* Added 3/2/2010 JCH
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
Set_Property('RDS_UNLOAD.RDS_NO','DEFPROP',RDSNo)
|
||||
Post_Event('RDS_UNLOAD','READ')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
RCtrl = @WINDOW:'.REACTOR_TABLE'
|
||||
ReactorList = Get_Property(RCtrl,'LIST')
|
||||
|
||||
LastPocket = Get_Property(@WINDOW,'@LAST_POCKET')
|
||||
OpenTestCnt = 0
|
||||
OpenProdCnt = 0
|
||||
LineColor = ''
|
||||
|
||||
FOR I = 1 TO COUNT(ReactorList,@FM) + (ReactorList NE '')
|
||||
|
||||
IF ReactorList<I,COL$POCKET> NE '' THEN
|
||||
IF ReactorList<I,COL$USAGE> = 'PROD' THEN
|
||||
Set_Property(RCtrl,'CELLPOS','',COL$USAGE:@FM:I)
|
||||
END
|
||||
|
||||
BEGIN CASE
|
||||
CASE ReactorList<I,COL$OUT_NCR> NE ''
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,RED$)
|
||||
|
||||
CASE ReactorList<I,COL$USAGE> = 'TEST'
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,YELLOW$)
|
||||
|
||||
CASE ReactorList<I,COL$USAGE> = 'DUMMY'
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,WHITE$)
|
||||
|
||||
CASE ReactorList<I,COL$USAGE> = 'PROD' OR ReactorList<I,COL$USAGE> = ''
|
||||
Zone = ReactorList<I,COL$ZONE>
|
||||
IF Zone = 1 THEN LineColor = RCV_BLUE$
|
||||
IF Zone = 2 THEN LineColor = PRE_BLUE$
|
||||
IF Zone = 3 THEN LineColor = INP_BLUE$
|
||||
IF Zone = 4 THEN LineColor = POS_BLUE$
|
||||
Send_Message(RCtrl,'COLOR_BY_POS',0,I,LineColor)
|
||||
|
||||
END CASE
|
||||
END
|
||||
SelectedRows = Get_Property(RCtrl,'SELPOS')
|
||||
Set_Property(RCtrl,'SELPOS',SelectedRows) ;* This is a toggle - turns OFF any turned ON ************************
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReloadProduct:
|
||||
* * * * * * *
|
||||
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
ReactorList = Get_Property(@WINDOW:'.REACTOR_TABLE','LIST') ;* Updated Reactor load data
|
||||
|
||||
WafersPulled = ''
|
||||
NCRPresent = ''
|
||||
|
||||
FOR RP = 1 TO COUNT(ReactorList,@FM) + (ReactorList NE '')
|
||||
IF ReactorList<RP,COL$OUT_CASS> NE '' AND ReactorList<RP,COL$WAFER_TYPE> = 'PROD' AND ReactorList<RP,COL$USAGE> = '' THEN
|
||||
|
||||
|
||||
CassNo = ReactorList<RP,COL$OUT_CASS>
|
||||
SlotNo = ReactorList<RP,COL$OUT_SLOT>
|
||||
Pocket = ReactorList<RP,COL$POCKET>
|
||||
|
||||
WMOutRec = XLATE('WM_OUT',WONo:'*':WOStep:'*':CassNo,'','X')
|
||||
|
||||
LOCATE SlotNo IN WMOutRec<WM_OUT_SLOT_NO$> USING @VM SETTING Pos THEN
|
||||
IF WMOutRec<WM_OUT_RDS$,Pos> = '' THEN WafersPulled = 1
|
||||
IF WMOutRec<WM_OUT_SLOT_NCR$,Pos> NE '' THEN NCRPresent = 1
|
||||
END
|
||||
IF WafersPulled THEN ErrorMsg = 'Wafers pulled from WM_OUT ':SlotNo:' cannot reload reactor.'
|
||||
IF NCRPresent THEN ErrorMsg = 'NCR issued for Slot No ':SlotNo:' in WM_OUT. Cannot reload reactor.'
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrorMsg)
|
||||
GOTO Close
|
||||
END
|
||||
|
||||
END
|
||||
NEXT RP
|
||||
|
||||
OrgColor = Set_Property('DIALOG_UNLOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',YELLOW$) ;* //////// Messaging
|
||||
|
||||
|
||||
GOSUB ClearLocks ;* Added 3/2/2010 JCH
|
||||
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
obj_RDS2('ReloadEpi',RDSNo)
|
||||
|
||||
Send_Info(STR(' ',60)) ;** - Messaging - **
|
||||
Dummy = Set_Property('DIALOG_UNLOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',OrgColor) ;** - Messaging - **
|
||||
|
||||
IF Get_Status(ErrCode) THEN
|
||||
ErrMsg(ErrCode)
|
||||
END
|
||||
|
||||
GOTO Close
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
UnloadProduct:
|
||||
* * * * * * *
|
||||
|
||||
ReactCtrl = @WINDOW:'.REACTOR_TABLE'
|
||||
WMOutCtrl = @WINDOW:'.WM_OUT_TABLE'
|
||||
|
||||
* Get PROD wafers in the reactor
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||
|
||||
|
||||
ReactorList = Get_Property(ReactCtrl,'LIST') ;* Updated Reactor load data
|
||||
AvailSlotKeys = Get_Property(@WINDOW,'@LOCKED_WFRS') ;* Available & locked outbound slots
|
||||
|
||||
OrgColor = Set_Property('DIALOG_UNLOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',YELLOW$) ;* //////// Messaging
|
||||
|
||||
orParms = RDSNo:@RM:ReactorList:@RM:AvailSlotKeys
|
||||
|
||||
GOSUB ClearLocks ;* Added 3/2/2010 JCH
|
||||
|
||||
Abort = False$
|
||||
// Lock outbound cassette records BEFORE modifying any records!
|
||||
CassNos = AvailSlotKeys
|
||||
Swap @VM with @FM in CassNos
|
||||
Swap '*' with @VM in CassNos
|
||||
CassNos = SRP_Array('Rotate', CassNos, @FM, @VM)
|
||||
CassNos = CassNos<3>
|
||||
CassNos = SRP_Array('Clean', CassNos, 'TrimAndMakeUnique', @VM)
|
||||
|
||||
For each CassNo in CassNos using @VM
|
||||
WMOKey = WONo:'*':WOStep:'*':CassNo
|
||||
HaveLock = Database_Services('GetKeyIDLock', 'WM_OUT', WMOKey)
|
||||
If HaveLock EQ False$ then
|
||||
Abort = True$
|
||||
ErrMsg('Error unloading RDS. Outbound cassette ':WMOKey:' is locked!')
|
||||
end
|
||||
Until Abort
|
||||
Next CassNo
|
||||
|
||||
If Abort EQ False$ then
|
||||
Set_Status(0)
|
||||
obj_RDS2('UnloadEpi',orParms)
|
||||
// Successfully unloaded RDS. Unlock necessary WM_OUT records.
|
||||
For each CassNo in CassNos using @VM
|
||||
WMOKey = WONo:'*':WOStep:'*':CassNo
|
||||
HaveLock = Database_Services('IsKeyIDLocked', 'WM_OUT', WMOKey)
|
||||
If HaveLock then
|
||||
Database_Services('ReleaseKeyIDLock', 'WM_OUT', WMOKey)
|
||||
end
|
||||
Next CassNo
|
||||
|
||||
Send_Info(STR(' ',60)) ;** - Messaging - **
|
||||
Dummy = Set_Property('DIALOG_UNLOAD_EPI_PRO.STATUSLINE_FIX','BACKCOLOR',OrgColor) ;** - Messaging - **
|
||||
|
||||
IF Get_Status(ErrCode) THEN
|
||||
ErrMsg(ErrCode)
|
||||
END
|
||||
|
||||
GOTO Close
|
||||
end else
|
||||
// Failed to lock necessary WM_OUT records. Unlock those set by this user.
|
||||
For each CassNo in CassNos using @VM
|
||||
WMOKey = WONo:'*':WOStep:'*':CassNo
|
||||
HaveLock = Database_Services('IsKeyIDSelfLocked', 'WM_OUT', WMOKey)
|
||||
If HaveLock then
|
||||
Database_Services('ReleaseKeyIDLock', 'WM_OUT', WMOKey)
|
||||
end
|
||||
Next CassNo
|
||||
end
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactIR:
|
||||
* * * * * * *
|
||||
|
||||
RowIndex = Parm1
|
||||
|
||||
IF RowIndex = '' THEN RETURN
|
||||
|
||||
CtrlID = @WINDOW:'.REACTOR_TABLE'
|
||||
|
||||
Dummy = Send_Message(CtrlID,'DELETE',RowIndex)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactDR:
|
||||
* * * * * * *
|
||||
|
||||
RowIndex = Parm1
|
||||
RowData = Parm2
|
||||
|
||||
IF RowIndex = '' THEN RETURN
|
||||
|
||||
CtrlID = @WINDOW:'.REACTOR_TABLE'
|
||||
|
||||
Dummy = Send_Message(CtrlID, "INSERT", RowIndex, RowData)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ClearLocks:
|
||||
* * * * * * *
|
||||
|
||||
WMOLocks = Get_Property(@WINDOW,'@LOCKED_WFRS') ;* Lock on Wafer Slots
|
||||
RDSLocks = Get_Property(@WINDOW,'@LOCKED_RDS')
|
||||
WinLock = Get_Property(@WINDOW,'@LOCKED')
|
||||
|
||||
Set_Status(0)
|
||||
IF WMOLocks NE '' THEN obj_WM_Wfrs('UnlockSet','WMO_WFRS':@RM:WMOLocks) ;* Remove locks on the wafer slots
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Set_Status(0)
|
||||
IF RDSLocks NE '' THEN obj_Tables('UnlockRec',RDSLocks) ;* Unlocks the RDS Record
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Set_Status(0)
|
||||
IF WinLock NE '' THEN obj_Tables('UnlockRec',WinLock) ;* Removes WO unload window lock
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SlotOverview:
|
||||
* * * * * * *
|
||||
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
WOStep = Get_Property(@WINDOW:'.WO_STEP','DEFPROP')
|
||||
|
||||
DisplayList = obj_WM_Out('SlotStatus',WONo:@RM:WOStep)
|
||||
|
||||
CONVERT @VM TO @SVM IN DisplayList
|
||||
CONVERT @FM TO @VM IN DisplayList
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = DisplayList
|
||||
|
||||
void = Popup(@WINDOW,TypeOver,'WM_OUT_SLOT_STATUS')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
161
LSL2/STPROC/COMM_DIALOG_WO_CASS_QTY.txt
Normal file
161
LSL2/STPROC/COMM_DIALOG_WO_CASS_QTY.txt
Normal file
@ -0,0 +1,161 @@
|
||||
COMPILE FUNCTION Comm_Dialog_WO_Cass_Qty(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_WO_Cass_Qty window.
|
||||
|
||||
08/20/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Send_Message
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_WO_Cass_Qty'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'Close' ; GOSUB Close
|
||||
CASE Method = 'InsertRow' ; GOSUB InsertRow
|
||||
CASE Method = 'DeleteRow' ; GOSUB DeleteRow
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Title = Parm1[1,@FM]
|
||||
LotQty = Parm1[COL2()+1,@FM]
|
||||
CassCnt = Parm1[COL2()+1,@FM]
|
||||
CassQty = Parm1[COL2()+1,@FM]
|
||||
|
||||
Set_Property(@WINDOW,'TEXT',Title)
|
||||
Set_Property(@WINDOW:'.LOT_QTY','TEXT',LotQty)
|
||||
|
||||
IF CassQty = '' THEN
|
||||
Set_Property(@WINDOW:'.CASS_QTYS','ARRAY',STR(@VM,CassCnt-1))
|
||||
END ELSE
|
||||
CONVERT @SVM TO @VM IN CassQty
|
||||
Set_Property(@WINDOW:'.CASS_QTYS','ARRAY',CassQty)
|
||||
END
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
LotQty = Get_Property(@WINDOW:'.LOT_QTY','TEXT',LotQty)
|
||||
CassQtys = Get_Property(@WINDOW:'.CASS_QTYS','ARRAY')
|
||||
|
||||
LotQty = ICONV(LotQty,'MD0')
|
||||
CassQtyTot = SUM(CassQtys)
|
||||
|
||||
Remainder = LotQty - CassQtyTot
|
||||
|
||||
Set_Property(@WINDOW:'.REMAINDER','TEXT',Remainder)
|
||||
|
||||
BEGIN CASE
|
||||
CASE Remainder > 0
|
||||
Set_Property(@WINDOW:'.REMAINDER','BACKCOLOR',YELLOW$)
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','ENABLED',0)
|
||||
|
||||
CASE Remainder = 0
|
||||
Set_Property(@WINDOW:'.REMAINDER','BACKCOLOR',GREEN$)
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','ENABLED',1)
|
||||
|
||||
CASE Remainder < 0
|
||||
Set_Property(@WINDOW:'.REMAINDER','BACKCOLOR',RED$)
|
||||
Set_Property(@WINDOW:'.OK_BUTTON','ENABLED',0)
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
InsertRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CASS_QTYS'
|
||||
RowIndex = Parm1
|
||||
Dummy = Send_Message(CtrlEntID, "DELETE", RowIndex)
|
||||
|
||||
ErrMsg('Close this window and change the quantity in the Cass Cnt field to increase the number of cassettes.')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
DeleteRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.CASS_QTYS'
|
||||
RowIndex = Parm1
|
||||
DeletedRow = Parm2
|
||||
|
||||
Dummy = Send_Message(CtrlEntID, "INSERT", RowIndex, DeletedRow)
|
||||
|
||||
ErrMsg('Close this window and change the quantity in the Cass Cnt field to decrease the number of cassettes.')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
CassQtys = Get_Property(@WINDOW:'.CASS_QTYS','ARRAY',CassQty)
|
||||
|
||||
LOOP
|
||||
UNTIL CassQtys[-1,1] NE @VM OR CassQtys = ''
|
||||
CassQtys[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
CONVERT @VM TO @SVM IN CassQtys
|
||||
|
||||
End_Dialog(@WINDOW,CassQtys)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
496
LSL2/STPROC/COMM_DIALOG_WO_DUE_IN.txt
Normal file
496
LSL2/STPROC/COMM_DIALOG_WO_DUE_IN.txt
Normal file
@ -0,0 +1,496 @@
|
||||
COMPILE FUNCTION Comm_Dialog_WO_Due_In(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_WO_Due_In window.
|
||||
|
||||
05/18/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT ORDER_DET_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'CustPNDC' ; GOSUB CustPNDC
|
||||
CASE Method = 'LotNoDC' ; GOSUB LotNoDC
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoDC:
|
||||
* * * * * * *
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Lot Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.ORDER_DET' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'CUST_LOT_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'ORDER_DET', DictVar, OrdDetKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
IF OrdDetKeys NE '' THEN
|
||||
RawLotNos = XLATE('WO_LOG',WOKeys,'LOT_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
LotNos = ''
|
||||
FOR I = 1 TO COUNT(RawLotNos,@VM) + (RawLotNos NE '')
|
||||
RawLotNo = RawLotNos<1,I>
|
||||
LOCATE RawLotNo IN LotNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
LotNos = INSERT(LotNos,1,Pos,0,RawLotNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
LotNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF LotNos = '' THEN
|
||||
ErrMsg('No Lot Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
LotNos := @VM
|
||||
CONVERT @VM TO @RM IN LotNos
|
||||
CALL V119('S','','D','R',LotNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN LotNos
|
||||
LotNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = LotNos
|
||||
LotNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF LotNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.LOT_NO','DEFPROP',LotNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'CUST_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Customer Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;* Needs a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.CUST_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* Customer numbers *
|
||||
|
||||
|
||||
SearchString = ''
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastVar = CustNos[-1,'B':@VM]
|
||||
UNTIL LastVar NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos NE '' THEN SearchString := 'CUST_NO':@VM:CustNos:@FM
|
||||
|
||||
|
||||
* LotNumbers *
|
||||
|
||||
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = LotNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR LotNos = ''
|
||||
LotNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF LotNos NE '' THEN SearchString := 'CUST_LOT_NO':@VM:LotNos:@FM
|
||||
|
||||
|
||||
* Cust Part Number *
|
||||
|
||||
|
||||
CustPNs = Get_Property(@WINDOW:'.CUST_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = CustPNs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR CustPNs = ''
|
||||
CustPNS[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustPNs NE '' THEN SearchString := 'CUST_PN':@VM:CustPNs:@FM
|
||||
|
||||
|
||||
* Substrate Part Numbers *
|
||||
|
||||
|
||||
SubPartNos = Get_Property(@WINDOW:'.SUB_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = SubPartNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR SubPartNos = ''
|
||||
SubPartNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF SubPartNos NE '' THEN SearchString := 'SUB_PART_NO':@VM:SubPartNos:@FM
|
||||
|
||||
OPEN 'DICT.ORDER_DET' TO DictVar THEN
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Orders..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
Btree.Extract(SearchString,'ORDER_DET',DictVar,OrderDetKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF OrderDetKeys NE '' THEN
|
||||
IF INDEX(OrderDetKeys,@VM,1) THEN
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = OrderDetKeys
|
||||
TypeOver<PMODE$> = 'K'
|
||||
TypeOver<PSELECT$> = 2 ;* Multiple selection allowed
|
||||
TypeOver<PTYPE$> = 'K'
|
||||
|
||||
OrderDetKeys = Popup(@WINDOW,TypeOver,'ORDER_DETAIL')
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
DisplayList = ''
|
||||
LineCnt = 1
|
||||
FOR I = 1 TO COUNT(OrderDetKeys,@VM) + (OrderDetKeys NE '')
|
||||
OrderDetKey = OrderDetKeys<1,I>
|
||||
OrderDetRec = XLATE('ORDER_DET',OrderDetKey,'','X')
|
||||
OrderNo = OrderDetKey[1,'*'] ;* Order No
|
||||
OrderItem = FIELD(OrderDetKey,'*',2)
|
||||
OrderItemDesc = OrderDetRec<ORDER_DET_ITEM_DESC$>
|
||||
CustPartNo = OrderDetRec<ORDER_DET_CUST_PN$>
|
||||
WONo = OrderDetRec<ORDER_DET_WO_NO$>
|
||||
CustLotNos = OrderDetRec<ORDER_DET_CUST_LOT_NO$>
|
||||
FOR N = 1 TO COUNT(CustLotNos,@VM) + (CustLotNos NE '')
|
||||
DisplayList<LineCnt,1> = WONo
|
||||
DisplayList<LineCnt,2> = CustLotNos<1,N>
|
||||
DisplayList<LineCnt,3> = CustPartNo
|
||||
DisplayList<LineCnt,4> = OrderNo
|
||||
DisplayList<LineCnt,5> = OrderItem
|
||||
DisplayList<LineCnt,6> = OrderItemDesc
|
||||
LineCnt += 1
|
||||
NEXT N
|
||||
NEXT I
|
||||
IF DisplayList = '' THEN
|
||||
ErrMsg('Selected Order Items are missing Customer Lot information.')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
CONVERT @VM:@FM TO @SVM:@VM IN DisplayList
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = DisplayList
|
||||
WONo = PopUp(@WINDOW,TypeOver,'WO_LOTS_DUE_IN')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
END ELSE
|
||||
WONo = XLATE('ORDER_DET',OrderDetKeys,ORDER_DET_WO_NO$,'X')
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('No Work Orders with Material Due In found for specified Orders')
|
||||
WONo = ''
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,WONo)
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.ORDER_DET in routine COMM_DIALOG_WO_LOG_FIND')
|
||||
End_Dialog(@WINDOW,'')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
754
LSL2/STPROC/COMM_DIALOG_WO_FIND.txt
Normal file
754
LSL2/STPROC/COMM_DIALOG_WO_FIND.txt
Normal file
@ -0,0 +1,754 @@
|
||||
COMPILE FUNCTION Comm_Dialog_WO_Find(Method, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_WO_Find window.
|
||||
|
||||
01/14/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Send_Info
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Popup, Collect.IXVals, Msg
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU COL$CUST_NO TO 1 ;* Customer edit table column equates
|
||||
EQU COL$CUST_NAME TO 2
|
||||
|
||||
EQU COL$REACT_TYPE TO 1
|
||||
|
||||
|
||||
EQU LTGREY$ TO 229 + (229*256) + (229*65536) ;* JCH standard colors for edittable backgrounds
|
||||
EQU GREY$ TO 192 + (192*256) + (192*65536)
|
||||
EQU GREEN$ TO 192 + (220*256) + (192*65536)
|
||||
EQU RED$ TO 255 + (128*256) + (128*65536)
|
||||
EQU BLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU WHITE$ TO 255 + (255*256) + (255*65536)
|
||||
EQU YELLOW$ TO 255 + (255*256) + (202*65536)
|
||||
EQU LTBLUE$ TO 128 + (255*256) + (255*65536)
|
||||
EQU PURPLE$ TO 225 + (181*256) + (255*65536)
|
||||
|
||||
EQU DTS_MULTIROW$ TO 512
|
||||
EQU DTS_LARGEDATA$ TO 4096
|
||||
|
||||
$INSERT WO_LOG_EQU
|
||||
$INSERT PS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT MSG_EQUATES
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_Order_Find'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'CustChar' ; GOSUB CustChar
|
||||
CASE Method = 'CustPC' ; GOSUB CustPC
|
||||
CASE Method = 'CustDC' ; GOSUB CustDC
|
||||
CASE Method = 'CustPNDC' ; GOSUB CustPNDC
|
||||
CASE Method = 'SubPNDC' ; GOSUB SubPNDC
|
||||
CASE Method = 'LotNoDC' ; GOSUB LotNoDC
|
||||
CASE Method = 'PSNoDC' ; GOSUB PSNoDC
|
||||
CASE Method = 'ReactTypeDC' ; GOSUB ReactTypeDC
|
||||
CASE Method = 'LUDate' ; GOSUB LUDate
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'Refresh' ; GOSUB Refresh
|
||||
CASE Method = 'PerformQuery' ; GOSUB PerformQuery
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW,'STATUSLINE',@WINDOW:'.STATUSLINE_FIX')
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green
|
||||
|
||||
stat = Send_Message(@WINDOW:'.CUST_INFO','COLOR_BY_POS',COL$CUST_NAME,0,GREEN$) ;* Turn names column all rows green
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustChar:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustArray = Get_Property(CtrlName,'ARRAY') ;* Customer Information table
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
DataIn = CustArray<COL$CUST_NO,CurrRow>
|
||||
|
||||
IF LEN(DataIn) > 2 THEN
|
||||
|
||||
ReturnToCtrl = CtrlName
|
||||
ReturnToPos = CurrPos
|
||||
|
||||
IF NOT(NUM(DataIn)) THEN
|
||||
Set_Property(CtrlName,'CELLPOS','',CurrPos) ;* Clear characters input
|
||||
Start_Window('COMP_LOOKUP',@WINDOW,DataIn:@VM:'C':@FM:ReturnToCtrl:@FM:ReturnToPos,'','')
|
||||
END
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
IF CustNo NE '' THEN
|
||||
Set_Property(CtrlName,'CELLPOS',XLATE('COMPANY',CustNo,4,'X'),COL$CUST_NAME:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.CUST_INFO'
|
||||
|
||||
CustList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
CustNo = CustList<CurrRow,COL$CUST_NO>
|
||||
LineCnt = COUNT(CustList,@FM) + (CustList NE '')
|
||||
IF CustNo = '' THEN
|
||||
CustNos = Popup(@WINDOW,'','CUSTOMER')
|
||||
CustCnt = COUNT(CustNos,@VM) + (CustNos NE '')
|
||||
IF CustCnt > LineCnt THEN
|
||||
FOR I = 1 TO CustCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + CustCnt
|
||||
CustNo = CustNos<1,I>
|
||||
CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',CustNo,COL$CUST_NO:@FM:I)
|
||||
Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
SubPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Substrate Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'SUB_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawPartNos = XLATE('WO_LOG',WOKeys,'SUB_PART_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
PartNos = ''
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Substrate Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.SUB_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LotNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Lot Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'LOT_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
RawLotNos = XLATE('WO_LOG',WOKeys,'LOT_NO','X') ;* Calculated field
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
LotNos = ''
|
||||
FOR I = 1 TO COUNT(RawLotNos,@VM) + (RawLotNos NE '')
|
||||
RawLotNo = RawLotNos<1,I>
|
||||
LOCATE RawLotNo IN LotNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
LotNos = INSERT(LotNos,1,Pos,0,RawLotNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
LotNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF LotNos = '' THEN
|
||||
ErrMsg('No Lot Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
LotNos := @VM
|
||||
CONVERT @VM TO @RM IN LotNos
|
||||
CALL V119('S','','D','R',LotNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN LotNos
|
||||
LotNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = LotNos
|
||||
LotNos = Popup(@WINDow,TypeOver,'CUST_PO') ;****** Need a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF LotNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.LOT_NO','DEFPROP',LotNos)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PSNoDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Product Specifications..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'PS_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PSNs = ''
|
||||
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPSNs = XLATE('WO_LOG',WOKey,'PS_NO','X')
|
||||
|
||||
FOR I = 1 TO COUNT(RawPSNs,@VM) + (RawPSNs NE '')
|
||||
RawPSN = RawPSNs<1,I>
|
||||
|
||||
LOCATE RawPSN IN PSNs BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PSNs = INSERT(PSNs,1,Pos,0,RawPSN)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PSNs = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PSNs = '' THEN
|
||||
ErrMsg('No Product Specifications on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PSNs := @VM
|
||||
CONVERT @VM TO @RM IN PSNs
|
||||
CALL V119('S','','D','R',PSNs,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PSNs
|
||||
PSNs[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PSNs
|
||||
PSNs = Popup(@WINDow,TypeOver,'CUST_PO')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PSNs NE '' THEN
|
||||
CONVERT @VM TO @FM IN PSNs
|
||||
Set_Property(@WINDOW:'.PS_NO','LIST',PSNs)
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactTypeDC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.REACT_TYPE'
|
||||
|
||||
RTypeList = Get_Property(CtrlName,'LIST') ;* Customer Information table
|
||||
|
||||
CurrPos = Get_Property(CtrlName,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
RType = RTypeList<CurrRow,COL$REACT_TYPE>
|
||||
LineCnt = COUNT(RTypeList,@FM) + (RTypeList NE '')
|
||||
IF RType = '' THEN
|
||||
RTypes = Popup(@WINDOW,'','REACTOR_TYPE')
|
||||
rCnt = COUNT(RTypes,@VM) + (RTypes NE '')
|
||||
IF rCnt > LineCnt THEN
|
||||
FOR I = 1 TO rCnt
|
||||
stat = Send_Message(CtrlName,'INSERT',-1,@VM:@FM) ; * Add blank lines
|
||||
NEXT I
|
||||
END
|
||||
|
||||
FOR I = CurrRow TO CurrRow + rCnt
|
||||
RType = RTypes<1,I>
|
||||
*CustName = XLATE('COMPANY',CustNo,4,'X')
|
||||
Set_Property(CtrlName,'CELLPOS',RType,COL$REACT_TYPE:@FM:I)
|
||||
*Set_Property(CtrlName,'CELLPOS',CustName,COL$CUST_NAME:@FM:I)
|
||||
*Set_Property(CtrlName,'SELPOS',COL$CUST_NO:@FM:I+1)
|
||||
NEXT I
|
||||
|
||||
|
||||
END ELSE
|
||||
ErrMsg('DoubleClick on the first empty Cust No field to view a popup of all Customers')
|
||||
END
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
CustPNDC:
|
||||
* * * * * * *
|
||||
|
||||
CustArray = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')
|
||||
|
||||
CustNos = CustArray<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastCustNo = CustNos[-1,'B':@VM]
|
||||
UNTIL LastCustNo NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos = '' THEN RETURN
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Part Numbers..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
SearchString = 'CUST_NO':@VM:CustNos:@VM:@FM
|
||||
SearchString := 'CUST_PART_NO':@VM:'#':@FM
|
||||
|
||||
Btree.Extract(SearchString, 'WO_LOG', DictVar, WOKeys, '', Flag)
|
||||
IF Get_Status(errCode) THEN
|
||||
Msg(@WINDOW,MsgUp)
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
IF WOKeys NE '' THEN
|
||||
PartNos = ''
|
||||
FOR N = 1 TO COUNT(WOKeys,@VM) + (WOKeys NE '')
|
||||
WOKey = WOKeys<1,N>
|
||||
RawPartNos = XLATE('WO_LOG',WOKey,'PART_NO','X')
|
||||
FOR I = 1 TO COUNT(RawPartNos,@VM) + (RawPartNos NE '')
|
||||
RawPartNo = RawPartNos<1,I>
|
||||
|
||||
LOCATE RawPartNo IN PartNos BY 'AL' USING @VM SETTING Pos ELSE
|
||||
PartNos = INSERT(PartNos,1,Pos,0,RawPartNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
NEXT N
|
||||
END ELSE
|
||||
PartNos = ''
|
||||
END
|
||||
|
||||
Msg(@WINDOW,MsgUp)
|
||||
|
||||
IF PartNos = '' THEN
|
||||
ErrMsg('No Customer Part Numbers on file for specified customer.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
PartNos := @VM
|
||||
CONVERT @VM TO @RM IN PartNos
|
||||
CALL V119('S','','D','R',PartNos,'')
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
CONVERT @RM TO @VM IN PartNos
|
||||
PartNos[-1,1] = '' ;* Strip trailing delimiter
|
||||
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PDISPLAY$> = PartNos
|
||||
PartNos = Popup(@WINDow,TypeOver,'CUST_PO') ;* Needs a popup
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
IF PartNos NE '' THEN
|
||||
Set_Property(@WINDOW:'.CUST_PART_NO','DEFPROP',PartNos)
|
||||
END
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in COMM_DIALOG_WO_LOG_FIND.')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUDate:
|
||||
* * * * * * *
|
||||
|
||||
ReturnCtrl = Parm1[1,@RM]
|
||||
|
||||
IF ReturnCtrl = '' THEN ReturnCtrl = Get_Property(@WINDOW,'FOCUS')
|
||||
|
||||
DateSelected = Dialog_Box('POPUP_YEAR',@WINDOW)
|
||||
|
||||
RetVal = OCONV(DateSelected, 'D4/')
|
||||
|
||||
|
||||
obj_Appwindow('LUValReturn',RetVal:@RM:ReturnCtrl)
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
* Customer numbers *
|
||||
|
||||
SearchString = ''
|
||||
|
||||
CustNos = Get_Property(@WINDOW:'.CUST_INFO','ARRAY')<COL$CUST_NO>
|
||||
|
||||
LOOP
|
||||
LastVar = CustNos[-1,'B':@VM]
|
||||
UNTIL LastVar NE '' OR CustNos = ''
|
||||
CustNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustNos NE '' THEN SearchString := 'CUST_NO':@VM:CustNos:@FM
|
||||
|
||||
* LotNumbers *
|
||||
|
||||
LotNos = Get_Property(@WINDOW:'.LOT_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = LotNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR LotNos = ''
|
||||
LotNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF LotNos NE '' THEN SearchString := 'LOT_NO':@VM:LotNos:@FM
|
||||
|
||||
|
||||
* Cust Part Number *
|
||||
|
||||
CustPNs = Get_Property(@WINDOW:'.CUST_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = CustPNs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR CustPNs = ''
|
||||
CustPNS[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF CustPNs NE '' THEN SearchString := 'CUST_PART_NO':@VM:CustPNs:@FM
|
||||
|
||||
|
||||
* Substrate Part Numbers *
|
||||
|
||||
SubPartNos = Get_Property(@WINDOW:'.SUB_PART_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = SubPartNos[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR SubPartNos = ''
|
||||
SubPartNos[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF SubPartNos NE '' THEN SearchString := 'SUB_PART_NO':@VM:SubPartNos:@FM
|
||||
|
||||
|
||||
* * * * * Reactor Type * * * * *
|
||||
|
||||
ReactTypes = Get_Property(@WINDOW:'.REACT_TYPE','ARRAY')<COL$REACT_TYPE>
|
||||
|
||||
|
||||
LOOP
|
||||
LastVal = ReactTypes[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR ReactTypes = ''
|
||||
ReactTypes[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF ReactTypes NE '' THEN SearchString := 'REACT_TYPE':@VM:ReactTypes:@FM
|
||||
|
||||
|
||||
* PSN Nos *
|
||||
|
||||
PS_NOs = Get_Property(@WINDOW:'.PS_NO','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
LastVal = PS_NOs[-1,'B':@VM]
|
||||
UNTIL LastVal NE '' OR PS_NOs = ''
|
||||
PS_NOs[COL1(),99] = '' ;* Trim trailing blanks
|
||||
REPEAT
|
||||
|
||||
IF PS_NOs NE '' THEN SearchString := 'PS_NO':@VM:PS_NOs:@FM
|
||||
|
||||
* Entry Dates *
|
||||
|
||||
StartDt = ICONV(Get_Property(@WINDOW:'.START_DT','TEXT'),'D')
|
||||
EndDt = ICONV(Get_Property(@WINDOW:'.END_DT','TEXT'),'D')
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
SearchString := 'ENTRY_DATE':@VM:'>=':StartDt:@FM
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SearchString := 'ENTRY_DATE':@VM:'<=':EndDt:@FM
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
* Fudge the dates - '~' is not inclusive of the end dates
|
||||
StartDt -= 1
|
||||
EndDt += 1
|
||||
SearchString := 'ENTRY_DATE':@VM:StartDt:'~':EndDt:@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
|
||||
* RX Dates *
|
||||
|
||||
StartDt = ICONV(Get_Property(@WINDOW:'.MTL_RX_START_DT','TEXT'),'D')
|
||||
EndDt = ICONV(Get_Property(@WINDOW:'.MTL_RX_END_DT','TEXT'),'D')
|
||||
|
||||
BEGIN CASE
|
||||
CASE StartDt NE '' AND EndDt = ''
|
||||
SearchString := 'RX_DT':@VM:'>=':OConv(StartDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt = '' AND EndDt NE ''
|
||||
SearchString := 'RX_DT':@VM:'<=':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE StartDt NE '' AND EndDt NE ''
|
||||
* Fudge the dates - '~' is not inclusive of the end dates
|
||||
StartDt -= 1
|
||||
EndDt += 1
|
||||
SearchString := 'RX_DT':@VM:OConv(StartDt, 'D4/'):'~':OConv(EndDt, 'D4/'):@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
OrdStatus = Get_Property(@WINDOW:'.STATUS','VALUE')
|
||||
|
||||
IF OrdStatus NE 'I' THEN
|
||||
IF OrdStatus = 1 THEN
|
||||
SearchString := 'CLOSE_DATE':@VM:'#':@FM
|
||||
END ELSE
|
||||
SearchString := 'CLOSE_DATE':@VM:'=':@FM
|
||||
END
|
||||
END
|
||||
|
||||
OPEN 'DICT.WO_LOG' TO DictVar THEN
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Orders..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
|
||||
MsgUp = Msg(@window, Def)
|
||||
|
||||
Btree.Extract(SearchString,'WO_LOG',DictVar,WOKeys,'',flag)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
Msg(@window, MsgUp)
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,WOKeys)
|
||||
|
||||
END ELSE
|
||||
ErrMsg('Unable to open DICT.WO_LOG in routine COMM_DIALOG_WO_LOG_FIND')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
573
LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt
Normal file
573
LSL2/STPROC/COMM_DIALOG_WO_SCAN.txt
Normal file
@ -0,0 +1,573 @@
|
||||
COMPILE FUNCTION Comm_Dialog_WO_Scan(Method, Parm1)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_WO_Scan window.
|
||||
|
||||
08/12/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Extract_SI_Keys, Logging_Services
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, Btree.Extract, Error_Services
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Send_Message, Set_FSError, Environment_Services
|
||||
DECLARE FUNCTION obj_Vendor_Code, Msg, Error_Services, Logging_Services
|
||||
|
||||
$INSERT LOGICAL
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$LQP_LOT TO 1 ;* Equates for Lot_Qty... edit table controls used to scan in label data
|
||||
EQU COL$LQP_QTY TO 2
|
||||
EQU COL$LQP_PART TO 3 ;* This is either Cust Part No OR Substrate Part Number depending on which control is visible
|
||||
EQU COL$LQP_VENDOR TO 4 ;* Vendor code on the Substrate screen 7/14/2011 JCH for SAP
|
||||
|
||||
EQU CA$ITEM_NO TO 1 ;* Equates for Checking Array passed to Scan routine
|
||||
EQU CA$LOT_NO TO 2
|
||||
EQU CA$LOT_QTY TO 3
|
||||
EQU CA$CUST_PART_NO TO 4
|
||||
EQU CA$SUB_PART_NO TO 5
|
||||
EQU CA$SCANNED_LOT_QTY TO 6
|
||||
EQU CA$VERIFY_PART_NO TO 7
|
||||
EQU CA$SUB_SUPP_BY TO 8
|
||||
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Receiving'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Receiving Log.csv'
|
||||
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'Scan Data'
|
||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_WO_Scan'
|
||||
ErrorMsg = ''
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'FieldClick' ; GOSUB FieldClick
|
||||
CASE Method = 'LQP' ; GOSUB LQP
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
VendorDef = Parm1[1,@FM]
|
||||
|
||||
CheckArray = FIELD(Parm1,@FM,2,999)
|
||||
|
||||
Set_Property(@WINDOW,'@VENDOR_DEF',VendorDef)
|
||||
|
||||
OpenQty = CheckArray<CA$LOT_QTY>
|
||||
Set_Property(@WINDOW:'.OPEN_QTY','TEXT',OCONV(OpenQty,'MD0,')) ;* 12/6/2011 JCH
|
||||
|
||||
Set_Property(@WINDOW,'@CHECK_ARRAY',CheckArray)
|
||||
obj_AppWindow('Create')
|
||||
|
||||
TimeStamp = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
Set_Property(@WINDOW:'.RX_DTM','DEFPROP',TimeStamp)
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.RX_DTM')
|
||||
Set_Property(@WINDOW:'.RX_DTM','SELECTION',1:@FM:65534)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
* * * * * * *
|
||||
FieldClick:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.FIELD_RADIO'
|
||||
|
||||
ControlSelection = Get_Property(CtrlEntID,'VALUE')
|
||||
|
||||
Ctrls = @WINDOW:'.LOT_QTY':@RM ; Props = 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_PART':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_SUB_PART':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.WINDOW_LABEL_FIX' ; Props := 'TEXT'
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE ControlSelection = 'LQ' ; Vals = '1':@RM:'0':@RM:'0':@RM:'Customer Wafers'
|
||||
CASE ControlSelection = 'LQP' ; Vals = '0':@RM:'1':@RM:'0':@RM:'Customer Wafers'
|
||||
CASE ControlSelection = 'LQSP' ; Vals = '0':@RM:'0':@RM:'1':@RM:'Substrates'
|
||||
END CASE
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
ListArray = Get_Property(CtrlEntId,'ARRAY')
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
TotalScannedQty = SUM(ListArray<COL$LQP_QTY>)
|
||||
OpenQty = CheckArray<CA$LOT_QTY>
|
||||
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','TEXT',OCONV(TotalScannedQty,'MD0,'))
|
||||
|
||||
IF TotalScannedQty < OpenQty THEN
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','BACKCOLOR',GREEN$)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','BACKCOLOR',RED$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
LQP:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = Get_Property(@WINDOW,'FOCUS')
|
||||
StripANSI = Get_Property(@WINDOW:'.STRIP_ANSI','CHECK')
|
||||
SkipSubANSI = Get_Property(@WINDOW:'.SKIP_SUBSTRATE_ANSI','CHECK')
|
||||
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
BEGIN CASE
|
||||
CASE CtrlEntID = @WINDOW:'.LOT_QTY' ; ColCnt = 2
|
||||
CASE CtrlEntID = @WINDOW:'.LOT_QTY_PART' ; ColCnt = 3
|
||||
CASE CtrlEntID = @WINDOW:'.LOT_QTY_SUB_PART' ; ColCnt = 4
|
||||
END CASE
|
||||
|
||||
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')
|
||||
|
||||
IF ListData<CurrRow,CurrCol> = '' THEN
|
||||
ColPointer = CurrCol
|
||||
LinePointer = CurrRow
|
||||
|
||||
* 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
|
||||
|
||||
// Global scan validation check. Only alpha-numeric, dashes, spaces, and periods permitted.
|
||||
ValidationScan = Trim(ListData<PrevRow,PrevCol>)
|
||||
Convert @Lower_Case to @Upper_Case in ValidationScan
|
||||
Convert 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789- ./' to '' in ValidationScan
|
||||
//DPC 2/18/20 - changed validation to allow foward slash per supplier lot naming (Global Wafer)
|
||||
//FYI - conversion would only work when separated from above line
|
||||
Convert '/' to '' in ValidationScan
|
||||
If ValidationScan NE '' then
|
||||
Error_Services('Set', 'Scanned code ' : Quote(Trim(ListData<PrevRow,PrevCol>)) : ' contains an invalid character. Please re-scan.')
|
||||
end
|
||||
|
||||
If Error_Services('NoError') then
|
||||
IF ListData<PrevRow,PrevCol> NE '' THEN
|
||||
BEGIN CASE
|
||||
CASE PrevCol = COL$LQP_LOT
|
||||
|
||||
IF StripANSI THEN
|
||||
RawLot = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF RawLot[1,2] = '1T' OR RawLot[1,2] = '2T' THEN
|
||||
LotNo = RawLot[3,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawLot):' is not an ANSI Lot No.'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
LotNo = TRIM(ListData<PrevRow,PrevCol>)
|
||||
END
|
||||
|
||||
IF CtrlEntID NE @WINDOW:'.LOT_QTY_SUB_PART' THEN
|
||||
|
||||
* Don't check Customer Lot Numbers if scanning substrates
|
||||
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',LotNo,PrevSelPos)
|
||||
|
||||
CASE PrevCol = COL$LQP_QTY
|
||||
|
||||
IF StripANSI THEN
|
||||
RawLotQty = ListData<PrevRow,PrevCol>
|
||||
IF RawLotQty[1,1] = 'Q' THEN
|
||||
LotQty = RawLotQty[2,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawLotQty):' is not an ANSI Quantity'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
LotQty = ListData<PrevRow,PrevCol>
|
||||
END
|
||||
|
||||
IF NOT(NUM(LotQty)) THEN
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot Qty ':QUOTE(LotQty):' is not a number!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',LotQty,PrevSelPos)
|
||||
|
||||
|
||||
CASE PrevCol = COL$LQP_PART
|
||||
// Check scanned part number for 5 segments. If there are 5 segments then use segments 3 and 4
|
||||
// to make the actual part number.
|
||||
ScannedPartNo = Trim(ListData<PrevRow, PrevCol>)
|
||||
If DCount(ScannedPartNo, '-') EQ 5 then
|
||||
RawPartNo = ''
|
||||
If ScannedPartNo[1, 1] _EQC 'P' then RawPartNo := 'P'
|
||||
If ScannedPartNo[1, 1] _EQC 'S' then RawPartNo := 'S'
|
||||
RawPartNo := Field(ScannedPartNo, '-', 3, 2)
|
||||
ListData<PrevRow, PrevCol> = RawPartNo
|
||||
end
|
||||
RawPartNo = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF StripANSI AND NOT(SkipSubAnsi) THEN ;***************************************
|
||||
RawPartNo = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF RawPartNo[1,1] _EQC 'P' OR RawPartNo[1,1] _EQC 'S' THEN
|
||||
PartNo = RawPartNo[2,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawPartNo):' is not an ANSI Part No'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
PartNo = ListData<PrevRow,PrevCol>
|
||||
END
|
||||
|
||||
IF CtrlEntID = @WINDOW:'.LOT_QTY_PART' THEN
|
||||
* Check Customer Part Numbers
|
||||
LOCATE PartNo IN CheckArray<CA$VERIFY_PART_NO> USING @VM SETTING Pos THEN
|
||||
PartNo = CheckArray<CA$CUST_PART_NO,Pos>
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Part No ':QUOTE(PartNo):' not found in':@TM:'Order Customer Part Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
PartNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
|
||||
END ELSE
|
||||
* Check Substrate Part Numbers
|
||||
LOCATE PartNo IN CheckArray<CA$SUB_PART_NO> USING @VM SETTING Pos ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Part No ':QUOTE(PartNo):' not found in':@TM:'Order Substrate Part Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
PartNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
END ;* End of check for Customer supplied or Inventory substrate part number
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',PartNo,PrevSelPos)
|
||||
|
||||
CASE PrevCol = COL$LQP_VENDOR
|
||||
|
||||
SubSuppBy = CheckArray<CA$SUB_SUPP_BY>
|
||||
|
||||
IF StripANSI AND NOT(SkipSubAnsi) THEN
|
||||
RawVendCode = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF RawVendCode[1,2] = '1V' THEN
|
||||
VendCode = RawVendCode[3,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawVendCode):' is not an ANSI Vendor Code'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
VendCode = ListData<PrevRow,PrevCol>
|
||||
END
|
||||
|
||||
IF RowExists('SEMI_VEND_CODE', VendCode) OR SubSuppBy = 'C' ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Vendor Code ':QUOTE(VendCode):' not found in':@TM:'Vendor Codes on file!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
VendCode = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
RETURN
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',VendCode,PrevSelPos)
|
||||
|
||||
*IF VendCode NE 'NA' THEN
|
||||
ExpectedCode = Get_Property(@WINDOW,'@VENDOR_DEF')
|
||||
|
||||
IF VendCode NE ExpectedCode AND ExpectedCode NE '' THEN
|
||||
void = Msg(@WINDOW,'','EXPECTED_VENDOR_CODE','',ExpectedCode:@FM:VendCode)
|
||||
END
|
||||
*END ELSE
|
||||
* void = Msg(@WINDOW,'','NA_CODE_USED')
|
||||
*END
|
||||
|
||||
ListArray = Get_Property(CtrlEntId,'ARRAY')
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
TotalScannedQty = SUM(ListArray<COL$LQP_QTY>)
|
||||
OpenQty = CheckArray<CA$LOT_QTY>
|
||||
|
||||
IF TotalScannedQty >= OpenQty THEN
|
||||
|
||||
Resp = Msg(@WINDOW,'','WO_REC_COMPLETE')
|
||||
|
||||
GOTO OK
|
||||
END
|
||||
|
||||
END CASE
|
||||
END
|
||||
end
|
||||
|
||||
If Error_Services('HasError') then
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
Message = Error_Services('GetMessage')
|
||||
TypeOver<MTEXT$> = Message
|
||||
Msg(@Window, TypeOver, 'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId, 'SELPOS', PrevSelPos)
|
||||
Set_Property(CtrlEntID, 'INVALUE', '', PrevSelPos)
|
||||
Error_Services('Clear')
|
||||
end else
|
||||
GOSUB Refresh
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.FIELD_RADIO'
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
ControlSelection = Get_Property(CtrlEntID,'VALUE')
|
||||
|
||||
Ctrls = @WINDOW:'.LOT_QTY':@RM ; Props = 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_PART':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_SUB_PART' ; Props := 'VISIBLE'
|
||||
|
||||
BEGIN CASE
|
||||
CASE ControlSelection = 'LQ' ; Ctrl = @WINDOW:'.LOT_QTY'
|
||||
CASE ControlSelection = 'LQP' ; Ctrl = @WINDOW:'.LOT_QTY_PART'
|
||||
CASE ControlSelection = 'LQSP' ; Ctrl = @WINDOW:'.LOT_QTY_SUB_PART'
|
||||
END CASE
|
||||
|
||||
ListData = Get_Property(Ctrl,'LIST')
|
||||
|
||||
TimeStamp = Get_Property(@WINDOW:'.RX_DTM','TEXT')
|
||||
TimeStamp = ICONV(TimeStamp,'DT')
|
||||
IF TimeStamp = '' THEN
|
||||
ErrMsg('Invalid Received DateTime data entered. "mm/dd/yy hh:mm:ss" is the basic format.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
CheckArray<CA$SCANNED_LOT_QTY> = '' ;* Clear scanned lot quantities column
|
||||
|
||||
LineCnt = 1
|
||||
LOOP
|
||||
TestVal = ListData<LineCnt,1>
|
||||
UNTIL TestVal = ''
|
||||
LotNo = TRIM(ListData<LineCnt,1>)
|
||||
Qty = TRIM(ListData<LineCnt,2>)
|
||||
|
||||
IF ControlSelection = 'LQ' THEN
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos THEN
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,Pos>
|
||||
CustPartNo = CheckArray<CA$CUST_PART_NO,Pos>
|
||||
SubPartNo = CheckArray<CA$SUB_PART_NO,Pos>
|
||||
CheckArray<CA$SCANNED_LOT_QTY,Pos> = CheckArray<CA$SCANNED_LOT_QTY,Pos> + Qty
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",CA$LOT_NO:@FM:LineCnt) ;* Cursor to Lot No for a rescan
|
||||
RETURN
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
IF ControlSelection = 'LQP' THEN
|
||||
CustPartNo = TRIM(ListData<LineCnt,3>)
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos THEN
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,Pos>
|
||||
SubPartNo = CheckArray<CA$SUB_PART_NO,Pos>
|
||||
CheckArray<CA$SCANNED_LOT_QTY,Pos> = CheckArray<CA$SCANNED_LOT_QTY,Pos> + Qty
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",CA$LOT_NO:@FM:LineCnt) ;* Cursor to Lot No for a rescan
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
IF ControlSelection = 'LQSP' THEN
|
||||
|
||||
SubPartNo = TRIM(ListData<LineCnt,3>)
|
||||
Vendor = TRIM(ListData<LineCnt,4>) ;* Added 7/14/2011 JCH for SAP
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,1> ;* Changed 2/8/2010 from ' = 1 ' JCH
|
||||
CustPartNo = CheckArray<CA$CUST_PART_NO,1>
|
||||
|
||||
END ELSE
|
||||
Vendor = ''
|
||||
END
|
||||
|
||||
Result<1,LineCnt> = LineCnt
|
||||
Result<2,LineCnt> = LotNo ;* Lot No
|
||||
Result<3,LineCnt> = Qty
|
||||
Result<4,LineCnt> = CustPartNo ;* PartNo
|
||||
Result<5,LineCnt> = SubPartNo ;* Substrate Part No
|
||||
Result<6,LineCnt> = Vendor ;* Substrate Vendor Code
|
||||
Result<7,LineCnt> = OCONV(TimeStamp,'DT')
|
||||
Result<8,LineCnt> = @USER4
|
||||
Result<9,LineCnt> = OrderItemNo
|
||||
|
||||
LineCnt += 1
|
||||
REPEAT
|
||||
|
||||
IF ControlSelection NE 'LQSP' THEN
|
||||
|
||||
* Orders with Epi supplied substrates don't have any lot quantities to check against.
|
||||
|
||||
ProblemQtyLots = ''
|
||||
FOR I = 1 TO COUNT(CheckArray<CA$LOT_NO>,@VM) + (CheckArray<CA$LOT_NO> NE '')
|
||||
IF (CheckArray<CA$SCANNED_LOT_QTY,I> NE '') AND (CheckArray<CA$LOT_QTY,I> NE CheckArray<CA$SCANNED_LOT_QTY,I>) THEN
|
||||
* Lot quantity mismatch
|
||||
ProblemQtyLots<-1> = CheckArray<CA$LOT_NO,I>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF ProblemQtyLots NE '' THEN
|
||||
LineCnt = 1
|
||||
LOOP
|
||||
TestVal = ListData<LineCnt,1>
|
||||
UNTIL TestVal = ''
|
||||
LotNo = TRIM(ListData<LineCnt,1>)
|
||||
LOCATE LotNo IN ProblemQtyLots USING @FM SETTING Pos THEN
|
||||
stat = Send_Message(Ctrl,'COLOR_BY_POS',0,LineCnt,RED$) ;* Flag all the lines with lot numbers having qty problems
|
||||
END
|
||||
LineCnt += 1
|
||||
REPEAT
|
||||
|
||||
ErrMsg('Lot Quantity(s) Scanned do not match Order Item Lot Quantity(s)!||Review and rescan highlighted items.')
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
*
|
||||
END
|
||||
|
||||
NumRows = DCount(Result, @FM)
|
||||
NullFound = False$
|
||||
For LineIndex = 1 to NumRows
|
||||
Row = Result<LineIndex>
|
||||
NumVals = DCount(Row, @VM)
|
||||
For ValIndex = 1 to NumVals
|
||||
Val = Row<0, ValIndex>
|
||||
If Val EQ '' then NullFound = True$
|
||||
Next ValIndex
|
||||
Until NullFound
|
||||
Next LineIndex
|
||||
If NullFound EQ True$ then
|
||||
ErrMsg('Missing value found in scanned data! Verify your labels and restart your scan operation.')
|
||||
Result = 'Cancel'
|
||||
end
|
||||
|
||||
ScanResult = Result
|
||||
Swap @VM with ' | ' in ScanResult
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDTM
|
||||
LogData<2> = @User4
|
||||
LogData<3> = ScanResult
|
||||
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
438
LSL2/STPROC/COMM_DIALOG_WO_SCAN_SUBSTRATES.txt
Normal file
438
LSL2/STPROC/COMM_DIALOG_WO_SCAN_SUBSTRATES.txt
Normal file
@ -0,0 +1,438 @@
|
||||
COMPILE FUNCTION Comm_Dialog_WO_Scan_Substrates(Method, Parm1)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_WO_Scan window.
|
||||
|
||||
08/12/2004 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Extract_SI_Keys
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Send_Message
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$LQP_LOT TO 1 ;* Equates for Lot_Qty... edit table controls used to scan in label data
|
||||
EQU COL$LQP_QTY TO 2
|
||||
EQU COL$LQP_PART TO 3 ;* This is either Cust Part No OR Substrate Part Number depending on which control is visible
|
||||
|
||||
|
||||
EQU CA$ITEM_NO TO 1 ;* Equates for Checking Array passed to Scan routine
|
||||
EQU CA$LOT_NO TO 2
|
||||
EQU CA$LOT_QTY TO 3
|
||||
EQU CA$CUST_PART_NO TO 4
|
||||
EQU CA$SUB_PART_NO TO 5
|
||||
EQU CA$SCANNED_LOT_QTY TO 6
|
||||
EQU CA$VERIFY_PART_NO TO 7
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_WO_Scan'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'OK' ; GOSUB OK
|
||||
CASE Method = 'Cancel' ; GOSUB Cancel
|
||||
CASE Method = 'LQP' ; GOSUB LQP
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
OrderNo = Parm1[1,@FM]
|
||||
CheckArray = FIELD(Parm1,@FM,2,999)
|
||||
|
||||
Set_Property(@WINDOW:'@ORDER_NO',OrderNo)
|
||||
Set_Property(@WINDOW,'@CHECK_ARRAY',CheckArray)
|
||||
obj_AppWindow('Create')
|
||||
|
||||
TimeStamp = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
Set_Property(@WINDOW:'.RX_DTM','DEFPROP',TimeStamp)
|
||||
Set_Property(@WINDOW,'FOCUS',@WINDOW:'.RX_DTM')
|
||||
Set_Property(@WINDOW:'.RX_DTM','SELECTION',1:@FM:65534)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
ListArray = Get_Property(CtrlEntId,'ARRAY')
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
TotalScannedQty = SUM(ListArray<COL$LQP_QTY>)
|
||||
TotalOrderQty = SUM(CheckArray<CA$LOT_QTY>)
|
||||
|
||||
Set_Property(@WINDOW:'.ORDER_QTY','TEXT',OCONV(TotalOrderQty,'MD0,'))
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','TEXT',OCONV(TotalScannedQty,'MD0,'))
|
||||
|
||||
IF TotalScannedQty = TotalOrderQty THEN
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','BACKCOLOR',GREEN$)
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.SCANNED_QTY','BACKCOLOR',RED$)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LQP:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = Get_Property(@WINDOW,'FOCUS')
|
||||
StripANSI = Get_Property(@WINDOW:'.STRIP_ANSI','CHECK')
|
||||
SkipSubANSI = Get_Property(@WINDOW:'.SKIP_SUBSTRATE_ANSI','CHECK')
|
||||
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
IF CtrlEntID = @WINDOW:'.LOT_QTY' THEN ColCnt = 2 ELSE ColCnt = 3
|
||||
|
||||
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')
|
||||
|
||||
IF ListData<CurrRow,CurrCol> = '' THEN
|
||||
|
||||
ColPointer = CurrCol
|
||||
LinePointer = CurrRow
|
||||
|
||||
* 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 '' THEN
|
||||
BEGIN CASE
|
||||
CASE PrevCol = COL$LQP_LOT
|
||||
IF StripANSI THEN
|
||||
RawLot = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF RawLot[1,2] = '1T' THEN
|
||||
LotNo = RawLot[3,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawLot):' is not an ANSI Lot No.'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
LotNo = TRIM(ListData<PrevRow,PrevCol>)
|
||||
END
|
||||
|
||||
IF CtrlEntID NE @WINDOW:'.LOT_QTY_SUB_PART' THEN
|
||||
|
||||
* Don't check Customer Lot Numbers if scanning substrates
|
||||
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',LotNo,PrevSelPos)
|
||||
|
||||
|
||||
CASE PrevCol = COL$LQP_QTY
|
||||
|
||||
IF StripANSI THEN
|
||||
RawLotQty = ListData<PrevRow,PrevCol>
|
||||
IF RawLotQty[1,1] = 'Q' THEN
|
||||
LotQty = RawLotQty[2,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawLotQty):' is not an ANSI Quantity'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
LotQty = ListData<PrevRow,PrevCol>
|
||||
END
|
||||
|
||||
IF NOT(NUM(LotQty)) THEN
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot Qty ':QUOTE(LotQty):' is not a number!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',LotQty,PrevSelPos)
|
||||
|
||||
|
||||
CASE PrevCol = COL$LQP_PART
|
||||
|
||||
IF StripANSI AND NOT(SkipSubAnsi) THEN ;***************************************
|
||||
RawPartNo = TRIM(ListData<PrevRow,PrevCol>)
|
||||
IF RawPartNo[1,1] = 'P' OR RawPartNo[1,1] = 'S' THEN
|
||||
PartNo = RawPartNo[2,99]
|
||||
END ELSE
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Scanned Code ':QUOTE(RawPartNo):' is not an ANSI Part No'
|
||||
Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos)
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
PartNo = ListData<PrevRow,PrevCol>
|
||||
END
|
||||
|
||||
IF CtrlEntID = @WINDOW:'.LOT_QTY_PART' THEN
|
||||
|
||||
* Check Customer Part Numbers
|
||||
|
||||
LOCATE PartNo IN CheckArray<CA$VERIFY_PART_NO> USING @VM SETTING Pos THEN
|
||||
|
||||
PartNo = CheckArray<CA$CUST_PART_NO,Pos>
|
||||
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Part No ':QUOTE(PartNo):' not found in':@TM:'Order Customer Part Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
PartNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
|
||||
|
||||
END ELSE
|
||||
|
||||
* Check Substrate Part Numbers
|
||||
|
||||
LOCATE PartNo IN CheckArray<CA$SUB_PART_NO> USING @VM SETTING Pos ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Part No ':QUOTE(PartNo):' not found in':@TM:'Order Substrate Part Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
PartNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos) ;* Cursor to Lot No for a rescan
|
||||
END
|
||||
END ;* End of check for Customer supplied or Inventory substrate part number
|
||||
|
||||
Set_Property(CtrlEntID,'INVALUE',PartNo,PrevSelPos)
|
||||
|
||||
END CASE
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
OK:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.FIELD_RADIO'
|
||||
CheckArray = Get_Property(@WINDOW,'@CHECK_ARRAY')
|
||||
|
||||
ControlSelection = Get_Property(CtrlEntID,'VALUE')
|
||||
|
||||
Ctrls = @WINDOW:'.LOT_QTY':@RM ; Props = 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_PART':@RM ; Props := 'VISIBLE':@RM
|
||||
Ctrls := @WINDOW:'.LOT_QTY_SUB_PART' ; Props := 'VISIBLE'
|
||||
|
||||
BEGIN CASE
|
||||
CASE ControlSelection = 'LQ' ; Ctrl = @WINDOW:'.LOT_QTY'
|
||||
CASE ControlSelection = 'LQP' ; Ctrl = @WINDOW:'.LOT_QTY_PART'
|
||||
CASE ControlSelection = 'LQSP' ; Ctrl = @WINDOW:'.LOT_QTY_SUB_PART'
|
||||
END CASE
|
||||
|
||||
ListData = Get_Property(Ctrl,'LIST')
|
||||
|
||||
|
||||
TimeStamp = Get_Property(@WINDOW:'.RX_DTM','TEXT')
|
||||
TimeStamp = ICONV(TimeStamp,'DT')
|
||||
IF TimeStamp = '' THEN
|
||||
ErrMsg('Invalid Received DateTime data entered. "mm/dd/yy hh:mm:ss" is the basic format.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
* TimeStamp = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
|
||||
|
||||
|
||||
CheckArray<CA$SCANNED_LOT_QTY> = '' ;* Clear scanned lot quantities column
|
||||
|
||||
LineCnt = 1
|
||||
LOOP
|
||||
TestVal = ListData<LineCnt,1>
|
||||
UNTIL TestVal = ''
|
||||
LotNo = TRIM(ListData<LineCnt,1>)
|
||||
Qty = TRIM(ListData<LineCnt,2>)
|
||||
|
||||
IF ControlSelection = 'LQ' THEN
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos THEN
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,Pos>
|
||||
CustPartNo = CheckArray<CA$CUST_PART_NO,Pos>
|
||||
SubPartNo = CheckArray<CA$SUB_PART_NO,Pos>
|
||||
CheckArray<CA$SCANNED_LOT_QTY,Pos> = CheckArray<CA$SCANNED_LOT_QTY,Pos> + Qty
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",COL$LOT_NO:@FM:LineCnt) ;* Cursor to Lot No for a rescan
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
IF ControlSelection = 'LQP' THEN
|
||||
CustPartNo = TRIM(ListData<LineCnt,3>)
|
||||
LOCATE LotNo IN CheckArray<CA$LOT_NO> USING @VM SETTING Pos THEN
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,Pos>
|
||||
SubPartNo = CheckArray<CA$SUB_PART_NO,Pos>
|
||||
CheckArray<CA$SCANNED_LOT_QTY,Pos> = CheckArray<CA$SCANNED_LOT_QTY,Pos> + Qty
|
||||
END ELSE
|
||||
* Accept or Rescan message
|
||||
TypeOver = ''
|
||||
TypeOver<MTYPE$> = 'B&Rescan'
|
||||
TypeOver<MTEXT$> = 'Lot No ':QUOTE(LotNo):' not found in':@TM:'Order Item Lot Numbers!'
|
||||
Resp = Msg(@WINDOW,TypeOver,'LABEL_DATA_ERROR')
|
||||
|
||||
LotNo = '' ;* Clear entered field for a rescan
|
||||
Set_Property(CtrlEntId,"SELPOS",COL$LOT_NO:@FM:LineCnt) ;* Cursor to Lot No for a rescan
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
IF ControlSelection = 'LQSP' THEN
|
||||
|
||||
SubPartNo = TRIM(ListData<LineCnt,3>)
|
||||
OrderItemNo = CheckArray<CA$ITEM_NO,1> ;* Changed 2/8/2010 from ' = 1 ' JCH
|
||||
CustPartNo = CheckArray<CA$CUST_PART_NO,1>
|
||||
|
||||
END
|
||||
|
||||
Result<1,LineCnt> = LineCnt
|
||||
Result<2,LineCnt> = LotNo ;* Lot No
|
||||
Result<3,LineCnt> = Qty
|
||||
Result<4,LineCnt> = CustPartNo ;* PartNo
|
||||
Result<5,LineCnt> = SubPartNo ;* Substrate Part No
|
||||
Result<6,LineCnt> = OCONV(TimeStamp,'DT')
|
||||
Result<7,LineCnt> = @USER4
|
||||
Result<8,LineCnt> = OrderItemNo
|
||||
LineCnt += 1
|
||||
REPEAT
|
||||
|
||||
IF ControlSelection NE 'LQSP' THEN
|
||||
|
||||
* Orders with Epi supplied substrates don't have any lot quantities to check against.
|
||||
|
||||
ProblemQtyLots = ''
|
||||
FOR I = 1 TO COUNT(CheckArray<CA$LOT_NO>,@VM) + (CheckArray<CA$LOT_NO> NE '')
|
||||
IF (CheckArray<CA$SCANNED_LOT_QTY,I> NE '') AND (CheckArray<CA$LOT_QTY,I> NE CheckArray<CA$SCANNED_LOT_QTY,I>) THEN
|
||||
* Lot quantity mismatch
|
||||
ProblemQtyLots<-1> = CheckArray<CA$LOT_NO,I>
|
||||
END
|
||||
NEXT I
|
||||
|
||||
IF ProblemQtyLots NE '' THEN
|
||||
LineCnt = 1
|
||||
LOOP
|
||||
TestVal = ListData<LineCnt,1>
|
||||
UNTIL TestVal = ''
|
||||
LotNo = TRIM(ListData<LineCnt,1>)
|
||||
LOCATE LotNo IN ProblemQtyLots USING @FM SETTING Pos THEN
|
||||
stat = Send_Message(Ctrl,'COLOR_BY_POS',0,LineCnt,RED$) ;* Flag all the lines with lot numbers having qty problems
|
||||
END
|
||||
LineCnt += 1
|
||||
REPEAT
|
||||
|
||||
ErrMsg('Lot Quantity(s) Scanned do not match Order Item Lot Quantity(s)!||Review and rescan highlighted items.')
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
*
|
||||
END
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
181
LSL2/STPROC/COMM_EPI_SUSCEPTOR.txt
Normal file
181
LSL2/STPROC/COMM_EPI_SUSCEPTOR.txt
Normal file
@ -0,0 +1,181 @@
|
||||
COMPILE FUNCTION Comm_Epi_Susceptor(Instruction, Parm1)
|
||||
|
||||
/*
|
||||
Commuter module for Epi_Susceptor Window
|
||||
|
||||
10/31/2005 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window,Print_Vend_CofA
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message
|
||||
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$POCKET TO 1
|
||||
EQU COL$ZONE TO 2
|
||||
EQU COL$USAGE TO 3
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Epi_Susceptor'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'Refresh' ; GOSUB Refresh
|
||||
CASE Instruction = 'Clear' ; GOSUB Clear
|
||||
CASE Instruction = 'Read' ; GOSUB Read
|
||||
CASE Instruction = 'Write' ; GOSUB Write
|
||||
CASE Instruction = 'Delete' ; GOSUB Delete
|
||||
CASE Instruction = 'LUConfigID' ; GOSUB LUConfigID
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
Center_Window(@WINDOW)
|
||||
|
||||
EQU DROPDOWN_STYLE$ TO 131072
|
||||
|
||||
ReactorStyles = Send_Message(@WINDOW:'.POCKET_NO','COLSTYLE',0,'')
|
||||
|
||||
ReactorStyles<COL$USAGE> = BitOr(ReactorStyles<COL$USAGE>,DROPDOWN_STYLE$)
|
||||
|
||||
Send_Message(@WINDOW:'.POCKET_NO','COLSTYLE',0,ReactorStyles)
|
||||
|
||||
Send_Message(@WINDOW:'.POCKET_NO','COLFORMAT',COL$USAGE,'':@VM:'TEST')
|
||||
|
||||
IF Parm1 NE '' THEN
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
* 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>
|
||||
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 I
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Result = 1 ;* Security hook
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Delete:
|
||||
* * * * * * *
|
||||
|
||||
ErrMsg('Records may not be modified.')
|
||||
|
||||
Result = 0 ;* Security hook
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUConfigID:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
EpiSusID = Popup(@WINDOW,'','EPI_SUSCEPTOR')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
IF EpiSusID NE '' THEN obj_Appwindow('LUValReturn',EpiSusID:@RM:@WINDOW:'.CONFIG_ID') ;* Loads form key
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user