789 lines
19 KiB
Plaintext
789 lines
19 KiB
Plaintext
COMPILE FUNCTION obj_React_Item(Method,Parms)
|
|
|
|
/*
|
|
Methods for React_Item table
|
|
|
|
01/13/2014 JCH - Initial Coding
|
|
|
|
Properties:
|
|
|
|
Methods:
|
|
|
|
Install(RINo,ReactNo,DTM,ReactHrs,ReactWfrs,RL_Id) ;* Adds Reactor Installation line item to record
|
|
Remove(RINo,ReactNo,DTM,ReactHrs,ReactWfrs,RL_Id,RDSWfrCnt) ;* Adds Removal information to Reactor Installation line item
|
|
|
|
*/
|
|
|
|
|
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Send_Dyn, obj_Popup, obj_React_Item_Hist, obj_React_Item
|
|
DECLARE FUNCTION Printer_Select, Set_Printer, obj_Install, Direct_Print, Environment_Services
|
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, Direct_Print
|
|
DECLARE SUBROUTINE ErrMsg, Btree.Extract
|
|
|
|
$INSERT MSG_EQUATES
|
|
$INSERT REACT_ITEM_EQUATES
|
|
$INSERT REACT_ITEM_HIST_EQUATES
|
|
$INSERT REACTOR_EQUATES
|
|
$INSERT REACT_READS_EQUATES
|
|
|
|
|
|
EQU PI$LEFT TO 1
|
|
EQU PI$TOP TO 2
|
|
EQU PI$RIGHT TO 3
|
|
EQU PI$BOTTOM TO 4
|
|
EQU PI$WIDTH TO 5
|
|
EQU PI$HEIGHT TO 6
|
|
EQU PI$SIZE TO 7
|
|
|
|
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
EQU TAB$ TO CHAR(9)
|
|
|
|
|
|
ErrTitle = 'Error in Stored Procedure "obj_ReactItem"'
|
|
ErrorMsg = ''
|
|
|
|
IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
|
|
IF NOT(ASSIGNED(Parms)) THEN Parms = ''
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
RETURN ''
|
|
END
|
|
|
|
Result = ''
|
|
|
|
BEGIN CASE
|
|
|
|
CASE Method = 'CurrStatus' ; GOSUB CurrStatus
|
|
CASE Method = 'ServiceHrs' ; GOSUB ServiceHrs
|
|
CASE Method = 'ServiceWfrs' ; GOSUB ServiceWfrs
|
|
CASE Method = 'Serial_RINo' ; GOSUB Serial_RINo
|
|
CASE Method = 'ReactWfrCnt' ; GOSUB ReactWfrCnt
|
|
CASE Method = 'ReactHrs' ; GOSUB ReactHrs
|
|
CASE Method = 'CalcDesc' ; GOSUB CalcDesc
|
|
CASE Method = 'PrintLabel' ; GOSUB PrintLabel
|
|
|
|
CASE 1
|
|
ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to routine.'
|
|
|
|
END CASE
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
END
|
|
|
|
RETURN Result
|
|
|
|
|
|
* * * * * * *
|
|
CurrStatus:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
Parms = '':@RM:RINo:@RM:''
|
|
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
|
HistKey = HistKeys<1,1> ;* This is the most recent
|
|
|
|
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
|
|
|
InstDTM = FIELD(HistKey,'*',3)
|
|
RemDTM = LastInstallRec<REACT_ITEM_HIST_REM_DTM$>
|
|
|
|
RetireDt = ReactItemRec<REACT_ITEM_RETIRE_DT$>
|
|
Notes = ReactItemRec<REACT_ITEM_NOTES$>
|
|
|
|
CONVERT @LOWER_CASE TO @UPPER_CASE IN NOtes
|
|
|
|
|
|
BEGIN CASE
|
|
CASE RetireDt NE '' ; Result = 'R'
|
|
CASE InstDTM NE '' AND RemDTM = '' ; Result = 'I'
|
|
CASE InstDTM NE '' AND RemDTM NE '' OR INDEX(Notes,'USED',1) ; Result = 'U'
|
|
CASE InstDTM = '' AND RemDTM = '' ; Result = 'N'
|
|
CASE 1 ; Result = '?'
|
|
END CASE
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
ServiceHrs:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
|
|
|
IF LastRemDTM = '' THEN
|
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_HRS_DTM$,'X')
|
|
LastReadHrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_HOURS$,'X')
|
|
END ELSE
|
|
LastReadHrs = ''
|
|
END
|
|
|
|
Ans = ''
|
|
|
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_HRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_HRS$> NE '')
|
|
|
|
FOR I = 1 TO IRCnt
|
|
|
|
RemReactHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
|
InstReactHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
|
|
|
IF I = 1 AND LastReadHrs NE '' THEN
|
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,I>
|
|
|
|
LastReadDTM = XLATE('REACTOR',ReactNo,25,'X')
|
|
LastReadHrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,1,'X')
|
|
|
|
RemReactHrs = LastReadHrs
|
|
END
|
|
|
|
IF RemReactHrs > InstReactHrs AND NUM(InstReactHrs) AND NUM(RemReactHrs) THEN
|
|
Ans<1,I> = RemReactHrs - InstReactHrs
|
|
END ELSE
|
|
Ans<1,I> = ''
|
|
END
|
|
NEXT I
|
|
|
|
Result = Ans
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
ServiceWfrs:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
|
|
|
IF LastRemDTM = '' THEN
|
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
|
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
|
END ELSE
|
|
LastReadWfrs = ''
|
|
END
|
|
|
|
Ans = ''
|
|
|
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
|
|
|
|
|
IF IRCnt = 0 THEN
|
|
Ans = LastReadWfrs
|
|
END ELSE
|
|
|
|
FOR I = 1 TO IRCnt
|
|
|
|
RemReactWfrs = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
|
InstReactWfrs = ReactItemRec<REACT_ITEM_INST_REACT_WFRS$,I>
|
|
|
|
IF I = 1 AND LastReadWfrs NE '' THEN
|
|
RemReactWfrs = LastReadWfrs
|
|
END
|
|
|
|
IF RemReactWfrs > InstReactWfrs AND NUM(InstReactWfrs) AND NUM(RemReactWfrs) THEN
|
|
Ans<1,I> = RemReactWfrs - InstReactWfrs
|
|
END ELSE
|
|
Ans<1,I> = ''
|
|
END
|
|
|
|
NEXT I
|
|
END
|
|
|
|
Result = Ans
|
|
|
|
RETURN Result
|
|
|
|
|
|
* * * * * * *
|
|
Serial_RINo:
|
|
* * * * * * *
|
|
|
|
* Temporary for conversion
|
|
|
|
SerialNos = Parms[1,@RM]
|
|
|
|
IF SerialNos = '' THEN RETURN
|
|
|
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
|
|
|
RETURN
|
|
END
|
|
|
|
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
|
|
|
FOR I = 1 TO snCnt
|
|
SerialNo = SerialNos<1,I>
|
|
IF SerialNo NE '' THEN
|
|
|
|
IF RowExists('REACT_ITEM',SerialNo) THEN
|
|
RINo = SerialNo
|
|
END ELSE
|
|
SearchString = 'SERIAL':@VM:SerialNo:@FM
|
|
|
|
Option = ''
|
|
Flag = ''
|
|
|
|
Btree.Extract(SearchString,'REACT_ITEM',DictReactItem,RINo,Option,Flag)
|
|
|
|
IF INDEX(RINo,@VM,1) THEN RINo = FIELD(RINo,@VM,1,3)
|
|
END
|
|
|
|
Result<1,I> = RINo
|
|
END ;* End of check for null SerialNo
|
|
NEXT I
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
ServicePCRC:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
|
|
|
IF LastRemDTM = '' THEN
|
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
|
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
|
END ELSE
|
|
LastReadWfrs = ''
|
|
END
|
|
|
|
Ans = ''
|
|
|
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
|
|
|
IF IRCnt = 0 THEN
|
|
Ans = LastReadWfrs
|
|
END ELSE
|
|
FOR I = 1 TO IRCnt
|
|
|
|
RemReactWfrs = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
|
InstReactWfrs = ReactItemRec<REACT_ITEM_INST_REACT_WFRS$,I> ;* This should always be set to zero
|
|
|
|
IF I = 1 AND LastReadWfrs NE ''THEN
|
|
RemReactWfrs = LastReadWfrs
|
|
END
|
|
|
|
IF RemReactWfrs > InstReactWfrs AND NUM(InstReactWfrs) AND NUM(RemReactWfrs) THEN
|
|
Ans<1,I> = RemReactWfrs - InstReactWfrs - ReactItemRec<REACT_ITEM_RDS_WFR_CNT$,I>
|
|
END ELSE
|
|
Ans<1,I> = ''
|
|
END
|
|
|
|
NEXT I
|
|
END
|
|
|
|
Result = Ans
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
ReactWfrCnt:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
|
|
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
|
|
|
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
|
|
|
Ans = ''
|
|
|
|
FOR I = 1 TO ReactCnt
|
|
ReactNo = ReactNos<1,I>
|
|
InstWfrCnt = ReactItemRec<REACT_ITEM_INST_REACT_WFRS$,I>
|
|
RemWfrCnt = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
|
|
|
|
|
IF I = 1 AND RemWfrCnt = '' THEN
|
|
LastReadDTM = XLATE( 'REACTOR', ReactNo, REACTOR_LAST_READ_WFRS_DTM$, 'X' )
|
|
RemWfrCnt = XLATE( 'REACT_READS' ,ReactNo:'*':LastReadDTM, REACT_READS_WAFER_CNT$, 'X' )
|
|
END
|
|
|
|
Delta = ''
|
|
IF InstWfrCnt NE '' THEN
|
|
IF RemWfrCnt NE '' THEN
|
|
IF RemWfrCnt >= InstWfrCnt THEN
|
|
Delta = RemWfrCnt - InstWfrCnt
|
|
END
|
|
END ;* End of check for RemWfrCnt
|
|
END ;* End of check for InstWfrCnt
|
|
|
|
Ans<1,I> = Delta
|
|
|
|
NEXT I
|
|
|
|
Result = Ans
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
ReactHrs:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
|
|
|
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
|
|
|
Ans = ''
|
|
|
|
FOR I = 1 TO ReactCnt
|
|
ReactNo = ReactNos<1,I>
|
|
InstHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
|
RemHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
|
|
|
IF I = 1 AND RemHrs = '' THEN
|
|
LastReadDTM = XLATE( 'REACTOR', ReactNo, REACTOR_LAST_READ_HRS_DTM$, 'X' )
|
|
RemHrs = XLATE( 'REACT_READS' ,ReactNo:'*':LastReadDTM, REACT_READS_HOURS$, 'X' )
|
|
END
|
|
|
|
Delta = ''
|
|
IF InstHrs NE '' THEN
|
|
IF RemHrs NE '' THEN
|
|
IF RemHrs >= InstHrs THEN
|
|
Delta = RemHrs - InstHrs
|
|
END
|
|
END ;* End of check for RemHrs
|
|
END ;* End of check for InstHrs
|
|
|
|
Ans<1,I> = Delta
|
|
|
|
NEXT I
|
|
|
|
Result = Ans
|
|
|
|
return
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Serial_GRNo:
|
|
* * * * * * *
|
|
|
|
* Temporary for conversion
|
|
|
|
SerialNos = Parms[1,@RM]
|
|
|
|
IF SerialNos = '' THEN RETURN
|
|
|
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
|
|
|
RETURN
|
|
END
|
|
|
|
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
|
|
|
FOR I = 1 TO snCnt
|
|
SerialNo = SerialNos<1,I>
|
|
IF SerialNo NE '' THEN
|
|
SearchString = 'SERIAL':@VM:SerialNo:@FM
|
|
|
|
Option = ''
|
|
Flag = ''
|
|
|
|
Btree.Extract(SearchString,'REACT_ITEM',DictReactItem,RINo,Option,Flag)
|
|
|
|
IF INDEX(RINo,@VM,1) THEN RINo = FIELD(RINo,@VM,1,3)
|
|
|
|
Result<1,I> = RINo
|
|
END ;* End of check for null SerialNo
|
|
NEXT I
|
|
|
|
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
SplitSerial:
|
|
* * * * * * *
|
|
|
|
PartNo = Parms[1,@RM]
|
|
|
|
|
|
IF PartNo = '' THEN ErrorMsg = 'Null Parameter "PartNo" passed to routine. (':Method:')'
|
|
|
|
IF ErrorMsg NE '' THEN RETURN
|
|
|
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
|
DEBUG
|
|
RETURN
|
|
END
|
|
|
|
SelectSent = 'SERIAL':@VM:'[':PartNo:']':@FM
|
|
Option = ''
|
|
Flag = ''
|
|
|
|
Btree.Extract(SelectSent,'REACT_ITEM',DictReactItem,RINos,Option,Flag)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
RETURN
|
|
END
|
|
|
|
grCnt = COUNT(RINos,@VM) + (RINos NE '')
|
|
|
|
FOR I = 1 TO grCnt
|
|
RINo = RINos<1,I>
|
|
|
|
otParms = 'REACT_ITEM':@RM:RINo
|
|
|
|
ReactItemRec = obj_Tables('ReadRec',otParms)
|
|
|
|
Serial = ReactItemRec<REACT_ITEM_SERIAL$>
|
|
|
|
SWAP PartNo WITH '' IN Serial
|
|
|
|
*Serial[1,LEN(PartNo)] = ''
|
|
|
|
IF Serial[1,1] = '-' THEN Serial[1,1] = ''
|
|
|
|
ReactItemRec<REACT_ITEM_SERIAL_NO$> = Serial
|
|
ReactItemRec<REACT_ITEM_MFR_PART_NO$> = PartNo
|
|
|
|
otParms = FIELDSTORE(OtParms,@RM,4,0,ReactItemRec)
|
|
|
|
obj_Tables('WriteRec',otParms)
|
|
|
|
NEXT I
|
|
|
|
Result = RINos
|
|
|
|
RETURN
|
|
|
|
|
|
* * * * * * *
|
|
CalcDesc:
|
|
* * * * * * *
|
|
|
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
|
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN RETURN ;* This is used in the dictionary -> don't throw an error for a null parmeter
|
|
|
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
|
|
RIType = ReactItemRec<REACT_ITEM_RI_TYPE$>
|
|
|
|
BEGIN CASE
|
|
CASE RITYpe = 'W'
|
|
CalcDesc = ReactItemRec<REACT_ITEM_DESC$>
|
|
|
|
CASE RIType = 'A'
|
|
CalcDesc = ReactItemRec<REACT_ITEM_DESC$>
|
|
|
|
CASE RIType = 'T'
|
|
Desc = ReactItemRec<REACT_ITEM_DESC$>
|
|
Style = ReactItemRec<REACT_ITEM_TUBE_STYLE$>
|
|
Pressure = ReactItemRec<REACT_ITEM_TUBE_PRESS$>
|
|
|
|
RITypeDesc = obj_Popup('CodeDesc','REACT_ITEM_TYPE':@RM:RIType)
|
|
|
|
IF INDEX(Desc,'2000',1) THEN
|
|
|
|
CalcDesc = 'Kit 2000, ':RITypeDesc
|
|
|
|
IF Style NE '' THEN CalcDesc := ' - ':Style
|
|
IF Pressure NE '' THEN CalcDesc := ' - ':Pressure
|
|
|
|
END ELSE
|
|
|
|
CalcDesc = RITypeDesc
|
|
|
|
IF Style NE '' THEN CalcDesc := ' - ':Style
|
|
IF Pressure NE '' THEN CalcDesc := ' - ':Pressure
|
|
END
|
|
|
|
|
|
CASE 1
|
|
|
|
|
|
* Graphite types
|
|
|
|
Desc = ReactItemRec<REACT_ITEM_DESC$>
|
|
RIType = ReactItemRec<REACT_ITEM_RI_TYPE$>
|
|
RITypeDesc = obj_Popup('CodeDesc','REACT_ITEM_TYPE':@RM:RIType)
|
|
SuscSize = ReactItemRec<REACT_ITEM_SUSC_SIZE$>
|
|
PktQty = ReactItemRec<REACT_ITEM_PKT_QTY$>
|
|
PktSize = ReactItemRec<REACT_ITEM_PKT_SIZE$>
|
|
|
|
IF INDEX(Desc,'2000',1) THEN
|
|
CalcDesc = 'Kit 2000, '
|
|
END ELSE
|
|
CalcDesc = ''
|
|
END
|
|
|
|
IF PktQty = '' THEN PktQty = 1
|
|
|
|
BEGIN CASE
|
|
CASE PktQty = 1 ; PktLabel = 'pkt'
|
|
CASE PktQty > 1 ; PktLabel = 'pkts'
|
|
CASE 1 ; PktLabel = ''
|
|
END CASE
|
|
|
|
IF RIType[1,1] = 'R' THEN
|
|
RingDesc = RITypeDesc:', ':PktSize:'in'
|
|
END ELSE
|
|
RingDesc = ''
|
|
END
|
|
|
|
BEGIN CASE
|
|
CASE RingDesc NE '' AND SuscSize EQ '' AND PktSize NE '' ; CalcDesc := RingDesc
|
|
CASE RingDesc NE '' AND SuscSize NE '' ; CalcDesc := RingDesc:' for ':SuscSize:'in Susceptor with ':PktQty:' ':PktLabel
|
|
*CASE RingDesc EQ '' AND SuscSize NE '' ; CalcDesc := RITypeDesc:', ':SuscSize:'in with ':PktSize:'in':PktQty:' ':PktLabel ;* Replaced PktQty with PktSize -dkk 9/11/14
|
|
CASE RingDesc EQ '' AND SuscSize NE '' ; CalcDesc := RITypeDesc:' ':SuscSize:'in, with ':PktQty: ' ':PktLabel:' @ ':PktSize:'in' ;* Replaced PktQty with PktSize -dkk 9/11/14
|
|
CASE 1
|
|
|
|
END CASE
|
|
|
|
|
|
|
|
|
|
END CASE
|
|
|
|
Result = CalcDesc
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
* * * * * * *
|
|
PrintLabel:
|
|
* * * * * * *
|
|
|
|
RINo = Parms[1,@RM]
|
|
RIRec = Parms[COL2()+1,@RM]
|
|
|
|
IF RINo = '' THEN
|
|
RETURN
|
|
END
|
|
|
|
|
|
IF RIRec = '' THEN
|
|
RIRec = XLATE('REACT_ITEM',RINo,'','X')
|
|
IF RIRec = '' THEN
|
|
RETURN
|
|
END
|
|
END
|
|
|
|
EnterDTM = OCONV(RIRec<REACT_ITEM_ENTER_DTM$>,'DT4/^HS')
|
|
Desc = RIRec<REACT_ITEM_DESC$>
|
|
MfrCd = RIRec<REACT_ITEM_MFR_CD$>
|
|
MfrName = XLATE('REACT_ITEM',RINo,'MFR_NAME','X')
|
|
MfrPartNo = RIRec<REACT_ITEM_MFR_PART_NO$>
|
|
MfrPartNoRev = RIRec<REACT_ITEM_MFR_PART_NO_REV$>
|
|
SerialNo = RIRec<REACT_ITEM_SERIAL_NO$>
|
|
CurrStatus = OCONV(XLATE('REACT_ITEM',RINo,'CURR_STATUS','X'),'[CONV_ITEM_CURR_STATUS]')
|
|
RITypeDesc = XLATE('REACT_ITEM',RINo,'RI_TYPE_DESC','X')
|
|
SuscSize = RIRec<REACT_ITEM_SUSC_SIZE$>
|
|
SuscSizeDesc = XLATE('REACT_ITEM',RINo,'SUSC_SIZE_DESC','X')
|
|
PktSize = RIRec<REACT_ITEM_PKT_SIZE$>
|
|
PktSizeDesc = XLATE('REACT_ITEM',RINo,'PKT_SIZE_DESC','X')
|
|
PktQty = RIRec<REACT_ITEM_PKT_QTY$>
|
|
PPlusRDSNo = RIRec<REACT_ITEM_PPLUS_RDS_NO$>
|
|
|
|
* Build calculated description from field data
|
|
|
|
CalcDesc = obj_React_Item('CalcDesc',RINo:@RM:'')
|
|
|
|
IF PPLusRDSNo NE '' THEN
|
|
CalcDesc := ' ( P++ )'
|
|
END
|
|
|
|
|
|
Parms = '':@RM:RINo:@RM:''
|
|
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
|
HistKey = HistKeys<1,1> ;* This is the most recent
|
|
|
|
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
|
|
|
ReactNo = HistKey[1,'*']
|
|
InstallDTM = OCONV(FIELD(HistKey,'*',3),'DT4/^S')
|
|
RemoveDTM = OCONV(LastInstallRec<REACT_ITEM_HIST_REM_DTM$>,'DT4/^S')
|
|
|
|
FileName = "Printing Label"
|
|
Title = "Printing Label"
|
|
|
|
PageInfo = ''
|
|
PageInfo<PI$LEFT> = 0.1
|
|
PageInfo<PI$TOP> = 0.1
|
|
PageInfo<PI$RIGHT> = 0.1
|
|
PageInfo<PI$BOTTOM> = 0.1
|
|
|
|
|
|
PageSetup = '1' ;* Landscape
|
|
PrintSetup = '' ;* Preview
|
|
|
|
PrinterID = '\\mesirwfp001\MESZBRPRT002' ;* This is the Zebra 105se
|
|
|
|
PrintPath = Printer_Select(PrinterID) ;* Popup is skipped IF Printer ID is passed
|
|
|
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
|
stat = Set_Printer("INIT",FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
|
|
end else
|
|
stat = Direct_Print('START', PrintPath<1>, '', '')
|
|
end
|
|
|
|
IF stat < 0 THEN GOTO OIPrint_Error
|
|
|
|
EQU DosPath$ TO 'C:\WINDOWS\OIZPL.TXT' ;* remove jch
|
|
|
|
|
|
|
|
Str = '^XA'
|
|
Str := '^LH0,0'
|
|
Str := '^PR2' ;* Print speed 2 inches per second
|
|
Str := '^LL406' ;* Label length = 203.2dpi x 2in
|
|
Str := '^PW812' ;* Print width = 203.2dpi x 4in ;* This was 900 jch 12/30/2013
|
|
Str := '^MD15' ;* Media darkness
|
|
Str := '^MMT' ;* Media mode t=tear off mode
|
|
*Str := '^PQ2' ;* Print 2 labels for each pass through here
|
|
|
|
Str := '^FS' ;* end command
|
|
|
|
****** First Line
|
|
|
|
Str := '^FO30,25^A0,,36^FD':obj_Install('Get_Prop','Company'):'^FS'
|
|
|
|
Str := '^FO310,25^AC,18^FDRI No:^FS':CRLF$ ;* Label
|
|
Str := '^FO390,25^A045,36^FD':RINo:'^FS':CRLF$ ;* Data
|
|
|
|
Str := '^FO560,25^AC,18^FDStatus:^FS':CRLF$ ;* Label
|
|
Str := '^FO650,25^A045,36^FD':CurrStatus:'^FS':CRLF$ ;* Data
|
|
|
|
|
|
****** Second Line
|
|
|
|
Str:= '^FO30,70^AC,18^FDDesc:^FS':CRLF$
|
|
Str:= '^FO95,70^A050,30^FD':CalcDesc:'^FS':CRLF$
|
|
|
|
Str := '^BY2,2.0':CRLF$
|
|
Str := '^FO600,70^B3,,23,N^FD':RINo:'^FS':CRLF$
|
|
Str := '^BY2,3.0':CRLF$
|
|
|
|
|
|
****** Third Line
|
|
|
|
Str:= '^FO30,115^AC,18^FDMfr:^FS' ;* Label
|
|
MfrData = MfrCd:' - ':MfrName
|
|
Str:= '^FO90,115^A0,,25^FD':MfrData:'^FS':CRLF$ ;* Data
|
|
|
|
|
|
****** Fourth Line
|
|
|
|
Str:= '^FO30,160^AC,18^FDPN:^FS':CRLF$ ;* Label
|
|
Str:= '^FO70,160^A045,25^FD':MfrPartNo:'^FS':CRLF$ ;* Data
|
|
|
|
Str:= '^FO300,160^AC,18^FDRev:^FS':CRLF$ ;* Label
|
|
Str:= '^FO350,160^A045,25^FD':MfrPartNoRev:'^FS':CRLF$ ;* Data
|
|
|
|
Str:= '^FO500,160^AC,18^FDSN:^FS':CRLF$ ;* Label
|
|
Str:= '^FO540,160^A045,25^FD':SerialNo:'^FS':CRLF$ ;* Data
|
|
|
|
|
|
|
|
****** Separator bar
|
|
|
|
*Str:= '^FO15,128^GB795,1^FS'
|
|
|
|
|
|
****** Fifth Line
|
|
|
|
Str := '^FO30,205^AC,18^FDEntered:^FS':CRLF$
|
|
Str := '^FO150,205^A0,20^FD':EnterDTM:'^FS':CRLF$
|
|
|
|
|
|
****** Sixth Line
|
|
|
|
Str := '^FO30,250^AC,18^FDInstalled:^FS':CRLF$
|
|
Str := '^FO150,250^A0,20^FD':InstallDTM:'^FS':CRLF$
|
|
|
|
|
|
Str := '^FO500,250^AC,18^FDReact No:^FS':CRLF$
|
|
Str := '^FO610,250^A0,20^FD':ReactNo:'^FS':CRLF$
|
|
|
|
****** Seventh Line
|
|
|
|
Str := '^FO30,295^AC,18^FDRemoved:^FS':CRLF$
|
|
Str := '^FO150,295^A0,20^FD':RemoveDTM:'^FS':CRLF$
|
|
|
|
*Str := '^FO410,295^AC,18^FDReact Type:^FS':CRLF$
|
|
*Str := '^FO560,295^A0,20^FD':PrintReactType:'^FS':CRLF$
|
|
|
|
|
|
|
|
* * * * * *
|
|
Jump:
|
|
* * * * * *
|
|
|
|
Str:= '^XZ'
|
|
|
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
|
stat = Set_Printer('TEXT',Str)
|
|
end else
|
|
stat = Direct_Print('PRINT', Str)
|
|
end
|
|
|
|
* * * * * *
|
|
OIPrint_Error:
|
|
* * * * * *
|
|
|
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
|
stat = Set_Printer("TERM")
|
|
end else
|
|
stat = Direct_Print('STOP')
|
|
end
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|