Имя: Пароль:
1C
1C 7.7
v7: обработка проведения
0 serg-lom89
 
14.10.13
13:01
ТаблицаДвижений.ВыбратьСтроки();
    Пока ТаблицаДвижений.ПолучитьСтроку()=1 Цикл
        ДокОсн = ТаблицаДвижений.РН;
        ДокОсн.ВыбратьСтроки();    
        Пока ДокОсн.ПолучитьСтроку()>0 Цикл
            БИ=СоздатьОбъект("БухгалтерскиеИтоги");  
            БИ.ИспользоватьСубконто(ВидыСубконто.Номенклатура,ДокОсн.Товар,2);
            БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Константа.ОсновнойСклад,2);
            БИ.ВыполнитьЗапрос(ДокОсн.ДатаДок,ДокОсн.ДатаДок,"43");    
            БИ.ВыбратьСубконто(ВидыСубконто.Номенклатура);
            Пока БИ.ПолучитьСубконто(ВидыСубконто.Номенклатура)=1 цикл  
                Остаток= БИ.СНД("К")+БИ.ДО("К")-БИ.КО("К");
                Если Остаток<ДокОсн.Количество Тогда
                    Сообщить("Для "+ДокОсн.Товар+" на счете осталось "+Остаток+" а вы хотите отпустить "+ДокОсн.Количество);
                КонецЕсли;            
            КонецЦикла;
        КонецЦикла;
    ДокОсн.Провести();
    КонецЦикла;    
    Предупреждение("Обработка завершена!!!");
КонецПроцедуры  
Подскажите пожалуйста,обработка для проведения!
Почему пишет что документ не выбран?
1 Ёпрст
 
14.10.13
13:02
а нефик ссылку полученную на чтение пытаться провести.
2 serg-lom89
 
14.10.13
13:04
(1) эти доки потом в ТЗ загонять что ли?
3 Ёпрст
 
14.10.13
13:05
На вот, занимайся


//ДокОсн = ТаблицаДвижений.РН;
ДокОсн = СоздатьОбъект("Документ");
ДокОсн.НайтиДокумент(ТаблицаДвижений.РН);
4 serg-lom89
 
14.10.13
13:19
(3) спасибо
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший