1с 7.7 предприятие
Показывать по
10
20
40
сообщений
- 1
- 2
12.10.2010
18:33
#11
"> Что за конфигурация?
самописная. Он говорил в одной из тем.
А по теме, пишешь примерно такое:
ДокРасход = СоздатьОбъект("Документ.Расход");
докНЗ = СоздатьОбъект("Документ.НарядЗаказ");
ДокНЗ.ВыбратьДокументы();
Пока ДокНЗ.ПолучитьДокумент()=1 Цикл
Если ДокНЗ.Проведен() = 0 тогда
Продолжить;
КонецЕсли;
ДокНЗ.Провести();//если требуется
ДокРасход.ВыбратьПодчиненныеДокументы(ДатаНачала,ДатаКонца,ДокНЗ.ТекущийДокумент());
Пока ДокРасход.ПолучитьДокумент()=1 Цикл
....
КонецЦикла;
КонецЦикла;
Как-то так..."
самописная. Он говорил в одной из тем.
А по теме, пишешь примерно такое:
ДокРасход = СоздатьОбъект("Документ.Расход");
докНЗ = СоздатьОбъект("Документ.НарядЗаказ");
ДокНЗ.ВыбратьДокументы();
Пока ДокНЗ.ПолучитьДокумент()=1 Цикл
Если ДокНЗ.Проведен() = 0 тогда
Продолжить;
КонецЕсли;
ДокНЗ.Провести();//если требуется
ДокРасход.ВыбратьПодчиненныеДокументы(ДатаНачала,ДатаКонца,ДокНЗ.ТекущийДокумент());
Пока ДокРасход.ПолучитьДокумент()=1 Цикл
....
КонецЦикла;
КонецЦикла;
Как-то так..."
12.10.2010
18:51
#16
а что, не согласуется задачей в корне темы чтоль?
Вижу неточности в коде, можно и исправить. Он же не тестировался
12.10.2010
18:52
#17
> а что, не согласуется задачей в корне темы чтоль? 
убрать ДатаНачала и ДатуКонфа =)
убрать ДатаНачала и ДатуКонфа =)
12.10.2010
18:54
#18
"можно и так:
ДокРасход = СоздатьОбъект("Документ");
докНЗ = СоздатьОбъект("Документ.НарядЗаказ");
ДокНЗ.ВыбратьДокументы();
Пока ДокНЗ.ПолучитьДокумент()=1 Цикл
Если ДокНЗ.Проведен() = 0 тогда
Продолжить;
КонецЕсли;
ДокНЗ.Провести();//если требуется
ДокРасход.ВыбратьПодчиненныеДокументы(,,ДокНЗ.ТекущийДокумент());
Пока ДокРасход.ПолучитьДокумент()=1 Цикл
Если ДокРасход.Вид() = "РасходМатериалов" тогда
....
КонецЕсли;
КонецЦикла;
КонецЦикла;
"
ДокРасход = СоздатьОбъект("Документ");
докНЗ = СоздатьОбъект("Документ.НарядЗаказ");
ДокНЗ.ВыбратьДокументы();
Пока ДокНЗ.ПолучитьДокумент()=1 Цикл
Если ДокНЗ.Проведен() = 0 тогда
Продолжить;
КонецЕсли;
ДокНЗ.Провести();//если требуется
ДокРасход.ВыбратьПодчиненныеДокументы(,,ДокНЗ.ТекущийДокумент());
Пока ДокРасход.ПолучитьДокумент()=1 Цикл
Если ДокРасход.Вид() = "РасходМатериалов" тогда
....
КонецЕсли;
КонецЦикла;
КонецЦикла;
"
- 1
- 2
Читают тему
(гостей: 1)