21 lines
746 B
Plaintext
21 lines
746 B
Plaintext
Function Post_Metrology_Manual_Data_Entry_Log(Username, DataType, RDSKeyID)
|
|
|
|
$insert LOGICAL
|
|
Equ Tab$ to \09\
|
|
|
|
Declare function Database_Services
|
|
Declare subroutine Database_Services
|
|
|
|
Date = Oconv(Date(), 'D4/')
|
|
Time = oconv(Time(), 'MTH')
|
|
Month = Field(Date, '/', 1, 1)
|
|
Year = Field(Date, '/', 3, 1)
|
|
UserFullName = Xlate('LSL_USERS', Username, 'FIRST_LAST', 'X')
|
|
|
|
LogKeyID = 'METROLOGY_MANUAL_DATA_ENTRY_' : Year : '_' : Month
|
|
Log = Database_Services('ReadDataRow', 'APP_INFO', LogKeyID)
|
|
Log := Date : Tab$ : Time : Tab$ : UserFullName : Tab$ : DataType : Tab$ : RDSKeyID : @FM
|
|
Database_Services('WriteDataRow', 'APP_INFO', LogKeyID, Log, True$)
|
|
|
|
Return ''
|