modified react item calculated description to output even if susceptor size is null
This commit is contained in:
Infineon\StieberD
@ -20,13 +20,13 @@ DECLARE FUNCTION Printer_Select, Set_Printer, obj_Install, Direct_Print, Environ
|
|||||||
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, Direct_Print
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, Direct_Print
|
||||||
DECLARE SUBROUTINE ErrMsg, Btree.Extract
|
DECLARE SUBROUTINE ErrMsg, Btree.Extract
|
||||||
|
|
||||||
|
$INSERT LOGICAL
|
||||||
$INSERT MSG_EQUATES
|
$INSERT MSG_EQUATES
|
||||||
$INSERT REACT_ITEM_EQUATES
|
$INSERT REACT_ITEM_EQUATES
|
||||||
$INSERT REACT_ITEM_HIST_EQUATES
|
$INSERT REACT_ITEM_HIST_EQUATES
|
||||||
$INSERT REACTOR_EQUATES
|
$INSERT REACTOR_EQUATES
|
||||||
$INSERT REACT_READS_EQUATES
|
$INSERT REACT_READS_EQUATES
|
||||||
|
|
||||||
|
|
||||||
EQU PI$LEFT TO 1
|
EQU PI$LEFT TO 1
|
||||||
EQU PI$TOP TO 2
|
EQU PI$TOP TO 2
|
||||||
EQU PI$RIGHT TO 3
|
EQU PI$RIGHT TO 3
|
||||||
@ -35,12 +35,9 @@ EQU PI$WIDTH TO 5
|
|||||||
EQU PI$HEIGHT TO 6
|
EQU PI$HEIGHT TO 6
|
||||||
EQU PI$SIZE TO 7
|
EQU PI$SIZE TO 7
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
EQU CRLF$ TO \0D0A\
|
EQU CRLF$ TO \0D0A\
|
||||||
EQU TAB$ TO CHAR(9)
|
EQU TAB$ TO CHAR(9)
|
||||||
|
|
||||||
|
|
||||||
ErrTitle = 'Error in Stored Procedure "obj_ReactItem"'
|
ErrTitle = 'Error in Stored Procedure "obj_ReactItem"'
|
||||||
ErrorMsg = ''
|
ErrorMsg = ''
|
||||||
|
|
||||||
@ -81,35 +78,35 @@ RETURN Result
|
|||||||
CurrStatus:
|
CurrStatus:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
Parms = '':@RM:RINo:@RM:''
|
Parms = '':@RM:RINo:@RM:''
|
||||||
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
||||||
HistKey = HistKeys<1,1> ;* This is the most recent
|
HistKey = HistKeys<1,1> ;* This is the most recent
|
||||||
|
|
||||||
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
||||||
|
|
||||||
InstDTM = FIELD(HistKey,'*',3)
|
InstDTM = FIELD(HistKey,'*',3)
|
||||||
RemDTM = LastInstallRec<REACT_ITEM_HIST_REM_DTM$>
|
RemDTM = LastInstallRec<REACT_ITEM_HIST_REM_DTM$>
|
||||||
|
|
||||||
RetireDt = ReactItemRec<REACT_ITEM_RETIRE_DT$>
|
RetireDt = ReactItemRec<REACT_ITEM_RETIRE_DT$>
|
||||||
Notes = ReactItemRec<REACT_ITEM_NOTES$>
|
Notes = ReactItemRec<REACT_ITEM_NOTES$>
|
||||||
|
|
||||||
CONVERT @LOWER_CASE TO @UPPER_CASE IN NOtes
|
CONVERT @LOWER_CASE TO @UPPER_CASE IN NOtes
|
||||||
|
|
||||||
|
|
||||||
BEGIN CASE
|
BEGIN CASE
|
||||||
CASE RetireDt NE '' ; Result = 'R'
|
CASE RetireDt NE '' ; Result = 'R'
|
||||||
CASE InstDTM NE '' AND RemDTM = '' ; Result = 'I'
|
CASE InstDTM NE '' AND RemDTM = '' ; Result = 'I'
|
||||||
CASE InstDTM NE '' AND RemDTM NE '' OR INDEX(Notes,'USED',1) ; Result = 'U'
|
CASE InstDTM NE '' AND RemDTM NE '' OR INDEX(Notes,'USED',1) ; Result = 'U'
|
||||||
CASE InstDTM = '' AND RemDTM = '' ; Result = 'N'
|
CASE InstDTM = '' AND RemDTM = '' ; Result = 'N'
|
||||||
CASE 1 ; Result = '?'
|
CASE Otherwise$ ; Result = '?'
|
||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -118,28 +115,28 @@ RETURN
|
|||||||
ServiceHrs:
|
ServiceHrs:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
||||||
|
|
||||||
IF LastRemDTM = '' THEN
|
IF LastRemDTM = '' THEN
|
||||||
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
||||||
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_HRS_DTM$,'X')
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_HRS_DTM$,'X')
|
||||||
LastReadHrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_HOURS$,'X')
|
LastReadHrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_HOURS$,'X')
|
||||||
END ELSE
|
END ELSE
|
||||||
LastReadHrs = ''
|
LastReadHrs = ''
|
||||||
END
|
END
|
||||||
|
|
||||||
Ans = ''
|
Ans = ''
|
||||||
|
|
||||||
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_HRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_HRS$> NE '')
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_HRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_HRS$> NE '')
|
||||||
|
|
||||||
FOR I = 1 TO IRCnt
|
FOR I = 1 TO IRCnt
|
||||||
|
|
||||||
RemReactHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
RemReactHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
||||||
InstReactHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
InstReactHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
||||||
@ -158,9 +155,9 @@ FOR I = 1 TO IRCnt
|
|||||||
END ELSE
|
END ELSE
|
||||||
Ans<1,I> = ''
|
Ans<1,I> = ''
|
||||||
END
|
END
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
Result = Ans
|
Result = Ans
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -169,31 +166,31 @@ RETURN
|
|||||||
ServiceWfrs:
|
ServiceWfrs:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
||||||
|
|
||||||
IF LastRemDTM = '' THEN
|
IF LastRemDTM = '' THEN
|
||||||
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
||||||
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
||||||
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
||||||
END ELSE
|
END ELSE
|
||||||
LastReadWfrs = ''
|
LastReadWfrs = ''
|
||||||
END
|
END
|
||||||
|
|
||||||
Ans = ''
|
Ans = ''
|
||||||
|
|
||||||
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
||||||
|
|
||||||
|
|
||||||
IF IRCnt = 0 THEN
|
IF IRCnt = 0 THEN
|
||||||
Ans = LastReadWfrs
|
Ans = LastReadWfrs
|
||||||
END ELSE
|
END ELSE
|
||||||
|
|
||||||
FOR I = 1 TO IRCnt
|
FOR I = 1 TO IRCnt
|
||||||
|
|
||||||
@ -211,9 +208,9 @@ END ELSE
|
|||||||
END
|
END
|
||||||
|
|
||||||
NEXT I
|
NEXT I
|
||||||
END
|
END
|
||||||
|
|
||||||
Result = Ans
|
Result = Ans
|
||||||
|
|
||||||
RETURN Result
|
RETURN Result
|
||||||
|
|
||||||
@ -222,20 +219,20 @@ RETURN Result
|
|||||||
Serial_RINo:
|
Serial_RINo:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
* Temporary for conversion
|
* Temporary for conversion
|
||||||
|
|
||||||
SerialNos = Parms[1,@RM]
|
SerialNos = Parms[1,@RM]
|
||||||
|
|
||||||
IF SerialNos = '' THEN RETURN
|
IF SerialNos = '' THEN RETURN
|
||||||
|
|
||||||
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
||||||
|
|
||||||
FOR I = 1 TO snCnt
|
FOR I = 1 TO snCnt
|
||||||
SerialNo = SerialNos<1,I>
|
SerialNo = SerialNos<1,I>
|
||||||
IF SerialNo NE '' THEN
|
IF SerialNo NE '' THEN
|
||||||
|
|
||||||
@ -254,7 +251,7 @@ FOR I = 1 TO snCnt
|
|||||||
|
|
||||||
Result<1,I> = RINo
|
Result<1,I> = RINo
|
||||||
END ;* End of check for null SerialNo
|
END ;* End of check for null SerialNo
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -263,30 +260,30 @@ RETURN
|
|||||||
ServicePCRC:
|
ServicePCRC:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
LastRemDtm = ReactItemRec<REACT_ITEM_REM_DTM$,1>
|
||||||
|
|
||||||
IF LastRemDTM = '' THEN
|
IF LastRemDTM = '' THEN
|
||||||
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
ReactNo = ReactItemRec<REACT_ITEM_REACT_NO$,1>
|
||||||
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
LastReadDTM = XLATE('REACTOR',ReactNo,REACTOR_LAST_READ_WFRS_DTM$,'X')
|
||||||
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
LastReadWfrs = XLATE('REACT_READS',ReactNo:'*':LastReadDTM,REACT_READS_WAFER_CNT$,'X')
|
||||||
END ELSE
|
END ELSE
|
||||||
LastReadWfrs = ''
|
LastReadWfrs = ''
|
||||||
END
|
END
|
||||||
|
|
||||||
Ans = ''
|
Ans = ''
|
||||||
|
|
||||||
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
IRCnt = COUNT(ReactItemRec<REACT_ITEM_INST_REACT_WFRS$>,@VM) + (ReactItemRec<REACT_ITEM_INST_REACT_WFRS$> NE '')
|
||||||
|
|
||||||
IF IRCnt = 0 THEN
|
IF IRCnt = 0 THEN
|
||||||
Ans = LastReadWfrs
|
Ans = LastReadWfrs
|
||||||
END ELSE
|
END ELSE
|
||||||
FOR I = 1 TO IRCnt
|
FOR I = 1 TO IRCnt
|
||||||
|
|
||||||
RemReactWfrs = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
RemReactWfrs = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
||||||
@ -303,9 +300,9 @@ END ELSE
|
|||||||
END
|
END
|
||||||
|
|
||||||
NEXT I
|
NEXT I
|
||||||
END
|
END
|
||||||
|
|
||||||
Result = Ans
|
Result = Ans
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -314,21 +311,21 @@ RETURN
|
|||||||
ReactWfrCnt:
|
ReactWfrCnt:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
|
|
||||||
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
||||||
|
|
||||||
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
||||||
|
|
||||||
Ans = ''
|
Ans = ''
|
||||||
|
|
||||||
FOR I = 1 TO ReactCnt
|
FOR I = 1 TO ReactCnt
|
||||||
ReactNo = ReactNos<1,I>
|
ReactNo = ReactNos<1,I>
|
||||||
InstWfrCnt = ReactItemRec<REACT_ITEM_INST_REACT_WFRS$,I>
|
InstWfrCnt = ReactItemRec<REACT_ITEM_INST_REACT_WFRS$,I>
|
||||||
RemWfrCnt = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
RemWfrCnt = ReactItemRec<REACT_ITEM_REM_REACT_WFRS$,I>
|
||||||
@ -350,9 +347,9 @@ FOR I = 1 TO ReactCnt
|
|||||||
|
|
||||||
Ans<1,I> = Delta
|
Ans<1,I> = Delta
|
||||||
|
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
Result = Ans
|
Result = Ans
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -361,20 +358,20 @@ RETURN
|
|||||||
ReactHrs:
|
ReactHrs:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
ReactNos = ReactItemRec<REACT_ITEM_REACT_NO$>
|
||||||
|
|
||||||
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
||||||
|
|
||||||
Ans = ''
|
Ans = ''
|
||||||
|
|
||||||
FOR I = 1 TO ReactCnt
|
FOR I = 1 TO ReactCnt
|
||||||
ReactNo = ReactNos<1,I>
|
ReactNo = ReactNos<1,I>
|
||||||
InstHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
InstHrs = ReactItemRec<REACT_ITEM_INST_REACT_HRS$,I>
|
||||||
RemHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
RemHrs = ReactItemRec<REACT_ITEM_REM_REACT_HRS$,I>
|
||||||
@ -395,32 +392,31 @@ FOR I = 1 TO ReactCnt
|
|||||||
|
|
||||||
Ans<1,I> = Delta
|
Ans<1,I> = Delta
|
||||||
|
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
Result = Ans
|
Result = Ans
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
Serial_GRNo:
|
Serial_GRNo:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
* Temporary for conversion
|
* Temporary for conversion
|
||||||
|
|
||||||
SerialNos = Parms[1,@RM]
|
SerialNos = Parms[1,@RM]
|
||||||
|
|
||||||
IF SerialNos = '' THEN RETURN
|
IF SerialNos = '' THEN RETURN
|
||||||
|
|
||||||
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
snCnt = COUNT(SerialNos,@VM) + (SerialNos NE '')
|
||||||
|
|
||||||
FOR I = 1 TO snCnt
|
FOR I = 1 TO snCnt
|
||||||
SerialNo = SerialNos<1,I>
|
SerialNo = SerialNos<1,I>
|
||||||
IF SerialNo NE '' THEN
|
IF SerialNo NE '' THEN
|
||||||
SearchString = 'SERIAL':@VM:SerialNo:@FM
|
SearchString = 'SERIAL':@VM:SerialNo:@FM
|
||||||
@ -434,9 +430,7 @@ FOR I = 1 TO snCnt
|
|||||||
|
|
||||||
Result<1,I> = RINo
|
Result<1,I> = RINo
|
||||||
END ;* End of check for null SerialNo
|
END ;* End of check for null SerialNo
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -445,32 +439,32 @@ RETURN
|
|||||||
SplitSerial:
|
SplitSerial:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
PartNo = Parms[1,@RM]
|
PartNo = Parms[1,@RM]
|
||||||
|
|
||||||
|
|
||||||
IF PartNo = '' THEN ErrorMsg = 'Null Parameter "PartNo" passed to routine. (':Method:')'
|
IF PartNo = '' THEN ErrorMsg = 'Null Parameter "PartNo" passed to routine. (':Method:')'
|
||||||
|
|
||||||
IF ErrorMsg NE '' THEN RETURN
|
IF ErrorMsg NE '' THEN RETURN
|
||||||
|
|
||||||
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
OPEN 'DICT.REACT_ITEM' TO DictReactItem ELSE
|
||||||
DEBUG
|
DEBUG
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
SelectSent = 'SERIAL':@VM:'[':PartNo:']':@FM
|
SelectSent = 'SERIAL':@VM:'[':PartNo:']':@FM
|
||||||
Option = ''
|
Option = ''
|
||||||
Flag = ''
|
Flag = ''
|
||||||
|
|
||||||
Btree.Extract(SelectSent,'REACT_ITEM',DictReactItem,RINos,Option,Flag)
|
Btree.Extract(SelectSent,'REACT_ITEM',DictReactItem,RINos,Option,Flag)
|
||||||
|
|
||||||
IF Get_Status(errCode) THEN
|
IF Get_Status(errCode) THEN
|
||||||
ErrMsg(errCode)
|
ErrMsg(errCode)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
grCnt = COUNT(RINos,@VM) + (RINos NE '')
|
grCnt = COUNT(RINos,@VM) + (RINos NE '')
|
||||||
|
|
||||||
FOR I = 1 TO grCnt
|
FOR I = 1 TO grCnt
|
||||||
RINo = RINos<1,I>
|
RINo = RINos<1,I>
|
||||||
|
|
||||||
otParms = 'REACT_ITEM':@RM:RINo
|
otParms = 'REACT_ITEM':@RM:RINo
|
||||||
@ -492,9 +486,9 @@ FOR I = 1 TO grCnt
|
|||||||
|
|
||||||
obj_Tables('WriteRec',otParms)
|
obj_Tables('WriteRec',otParms)
|
||||||
|
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
Result = RINos
|
Result = RINos
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -503,16 +497,16 @@ RETURN
|
|||||||
CalcDesc:
|
CalcDesc:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
IF NOT(ASSIGNED(RINo)) THEN RINo = Parms[1,@RM]
|
||||||
IF NOT(ASSIGNED(ReactItemRec)) THEN ReactItemRec = Parms[COL2()+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 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')
|
IF ReactItemRec = '' THEN ReactItemRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
|
|
||||||
RIType = ReactItemRec<REACT_ITEM_RI_TYPE$>
|
RIType = ReactItemRec<REACT_ITEM_RI_TYPE$>
|
||||||
|
|
||||||
BEGIN CASE
|
BEGIN CASE
|
||||||
CASE RITYpe = 'W'
|
CASE RITYpe = 'W'
|
||||||
CalcDesc = ReactItemRec<REACT_ITEM_DESC$>
|
CalcDesc = ReactItemRec<REACT_ITEM_DESC$>
|
||||||
|
|
||||||
@ -542,8 +536,7 @@ BEGIN CASE
|
|||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
CASE 1
|
CASE Otherwise$
|
||||||
|
|
||||||
|
|
||||||
* Graphite types
|
* Graphite types
|
||||||
|
|
||||||
@ -577,212 +570,191 @@ BEGIN CASE
|
|||||||
BEGIN CASE
|
BEGIN CASE
|
||||||
CASE RingDesc NE '' AND SuscSize EQ '' AND PktSize NE '' ; CalcDesc := RingDesc
|
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 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 RingDesc EQ '' AND SuscSize NE '' ; CalcDesc := RITypeDesc:' ':SuscSize:'in, with ':PktQty: ' ':PktLabel:' @ ':PktSize:'in' ;* Replaced PktQty with PktSize -dkk 9/11/14
|
||||||
CASE 1
|
CASE RITypeDesc NE '' AND PktQty NE '' AND PktSize NE '' ; CalcDesc := RITypeDesc:' with ':PktQty: ' ':PktLabel:' @ ':PktSize:'in'
|
||||||
|
CASE Otherwise$
|
||||||
|
|
||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
|
END CASE
|
||||||
|
|
||||||
|
Result = CalcDesc
|
||||||
|
|
||||||
END CASE
|
|
||||||
|
|
||||||
Result = CalcDesc
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
PrintLabel:
|
PrintLabel:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
RINo = Parms[1,@RM]
|
RINo = Parms[1,@RM]
|
||||||
RIRec = Parms[COL2()+1,@RM]
|
RIRec = Parms[COL2()+1,@RM]
|
||||||
|
|
||||||
IF RINo = '' THEN
|
IF RINo = '' THEN
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
IF RIRec = '' THEN
|
IF RIRec = '' THEN
|
||||||
RIRec = XLATE('REACT_ITEM',RINo,'','X')
|
RIRec = XLATE('REACT_ITEM',RINo,'','X')
|
||||||
IF RIRec = '' THEN
|
IF RIRec = '' THEN
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
|
|
||||||
EnterDTM = OCONV(RIRec<REACT_ITEM_ENTER_DTM$>,'DT4/^HS')
|
EnterDTM = OCONV(RIRec<REACT_ITEM_ENTER_DTM$>,'DT4/^HS')
|
||||||
Desc = RIRec<REACT_ITEM_DESC$>
|
Desc = RIRec<REACT_ITEM_DESC$>
|
||||||
MfrCd = RIRec<REACT_ITEM_MFR_CD$>
|
MfrCd = RIRec<REACT_ITEM_MFR_CD$>
|
||||||
MfrName = XLATE('REACT_ITEM',RINo,'MFR_NAME','X')
|
MfrName = XLATE('REACT_ITEM',RINo,'MFR_NAME','X')
|
||||||
MfrPartNo = RIRec<REACT_ITEM_MFR_PART_NO$>
|
MfrPartNo = RIRec<REACT_ITEM_MFR_PART_NO$>
|
||||||
MfrPartNoRev = RIRec<REACT_ITEM_MFR_PART_NO_REV$>
|
MfrPartNoRev = RIRec<REACT_ITEM_MFR_PART_NO_REV$>
|
||||||
SerialNo = RIRec<REACT_ITEM_SERIAL_NO$>
|
SerialNo = RIRec<REACT_ITEM_SERIAL_NO$>
|
||||||
CurrStatus = OCONV(XLATE('REACT_ITEM',RINo,'CURR_STATUS','X'),'[CONV_ITEM_CURR_STATUS]')
|
CurrStatus = OCONV(XLATE('REACT_ITEM',RINo,'CURR_STATUS','X'),'[CONV_ITEM_CURR_STATUS]')
|
||||||
RITypeDesc = XLATE('REACT_ITEM',RINo,'RI_TYPE_DESC','X')
|
RITypeDesc = XLATE('REACT_ITEM',RINo,'RI_TYPE_DESC','X')
|
||||||
SuscSize = RIRec<REACT_ITEM_SUSC_SIZE$>
|
SuscSize = RIRec<REACT_ITEM_SUSC_SIZE$>
|
||||||
SuscSizeDesc = XLATE('REACT_ITEM',RINo,'SUSC_SIZE_DESC','X')
|
SuscSizeDesc = XLATE('REACT_ITEM',RINo,'SUSC_SIZE_DESC','X')
|
||||||
PktSize = RIRec<REACT_ITEM_PKT_SIZE$>
|
PktSize = RIRec<REACT_ITEM_PKT_SIZE$>
|
||||||
PktSizeDesc = XLATE('REACT_ITEM',RINo,'PKT_SIZE_DESC','X')
|
PktSizeDesc = XLATE('REACT_ITEM',RINo,'PKT_SIZE_DESC','X')
|
||||||
PktQty = RIRec<REACT_ITEM_PKT_QTY$>
|
PktQty = RIRec<REACT_ITEM_PKT_QTY$>
|
||||||
PPlusRDSNo = RIRec<REACT_ITEM_PPLUS_RDS_NO$>
|
PPlusRDSNo = RIRec<REACT_ITEM_PPLUS_RDS_NO$>
|
||||||
|
|
||||||
* Build calculated description from field data
|
* Build calculated description from field data
|
||||||
|
|
||||||
CalcDesc = obj_React_Item('CalcDesc',RINo:@RM:'')
|
CalcDesc = obj_React_Item('CalcDesc',RINo:@RM:'')
|
||||||
|
|
||||||
IF PPLusRDSNo NE '' THEN
|
IF PPLusRDSNo NE '' THEN
|
||||||
CalcDesc := ' ( P++ )'
|
CalcDesc := ' ( P++ )'
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
Parms = '':@RM:RINo:@RM:''
|
Parms = '':@RM:RINo:@RM:''
|
||||||
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
HistKeys = obj_React_Item_Hist('GetHistory',Parms) ;* 3 parameters RINo is the middle one
|
||||||
HistKey = HistKeys<1,1> ;* This is the most recent
|
HistKey = HistKeys<1,1> ;* This is the most recent
|
||||||
|
|
||||||
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
LastInstallRec = XLATE('REACT_ITEM_HIST',HistKeys<1,1>,'','X')
|
||||||
|
|
||||||
ReactNo = HistKey[1,'*']
|
ReactNo = HistKey[1,'*']
|
||||||
InstallDTM = OCONV(FIELD(HistKey,'*',3),'DT4/^S')
|
InstallDTM = OCONV(FIELD(HistKey,'*',3),'DT4/^S')
|
||||||
RemoveDTM = OCONV(LastInstallRec<REACT_ITEM_HIST_REM_DTM$>,'DT4/^S')
|
RemoveDTM = OCONV(LastInstallRec<REACT_ITEM_HIST_REM_DTM$>,'DT4/^S')
|
||||||
|
|
||||||
FileName = "Printing Label"
|
FileName = "Printing Label"
|
||||||
Title = "Printing Label"
|
Title = "Printing Label"
|
||||||
|
|
||||||
PageInfo = ''
|
PageInfo = ''
|
||||||
PageInfo<PI$LEFT> = 0.1
|
PageInfo<PI$LEFT> = 0.1
|
||||||
PageInfo<PI$TOP> = 0.1
|
PageInfo<PI$TOP> = 0.1
|
||||||
PageInfo<PI$RIGHT> = 0.1
|
PageInfo<PI$RIGHT> = 0.1
|
||||||
PageInfo<PI$BOTTOM> = 0.1
|
PageInfo<PI$BOTTOM> = 0.1
|
||||||
|
|
||||||
|
|
||||||
PageSetup = '1' ;* Landscape
|
PageSetup = '1' ;* Landscape
|
||||||
PrintSetup = '' ;* Preview
|
PrintSetup = '' ;* Preview
|
||||||
|
|
||||||
PrinterID = '\\mesirwfp001\MESZBRPRT002' ;* This is the Zebra 105se
|
PrinterID = '\\mesirwfp001\MESZBRPRT002' ;* This is the Zebra 105se
|
||||||
|
|
||||||
PrintPath = Printer_Select(PrinterID) ;* Popup is skipped IF Printer ID is passed
|
PrintPath = Printer_Select(PrinterID) ;* Popup is skipped IF Printer ID is passed
|
||||||
|
|
||||||
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
||||||
stat = Set_Printer("INIT",FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
|
stat = Set_Printer("INIT",FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
|
||||||
end else
|
end else
|
||||||
stat = Direct_Print('START', PrintPath<1>, '', '')
|
stat = Direct_Print('START', PrintPath<1>, '', '')
|
||||||
end
|
end
|
||||||
|
|
||||||
IF stat < 0 THEN GOTO OIPrint_Error
|
IF stat < 0 THEN GOTO OIPrint_Error
|
||||||
|
|
||||||
EQU DosPath$ TO 'C:\WINDOWS\OIZPL.TXT' ;* remove jch
|
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 := '^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 = '^XA'
|
Str:= '^FO30,70^AC,18^FDDesc:^FS':CRLF$
|
||||||
Str := '^LH0,0'
|
Str:= '^FO95,70^A050,30^FD':CalcDesc:'^FS':CRLF$
|
||||||
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
|
Str := '^BY2,2.0':CRLF$
|
||||||
|
Str := '^FO600,70^B3,,23,N^FD':RINo:'^FS':CRLF$
|
||||||
****** First Line
|
Str := '^BY2,3.0':CRLF$
|
||||||
|
|
||||||
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
|
****** Third Line
|
||||||
|
|
||||||
Str:= '^FO30,70^AC,18^FDDesc:^FS':CRLF$
|
Str:= '^FO30,115^AC,18^FDMfr:^FS' ;* Label
|
||||||
Str:= '^FO95,70^A050,30^FD':CalcDesc:'^FS':CRLF$
|
MfrData = MfrCd:' - ':MfrName
|
||||||
|
Str:= '^FO90,115^A0,,25^FD':MfrData:'^FS':CRLF$ ;* Data
|
||||||
Str := '^BY2,2.0':CRLF$
|
|
||||||
Str := '^FO600,70^B3,,23,N^FD':RINo:'^FS':CRLF$
|
|
||||||
Str := '^BY2,3.0':CRLF$
|
|
||||||
|
|
||||||
|
|
||||||
****** Third Line
|
****** Fourth Line
|
||||||
|
|
||||||
Str:= '^FO30,115^AC,18^FDMfr:^FS' ;* Label
|
Str:= '^FO30,160^AC,18^FDPN:^FS':CRLF$ ;* Label
|
||||||
MfrData = MfrCd:' - ':MfrName
|
Str:= '^FO70,160^A045,25^FD':MfrPartNo:'^FS':CRLF$ ;* Data
|
||||||
Str:= '^FO90,115^A0,,25^FD':MfrData:'^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
|
||||||
|
|
||||||
|
|
||||||
****** Fourth Line
|
****** Fifth Line
|
||||||
|
|
||||||
Str:= '^FO30,160^AC,18^FDPN:^FS':CRLF$ ;* Label
|
Str := '^FO30,205^AC,18^FDEntered:^FS':CRLF$
|
||||||
Str:= '^FO70,160^A045,25^FD':MfrPartNo:'^FS':CRLF$ ;* Data
|
Str := '^FO150,205^A0,20^FD':EnterDTM:'^FS':CRLF$
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
|
|
||||||
|
****** Sixth Line
|
||||||
|
|
||||||
****** Separator bar
|
Str := '^FO30,250^AC,18^FDInstalled:^FS':CRLF$
|
||||||
|
Str := '^FO150,250^A0,20^FD':InstallDTM:'^FS':CRLF$
|
||||||
*Str:= '^FO15,128^GB795,1^FS'
|
|
||||||
|
|
||||||
|
|
||||||
****** Fifth Line
|
Str := '^FO500,250^AC,18^FDReact No:^FS':CRLF$
|
||||||
|
Str := '^FO610,250^A0,20^FD':ReactNo:'^FS':CRLF$
|
||||||
|
|
||||||
Str := '^FO30,205^AC,18^FDEntered:^FS':CRLF$
|
****** Seventh Line
|
||||||
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$
|
|
||||||
|
|
||||||
|
Str := '^FO30,295^AC,18^FDRemoved:^FS':CRLF$
|
||||||
|
Str := '^FO150,295^A0,20^FD':RemoveDTM:'^FS':CRLF$
|
||||||
|
|
||||||
|
|
||||||
* * * * * *
|
* * * * * *
|
||||||
Jump:
|
Jump:
|
||||||
* * * * * *
|
* * * * * *
|
||||||
|
|
||||||
Str:= '^XZ'
|
Str := '^XZ'
|
||||||
|
|
||||||
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
||||||
stat = Set_Printer('TEXT',Str)
|
stat = Set_Printer('TEXT',Str)
|
||||||
end else
|
end else
|
||||||
stat = Direct_Print('PRINT', Str)
|
stat = Direct_Print('PRINT', Str)
|
||||||
end
|
end
|
||||||
|
|
||||||
* * * * * *
|
* * * * * *
|
||||||
OIPrint_Error:
|
OIPrint_Error:
|
||||||
* * * * * *
|
* * * * * *
|
||||||
|
|
||||||
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
If Environment_Services('GetLabelPrintMethod') _EQC 'OIPI' then
|
||||||
stat = Set_Printer("TERM")
|
stat = Set_Printer("TERM")
|
||||||
end else
|
end else
|
||||||
stat = Direct_Print('STOP')
|
stat = Direct_Print('STOP')
|
||||||
end
|
end
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user