pre cutover push
This commit is contained in:
@ -606,9 +606,9 @@ UNTIL LoadFailed
|
||||
|
||||
NEXT I
|
||||
|
||||
RDSRec<RDS_OPERATOR_OUT$> = @USER4
|
||||
RDSRec<RDS_DATE_OUT$> = Date()
|
||||
RDSRec<RDS_TIME_OUT$> = Time()
|
||||
* RDSRec<RDS_OPERATOR_OUT$> = @USER4
|
||||
* RDSRec<RDS_DATE_OUT$> = Date()
|
||||
* RDSRec<RDS_TIME_OUT$> = Time()
|
||||
|
||||
UnloadDTM = OCONV(RDSRec<RDS_DATE_OUT$>, 'D4/' ):' ':OCONV( RDSRec<RDS_TIME_OUT$>, 'MTH' )
|
||||
|
||||
@ -710,10 +710,10 @@ IF NOT(UnloadFailed) THEN
|
||||
* Update Reactor Status with load data
|
||||
|
||||
If UnloadFailed EQ False$ then
|
||||
Send_Info('Updating Reactor ':Reactor:' Status...')
|
||||
* Send_Info('Updating Reactor ':Reactor:' Status...')
|
||||
|
||||
InCassettes = SRP_Array('Clean', InCassNos, 'TrimAndMakeUnique', @VM)
|
||||
obj_React_Status('ReactorUnload',Reactor:@RM:WONo:@RM:InCassettes:@RM:UnloadDTM:@RM:RDSNo)
|
||||
* InCassettes = SRP_Array('Clean', InCassNos, 'TrimAndMakeUnique', @VM)
|
||||
* obj_React_Status('ReactorUnload',Reactor:@RM:WONo:@RM:InCassettes:@RM:UnloadDTM:@RM:RDSNo)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
@ -1674,3 +1674,4 @@ NEXT I
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user