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

Fixed VNAV

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-10-04 11:24:20 -07:00
parent d077448999
commit 291f050338
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/WO_DAILY_VALID.txt
View File

@ -20,11 +20,13 @@ status() = Valid$
BEGIN CASE BEGIN CASE
CASE ConvType = 'ICONV' CASE ConvType = 'ICONV'
* Maintaining the two following comments. Still too good to toss - JRO Also want to note that this here limits us to 6 characters in a WO
* Keep this comment from Bryce, the code is gone but the comment is to good to toss... * Keep this comment from Bryce, the code is gone but the comment is to good to toss...
* check number of seperate layers - god this fucking layering keeps haunting me. * check number of seperate layers - god this fucking layering keeps haunting me.
WONo = ''
WOStepKey = ''
Bad = false$ Bad = false$
CONVERT '.' TO '' IN DataIo CONVERT '.' TO '' IN DataIo
IF NUM( DataIo ) THEN IF NUM( DataIo ) THEN
IF LEN(DataIo) = 7 THEN IF LEN(DataIo) = 7 THEN
@ -45,12 +47,12 @@ BEGIN CASE
END END
IF Bad THEN IF Bad THEN
MsgInfo = '' MsgInfo = ''
MsgInfo<mtext$> = WONo:' is not a valid Work Order...' MsgInfo<mtext$> = DataIo:' is not a valid Work Order...'
MsgInfo<micon$> = '!' MsgInfo<micon$> = '!'
* let it be valid just warn * let it be valid just warn
Void = msg( '', MsgInfo ) Void = msg( '', MsgInfo )
status() = invalid_nomsg$ status() = invalid_nomsg$
END END
CASE ConvType = 'OCONV' CASE ConvType = 'OCONV'
@ -62,3 +64,4 @@ BEGIN CASE
END CASE END CASE
RETURN RETURN