out boolean OUT_Active;
{default form to 'XL_Budget_Wizard';}
{default window to 'CreateNew';}

local text code;
local string complier_error;
local string l_BudgetID;

OUT_Active = false;

clear code;
code = code + "out string OUT_BudgetID; " + char(13);
code = code + "if isopen(window CreateNew of form XL_Budget_Wizard) then " + char(13);
code = code + "	OUT_BudgetID = 'Budget ID' of window CreateNew of form XL_Budget_Wizard; " + char(13);
code = code + "else " + char(13);
code = code + "	clear OUT_BudgetID; " + char(13);
code = code + "end if; " + char(13);

if execute(1878, code, complier_error, l_BudgetID) <> 0 then
	error complier_error;
end if;

if not empty(l_BudgetID) then
	set 'Customer Number' of table RM_Customer_MSTR to l_BudgetID.
	get table RM_Customer_MSTR.
	if err() <> MISSING then
		beep WARNSOUND;
		warning "This Budget ID has already been entered as a Customer ID.";
		OUT_Active = true;
	end if;
end if;