Fixed VNAV
This commit is contained in:
parent
d077448999
commit
291f050338
@ -20,11 +20,13 @@ status() = Valid$
|
||||
|
||||
BEGIN CASE
|
||||
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...
|
||||
* check number of seperate layers - god this fucking layering keeps haunting me.
|
||||
WONo = ''
|
||||
WOStepKey = ''
|
||||
|
||||
Bad = false$
|
||||
Bad = false$
|
||||
CONVERT '.' TO '' IN DataIo
|
||||
IF NUM( DataIo ) THEN
|
||||
IF LEN(DataIo) = 7 THEN
|
||||
@ -45,12 +47,12 @@ BEGIN CASE
|
||||
END
|
||||
|
||||
IF Bad THEN
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = WONo:' is not a valid Work Order...'
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = DataIo:' is not a valid Work Order...'
|
||||
MsgInfo<micon$> = '!'
|
||||
* let it be valid just warn
|
||||
Void = msg( '', MsgInfo )
|
||||
status() = invalid_nomsg$
|
||||
Void = msg( '', MsgInfo )
|
||||
status() = invalid_nomsg$
|
||||
END
|
||||
|
||||
CASE ConvType = 'OCONV'
|
||||
@ -62,3 +64,4 @@ BEGIN CASE
|
||||
|
||||
END CASE
|
||||
RETURN
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user