Поступление материалов.

Отчет по поступлению материалов с выборкой по счету либо по списку материалов. При помощи отчета можно быстро найти приходные документы конкретных материалов; посмотреть итоговые количество и сумму по приходу либо списка материалов, либо по субсчетам, либо по 10 счету в целом.

При двойном клике мышью по колонкам номенклатурный №, наименование, единица измерения открывается элемент справочника материалы, по другим колонкам – документ Поступление материалов.

Скачать файлы

	Наименование	Файл	Версия	Размер
	ПоступлениеМатериалов.ert .ert 57,50Kb 21.03.13 35	.ert		57,50Kb	35	Скачать

См. также

Свод проводок с детализацией по сотрудникам и видам расчетов

Расчетная ведомость для 1С:Бухгалтерии 7.7

Оборотно-сальдовая ведомость по счету расширенная (7.7)

Акт сверки взаиморасчетов в 1С:Предприниматель 7.7

Расчет стажа

Acc77: Книга учета доходов и расходов (Раздел 1) для организаций на УСН, ведущих учет в «1С: Бухгалтерия 7.7 редакция 4.5»

Свод проводок + страховые взносы (в разрезе видов расчета)

Расчет резерва отпусков, Зарплата и кадры.

Журнал доверенностей для Украины

Алкогольная оптовая обработка сверки по далам для ООО, отдельно по каждому

НДФЛ как на ладони

Расчет остатка дней отпуска

Отчет по страховым взносам за период, с итогами с начала года (для 2014, 2015г.)

Отчет по страховым взносам с облагаемой базой (+группировки) 2011

Исправляем СЗВ 6-3

Акт сверки - расширенный

Журнал учета ТТН с возможностью печати новой Транспортной накладной (автозаполнение полей)

Набор "В помощь бухгалтеру". Простые отчеты под "1С:Бухгалтерия 7.7"

Подготовка сведений для ПФР с учетом задолженности по страховым взносам в разрезе сотрудников для ЗИК

Отчет для бюджетников

Комментарии

Сохранить

1. Дониэла Иванова (Доня) 267 20.03.13 18:50 Сейчас в теме

Спасибо. Мне пригодилось как-раз.
Но было бы супер показать в этой таблице колонку "цена"
можно доделать?

2. Светлана Иванова (Cvetic) 304 21.03.13 14:10 Сейчас в теме

(1) Доня, по Вашей просьбе сделала колонку «цена», заодно НДС и Всего.

3. Дониэла Иванова (Доня) 267 21.03.13 17:43 Сейчас в теме

Доработка замечательная.
Рекомендую.

4. Анна Ковалева (vgna06) 24.03.13 21:37 Сейчас в теме

Спасибо! Хорошая вещица! Классно было бы ее дописатЬ, чтоб поступившие за такой-то период материалы сразу в списание отправлялись О-)

5. Светлана Иванова (Cvetic) 304 25.03.13 09:29 Сейчас в теме

(4) Не поняла. Это как?

6. Анна Ковалева (vgna06) 25.03.13 11:02 Сейчас в теме

Ну это мысли вслух:) Просто я планирую использовать обработку так: построить отчет, распечатать, и ручками вносить в списание материалов:) А так отчетик реально очень-очень полезный.

7. Светлана Иванова (Cvetic) 304 25.03.13 13:56 Сейчас в теме

(6) Теперь поняла, что Вы имеете в виду. Я для этих целей создала кнопку «заполнить» в документе ТребованиеНакладная. И соответствующую ей процедуру
Процедура Заполнить()

Если Выбран() = 0 Тогда
Предупреждение("Перед заполнением документ необходимо записать!", 10);
Возврат;
КонецЕсли;

Если КоличествоСтрок() > 0 Тогда
Если
Вопрос("Таблица будет очищена, а существующие строки удалены.
|Продолжить?","Да+Нет") <> "Да" Тогда
Возврат;
КонецЕсли;
УдалитьСтроки();
КонецЕсли;

СписокСчетов = СоздатьОбъект("СписокЗначений");
СписокСчетов.ДобавитьЗначение("10.1");
СписокСчетов.ДобавитьЗначение("10.2");
СписокСчетов.ДобавитьЗначение("10.3");
СписокСчетов.ДобавитьЗначение("10.4");
СписокСчетов.ДобавитьЗначение("10.5");
СписокСчетов.ДобавитьЗначение("10.6");
СписокСчетов.ДобавитьЗначение("10.8");
СписокСчетов.ДобавитьЗначение("10.9");

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

КонецПроцедуры // Заполнить()

Но здесь не по поступлению за период, а по остаткам на складе.

8. Анна Ковалева (vgna06) 25.03.13 14:08 Сейчас в теме

Супер!!! Спасибо большое! Жаль, что нельзя 2 раза плюсануть)

9. Светлана Иванова (Cvetic) 304 25.03.13 14:21 Сейчас в теме

Если нужно по приходу, то процедура будет выглядеть так:
Процедура Заполнить()

Если Выбран() = 0 Тогда
Предупреждение("Перед заполнением документ необходимо записать!", 10);
Возврат;
КонецЕсли;

Если КоличествоСтрок() > 0 Тогда
Если
Вопрос("Таблица будет очищена, а существующие строки удалены.
|Продолжить?","Да+Нет") <> "Да" Тогда
Возврат;
КонецЕсли;
УдалитьСтроки();
КонецЕсли;

ДатаНач=""; ДатаКон="";
ВвестиПериод(ДатаНач,ДатаКон,"Введите период");

СписокСчетов = СоздатьОбъект("СписокЗначений");
СписокСчетов.ДобавитьЗначение("10.1");
СписокСчетов.ДобавитьЗначение("10.2");
СписокСчетов.ДобавитьЗначение("10.3");
СписокСчетов.ДобавитьЗначение("10.4");
СписокСчетов.ДобавитьЗначение("10.5");
СписокСчетов.ДобавитьЗначение("10.6");
СписокСчетов.ДобавитьЗначение("10.8");
СписокСчетов.ДобавитьЗначение("10.9");

Для н = 1 по СписокСчетов.РазмерСписка() цикл
Сч = СписокСчетов.ПолучитьЗначение(н);
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1);
Ит.ВыполнитьЗапрос(ДатаНач, ДатаКон, Сч,,, 1,"Проводка", "К");
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Если Ит.Операция.Документ.Вид() = "ПоступлениеМатериалов" тогда
Ит.ВыбратьСубконто(ВидыСубконто.Материалы);
Пока Ит.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл
НоваяСтрока();
Материал = ИТ.Субконто(ВидыСубконто.Материалы);
КоличествоЗатребовано = Ит.ДО(3);
КоличествоОтпущено = Ит.ДО(3);
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
СортироватьСтроки("Материал");

КонецПроцедуры // Заполнить()