118 lines
2.9 KiB
Plaintext
118 lines
2.9 KiB
Plaintext
Function SVC_Reactor_List(Service, Param1, Param2, Param3, Param4, Param5, Param6, Param7)
|
|
|
|
/********************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
|
be copied without written permission.
|
|
|
|
Name : SVC Reactor List
|
|
|
|
Description :
|
|
|
|
Tags : [SRP]
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
05/05/10 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
$insert SERVICE_INSERT
|
|
|
|
Declare subroutine Rlist
|
|
|
|
Equ Crlf$ to \0D0A\
|
|
|
|
Begin Case
|
|
Case Service _eqc "Detail" ; GoSub Detail
|
|
Case Service _eqc "List" ; GoSub List
|
|
End Case
|
|
|
|
If Assigned(Ans) else Ans = Service
|
|
Return Ans
|
|
|
|
|
|
!----- SERVICES -----------------------------------------------------------------------------------------
|
|
|
|
|
|
Detail:
|
|
Reactor = Param1
|
|
Open "WO_MAST_SCHED" to hTable else hTable = ""
|
|
|
|
EOL = No$
|
|
Stmt = "SELECT WO_MAST_SCHED "
|
|
Stmt := "WITH REACT_NO EQ ":Quote(Reactor)
|
|
Rlist(Stmt, 5, "", "", "")
|
|
|
|
Loop
|
|
Readnext Key else EOL = Yes$
|
|
Until EOL EQ Yes$
|
|
Read Appt from hTable, Key then
|
|
Row = Key
|
|
Row<02> = Appt<02> ;// WO
|
|
Row<03> = Appt<14>
|
|
Row<04> = Appt<21>
|
|
Row<05> = Oconv(Appt<20>, "MD1")
|
|
Row<06> = Oconv(Xlate("WO_MAST_SCHED", Key, "TOTAL_PACE", "X"), "MD1")
|
|
|
|
Row<-1> = Oconv(Xlate("WO_LOG", Appt<02>, "REL_STAMP", "X") GT "", "B")
|
|
Row<-1> = Appt<04>
|
|
Convert @FM to @VM in Row
|
|
Ans := Row :@FM
|
|
end
|
|
Repeat
|
|
If Ans[-1,1] EQ @FM then Ans[-1,1] = ""
|
|
return
|
|
|
|
|
|
List:
|
|
Data = ""
|
|
Colors = ""
|
|
|
|
For i = 20 to 74
|
|
|
|
* Size = Xlate("REACTOR", i, 27, "X")
|
|
Size = Xlate("REACTOR", i, 29, "X")
|
|
Swap "mm " with "mm":Crlf$ in Size
|
|
|
|
Begin Case
|
|
|
|
Case i EQ 44 ;// Skipped
|
|
Case i EQ 46 ;// Skipped
|
|
Case i EQ 67 ;// Skipped
|
|
Case i EQ 71 ;// Skipped
|
|
Case i EQ 73 ;// Skipped
|
|
|
|
Case i EQ 69
|
|
* ID = i ; Type = "SC1 + SC2"
|
|
* Data<-1> = "ENT" :@VM: 1 :@VM: ID :@VM: i :@VM: Type
|
|
|
|
Case Otherwise$
|
|
ID = i
|
|
Type = Xlate("REACTOR", i, 1, "X") ;// Reactor type
|
|
Escal = Xlate("REACTOR", i, "ACT_ESC_DTM", "X")<0,1>
|
|
Begin Case
|
|
Case Type _eqc "ASM+" ; Type = "ASM+"
|
|
Case Type _eqc "EPP" ; Type = "EpiPro"
|
|
Case Type _eqc "EPS" ; Type = "ASM"
|
|
Case Type _eqc "HTR" ; Type = "HTR"
|
|
Case Type _eqc "SIG" ; Type = "ASM"
|
|
Case Type _eqc "" ; Type = "***"
|
|
End Case
|
|
Data<-1> = "ENT" :@VM: 1 :@VM: ID :@VM: i :@VM: Type :Crlf$:Size
|
|
If Escal GT "" then Colors<-1> = i
|
|
|
|
End Case
|
|
|
|
Next i
|
|
|
|
If @USER4 EQ "SRP_FRANK" then
|
|
Data<-1> = "ENT" :@VM: 1 :@VM: 99 :@VM: 99 :@VM: "Test":Crlf$:"Reactor"
|
|
end
|
|
|
|
Param1 = Data
|
|
Param2 = Colors
|
|
return
|