phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modified react item calculated description to output even if susceptor size is null

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-03 14:12:14 -07:00
parent 981840fd95
commit 3211eb5593
1 changed files with 453 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
LSL2/STPROC/OBJ_REACT_ITEM.txt
View File

@ -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 ErrMsg, Btree.Extract
$INSERT LOGICAL
$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
@ -35,12 +35,9 @@ 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 = ''
@ -108,7 +105,7 @@ BEGIN CASE
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 = '?'
CASE Otherwise$ ; Result = '?'
END CASE
RETURN
@ -402,7 +399,6 @@ Result = Ans
return
* * * * * * *
Serial_GRNo:
* * * * * * *
@ -436,8 +432,6 @@ FOR I = 1 TO snCnt
END ;* End of check for null SerialNo
NEXT I
RETURN
@ -542,8 +536,7 @@ BEGIN CASE
END
CASE 1
CASE Otherwise$
* Graphite types
@ -577,15 +570,12 @@ BEGIN CASE
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
CASE RITypeDesc NE '' AND PktQty NE '' AND PktSize NE '' ; CalcDesc := RITypeDesc:' with ':PktQty: ' ':PktLabel:' @ ':PktSize:'in'
CASE Otherwise$
END CASE
END CASE
Result = CalcDesc
@ -593,7 +583,6 @@ Result = CalcDesc
RETURN
* * * * * * *
PrintLabel:
* * * * * * *
@ -675,8 +664,6 @@ 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
@ -684,8 +671,6 @@ 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
@ -728,12 +713,6 @@ 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$
@ -754,10 +733,6 @@ Str := '^FO610,250^A0,20^FD':ReactNo:'^FS':CRLF$
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:
@ -783,6 +758,3 @@ end
RETURN