Васильев Дмитрий | Заместитель начальника ИТ отдела | ООО Саянскгазобетон

«Практика разработки и внедрения "Карты склада" на крупном предприятии по производству автоклавного газобетона»

В докладе будут рассмотрены проблемы склада с которыми столкнулись после запуска предприятия. Рассмотрим как за полгода работы предприятия можно навести беспорядок на складе и учете, и каким образом навести порядок после внедрения графической карты склада в системе 1С. Что такое карта склада и зоны хранения продукции. Будут подробно рассмотрены уже работающие методы маркировки на выпуске готовой продукции и реализации конечному покупателю с использованием терминалов сбора данных. Также расскажу как мы организовали рабочие места автопогрузчиков и кладовщиков для работы в 1С с помощью мобильных устройств.

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

Отчеты - Бухгалтерские

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

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

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

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

См. также

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

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

Расчет стажа

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

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

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

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

Анализ взаиморасчетов с контрагентами для 7.7 (комплекс отчетов)

Доработка универсальной ОСВ 2.53

Проверка закрытия авансов по 60 и 62 счетам на любую дату с графическим представлением результатов

Книга доходов и расходов для Бухгалтерии 7.7

Журнал кассовых операций КО-3

Расчетная ведомость с налоговыми вычетами

Акт сверки пакетный по всем контрагентам за период

В помощь бухгалтеру: формирование бух.справки по итогам счета с разворотом по субконто

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

Книга учета доходов и расходов ИП с общим налогообложением

Обновления 2012 . Для пользователя, бухгалтера (пакет отчетов и обработок)

Тюнинг Бух 7.7.: Комплект отчетов в помощь снабженцам.

ИНВ-15

Остатки товара для Бухгалтерии как в Торговле

Комментарии

1. Доня 269 20.03.13 18:50 Сейчас в теме

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

2. Cvetic 303 21.03.13 14:10 Сейчас в теме

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

3. Доня 269 21.03.13 17:43 Сейчас в теме

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

9. Cvetic 303 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);
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
СортироватьСтроки("Материал");

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

10. Доня 269 26.03.13 11:20 Сейчас в теме

(9)
ОК! Удобно сделано.
А можно Ваш документ "Требование-накладная" (из конфигуратора)
прикрепить здесь.

11. Cvetic 303 27.03.13 10:36 Сейчас в теме

(10) По заполнению документа ТребованияНакладной создала новую публикацию:
http://infostart.ru/public/179850/

4. vgna06 24.03.13 21:37 Сейчас в теме

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

5. Cvetic 303 25.03.13 09:29 Сейчас в теме

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

6. vgna06 25.03.13 11:02 Сейчас в теме

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

7. Cvetic 303 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);
КонецЦикла;
КонецЦикла;

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

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