pre cutover push

This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions

View File

@ -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