//*******************************************
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(Сформировать)
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
//{{ Схема номер 1
//{{ ПодробноеПредставлениеСубконто
Процедура Сформировать()
Сообщить("Начинаю выгрузку сальдо на "+ВыбКонПериода);
Прдпр=Константа.БазФирма;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
//Ит.ИспользоватьСубконто(ВыбВидСубконто3,, 1);
Ит.ИспользоватьСубконто();
//Ит.ИспользоватьСубконто();
//Ит.ИспользоватьСубконто();
Ит.ВключатьСубсчета(-1);
Ит.ВыполнитьЗапрос(ВыбКонПериода, ВыбКонПериода, ,,, 1,, "С");
Таб.ВывестиСекцию("константы");
Таб.ВывестиСекцию("Счет");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
//Таб.ВывестиСекцию("Счет");
Сбк=Ит.Счет.КоличествоСубконто(); //считаем нулевые субконто
Если Сбк = 0 Тогда
ПолнНаименование=Ит.Счет.Наименование;
дебс=ит.скд();
кредс=ит.скк();
Таб.ВывестиСекцию("Субконто3");
иначе
деб=ит.скд();
кред=ит.скк();
Ит.ВыбратьСубконто(1,,,,,,1);
Пока Ит.ПолучитьСубконто() = 1 Цикл
ПолнНаименование=Ит.субконто(1);
если Ит.субконто(1).ПредставлениеВида()="Контрагенты" тогда
//ИНН= Ит.субконто(1).ИНН;
ПолнНаименование=Ит.субконто(1).ПолнНаименование ;
конецесли;
дебс=ит.скд();
кредс=ит.скк();
Таб.ВывестиСекцию("Субконто3");
деб=деб-ит.скд();
кред=кред-ит.скк();
КонецЦикла;
Если (деб<>0) или (кред<>0) Тогда
ПолнНаименование=Ит.Счет.Наименование;
дебс=деб;
кредс=кред;
Таб.ВывестиСекцию("Субконто3");
КонецЕсли;
конецесли;
КонецЦикла;
//Таб.ВывестиСекцию("Подвал");
//Таб.ТолькоПросмотр(1);
//Таб.Показать("Сформировать","");
КаталогИ="C:\Documents and Settings\Adm\Рабочий стол\";//"C:\Buh\";//КаталогИБ()+"ExtForms\";
отчет_ф= КаталогИ + "Сальдо по счетам "+СтрЗаменить(СокрЛП(Константа.БазФирма),"""","")+" на "+ВыбКонПериода+".txt";//+СокрЛП(СтрЗаменить(Фильтр,"*","x"),":",".")
таб.записать(отчет_ф,"TXT");
сообщить("Подготовлен файл "+отчет_ф);
//ЗапуститьПриложение("explorer.exe /select, "+отчет_ф);
//Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
// ЗавершитьРаботуСистемы();
//КонецЕсли;
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
Процедура Автоматически()
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(Сформировать)
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
//Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
//ВыбКонПериода = "31.12.2007";
//Сформировать();
//ВыбКонПериода = "31.01.2008";
//Сформировать();
//ВыбКонПериода = "29.02.2008";
//Сформировать();
//ВыбКонПериода = "31.03.2008";
//Сформировать();
ВыбКонПериода = НачМесяца(ТекущаяДата())-1;
Сформировать();
ВыбКонПериода = НачМесяца(НачМесяца(ТекущаяДата())-1)-1;
Сформировать();
ВыбКонПериода = НачМесяца(НачМесяца(НачМесяца(ТекущаяДата())-1)-1)-1;
Сформировать();
ВыбКонПериода = ТекущаяДата()-2;
Сформировать();
ВыбКонПериода = ТекущаяДата()-1;
Сформировать();
ВыбКонПериода = ТекущаяДата();
Сформировать();
//ЗавершитьРаботуСистемы();
//КонецЕсли;
сообщить("Готово!");
КонецПроцедуры
вот где жирным я заменил на субконто 3, выдало ошибку...
ЗЫ: ничего что код высветил здесь? или удалить?
Автор
Тема: Журнал-ордер 1С (Прочитано 19265 раз)