if dw_add_only_faculty.Update() = - 1  and dw_add_only_faculty.Retrieve() = - 1  then
	return
else	
	dw_add_only_faculty.Update()
	dw_add_only_faculty.Retrieve()
end if;	
if w_main.dw_faculty.Update() = - 1  and w_main.dw_faculty.Retrieve() = - 1  then
	return
else
	w_main.dw_faculty.Update()
	w_main.dw_faculty.Retrieve()
end if;	
MessageBox('Добавление факультета' , 'Запись добавлена!' , Information! , Ok! ,  1 )
close(w_add_alone_faculty)

// Database error -195 means that some of the required values are missing
IF sqldbcode = - 195  THEN
        MessageBox("Missing Information",  &    
            "You have not supplied values for all " &
            +"the required fields.")
END IF
// Return code suppresses default message box
RETURN  1