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

{ Used for AutoGen Number }
local integer l_length;
local long l_number;

OUT_Active = false;

l_length = 8; 			{ Length of Numeric part of Number }
l_number = 1;			{ First Number in AutoGen Sequence }

{ Calculate Next Number }
range clear table PM_Vendor_MSTR;
clear table PM_Vendor_MSTR;
'Vendor ID' of table PM_Vendor_MSTR = pad(str(0), LEADING, str(0), l_length);
range start table PM_Vendor_MSTR;
fill table PM_Vendor_MSTR;
'Vendor ID' of table PM_Vendor_MSTR = pad(str(10^l_length-1), LEADING, str(0), l_length);
range end table PM_Vendor_MSTR;

get last table PM_Vendor_MSTR;
if err() = OKAY then
	l_number = value('Vendor ID' of table PM_Vendor_MSTR) + 1;
end if.
range clear table PM_Vendor_MSTR;

{ Insert Next Number }
'Vendor ID' of window 'PM_Vendor_Maintenance' of form 'PM_Vendor_Maintenance' = 
		pad(str(l_number), LEADING, str(0), l_length);
focus 'Vendor ID' of window 'PM_Vendor_Maintenance' of form 'PM_Vendor_Maintenance';
force change 'Vendor ID' of window 'PM_Vendor_Maintenance' of form 'PM_Vendor_Maintenance';