Requirement:
Export database log to a .csv/.txt file in AX 2009
Process:
Step
1:
Create a class with name “exportDataBaseLog” and methods. Create an action menu
item with name “exportDataBaseLog” and lebel “Export to csv”
Step
2:
Add action menu item (exportDataBaseLog) in form “Database log” (path:
Administration> Inquiry> Database log)
On click of button “Export to csv” a dialog will open for asking name of file
When we click on browse we will get a screen asking for file and location
On “Save” again we will see same dialog with name of file
On click Ok an info log will appear for location and file.
Elaborated technical approach
Step 1: Create
a class with name “exportDataBaseLog” and methods(for .txt we can replace .csv by .txt)
class
exportDataBaseLog extends RunBaseBatch
{
// Packed variables
FileNameSave filename;
System.Exception e;
QueryRun queryRun;
//str filename;
// Dialog fields
DialogField dlgFileName;
#define.CurrentVersion(1)
#define.Version1(1)
#localmacro.CurrentList
filename
#endmacro
}
|
public
Object dialog()
{
DialogRunbase dialog = super();
#resAppl
;
dialog.filenameLookupFilter(["csv files","*.csv"]);
dlgFileName =
dialog.addFieldValue(typeid(FileNameSave),filename);
return dialog;
}
|
public
boolean getFromDialog()
{
;
filename
= dlgFileName.value();
return super();
}
|
void
createLogInCSV()
{
TextIO file;
FileIOPermission fileIOPermission;
container line,header,header2;
SysDataBaseLog dataBaseLog;
List modifiedFieldValueList;
ListEnumerator enumerator;
Map OldValue, newValue;
container tmp;
FormListItem item;
fieldId fieldId;
#File
;
new
FileIOPermission(this.fileName()+'.csv','w').assert();
file = new
TextIO(this.fileName()+'.csv',#io_write,1250);
file.outFieldDelimiter(',');
header = ['Database Log export'];
header2 = ['Name of table','Record
Identification','Type of change','Created date and time','created by','Field
name','Value','Previous value'];
file.write(header);
file.write(header2);
while select dataBaseLog order by
CreatedDateTime desc
{
line = connull();
modifiedFieldValueList =
dataBaseLog.getDataAslist();
enumerator =
modifiedFieldValueList.getEnumerator();
while (enumerator.moveNext())
{
tmp = enumerator.current();
fieldId = conpeek(tmp, 1);
line=
[TableId2pName(dataBaseLog.table),
strReplace(dataBaseLog.Description,',',';'),
enum2str(dataBaseLog.LogType),
datetime2str(dataBaseLog.createdDateTime),
dataBaseLog.createdBy,
FieldId2Name(dataBaseLog.table,fieldId),
strrem(dataBaseLog.contents2Str(conpeek(tmp,
2),fieldId),','),
strrem(dataBaseLog.contents2Str(conpeek(tmp,
3),fieldId),',')];
file.write(line);
}
}
info(strfmt("Please
check log excel in path %1", filename));
}
|
public
void run()
{
#OCCRetryCount
try
{
ttsbegin;
this.createLogInCSV();
ttscommit;
}
catch (Exception::Deadlock)
{
retry;
}
catch (Exception::UpdateConflict)
{
if (appl.ttsLevel() == 0)
{
if (xSession::currentRetryCount()
>= #RetryNum)
{
throw
Exception::UpdateConflictNotRecovered;
}
else
{
retry;
}
}
else
{
throw Exception::UpdateConflict;
}
}
}
|
public
container pack()
{
return [#CurrentVersion,#CurrentList];
}
|
public
boolean unpack(container packedClass)
{
Version version =
RunBase::getVersion(packedClass);
;
switch (version)
{
case #CurrentVersion:
[version,#CurrentList] =
packedClass;
break;
default:
return false;
}
return true;
}
|
static
void main(Args args)
{
exportDataBaseLog dataBaseDetailedLogExtract;
;
dataBaseDetailedLogExtract = exportDataBaseLog::construct();
if (dataBaseDetailedLogExtract.prompt())
dataBaseDetailedLogExtract.run();
}
|
Result:
TestCSVFile.csv
