Имя: Пароль:
1C
1C 7.7
v7: Ошибка в написании процедуры на встроенном языке
0 ratnik
 
30.01.13
09:43
Пишу процедуру определения средней стоимости готовой продукции на дату проведения документа, а выдает нули. В чем ошибка
БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги");
БухИтоги.Рассчитать(НачМесяца(ДатаДок),ДатаДок,43);
БиКол = БухИтоги.СКДРС("43",3,,,2,Номенклатура,2,Отправитель);  здесь 0
БиСум = БухИтоги.СКДРС("43",1,,,2,Номенклатура,2,Отправитель); здесь 0
Стоимость = БиСум/БиКол;
1 Ёпрст
 
гуру
30.01.13
09:45
так хотя бы
БухИтоги.Рассчитать(НачМесяца(ДатаДок),ДатаДок,"43");
2 ratnik
 
30.01.13
09:53
да  уточнение правильное просто при переносе из процедуры в сообщение скорректировал
Так точно написано в процедуре
БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги");
БухИтоги.Рассчитать(НачМесяца(ДатаДок),ДатаДок,"43");
БиКол = БухИтоги.СКДРС("43",3,,,2,Номенклатура,2,Отправитель);  здесь 0
БиСум = БухИтоги.СКДРС("43",1,,,2,Номенклатура,2,Отправитель); здесь 0
Стоимость = БиСум/БиКол;
но все равно нули ((
3 Ёпрст
 
гуру
30.01.13
10:02
Я уже не помню точно, но СКДРС вроде как есть только в режиме Запроса БИ.
4 Ёпрст
 
гуру
30.01.13
10:02
а не в режиме врем. итогов.
5 Тьма
 
30.01.13
10:08
(3)Продам СП. Дорого. Самовывоз.
6 Тьма
 
30.01.13
10:10
(2)
СКДРС(<Счет>,<ТипСуммы>,<Валюта>,<Субконто1>,<ТипФильтра1>,<Субконто2>,<ТипФильтра2>)
/////////
Четвертым параметром должно идти субконто, а не пустое место
7 Ёпрст
 
гуру
30.01.13
10:16
(5) у тебя не кошерный, в лучшем случае, у бородоча Дениски
8 PuhUfa
 
30.01.13
10:20
(6) Субконто1 - необязательный параметр. Значение субконто 1
(с) ЖКК стр 482
Пример: получим развернутое сальдо дебетовое на начало периода по счету 10 конкретному складу в разрезе материалов, учет ведется по субконто "материалы" и "склад".
СР10 = БухИтоги.СНДРС("10",1,,,"*",ВыбСклад,"!")
(с) ЖКК стр 483
9 Тьма
 
30.01.13
10:24
(8)Это все верно, но у него фильтр отбор стоит на первое субконто.
(7)У него закончились. Я у него оптом брал пару лет назад. Так что товар высшей пробы!
10 vladko
 
30.01.13
10:26
я бы бух.запросом сформировал таблицу значений средних себестоимостей и ею уже пользовался. Удобнее алгоритм.
11 ratnik
 
30.01.13
11:33
Ёпрст,
то есть так
БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги");
БухИтоги.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Отправитель,2);
БухИтоги.ИспользоватьСубконто(ВидыСубконто.Номенклатура,Номенклатура,2);
БухИтоги.ВыполнитьЗапрос(НачМесяца(ДатаДок),ДатаДок,"43");
БиКол = БухИтоги.СКДРС(3);
БиСум = БухИтоги.СКДРС()
Стоимость = БиСум/БиКол;
12 ratnik
 
30.01.13
14:36
Всем спасибо это в точку.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой