Помогите написать процедуру!

[Guest]

Помогите написать процедуру! Написать отчет, в котором будут выводится остатки по всем балансовым счетам (из плана счетов), у которых есть ненулевое сальдо на заданную дату (задается в форме).То,что писанно ниже не подходит(((

 

[KiR]

блин, да в чем сложности? используешь объект бухгалтерские итоги. собираешь счита и ставишь двойное условие - если балансовые сличта и СКД <>0 и СКК <>0. и все - дальше выводи как тебе удобно

 

[Guest]

блин, да в чем сложности? используешь объект бухгалтерские итоги. собираешь счита и ставишь двойное условие - если балансовые сличта и СКД <>0 и СКК <>0. и все - дальше выводи как тебе удобно

Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");//будем все выводить в таблицу
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.Опции (0,1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,,,, 1,, "С"); //выполняем запрос
Таб.ВывестиСекцию("Шапка"); //выводим заголовок таблицы
Таб.Опции(1,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСчета(); //открываем выборку по счетам
Пока Ит.ПолучитьСчет() = 1 Цикл
сч=Ит.Счет;//получили номер счета
//получаем итоги по каждому счету
СНД=Ит.СНД();
СНК=Ит.СНК();
СКД=Ит.СКД();
СКК=Ит.СКК();
До=Ит.ДО();
КО=Ит.КО();
Ит.СКД();//конечное сальдо дебитовое
Ит.СКК();//конечное сальдо кредитовое
Если СКД <>0 и СКК <>0 тогда
Таб.ВывестиСекцию("Счет");//выводим итоги в таблицу
КонецЦикла;


Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры

Прпавильно?Поправьте если не правильно!!Спасибо,что откликнулись и помогаете.

 

[vbs]

Прпавильно?Поправьте если не правильно!!Спасибо,что откликнулись и помогаете

Работает ? Таблица заполняется ?

Ошибок навскидку не видно,
разве что
вместо Если СКД <>0 и СКК <>0 тогда
вроде бы надо
Если (СКД <>0) ИЛИ (СКК <>0) тогда
Да и условие не закрыто
КонецЕсли,

Ну и в комментарии одна ошибка есть

дебитовое
надо заменить на
дебЕтовое


А весь огород-то зачем ? Сформировал бы себе на основе ОСВ свою таблицу...

 

[Guest]

Работает ? Таблица заполняется ?

Ошибок навскидку не видно,
разве что
вместо Если СКД <>0 и СКК <>0 тогда
вроде бы надо
Если (СКД <>0) ИЛИ (СКК <>0) тогда
Да и условие не закрыто
КонецЕсли,

Ну и в комментарии одна ошибка есть

дебитовое
надо заменить на
дебЕтовое


А весь огород-то зачем ? Сформировал бы себе на основе ОСВ свою таблицу...

спс за критику!!1Но не могли бы Вы подсказать,а вернее помочь написать эту процедуру?!
За ранее благодарен от души))))

 

[vbs]

Берешь обычную ОСВ и снимаешь признак "Данные по забалансовым счетам"
Вот оно и счастье

 

[Guest]

Берешь обычную ОСВ и снимаешь признак "Данные по забалансовым счетам"
Вот оно и счастье

Это при создании нового отчета?верно снимем признак ивсе?!

 

[physik_gumanitar]

Это при создании нового отчета?верно снимем признак ивсе?!

Чем ковырять такой универсальный отчет, типа ОСВ, проще писать свою отсебячину.

 

[vbs]

Чем ковырять такой универсальный отчет, типа ОСВ, проще писать свою отсебячину.

А его и ковырять не надо - по всем признакам она ему просто годится, разве что таблицу чуть поправить

 

[KiR]

вместо Если СКД <>0 и СКК <>0 тогда
вроде бы надо
Если (СКД <>0) ИЛИ (СКК <>0) тогда
Да и условие не закрыто
КонецЕсли,

Павлов, вот этот вариант опробован? если да - что не устраивает? если нет - бегом пробовать!