Небольшой вопрос по конфигурированию 1c 7.7
22.05.2010
13:45
#1
Нужно, чтоб на основании одного конкретного документа "док1" можно было создавать только один документ "док2" при попытке 2ой раз использовать в качестве основания "док1" должно выдаваться сообщение что документ уже использовался. И выполнить эту задачу надо без использования флажков. Подскажите пожалуйста, в каком атрибуте документа хранится информация о использовании его в качестве основания. или инфа о наличии введенного на основании документа.
22.05.2010
14:15
#2
"есть замечательная функция - она поможет
Функция глНайтиСчетФактуру(Конт,ВидСФ,ВозврПомУд=1) Экспорт
Перем ДокПодч;
СФПомНаУд = """";
// проверяем чтобы был записан всегда!
Если (Конт.Выбран() = 1) Тогда
ДокПодч = СоздатьОбъект("Документ");
ДокПодч.ВыбратьПодчиненныеДокументы(,,Конт.ТекущийДокумент());
Пока ДокПодч.ПолучитьДокумент()=1 Цикл
Если ДокПодч.Вид() = ВидСФ Тогда
ТекСФ = ДокПодч.ТекущийДокумент();
Если ТекСФ.ПометкаУдаления() = 1 Тогда
Если (ПустоеЗначение(СФПомНаУд) = 1) И (ВозврПомУд = 1) Тогда
СФПомНаУд = ТекСФ;
КонецЕсли;
Иначе
Возврат ТекСФ;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат СФПомНаУд;
КонецФункции"
Функция глНайтиСчетФактуру(Конт,ВидСФ,ВозврПомУд=1) Экспорт
Перем ДокПодч;
СФПомНаУд = """";
// проверяем чтобы был записан всегда!
Если (Конт.Выбран() = 1) Тогда
ДокПодч = СоздатьОбъект("Документ");
ДокПодч.ВыбратьПодчиненныеДокументы(,,Конт.ТекущийДокумент());
Пока ДокПодч.ПолучитьДокумент()=1 Цикл
Если ДокПодч.Вид() = ВидСФ Тогда
ТекСФ = ДокПодч.ТекущийДокумент();
Если ТекСФ.ПометкаУдаления() = 1 Тогда
Если (ПустоеЗначение(СФПомНаУд) = 1) И (ВозврПомУд = 1) Тогда
СФПомНаУд = ТекСФ;
КонецЕсли;
Иначе
Возврат ТекСФ;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Возврат СФПомНаУд;
КонецФункции"
Читают тему
(гостей: 1)