Разработка программы учета товара средствами 1С: Предприятие 7.7

Шаблоны печатных форм (таблицы) могут быть общие. Это дает возможность использовать один шаблон для печати нескольких видов документов. Т.е. общая таблица является глобальной для конфигурации и может быть использована в любом модуле. Примером из типовой конфигурации может являться шаблон печатной формы "Отчет о движении документа", который используется разными модулями конфигурации.

В него в носятся все товары, которые приходят для продажи в отдел.

Идентификатор - «Приход», Реквизиты табличной части: Номенклатура, тип - СправочникНоменклатура; ЕдИзм, тип - Справочник ЕдИзм; Количество, тип число; Сумма, тип - число, 17,2; Цена, тип - число, 10,2.

Форма будет иметь вид

Рис. 6

Печатная форма создается как таблица с секциями заголовок, номенклатура и подвал. Свойства полей в секции номенклатура - выражение, свойства поля «Организация: [Организация]» - шаблон. В секции «подвал» указываем реквизиты такие, как «МП» - место печати, руководитель предприятия.

Чтобы не вводить руководителя предприятия можно создать константу.

На дереве метаданных константы создадим новую константу «Руководитель». Теперь войдя в 1С:Предприятия в меню операции - константы можно единожды ввести нашего руководителя предприятия.

В диалоге формы приход товара добавляем кнопку «Печать». В свойствах на закладке дополнительно пишем функцию «печать()», пишем процедуру

Процедура Печать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Таб.ВывестиСекцию("Номенклатура");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать", "");

КонецПроцедуры

Так же добавляем к процедуре формы:

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

КонецПроцедуры

Процедура ПриВыбореНоменклатуры()

Спр = СоздатьОбъект("Справочник.Номенклатура");

Спр.НайтиЭлемент(Номенклатура);

Цена = Спр.Цена;

ЕдИзм = Спр.ЕдИзм;

КонецПроцедуры

Процедура ПриОкончанииРедактированияСтроки()

Сумма = Цена*Количество;

КонецПроцедуры

Модуль документа:

Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Регистр.ОстаткиТоваров.Номенклатура = Номенклатура;

Регистр.ОстаткиТоваров.Количество = Количество;

Регистр.ОстаткиТоваров.Цена = Сумма;

Регистр.ОстаткиТоваров.ДвижениеПриходВыполнить();

КонецЦикла;

КонецПроцедуры

Следующий документ «Расход». В него будут вводиться товары, проданные за определенный период времени. В дереве метаданных в разделе документы создаем новый документ: Идентификатор - Расход, Синоним - Расход, реквизиты шапки - Организация, тип значения - Справочник.Партнеры. Реквизиты табличной части: Номенклатура, тип - Справочник.Номенклатура, Количество, тип - число, Цена, тип - число, Сумма, тип - число.

Форма документа повторяет форму документа «приход товара»

Рис. 7

Модуль документа:

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

КонецПроцедуры

Процедура ПриОкончанииРедактированияСтроки()

Сумма = Цена*Количество;

КонецПроцедуры

Процедура ПриВыбореНоменклатуры()

Спр = СоздатьОбъект("Справочник.Номенклатура");

Спр.НайтиЭлемент(Номенклатура);

Цена = Спр.Цена;

КонецПроцедуры

// Процедура генерации запроса Печать.

//

Процедура Печать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Печать)

|ДатаДок = Документ.Расход.ДатаДок;

|Группировка ДатаДок;

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

// Заполнение полей "Заголовок"

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Таб.ВывестиСекцию("Номенклатура");

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Печать", "");

КонецПроцедуры

Свойства полей табличной части

Рис. 8

Секция «Заголовок» - шаблон, «Номенклатура» - выражение, поле константа - выражение, остальные текстовые поля.

При создании расходного и приходного документа необходимо в свойствах указать оперативный учет. Журнал документов создадим общий.

Так и назовем его «общий». Синоним - Общий. Я сразу включил туда оба документа приход и расход.

Форму он будет иметь

Рис. 9

При работе с журналом перед глазами сразу все документы и проходные и расходные

Рис. 10

Создание регистра.

Регистры - это таблицы для накопления оперативных данных и получения сводной информации. Данные в регистры добавляются только при проведении документов. Сведения из регистров используются для формирования отчетов. Классическая схема использования регистров в 1С: Предприятие выглядит следующим образом: Документы => Регистры => Отчеты.

Создаем новый регистр, в дереве метаданных во вкладке регистры создадим новый. Идентификатор - «ОстаткиТоваров». В нем будет отражаться чего и сколько осталось в магазине. Измерение - «Номенклатура». Ресурсы: «Количество» и «Цена».

Отчеты.

Первый отчет будет «ОстаткиТоваров».

Форма его проста. Будет содержать лишь поле для ввода даты.



Рис. 11

Модуль

Процедура Сформировать()

//Перем Запрос, ТекстЗапроса, Таб;

// Таб = СоздатьОбъект ("Таблица");

//Таб.ИсходнаяТаблица ("Сформировать");

//// Заполнение полей "Заголовок"

//Таб = СоздатьОбъект ("Таблица");

//Таб.ИсходнаяТаблица ("Сформировать");

//Таб.ВывестиСекцию ("Заголовок");

//Состояние ("Заполнение выходной таблицы...");

//Таб.Опции (0, 0, Таб.ВысотаТаблицы(), 0);

//

//

КонецПроцедуры

//*******************************************

// Процедура генерации запроса печать.

//

Процедура печать()

Перем Запрос, ТекстЗапроса, Таб;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("печать");

// Заполнение полей "Заголовок"

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("печать");

Таб.ВывестиСекцию("Заголовок");

Состояние ("Заполнение выходной таблицы...");

Таб. Опции(0, 0, 2, 0);

ТабЗн=СоздатьОбъект("ТаблицаЗначений");

ТабЗн.НоваяКолонка("Товар","Справочник.Номенклатура");

ТабЗн.НоваяКолонка("Ост","Число",17,2);

ТабЗн.НоваяКолонка("Сумма","Число",17,2);

РегОст=СоздатьОбъект("Регистр.ОстаткиТоваров");

РегОст.ВременныйРасчет(1);

РассчитатьРегистрыНа(ДатаПер);

РегОст.ВыбратьИтоги();

Пока РегОст.ПолучитьИтог()=1 Цикл

ТабЗн.НоваяСтрока();

ТабЗн.Товар=РегОст.Номенклатура;

ТабЗн.Сумма=РегОст.Цена;

ТабЗн.Ост=РегОст.Количество;

КонецЦикла;

РегОст="";

ТабЗн.ВыбратьСтроки();

Спр = СоздатьОбъект("Справочник.Номенклатура");

Пока ТабЗн.ПолучитьСтроку()=1 Цикл

Номенклатура=ТабЗн.Товар;

Спр.НайтиЭлемент(Номенклатура);

ЕдИзм = Спр.ЕдИзм;

Количество=ТабЗн.Ост;

Сумма = ТабЗн.Сумма;

Таб.ВывестиСекцию("Номенклатура");

КонецЦикла;

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("печать", "");

КонецПроцедуры

Создавать отчет проще через мастера запросов.

Период будет выбираться в диалоге формы. Переменная будет «Номенклатура».

Таблица печати содержит две секции: заголовок и номенклатура. В секции «номенклатура» свойства ячеек - выражение.

Следующий отчет - «ОтчетПоПриходу». В нем показано что и от какой организации поступило в отдел.

Рис. 12

Модуль документа:

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|ТекущийДокумент = Документ.Приход.ТекущийДокумент;

|Организация = Документ.Приход.Организация;

|Номенклатура = Документ.Приход.Номенклатура;

|ЕдИзм = Документ.Приход.ЕдИзм;

|Количество = Документ.Приход.Количество;

|Сумма = Документ.Приход.Сумма;

|Цена = Документ.Приход.Цена;

|Группировка ТекущийДокумент;

|Группировка Организация;

|Группировка Номенклатура;

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей ТекущийДокумент

Таб.ВывестиСекцию("ТекущийДокумент");

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей Организация

Таб.ВывестиСекцию("Организация");

Пока Запрос.Группировка(3) = 1 Цикл

Если Запрос.Номенклатура.ЭтоГруппа()=0 Тогда

// Заполнение полей Номенклатура

Таб.ВывестиСекцию("Номенклатура");

Иначе

КонецЕсли;

КонецЦикла;

КонецЦикла;

КонецЦикла;

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

КонецПроцедуры

Табличная часть отчета имеет вид.

Рис. 13

Рис. 14

Мы видим в таблице, какой товар, и с какой фирмы пришел на торговую точку.

Отчет по расходу создается аналогично, и имеет вид

Рис. 15

Модуль документа:

Процедура Сформировать()

Перем Запрос, ТекстЗапроса, Таб;

//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с ВыбНачПериода по ВыбКонПериода;

|ТекущийДокумент = Документ.Расход.ТекущийДокумент;

|Организация = Документ.Расход.Организация;

|Номенклатура = Документ.Расход.Номенклатура;

|Количество = Документ.Расход.Количество;

|Сумма = Документ.Расход.Сумма;

|Цена = Документ.Расход.Цена;

|Группировка ТекущийДокумент;

|Группировка Организация;

|Группировка Номенклатура;

|"//}}ЗАПРОС

;

// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

Возврат;

КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

// Заполнение полей "Заголовок"

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Сформировать");

Таб.ВывестиСекцию("Заголовок");

Состояние("Заполнение выходной таблицы...");

Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

Пока Запрос.Группировка(1) = 1 Цикл

// Заполнение полей ТекущийДокумент

Таб.ВывестиСекцию("ТекущийДокумент");

Пока Запрос.Группировка(2) = 1 Цикл

// Заполнение полей Организация

Таб.ВывестиСекцию("Организация");

Пока Запрос.Группировка(3) = 1 Цикл

Если Запрос.Номенклатура.ЭтоГруппа()=0 Тогда

// Заполнение полей Номенклатура

Таб.ВывестиСекцию("Номенклатура");

Иначе

КонецЕсли;

КонецЦикла;

КонецЦикла;

КонецЦикла;

// Вывод заполненной формы

Таб.ТолькоПросмотр(1);

Таб.Показать("Сформировать", "");

КонецПроцедуры

Теперь для упрощения работы в программе можно отредактировать меня пользователя.

В окне метаданных на закладке интерфейсы отредактируем меню, если малоли что осталось, например новый неправильно созданный документ или т.п.

Рис. 16

В редакторе список панелей можно создать кнопки прямого доступа например к справочникам или документам.

Заключение

Контроль товародвижения на предприятии розничной торговли одна из важнейших целей управления. В процессе работы отдела предпринимателя Юшенковой использовались технические средства для контроля товарооборота. Конечно использовать написанные от руки накладны на типографских бланка уже вряд ли кто-то будет. Но даже использование некоторых программных продуктов не давало желаемых результатов. С составлением товарных накладных проблем нет. Ведь для этой цели можно использовать даже Microsoft Office Excel, создав табличный шаблон и с поступлением товара просто вписывать дату, номенклатуру и прочее. Существуют и более интересные программы, например Бизнес Пак. Этот программный продукт служит для создания документов по товарообороту, он бесплатный, доступный и удобный в использовании. Но минус его в том, что в нем нет функции контроля. Создавая накладную просто создаем печатную форму, которая может хранится либо в электронном либо печатном виде, а сейчас передо мной встала проблема оперативного просмотра информации о товаре. Если вести разговор о больших вещах, то большой сложности в этом нет. Площадь маленькая и в принципе видно что где лежит и сколько, но когда речь идет о расходных материалах, тут могут возникнуть проблемы. Созданный программный продукт позволяет в режиме реального времени контролировать учет. Почему именно сейчас эта проблема стала более актуальна? Сейчас в Тихвине открылось очень много магазинов по торговле инструментом и теперь делается больший упор не на продажу какого-то крупного инструмента, например станков или дорогих пил, а на продажу запчастей, расходников. В общем покупаемый товар становится все меньше, а держать в памяти сколько чего осталось в наличие - сложнее. Составить например заказ на предприятие по угольным щеткам проще если знаешь сколько и каких есть в наличие. 1С позволяет это сделать. Теперь достаточно только сформировать отчет «ОстаткиТоваров». Также с отчетами о поступлении и продаже товара.

Список используемой литературы

1. «1С Бухгалтерия 7.7» v1.6, Денисов Анатолий 2008-05-07.

2. Титоренко Г.А. Автоматизированные информационные технологии в экономике.

3. "1С: Предприятие: программирование для всех" Бартеньев О.В.

4. Практическое руководство по малому бизнесу. Особенности регистрации и налоговые режимы Ивачев И.

5. Налоговый кодекс РФ (01.09.2006) - Налоговый кодекс РФ с комментариями и методическими указаниями в виде CHM-файла с системой поиска. Автор: Станислав С.

6. Малый бизнес (третье издание), ЮНТТИ-ДАНА, 2007 г.

7. Малый бизнес. Финансовая среда предпринимательства, Б.М. Широков, М., 2006.

8. Малый бизнес в рыночной средеА. Ю. Чепуренко, Международный университет в Москве.

9. «Финансы малых предприятий» учебное пособие, В.С. Прохоровский, Л.Н. Чайников, Тамбов, 2003.

10. 1С: Предприятие. Бухгалтерский учет. Секреты работы. Н. Рязанцева, Санкт-Петербург, 2003 г.

11. 1С: Предприятие 7.7, Повседневные операции., Л. Герасимова, Н. Смоляк, Санкт-Петербург, 2005 г.

12. 1С: Предприятие. Управление торговлей. В. Григорьева.

13. 1С: Предприятие 7.7 системное программирование. А. Михайлов, Санкт-Петербург. 2005 г.

14. http://www.mista.ru

15. http://www.1cbit.ru

Размещено на Allbest.ru