Все остался последний шаг, это записать измененный документ.

Записать
Записать документ.

Синтаксис:

Записать()

Англоязычный синоним:

Write

Описание:
Метод Записать выполняет запись в базу данных текущего нового или измененного документа.
Замечание. Если этот метод применяется в Модуле формы документа непосредственно к документу локального контекста, то данный метод отрабатывает те же действия, как интерактивное нажатие пользователем кнопки с формулой "#Записать".

Пишем.

.......
Если ДокОсн.ВыпискаОснования = 0 Тогда
	Док = СоздатьОбъект("Документ.Док1");
	Док.НайтиПоНомеру(ДокОсн.НомерДок,Дата(0));
	Док.ВыпискаОснования=1;
	Док.Записать();
	ДатаДок=ДокОсн.ДатаДок;
Иначе
.......

И теперь Вы сможете только один раз выписать документ на основании, при повторной попытке Вы получите сообщение.

Единственное, что неправильно в этом коде, это место расположения модификации. Нужно менять флажок в момент записи документа. Ведь документ могут не сохранить.