pre cutover push
This commit is contained in:
@ -44,7 +44,7 @@ Function RDS_Test_Actions(Action, CalcColName, FSList, Handle, Name, FMC, Record
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$insert LOGICAL
|
||||
$insert APP_INSERTS
|
||||
$insert FILE.SYSTEM.EQUATES
|
||||
$insert ACTION_SETUP
|
||||
$insert RDS_TEST_EQUATES
|
||||
@ -52,6 +52,8 @@ $insert RDS_EQUATES
|
||||
$insert WO_LOG_EQUATES
|
||||
$insert WM_OUT_EQUATES
|
||||
|
||||
Equ COMMA$ to ','
|
||||
|
||||
Declare function Database_Services, Environment_Services, Logging_Services
|
||||
Declare subroutine Error_Services, Logging_Services
|
||||
|
||||
@ -187,7 +189,7 @@ WRITE_RECORD_PRE:
|
||||
// group. Reset the override flag so it won't allow future changes automatically.
|
||||
SaveRecord<RDS_TEST_MODIFY_OVERRIDE$> = ''
|
||||
// Stamp the RDS_TEST record with the username and date/time.
|
||||
SaveRecord<RDS_TEST_OVERRIDE_USERNAME$> = @UserName
|
||||
SaveRecord<RDS_TEST_OVERRIDE_USERNAME$> = @User4
|
||||
SaveRecord<RDS_TEST_OVERRIDE_DTM$> = Iconv(Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MT'), 'DT')
|
||||
end else
|
||||
// User is attempting to modify this row. Set the FS104 error and let the UI handle the condition based
|
||||
|
Reference in New Issue
Block a user