Учет доверенностей

08.09.11

Задачи пользователя - Адаптация типовых решений

В расходных документах есть необходимость проставления доверенности. Но заносить каждый раз одни и те же данные бывает утомительно. особенно при больших оборотах.

Создается

1. Справочник ГенДов с полями "От" (Дата), "Срок" (Дата) , "Кому" (Строка)

Подчиненность - "Клиент", Уровень - 1

2. Модифицируется форма Элемента "Клиент" - вставляется ТаблицаЗначений "ГенДов" и добавляется код

// =========================================================

Функция Ген_Дов()

ГенДов.УдалитьСтроки();

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

Спр.ИспользоватьВладельца(ТекущийЭлемент());

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если (Спр.ТекущийЭлемент().ПометкаУдаления() = 0) Тогда

ГенДов.НоваяСтрока();

ГенДов.Номер = Спр.ТекущийЭлемент().Наименование;

ГенДов.От = Спр.ТекущийЭлемент().Дата;

ГенДов.До = Спр.ТекущийЭлемент().Срок;

ГенДов.ФИО= Спр.ТекущийЭлемент().ФИО;

КонецЕсли;

КонецЦикла;

Возврат "";

КонецФункции

3. Рядом в форме вставляется кнопка с кодом "ОткрытьФорму("Справочник.ГенДов")"

4. В теле модуля Расходного Документа находится процедура печати и в нее добавляется следующее

ГенДов="";

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

Спр.ИспользоватьВладельца(Клиент);

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

Если (ТекущаяДата() >= Спр.ТекущийЭлемент().Дата) И (ДатаДок <= Спр.ТекущийЭлемент().Срок) Тогда

ГенДов=ГенДов + СокрЛП(Спр.ТекущийЭлемент().Наименование) + " від "+Спр.ТекущийЭлемент().Дата + " на "+СокрЛП(Спр.ТекущийЭлемент().ФИО) + ";"; //+"№ "

Если (Нрег(Сред(ГенДов,1,3))<>"за ") Тогда

ГенДов="За "+ГенДов;

КонецЕсли;

КонецЦикла;

Если ПустоеЗначение(ГенДов)=1

Тогда ГенДов="Отримав " + СокрЛП(Получил) + " за дов. "+СокрЛП(ДовСерия) +" № "+ СокрЛП(ДовНомер) + " від "+ ДовДата;

// Иначе ГенДов="за ген.дов.№ " + Клиент.ГенДов.Получить(ДатаДок).Наименование + " від "+ Клиент.ГенДов.Получить(ДатаДок).Дата +" на "+ Клиент.ГенДов.Получить(ДатаДок).ФИО;

КонецЕсли;

Место вывода в документе этой переменной, мне кажется, несложно..

Заполняется либо паспортными данными, либо собственно доверенностями.

Для "обычных" доверенностей рекомендую добавить в "Клиенте" 2 поля-счетчики

1.- К-во полученных доверенностей

2. - К-во отгруженных накладных.

Автоинкрементация - процесс несложный, выполняемый при проведении документа (с проверкой предыдущего состояния).

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

.....

Если Проведен()=0 Тогда

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

Если ТекКлиент.НайтиЭлемент(Клиент)<>0 Тогда

ТекКлиент.СчетчикРН=Клиент.СчетчикРН + 1;

ТекКлиент.Записать();

КонецЕсли;

......

В моем случае пришлось еще модифицировать глобальный подуль - процедуры отмены проведения

Например

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

.....

Если Конт.ТекущийДокумент().Вид() = "РасходнаяНакладная" Тогда

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

Если ТекКлиент.НайтиЭлемент(Конт.ТекущийДокумент().Клиент)<>0 Тогда

ТекКлиент.СчетчикРН=Конт.ТекущийДокумент().Клиент.СчетчикРН - 1;

ТекКлиент.Записать();

КонецЕсли;

.....

Процедура ПриУдаленииДокумента(Докум, Режим)

.....

Если Докум.Вид() = "РасходнаяНакладная" Тогда

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

Если ТекКлиент.НайтиЭлемент(Докум.Клиент)<>0 Тогда

ТекКлиент.СчетчикРН=Докум.Клиент.СчетчикРН - 1;

ТекКлиент.Записать();

КонецЕсли;

.....

Аналогично решается вопрос с инкрементацией дополнительного документа - Входящая доверенность.

+6 –

См. также

Улучшенная обработка "Внешние печатные формы" для типовых конфигураций на базе 1С 7.7

Печатные формы Адаптация типовых решений Программист Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Приятное улучшение обработки "Внешние печатные формы" для типовых конфигураций на базе 1С 7.7 для более комфортной работы с "любимой семерочкой".

1 стартмани

04.02.2022 3302 1 igor7777 0

Расчет страховых взносов в 1С 7.7 "Учет и отчетность предпринимателя, ред. 1.2" с апреля 2020

Адаптация типовых решений Программист Платформа 1С v7.7 Конфигурации 1cv7 Россия Бухгалтерский учет ФОМС, ЕФС Бесплатно (free)

В этой статье описано, какие небольшие изменения можно внести в модуль документа Начисление налогов с ФОТ, чтобы правильно рассчитывались страховые взносы с 1 апреля 2020 г.

09.04.2020 20391 Юджин58 39

Дистрибьюция 7.7. Часть 1. Жизненный цикл заявки покупателя. Одна заявка покупателя, много адресов доставки.

Адаптация типовых решений Программист Платформа 1С v7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Управленческий учет Бесплатно (free)

Описан способ работы с учетом расписания с приоритетными покупателями - торговыми сетями (основными покупателями) в торговой или комплексной учетной системе на 1С 7.7. Множественная заявка покупателя на несколько торговых точек.

14.10.2019 6220 ksnik 14

Раздел 9 декларации по НДС за 1 квартал 2019

Адаптация типовых решений Оптовая торговля Производство готовой продукции (работ, услуг) Программист Бухгалтерский учет 7.7 1С:Комплексная 7.7 Россия Бухгалтерский учет Налоговый учет НДС Бесплатно (free)

Ошибка при формировании Раздела 9 декларации по НДС в 1С к.к. 7.70.577.

12.04.2019 8304 eroma 12

Как в торговле 7.7 печатать код ТНВЭД в счет-фактуре

Операции по ВЭД Адаптация типовых решений Программист Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Бухгалтерский учет НДС Бесплатно (free)

В данной статье хотел поделиться опытом, как в Торговле 7.7 ( релиз 994) сделать возможность выводить код ТНВЭД в печатную форму счета-фактуры. Сразу скажу, что нужно это только тем, кто осуществляет экспорт в страны таможенного союза. Остальные могут не волноваться.

15.11.2017 11969 AndKovalchuk 0