added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
789
LSL2/STPROC/OBJ_REACT_ITEM.txt
Normal file
789
LSL2/STPROC/OBJ_REACT_ITEM.txt
Normal file
@ -0,0 +1,789 @@
|
||||
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 @USERNAME = 'BRYCE_BARB' THEN DEBUG
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user