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

08.09.11

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

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

 

 

Создается

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

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

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

 

 

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

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

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

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

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

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

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

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

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

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

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

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

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

                        КонецЕсли;

            КонецЦикла;

    Возврат "";

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


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

 

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

    ГенДов="";

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

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

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

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

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

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

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

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

                                   КонецЕсли;

                        КонецЕсли;

            КонецЦикла;

 

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

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

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

            КонецЕсли;

 

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

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

 

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

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

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

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

 

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

.....

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

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

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

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

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

        КонецЕсли;

    КонецЕсли;

......

 

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

Например

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

.....

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

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

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

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

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

        КонецЕсли;

.....

 

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

.....

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

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

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

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

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

        КонецЕсли;

    КонецЕсли;

.....

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

См. также

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

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

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

1 стартмани

04.02.2022    3200    1    igor7777    0    

3

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

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

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

09.04.2020    19681    Юджин58    39    

5

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

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

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

14.10.2019    6009    ksnik    14    

3

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

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

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

15.11.2017    11816    AndKovalchuk    0    

1

Предельные базы взносов в ПФР, ФСС, ФФОМС 2015 в 1С: Бухгалтерия 7.7

Зарплата Адаптация типовых решений Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Абонемент ($m)

Реализация Постановления Правительства РФ 1316 от 04.12.14 для типовой конфигурации "Бухгалтерский учет 7.7" рел. 7.70.590

1 стартмани

31.12.2014    23928    9    Sergey1CSpb    2    

0
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. fishca 1254 08.09.11 21:44 Сейчас в теме
Есть замечательная разукрашка кода, она очень помогает при подготовке публикации
2. Sykoku 101 09.09.11 21:05 Сейчас в теме
(1)

Спасибо, мил-человек.

Кроме снятия 3$ толку маловато - файл epf не для "Семерки".
3. Sykoku 101 09.09.11 21:05 Сейчас в теме
(1)
И в 8.2 он заработал лишь после конвертации.
4. Sykoku 101 09.09.11 21:05 Сейчас в теме
(1)
И на сайте картинка стала "вменяемой" раза с 3-го.
6. fishca 1254 09.09.11 22:01 Сейчас в теме
(4)ну не все же прямо сразу ;)
7. Sykoku 101 09.09.11 22:35 Сейчас в теме
5. Sykoku 101 09.09.11 21:05 Сейчас в теме
(1)
И лишние параграфы влепились кругом....
Оставьте свое сообщение