Имя: Пароль:
1C
1C 7.7
v7: ОСВ по счету
,
0 Pechka
 
23.11.12
15:15
Помогите пожалуйста с оборотно-сальдовой ведомости по счету вытащить сумму - дебет. записала код:                                        Сч = СоздатьОбъект("Счет");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(Сч.ВидСубконто(1),, 1);
Ит.ВключатьСубсчета(-1,-1);
   
Ит.ВыполнитьЗапрос(ДатаНач, ДатаКон,"90.2",,, "С");
   
   Ит.ВыбратьСчета();
   Пока Ит.ПолучитьСчет() = 1 Цикл
           
       
    ВыбСчет = Ит.Счет;
       Если (ВыбСчет = СчетПоКоду("90.2")) Тогда
       Если ТаблицаОтчета.НайтиЗначение(    
               ТаблицаОтчета.НоваяСтрока();
               ТаблицаОтчета.Сум90 = Ит.ДО();
           КонецЕсли;
       КонецЦикла;        
Подскажите,где мои ошибки.в отладчике выходят совршенно другие суммы
1 Ёпрст
 
23.11.12
15:20
1. >>  Сч = СоздатьОбъект("Счет");
>>>Ит.ИспользоватьСубконто(Сч.ВидСубконто(1)

счет не выбран

2. Если ТаблицаОтчета.НайтиЗначение(

ошибка синтаксиса
2 Pechka
 
23.11.12
15:35
Указала счет,так?    
Сч = СоздатьОбъект("Счет.Основной");
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(Сч.ВидСубконто(1),, 1);
   Ит.ВключатьСубсчета(-1,-1);
   
   Ит.ВыполнитьЗапрос(ДатаНач, ДатаКон,"90.2",,, "С");
   
       Ит.ВыбратьСчета();
       Пока Ит.ПолучитьСчет() = 1 Цикл
           ВыбСчет = Ит.Счет;
           Если (ВыбСчет = СчетПоКоду("90.2")) Тогда
               ТаблицаОтчета.НоваяСтрока();
               ТаблицаОтчета.Сум90 = Ит.ДО();
           КонецЕсли;
       КонецЦикла;
В ТаблицаОтчета.ВыбратьСтроку() весь столбец Сум90 по нулям((((
3 Попытка1С
 
23.11.12
15:41
СчетПоКоду читай
4 Попытка1С
 
23.11.12
15:42
Тьфу ты не увидел.

Епрст ты от куда это то взял
СоздатьОбъект("Счет")

Этого в (0) нет
5 Ёпрст
 
23.11.12
15:43
(4) есть. в первой строчке
6 Ёпрст
 
23.11.12
15:45
(2) не не так, нужен конкретный счет, например, 41, или , какой там тебю нужон ?
СчетПоКоду, короче, или Найти
7 Попытка1С
 
23.11.12
15:46
//*******************************************
Процедура Сформировать()
   БИ=СоздатьОбъект("БухгалтерскиеИтоги");
   БИ.ИспользоватьСубконто(ВидыСубконто.Номенклатура,ВыбТовар,2);
   БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения,ВыбСклад,2);
   
   Т=СоздатьОбъект("Таблица");
   Т.ВывестиСекцию("Шапка");
   БИ.ВыполнитьЗапрос(ДатаНач, ДатаКон, "41",,, 1,2,"К");


   БИ.ВыбратьСубконто(ВидыСубконто.Номенклатура);
   Пока БИ.ПолучитьСубконто(ВидыСубконто.Номенклатура)=1 цикл
       БИ.ВыбратьСубконто(ВидыСубконто.МестаХранения);
       Пока БИ.ПолучитьСубконто(ВидыСубконто.МестаХранения)=1 цикл
           БИ.ВЫбратьПериоды();
           Пока БИ.ПолучитьПериод()=1 цикл
               КодТовара=БИ.Операция.ТекущийДокумент();
               НО=БИ.СНД("К")-БИ.СНК("К");
               ПР=БИ.ДО("К");
               РА=БИ.КО("К");
               КО=БИ.СКД("К")-БИ.СКК("К");
               Т.ВывестиСекцию("Строка");
           КонецЦИкла;
       КонецЦИкла;
   КонецЦИкла;
   
   Т.Показать();
   
КонецПроцедуры


вот пример тебе, разбирайся.
8 Pechka
 
23.11.12
15:46
(6)так есть же ... Если (ВыбСчет = СчетПоКоду("90.2")) Тогда
9 Pechka
 
23.11.12
15:47
(7) спасибо
10 Dolly_EV
 
23.11.12
15:48
(2) ваще бред...
во-первых Сч=СчетПоКоду("Какой-то счет")
во-вторых в ИспользоватьСубконто() не хватает 3 запятых
в-третьих в данной конструкции Сч видимо должно быть равно 90.2, при этом если типовая Бухия - то конструкция Ит.ВключатьСубсчета(-1,-1) оставит только 90.2.1 / 90.2.2...