Приходный кассовый ордер
Модуль документа:
// ********************
//
Процедура ОбработкаПроведения()
//ФОРМИРОВАНИЕ_ОПЕРАЦИИ
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("50.1",ПланыСчетов.Учебный);
Операция.Кредит.Счет = СчетПоКоду("62.1",ПланыСчетов.Учебный);
Операция.Кредит.Контрагенты = Контрагенты;
Операция.Сумма = Сумма;
Операция.СуммаОперации = Сумма;
Операция.Записать();
КонецПроцедуры
Модуль:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Рисунок 5 – Форма Приходный кассовый ордер
Расходный кассовый ордер
Модуль документа:
// // ********************
//
Процедура ОбработкаПроведения()
//ФОРМИРОВАНИЕ_ОПЕРАЦИИ
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("60.1",ПланыСчетов.Учебный);
Операция.Дебет.Контрагенты = Контрагенты;
Операция.Кредит.Счет = СчетПоКоду("50.1",ПланыСчетов.Учебный);
Операция.Сумма = Сумма;
Операция.СуммаОперации = Сумма;
Операция.Записать();
КонецПроцедуры
Модуль:
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
КонецПроцедуры
Рисунок 6 – Форма Расходный кассовый ордер
Отчеты Отчет 1 по остаткам товаров на складе
Модуль:
Процедура Сформировать()
КонецПроцедуры
//{{БУХГАЛТЕРСКИЙ ЗАПРОС(СформироватьСкладскойОтчет)
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
//{{ Схема номер 6
//{{ ДтКт 1011100
Процедура СформироватьСкладскойОтчет()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("СформироватьСкладскойОтчет");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Склады,ВыбСубконто2, 1);
Ит.ИспользоватьСубконто(ВидыСубконто.Товары,ВыбСубконто1, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "41.1",,, 1,, "СК");
Таб.ВывестиСекцию("Заголовок");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.Склады);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Склады) = 1 Цикл
// СформироватьСкладскойОтчет_Колонки(Ит, Таб, "Субконто1");
если ВыбСубконто2.выбран()=1 тогда
если ВыбСубконто2 = Ит.Субконто(ВидыСубконто.Склады)тогда
Таб.ВывестиСекцию("Субконто1");
Ит.ВыбратьСубконто(ВидыСубконто.Товары);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Товары) = 1 Цикл
если ВыбСубконто1.выбран()=1 тогда
если ВыбСубконто1 = Ит.Субконто(ВидыСубконто.Товары) тогда
// СформироватьСкладскойОтчет_Колонки(Ит, Таб, "Субконто2");
Таб.ВывестиСекцию("Субконто2");
КонецЕсли;
иначе
Таб.ВывестиСекцию("Субконто2");
КонецЕсли;
КонецЦикла;
конецесли;
иначе
Таб.ВывестиСекцию("Субконто1");
Ит.ВыбратьСубконто(ВидыСубконто.Товары);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Товары) = 1 Цикл
если ВыбСубконто1.выбран()=1 тогда
если ВыбСубконто1 = Ит.Субконто(ВидыСубконто.Товары) тогда
// СформироватьСкладскойОтчет_Колонки(Ит, Таб, "Субконто2");
Таб.ВывестиСекцию("Субконто2");
КонецЕсли;
иначе
Таб.ВывестиСекцию("Субконто2");
КонецЕсли;
КонецЦикла;
КонецЕсли;
конецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("СформироватьСкладскойОтчет","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
Процедура ПриОткрытии()
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(СформироватьСкладскойОтчет)
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
КонецПроцедуры
Процедура ОбрВыберитеСклад()
// Если Склад.Выбран()=1 тогда
КонецПроцедуры
Процедура ОбрВыберитеТовар()
// Если Товар.Выбран()=1 тогда
КонецПроцедуры
Рисунок 7 – Форма отчета по остаткам товаров на складе
Рисунок 8 – Сформировать складской отчт