out boolean OUT_Active;
{default form to 'RM_Customer_Maintenance';}
{default window to 'RM_Customer_Maintenance';}

local text code;
local string complier_error;
local string l_tab, l_window, l_form;
local long l_characters_written;
local boolean l_result;
local string l_pathname;
local integer l_file_ID;

local string l_old_field, l_new_field;

OUT_Active = false;

l_pathname = Path_MakeGeneric("Z:\DYN600\AUDIT.LOG");

l_new_field = 'Customer Name' of window  RM_Customer_Maintenance of form RM_Customer_Maintenance;
l_window = technicalname(window  RM_Customer_Maintenance of form RM_Customer_Maintenance);
l_form = technicalname(form RM_Customer_Maintenance);

clear code;
code = code + "out string OUT_Field; " + char(13);
code = code + "OUT_Field =  'WDC Field Security String' of globals; " + char(13);

if execute(2054, code, complier_error, l_old_field) <> 0 then
	error complier_error;
end if;

l_tab = char(9);

l_file_ID = TextFile_Open(l_pathname, 1, 2);
l_characters_written = TextFile_WriteLine(l_file_ID,  	l_form + l_tab + l_window + l_tab + l_old_field + l_tab + l_new_field + l_tab +
																					str('Company ID' of globals) + l_tab + 'User ID' of globals + l_tab + str(sysdate()) + l_tab + str(systime()) );
l_result = TextFile_Close(l_file_ID);