|
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... |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |