1С и Ваш Кошелек

Публикация № 655351

Разработка - Практика программирования

конфигурация программирование личные финансы тестовая база

Описан с нуля процесс конфигурирования простого приложения учета личных финансов на базе платформы 1С Предприятие 8.3. Пошагово создаются подсистемы учета расходов и доходов, вкладов и накоплений, кредитов и долгов. В результате конфигурирования получается вполне работоспособное и полезное приложение для личного использования. Предполагается , что читатель имеет некоторое представление о платформе 1С Предприятие 8.3 и саму платформу установленной на компьютере. Cтатья будет полезна желающим освоить конфигурирование приложений на платформе 1С на реальном примере нужной для каждого программы. Прилагается тестовая конфигурация и тестовая база.

СОДЕРЖАНИЕ.

  1. Что будем делать.
  2. План реализации
  3. Реализация
  4. Что получилось

    Что будем делать

    Попробуем создать приложение на платформе 1С Предприятие 8.3 , в котором можно будет вести учет  личных финансов.

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

    Кроме того должны быть полезные вещи -  курсы валют, учет коммунальных платежей, некоторое планирование расходов / доходов, телефонная книга, справочник получателей коммунальных (и не только) платежей и пр.

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

    Для точной оценки своих финансов добавим разнообразные отчеты.

    Примем во внимание Систему стандартов и методик разработки конфигураций для платформы 1С : Предприятие 8 (в частности, Общие требования к конфигурации и Имена объектов метаданных конфигурации).

    План  реализации.

    Используем платформу 1С Предприятие 8.3  и новый интерфейс «Такси» с управляемыми формами.

    Пусть первоначально  в нашей конфигурации будут следующие разделы (подсистемы) :

         Документы

    Кошельки

    Накопления и имущество

    Кредиты и Долги

    Отчеты

    Справочники

    Регистры

    Сервис

    Для реализации задуманного нами алгоритма работы и возможностей программы  в нашей конфигурации предполагается   для начала сконфигурировать следующие объекты 1С:

    Перечисления:

    СостоянияКошельков

    ТипыКошельков

    СпособыДоходовРасходов              

    Справочники :

    РазделыРасходов

    НоменклатураРасходов

    РазделыДоходов

    НоменклатураДоходов

    Кошельки

    Накопления

    КредитыИДолги

    ВладельцыКошельков

    Валюты

    Документы :

    Доход

    Расход

    Перемещение        

    Регистры накоплений :

    ОстаткиДенежныхСредствПоКошелькам

    Регистры сведений :

    КурсыВалют

    Реализация.

    Приступим собственно к конфигурированию.

    Создадим пустую базу в конфигураторе, назовем ее «МОЙ КОШЕЛЕК» и организуем подсистемы указанные выше.  Для каждой подсистемы выберем рисунок из общих рисунков , предварительно создав набор общих рисунков  (Рис_1).

    Не буду описывать по шагам, как это сделать, поскольку по данному вопросу информации   хватает.  Сохраним конфигурацию и посмотрим результат на экране, запустив , собственно , Предприятие или режим Отладки из Конфигуратора (Рис_2).

    Глядя на этот  «чистый» лист  и начнем. 

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

    Перечень кошельков со своими реквизитами будет находиться в справочнике  Кошельки .

    До создания данного справочника сконфигурируем  сначала объекты конфигурации  1С перечисления  :

             СостоянияКошельков (с реквизитами  ДЕЙСТВУЕТ , ЗАКРЫТ, ЗАБЛОКИРОВАН,АРЕСТ,ПРОЧЕЕ);

             ТипыКошельков (с реквизитами НАЛИЧКА, ТЕКУЩИЙСЧЕТ, РАСЧЕТНЫЙСЧЕТ, ДЕПОЗИТНЫЙСЧЕТ, ВИРТУАЛЬНЫЙСЧЕТ,  СЧЕТФОРЕКС, КРЕДИТНАЯКАРТА, ДЕБЕТОВАЯКАРТА, ПЕНСИОННАЯКАРТА, ЗАРПЛАТНАЯКАРТА,ПРОЧЕЕ)

    и  объекты конфигурации 1С справочники  :

             ВладельцыКошельков ( без реквизитов)

             Валюты   (с реквизитами СимвольныйКод, ЦифровойКод)    

    Напомню, что у объекта конфигурации 1С справочник есть стандартные по умолчанию реквизиты : Код и Наименование. Их мы и будем использовать в простых справочниках. Не забудем также приписать сконфигурированные объекты к соответствующим подсистемам конфигурации.

    Теперь собственно можно уже сконфигурировать справочник Кошельки с реквизитами  :

    НомерСчета                                 Строка      25

    ВалютаКошелька                       СправочникСсылка.Валюты

    ТипКошелька                              ПеречислениеСсылка.ТипыКошельков

    ГдеОткрытКошелек                  Строка        100

    ВладелецКошелька                  СправочникСсылка.ВладельцыКошельков

    СостояниеКошелька                 ПеречислениеСсылка.СостоянияКошельков

    ДатаОткрытияКошелька         Дата 

    ДатаЗакрытияКошелька         Дата 

    Примечание                               Строка        100

    Видно , что часть реквизитов справочника Кошельки  -  это ссылки на заведенные ранее нами перечисления и справочники. Для оставшихся реквизитов указывается длина строк и формат чисел. Разместим этот справочник в подсистеме Кошельки. Сдеалаем данный справочник иерархическим.

    Вот как теперь выглядит конфигурация (Рис_3) :

    Сохраним конфигурацию. Теперь уже можно начать работать с созданной нами программой.    

    Запустим приложение и заполним справочники ВладельцыКошельков (Рис_4) , Валюты (Рис_5), Кошельки (Рис_6):

    Естественно, данные в справочниках заполняйте свои .

    Продолжим.

    Перед заведением нового объекта конфигурации 1С документа Доход  предварительно сконфигурируем справочники с именами:

    РазделыДоходов (без реквизитов) 

    НоменклатураДоходов (с одним реквизитом Раздел) (Рис_7):

    Сохраним конфигурацию и запустим приложение. Занесем в открытые вновь справочники несколько значений сначала в справочник РазделыДоходов  потом и в справочник НоменклатураДоходов (Рис_8, Рис_9) :

    Заведем также перечисления СпособыДоходовРасходов (НАЛИЧКА, БЕЗНАЛИЧНО, СНЯТИЕЧЕРЕЗБАНКОМАТ, ВНЕСЕНИЕЧЕРЕЗДЕПОЗИТОР, ПРОЧЕЕ)   и  ТипыДвиженияДенежныхСредств (ДОХОД, РАСХОД,  ПЕРЕМЕЩЕНИЕ).

    Ну вот теперь можно завести объект документ Доход  с реквизитами  (Рис_10):

    КошелекДохода                           СправочникСсылка.Кошельки

    ВалютаДохода                              СправочникСсылка.Валюты               

    СуммаДохода                               Число                  15,2

    СтатьяДохода                                СправочникСсылка.НоменклатураДоходов

    РазделДохода                              СправочникСсылка.РазделыДоходов               

    Примечание                                  Строка                 100

    У документа Доход создадим сами  форму документа (то есть добавим форму ФормаДокумента в раздел Формы) . Это понадобится в дальнейшем. Отметим, что по умолчанию в 1С формы создаются автоматически и , если вы не планировали что-то добавлять на форму , то нет необходимости ее создавать самому.

    Разместим документ Доход в подсистеме Документы.

    Для учета движения денежных средств по кошелькам сконфигурируем еще один новый объект конфигурации регистр накоплений с именем ОстаткиДенежныхСредствПоКошелькам с параметрами  (Рис_11):

    Измерения :

    Кошелек                                          СправочникСсылка.Кошельки

    Ресурсы :

    Сумма                                              Число                  15,2

    Реквизиты :

    ВалютаДоходовРасходов          СправочникСсылка.Валюты               

    СтатьяДоходовРасходов            Строка                 100

    Свяжем регистр накоплений ОстаткиДенежныхСредствПоКошелькам с документом Доход, указав в регистре накоплений  в разделе Регистраторы документ Доход, а  в документе, в разделе Движение в качестве регистра накоплений регистр ОстаткиДенежныхСредствПоКошелькам.

    Далее в свойствах документа в закладке Движение необходимо нажать кнопку Конструктор движения и в  графе Выражения для полей Регистра накоплений проставить соответствующие поля документа Доход (Рис_12):

    После нажатия кнопки ОК откроется окошко Модуль объекта документа Доход , в котором  автоматически создается код движения по регистру накоплений  (Рис_13):

            

    Доработаем документ Доход таким образом, чтобы при изменении (заполнении) поля СтатьяДохода автоматически заполнялось поле РазделДоходов (связь по справочнику НоменклатураДоходов) и при изменении (заполнении)  поля КошелекДохода автоматически заполнялось поле ВалютаДохода (связь по справочнику Кошельки. Для этого мы сами сформировали форму документа Доход и теперь надо в модуле формы написать некоторый код.

    Раскроем свойства поля формы документа СтатьяДохода , найдем событие При изменении и для этого поля ,щелкнув мышкой по значку лупы справа от поля , попадем в заготовку кода функции НоменклатураДоходаПриИзменении.  Пропишем здесь всего несколько строчек  кода  (и этого вполне достаточно).

     Вот код :

    &НаКлиенте

    Процедура СтатьяДоходаПриИзменении(Элемент)

           СтатьяДоходаПриИзмененииНаСервере();

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

    &НаСервере

    Процедура СтатьяДоходаПриИзмененииНаСервере()

           Объект.РазделДоходов = Объект.СтатьяДохода.Раздел;

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

    Аналогично добавим код и для поля формы документа КошелекДохода :

    &НаКлиенте

    Процедура КошелекДоходаПриИзменении(Элемент)

           КошелекДоходаПриИзмененииНаСервере();

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

    &НаСервере

    Процедура КошелекДоходаПриИзмененииНаСервере()

           Объект.ВалютаДохода = Объект.КошелекДохода.ВалютаКошелька;

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

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

    Сохраним конфигурацию  и проверим работу документа Доход.

    Создадим  реальный документ Доход , например, на 1100 рублей по кошельку Кошелек RUR (Рис_14) :

    Поля ВалютаДохода  и РазделДоходов заполнились автоматически при заполнении полей КошелекДохода и СтатьяДохода.

    Проведем , закроем документ и посмотрим , что получилось.

    Видим , что в регистре сведений ОстаткиДенежныхСредствПоКошелькам появилась строка по данному кошельку, с текущей датой и суммой документа (Рис_15):

    Таким образом документ Доход работает так, как мы и хотели пока.

    Введем с помощью документов Доход начальные остатки по всем заведенным нами кошелькам, заполнив тем самым регистр накоплений ОстаткиДенежныхСредствПоКошелькам (Рис_16) :

      

    Для отображения текущих остатков кошельков сформируем сами и доработаем ФормуЭлемента и ФормуСписка для справочника Кошельки (Рис_17):

    Для ФормыЭлемента добавим в Реквизиты на форме реквизит ТекущийОстатокПоДаннымРегистра (Число).

    Мышкой перетащим данный реквизит в закладку Элементы на левой части формы. Здесь образуется элемент ТекущийОстатокПоДаннымРегистра (Поле ввода) (Рис_18):

    Далее в Модуле Формы Элемента добавляем следующий код  (Рис_19):

    Очевидно, что данный код выбирает текущий остаток данного кошелька из регистра накоплений. Теперь можно проверить работу ФормыЭлемента справочника Кошельки. В нашем приложении зайдем в справочник Кошельки и «щелкнем» например на строке  «Вклад до востребования».  На открытой форме элемента отображается текущий остаток кошелька «Вклад до востребования» выбранный автоматически из регистра накоплений ОстаткиДенежныхСредствПоКошелькам (Рис_20) :

    Форму списка справочника Кошельки доработаем немного по другому.  На форме списка «щелкните» правой кнопкой мыши на реквизите Список (Динамический список) в правой части формы и в Свойствах откройте свойство “Настройка списка” . Мы увидим  код запроса (полученный по умолчанию) для для данного списка .  В него необходимо дописать несколько строк для выбора текущего остатка кошелька из регистра накоплений (Рис_21) :

    Кроме этого надо перетащить реквизит ТекущиеОстаткиПоДаннымРегистра в левую часть формы на закладку Элементы (Рис_22):

    Вот как выглядит теперь наш список кошельков (Рис_23):

    С доходами пока закончим и примемся за расходы.

    Сделаем предварительные шаги , аналогичные уже сделанным ранее для документа Доход.

    Заведем простые справочники РазделыРасходов (без реквизитов)  и НоменклатураРасходов (с одним реквизитом Раздел).

    Приступим теперь собственно к созданию объекта документ Расход.

    Сконфигурируем документ Расход со следующими реквизитами (Рис_24):

    КошелекРасхода                         СправочникСсылка.Кошельки

    СуммаРасхода                             Число                  15,2

    ВалютаРасхода                            СправочникСсылка.Валюты               

    СтатьяРасхода                              СправочникСсылка.НоменклатураДоходов

    РазделРасхода                             СправочникСсылка.РазделыДоходов               

    Примечание                                  Строка                 100

    Свяжем регистр накоплений  ОстаткиДенежныхСредствПоКошелькам с документом Расход, указав в регистре накоплений  в разделе Регистратор документ Расход, а  в документе в разделе Движение в качестве регистра накоплений  ОстаткиДенежныхСредствПоКошелькам. Создадим сами ФормуДокумента, поскольку мы собираемся ее дорабатывать.

    Доработаем документ Расход таким образом, чтобы при изменении (заполнении) поля СтатьяРасхода автоматически заполнялось поле РазделРасходов (связь по справочнику НоменклатураРасходов) и при изменении (заполнении)  поля КошелекРасхода автоматически заполнялось поле ВалютаРасхода (связь по справочнику Кошельки.

    Раскроем свойства поля формы документа СтатьяРасхода , найдем событие При изменении и щелкнув мышкой по значку лупы справа от поля попадем в заготовку кода функции СтатьяРасходаПриИзменении.  Пропишем здесь  несколько строчек  кода.

     Вот код :

    &НаКлиенте

    Процедура СтатьяРасходаПриИзменении(Элемент)

           СтатьярасходаПриИзмененииНаСервере();

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

    &НаСервере

    Процедура СтатьярасходаПриИзмененииНаСервере()

           Объект.РазделРасходов = Объект.СтатьяРасхода.Раздел;

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

    Аналогично добавим код и для поля формы документа КошелекРасхода :

    &НаКлиенте

    Процедура КошелекРасходаПриИзменении(Элемент)

           КошелекРасходаПриИзмененииНаСервере();

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

    &НаСервере

    Процедура КошелекРасходаПриИзмененииНаСервере()

           Объект.ВалютаРасхода = Объект.КошелекРасхода.ВалютаКошелька;

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

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

    Сохраним конфигурацию  и проверим работу документа Расход.

    Не забудем предварительно заполнить справочник РазделыРасходов (Рис_25):

    И справочник НоменклатураРасходов (Рис_26):

    Сделаем реальный  документ  Расход на сумму 99 рублей с кошелька Кошелек RUR (Рис_27):

    Поля ВалютаРасхода  и РазделРасходов заполнились автоматически при заполнении полей КошелекРасхода и СтатьяРасхода.

    Проведем , закроем документ и посмотрим , что получилось.

    В регистре накоплений ОстаткиДенежныхСредствПоКошелькам видим появившуюся строку (Расход) по данному кошельку, с текущей датой и суммой документа (Рис_28):

    Документ Расход работает правильно!

    Будем двигаться дальше .

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

    Здесь следует обсудить вопрос разновалютности кошельков (у нас есть кошельки в рублях, долларах США и ЕВРО). Если денежные средства перемещаются между кошельками с одной валютой , то вопросов нет.

    А если один кошелек , например в рублях , а другой в долларах США, то у нас получается фактически обмен (конверсия) валют!  Естественно, при этом нам надо знать курс обмена валют на текущий момент.

    Доработаем нашу программу для работы с разными валютами.

    Для начала сконфигурируем новый объект конфигурации регистр сведений КурсыВалют с параметрами :

    Измерения :

    Валюта                                                                     СправочникСсылка.Валюты

    ДатаКурса                                                               Дата                

    Ресурсы :

    КурсВалюты                                                           Число                  12,4

    Реквизиты :

    Кратность                                                               Число                   8          

    ЦифровойКодВалюты                                        Число                   3

    СимвольныйКодВалюты                                   Строка                 3

    В разделе Основные регистра сведений укажем Периодичность :  В пределах секунды  и  Режим записи : Независимый  (Рис_29):

    Теперь вопрос – где нам брать курсы валют на конкретную дату?

    Используем еще один новый объект конфигурации внешняя обработка.  Для этого в конфигураторе в пункт Обработки добавим внешнюю обработку ЗагрузкаКурсовВалютЦБР.epf  (к сожалению автора этой обработки назвать не могу). Суть этой обработки – загрузка курсов валют с сайта http:\\web.cbr.ru   с помощью метода GetCursOnDate. Разместим обработку в подсистеме Сервис.

    Курсы загружаются в таблицу на форме внешней обработки (Рис_30):

      В имеющийся код внешней обработки (в модуле обработки) добавим свой код для загрузки курсов также и в заведенный нами регистр сведений КурсыВалют.  Вот доработанный код модуля обработки :

    &НаКлиенте

    Процедура ЗагрузитьВалюты(Команда)

          

           Если НЕ ЗначениеЗаполнено(ДатаЗагрузки) Тогда

                 Сообщить("Не выбрана дата загрузки!", СтатусСообщения.Важное);

                 Возврат;

           КонецЕсли;

          

           ТаблицаКурсовВалют.Очистить();

           ЗагрузитьКурсыВалют(ДатаЗагрузки);

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

    Процедура ЗагрузитьКурсыВалют(фДатаЗагрузки)

          

           //Определения = Новый  

                       WSОпределения("http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx?WSDL");

           //Прокси = Новый WSПрокси(Определения, "http://web.cbr.ru/", "DailyInfo",           

                       "DailyInfoSoap");

          

           //Создаем прокси для обращения к внешнему веб-сервису,

           // передаем в функцию URI пространства имен, имя сервиса, имя порта.

           Прокси = WSСсылки.CBR_DailyInfoWebServ.СоздатьWSПрокси("http://web.cbr.ru/", "DailyInfo", "DailyInfoSoap");

          

           //Получаем тип параметра, который передается в метод GetCursOnDate.

           ТипWSПараметра =

            Прокси.ФабрикаXDTO.Пакеты.Получить("http://web.cbr.ru/").Получить("GetCursOnDate");

           //Создаем параметр на основе типа и заполняем значение параметра On_Date.

           WSПараметр  = Прокси.ФабрикаXDTO.Создать(ТипWSПараметра);

           WSПараметр.On_Date  = фДатаЗагрузки;

          

           //Вызываем метод веб-сервиса, записываем результат в переменную КурсыВалют.

           КурсыВалют = Прокси.GetCursOnDate(WSПараметр);

           //Перебираем таблицу ValuteCursOnDate, каждое значение таблицы

           // добавляем в таблицу на форме (колонки заполняем соответствующими значениями).

           Для Каждого Элемент Из   

                   КурсыВалют.GetCursOnDateResult.diffgram.ValuteData.ValuteCursOnDate

               Цикл

                 НоваяСтрокаТЗ = ТаблицаКурсовВалют.Добавить();

                 НоваяСтрокаТЗ.НазваниеВалюты      = Элемент.Vname;

                 НоваяСтрокаТЗ.Номинал             = Элемент.Vnom;

                 НоваяСтрокаТЗ.ЦифровойКодВалюты   = Элемент.Vcode;

                 НоваяСтрокаТЗ.СимвольныйКодВалюты = Элемент.VChCode;

                 НоваяСтрокаТЗ.КурсВалюты          = Элемент.Vcurs;

                

           // наша вставка

           // запись в регистр сведений КурсыВалют

        Если Элемент.VChCode = "USD" или  Элемент.VChCode = "EUR"

             Тогда

               Выборка = Справочники.Валюты.Выбрать();

               ПОКА Выборка.Следующий() ЦИКЛ

                 Если Выборка.СимвольныйКод = Элемент.VchCode ТОГДА

                      СсылкаВалюта = Выборка.Ссылка;

                      ПРЕРВАТЬ;

                 КонецЕсли;

               КонецЦИКЛ;    

              НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();

               НаборЗаписей.Отбор.Валюта.Установить(СсылкаВалюта);

               НаборЗаписей.Отбор.ДатаКурса.Установить(ТекущаяДата());

               ЗаписьРегистра = НаборЗаписей.Добавить();

               ЗаписьРегистра.Период = ТекущаяДата();

               ЗаписьРегистра.Валюта = СсылкаВалюта;

               ЗаписьРегистра.ДатаКурса = ТекущаяДата();

               ЗаписьРегистра.КурсВалюты = Элемент.Vcurs;

               ЗаписьРегистра.Кратность = Элемент.Vnom;

               ЗаписьРегистра.ЦифровойКодВалюты = Элемент.Vcode;

               ЗаписьРегистра.СимвольныйКодВалюты = Элемент.VChCode;

               НаборЗаписей.Записать(Истина);

           КонецЕсли;

          // конец нашей вставки

           КонецЦикла;

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

    Для полной установки обработки необходимо еще добавить в конфигурацию объект WS-ссылка с указанным именем (Рис_31) :

    Курсы всех валют нам естественно не нужны. Будем загружать для начала доллары США и ЕВРО.  Автоматизации загрузки курсов пока нет, поэтому , чтобы не усложнять программу , раз в день , когда нам понадобятся курсы,надо загрузить их вручную.

    Вот как выглядит регистр сведений КурсыВалют после загрузки курсов (Рис_32):

    Теперь курсы валют у нас есть. 

    Сконфигурируем новый документ Перемещение с реквизитами:

    КошелекОткудаПеремещение         СправочникСсылка.Кошельки               

    ВалютаКошелькаОткуда                    СправочникСсылка.Валюты

    КошелекКудаПеремещение             СправочникСсылка.Кошельки

    ВалютаКошелькаКуда                        СправочникСсылка.Валюты

    СуммаПеремещения                           Число                  15,2

    КонвертированнаяСумма                  Число                  15,2

    КурсКонвертации                                 Число                  10,4

    Комиссия                                                Число                  12,2

    Примечание                                           Строка                 100

    Для учета движения денежных средств по документу Перемещение будем использовать тот же регистр накоплений ОстаткиДенежныхСредствПоКошелькам. Однако здесь возникает некоторая сложность – нам надо , чтобы в регистре накоплений при проведении документа появились две записи : приход (по кошельку КошелекКудаПеремещение) со своей валютой и расход (по кошельку КошелекОткудаПеремещение) со своей валютой.

    Конструктор движения автоматически создает код только для одной записи (например, по расходу). Движение по Приходу прийдется дописать самим.  Вот какой код у нас получился в итоге (Рис_33):

    Создадим сами Форму Документа для документа Перемещение, поскольку нам надо дополнительно автоматизировать заполнение некоторых полей документа. Нам надо, чтобы при заполнении полей КошелекКудаПеремещение и КошелекОткудаПеремещение автоматически заполнялись поля ВалютаКошелькаКуда и ВалютаКошелькаОткуда  .

    Это обеспечивается следующим кодом , который надо прописать в модуле формы документа (Рис_34):

    Изменим процедуру КошелекКудаПриИзмененииНаСервере() и добавим в модуль  Формы Документа документа Перемещение еще некоторый код :

    &НаСервере

    Процедура КошелекКудаПриИзмененииНаСервере()

           Объект.ВалютаКошелькаКуда = Объект.КошелекКуда.ВалютаКошелька;

           Валюта = Объект.ВалютаКошелькаКуда;

          Если Валюта = Объект.ВалютаКошелькаОткуда Тогда

                    Курс = 1;

                    Объект.КурсКонвертации =  Курс;

          КонецЕсли 

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

    &НаКлиенте

    Процедура СуммаПеремещенияПриИзменении(Элемент)

           СуммаПеремещенияПриИзмененииНаСервере();

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

    &НаСервере

    Процедура СуммаПеремещенияПриИзмененииНаСервере()

           Объект.КонвертированнаяСумма =  Объект.СуммаПеремещения / Объект.КурсКонвертации;

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

    Пока  мы упростили задачу и сделали заготовку на будущее. Очевидно , что сейчас документ Перемещение можно использовать только для кошельков с одинаковой валютой.  И заполнять этот документ надо в следующем порядке : сначала заполнить поля КошелекКуда и КошелекОткуда , а только потом поле СуммаПеремещения.  При этом автоматически заполнятся поля ВалютаКошелькаКуда , ВалютаКошелькаОткуда, КурсКонвертации , КонвертированнаяСумма.

    Для проверки сделаем реальный документ Перемещение (Рис_35) :

    После проведения документа в регистре накоплений ДвижениеДенежныхСредствПоКошелькам появилось две записи (по расходу и приходу) , как  и полагается (Рис_36) :

    Для перемещения денежных средств между разновалютными кошельками документ Перемещение следует доработать.  Однако это отдельная задача , рассмотрим ее позже.

    Займемся теперь «накоплениями».

    Сконфигурируем справочник Накопления    с  реквизитами  :

    НомерСчета                                 Строка       25

    НомерДоговора                         Строка       50

    ВалютаНакопления                  СправочникСсылка.Валюты

    СрокДоговора                             Число         5

    Сумма                                            Число         15,2

    ГдеОткрыт                                    Строка        50

    ВладелецНакопления              СправочникСсылка.ВладельцыКошельков

    СостояниеСчета                          ПеречислениеСсылка.СостоянияКошельков

    ДатаОткрытия                            Дата 

    ДатаЗакрытия                            Дата 

    КошелекНакопления               СправочникСсылка.Кошельки

    Примечание                               Строка        100

    Поскольку «накопления» у нас это те же «кошельки» , поэтому в справочник Накопления добавлен реквизит КошелекНакопления (ссылка на кошелек в справочнике Кошельки) . Аналогично справочнику Кошельки сделаем на форме элемента справочника Накопления вывод текущего остатка накопления , который оперативно получается из регистра накоплений ОстаткиДенежныхСредствПоКошелькам. Процедура для получения текущего остатка в модуле формы элемента будет несколько изменена :

    &НаСервере

    Процедура ПолучитьТекущиеОстаткиПоНакоплениюНаСервере()

           Кошель = Объект. КошелекНакопления;

           Запрос = Новый Запрос;

           Запрос.Текст = "ВЫБРАТЬ

                  | ОстаткиДенежныхСредствПоКошелькамОстатки.Кошелек,

                  | ОстаткиДенежныхСредствПоКошелькамОстатки.СуммаОстаток

                  | ИЗ

                  | РегистрНакопления.ОстаткиДенежныхСредствПоКошелькам.Остатки(,Кошелек= &Кошелек)

                  | КАК ОстаткиДенежныхСредствПоКошелькамОстатки";

           Запрос.УстановитьПараметр("Кошелек", Кошель);

           Результат = Запрос.Выполнить();

           Если НЕ Результат.Пустой() Тогда

                        Выборка = Результат.Выбрать();

                 Выборка.Следующий();

                 ТекущийОстатокПоРегиструНакоплений = Выборка.СуммаОстаток;

           КонецЕсли;  

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

    Занесем , для примера, в справочник Накопления депозит  “Вклад до востребования”  (Рис_37) :

    В принципе справочник Накопления работоспособен.  Аналогичным образом можно добавить вывод текущего остатка по накоплению и на Форму списка справочника.

    У нас осталась пустой подсистема Кредиты и Долги. Перейдем к ней.

    Сконфигурируем справочник Кредиты  с реквизитами :

    СуммаКредита                              Число                15,2 

    ВалютаКредита                             СправочникСсылка.Валюты   

    ДатаОткрытия                               Дата

    Аннуитет                                         Число                 12,2

    ДеньПлатежа                                Число                 5

    СрокКредитаДней                       Число                5

    СрокКредитаМесяцев                Число                5

    СостояниеКредита                       ПеречислениеСсылка.СостояниеКошельков

    ГдеОткрытКредит                        Строка               100

    ВладелецКредита                        СправочникСсылка.ВладельцыКошельков

    ДатаОткрытия                               Дата

    ДатаЗакрытия                               Дата

    Примечание                                  Строка                100

    И табличной частью ГрафикПогашения

    ДатаПлатежаПоГрафику               Строка                10

    СуммаЕжемесячныйПлатеж       Число                  12,2

    СуммаПлатежаОсновнойДолг    Число                  12,2

    СуммаПлатежаПроценты             Число                  12,2

    ОстатокОсновногоДолгаГрафик  Число                 15,2

    Погашено                                           Строка                 50

    Для этого справочника создадим  сами форму элемента (Рис_38):

    Заведем в приложении для примера какой-то кредит (вы естественно заводите свой)  (Рис_39) :

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

    Вот код процедуры :

    &НаКлиенте

    Процедура ЗагрузитьГрафикПогашения(Команда)

           ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

           ДиалогВыбора.Заголовок = "Выберите файл";

           ДиалогВыбора.Расширение = "xls";

          

           Если ДиалогВыбора.Выбрать() Тогда

                 ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;

           КонецЕсли;

           Попытка

                 Excel = Новый COMОбъект("Excel.Application");

                 Excel.WorkBooks.Open(ИмяФайла);

                 Состояние("Обработка файла Microsoft Excel ...");

           Исключение

                 Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена.");

                 Сообщить(ОписаниеОшибки());

                 Возврат;

           КонецПопытки;

           Попытка

                 Excel.Sheets(1).Select();

           Исключение

                 Excel.ActiveWorkbook.Close();

                 Excel = 0;

                 Возврат;

           КонецПопытки;

           Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);

           Если Версия = "8" Тогда

                 ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;

                 ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count,13);

           Иначе

                 ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;

                 ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;

           КонецЕсли;

           График = ЭтотОбъект.Объект.ГрафикПогашения;

           Для НомерСтроки = 2 по ФайлСтрок Цикл

                 НоваяСтрока = График.Добавить();

                 Для НомерКолонки = 1 по ФайлКолонок Цикл

                        ТекущееЗначение = Excel.Cells(НомерСтроки,НомерКолонки).Text;

                        Если  НомерКолонки = 2 Тогда

                            НоваяСтрока.ДатаПлатежаПоГрафику = ТекущееЗначение;

                        КонецЕсли;

                        Если  НомерКолонки = 3 Тогда

                            НоваяСтрока.СуммаЕжемесячногоПлатежа = ТекущееЗначение;

                        КонецЕсли;

                        Если  НомерКолонки = 4 Тогда

                            НоваяСтрока.СуммаПлатежаОсновнойДолг = ТекущееЗначение;

                        КонецЕсли;

                        Если  НомерКолонки = 5 Тогда

                            НоваяСтрока.СуммаПлатежаПроценты = ТекущееЗначение;

                        КонецЕсли;

                        Если  НомерКолонки = 6 Тогда

                            НоваяСтрока.ОстатокОсновногоДолгаГрафик = ТекущееЗначение;

                        КонецЕсли;

                 КонецЦикла;

           КонецЦикла;

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

    Мы с вами уже ранее сделали явной форму элемента справочника Кредиты. В модуле этой формы и разместим данную процедуру, для этого добавив команду ЗагрузитьГрафикПогашения.

    На форме элемента сформируем   кнопку “Загрузить график погашения” (просто перетащив мышкой команду в левое окошко формы) , с помощью которой и будем выполнять команду в приложении (Рис_40):

    Заготовим табличку Excel с графиком погашения. Разумеется табличка должна иметь столбцы , соответствующие полям табличной части ГрафикПогашения справочника Кредиты . Столбец Погашено должен быть пустым .

    Вот пример таблицы для загрузки (Рис_41):

    Данные должны размещаться в таблице со 2-й строки (так прописано в коде функции загрузки).

    Попробуем загрузить график по заведенному нами кредиту запустив приложение, открыв кредит и нажав кнопку Загрузить график погашения. В режиме диалога выберем нашу табличку. Смотрим табличную часть кредита и видим , что наши труды не пропали бесследно – график загружен (Рис_42) :

    Записываем и закрываем кредит.

    На первое время предлагаю отмечать ежемесячное погашение кредита в табличной части вручную, просто проставляя например,  ПОГАШЕНО  в графу Погашено табличной части  на конкретную дату платежа.           Если это вас не устроит, то вы можете легко создать , например, документ ПогашениеКредита, который и будет заполнять графы.

    Теперь можно выдохнуть и немного расслабиться. С созданной вами программой уже можно начинать работать по настоящему, то есть занести все ваши реальные данные (кошельки, счета , карты, вклады, кредиты ) и начать учитывать расходы!

    Что будем делать дальше?

    Попробуем несколько «оживить» нашу программу. Пусть при запуске выдается сообщение с некоторыми финансовыми результатами. Для этого предварительно накодируем несколько функций для работы с остатками кошельков. Естественно разместим их в модуле ОбщиеРасчеты

    Вот код :

        Функция ПолучитьОстатокКошелька(Кошелек) Экспорт

           Запрос = Новый Запрос;

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

           "ВЫБРАТЬ

           |ОстаткиДенежныхСредствПоКошелькамОстатки.Кошелек.Наименование КАК Кошелек,

           |ОстаткиДенежныхСредствПоКошелькамОстатки.СуммаОстаток КАК Остаток

        |ИЗ

           |РегистрНакопления.ОстаткиДенежныхСредствПоКошелькам.Остатки

           |               КАК ОстаткиДенежныхСредствПоКошелькамОстатки

           |ГДЕ

           |ОстаткиДенежныхСредствПоКошелькамОстатки.Кошелек.Наименование = &Кошелек ";

           Запрос.УстановитьПараметр("Кошелек", Кошелек);

           Ост = 0;

           Результат = Запрос.Выполнить();

           ЕСЛИ НЕ Результат.Пустой() ТОГДА

                 Выборка = Результат.Выбрать();

                 Выборка.Следующий();

                 Ост = Выборка.Остаток;

           КОНЕЦЕСЛИ;  

           Возврат Ост;

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

        Функция ОстатокКошельковВсего () Экспорт

            Сумма = 0.00;

            Выборка = Справочники.Кошельки.Выбрать();

            Пока Выборка.Следующий () Цикл

                    Если Выборка.СостояниеКошелька = Перечисления.СостоянияКошельков.ДЕЙСТВУЕТ     

                    Тогда

                         ТекКошель = ПолучитьОстатокКошелька(Выборка.Ссылка);

                         ТекКурс = ПолучитьКурсВалюты(Выборка.ВалютаКошелька,ТекущаяДата());

                          ТекСумма = ТекКошель * ТекКурс;

                         Сумма = Сумма + ТекСумма;

                   КОНЕЦЕСЛИ;

                 КонецЦикла;

              Возврат Сумма;

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

    Для вывода сообщений при входе в программу добавим в Модуль управляемого приложения                                ( В конфигураторе – МойКошелек – по правой кнопке – Открыть модуль управляемого приложения)  процедуру ПриНачалеРаботыСистемы (Рис_43) :

    Сохраняем и обновляем конфигурацию и запускаем приложение .  После запуска на главной странице видим наши сообщения (Рис_44):

    Пойдем дальше.

    Для некоторого планирования наших доходов  и  расходов попробуем сделать что-то типа бюджета на год. Будем делать все максимально просто без наворотов.

    Для хранения плановых показателей бюджета будем использовать регистр сведений Бюджет , а фактические показатели (доход / расход) будем оперативно получать из регистра накоплений ОстаткиДенежныхСредствПоКошелькам.

    Предварительно заведем перечисление РазделыБюджета (ДОХОДЫ, РАСХОДЫ, НАКОПЛЕНИЯ, КРЕДИТЫ).

    Далее нам надо как-то связать справочники НоменклатураРасходов и НоменклатураДоходов  с нашими будущими статьями бюджета.  Для этого нам прийдется немножко исправить , то что мы раньше сделали.

    Объединим  справочники РазделыДоходов и РазделыРасходов в  один справочник СтатьиБюджета с реквизитом РазделБюджета (СсылкаПеречисление.РазделыБюджета). Перенесем в него   все строки из старых справочников  (Рис_45):

    Справочники РазделыДоходов и РазделыРасходов из конфигурации удалим. Теперь нам надо исправить в свойствах реквизита Раздел справочников НоменклатураРасходов и НоменклатураДоходов ссылку на СправочникСсылка.СтатьиБюджета. Аналогично надо исправить ссылки в документах Доход и Расход.                И соответственно из программы заполнить этот реквизит в вышеуказанных справочниках на новый (Рис_46) :

    И наконец , сконфигурируем  регистр сведений Бюджет с параметрами (Рис_47):

    Измерения :

    Месяц                                             Число                  2

    Статья                                             СправочникСсылка.СтатьиБюджета

    Ресурсы :

    СуммаПлан                                   Число                  15,2

    Реквизиты :

    Год                                                  Число                   4               

    РазделБюджета                          ПеречислениеСсылка.РазделыБюджета

    Занесем несколько строк в регистр сведений Бюджет (Рис_48):

    Теперь нам остается придумать какую-то форму  для одновременного вывода плановых показателей по соответствующим статьям нашего бюджета и реальных доходов/ расходов этим статьям, которые нужно оперативно получать из нашего регистра накоплений ДвижениеДенежныхСредствПоКошелькам

    Давайте  подумаем над этим , а пока перейдем к отчетам.

    Сделаем для примера несколько простых отчетов, которые позволят оценить наши финансовые «достижения». Будем использовать встроенную в 1С систему конструирования отчетов , что позволит нам вообще не писать никакого дополнительного кода.  Объяснять буду схематично, желающие могут прочитать про СКД сами.

    Первый  отчет  Диаграмма расходов.  

    Исходные данные для данного отчета получим из списка   документов Расход. В конфигураторе открываем нашу конфигурацию .  Пункт Отчеты – Добавляем новый отчет – называем ДиаграммаРасходов -  Открыть схему компоновки данных  -  Набор данных – Добавить – Конструктор запросов – Выбираем нужные нам поля таблицы (Рис_49) :

    Далее на закладке Ресурсы выбираем поле Сумма  -  Выражение Сумма(Сумма) -  Закладка Настройки – Отчет – Выбираем тип Диаграмма  - Конструктор настроек – Круговая диаграмма – закладка Другие настройки (Рис_50) :

    Другие настройки (которые определяют внешний вид диаграмма) выбирайте сами . Сохраняем конфигурацию. Не забудьте добавить наш отчет в подсистему Отчеты.

    В приложении проверяем работу отчета .  Идем в Отчеты – Диаграмма расходов – Сформировать.  Должно получиться что-то такое (Рис_51) :

    Когда у вас будет много разных расходов – диаграмма будет красивой!

    Еще один отчет ДвижениеСредствПоКошелькам . Здесь в качестве исходных данных будем использовать регистр накоплений ОстаткиДенежныеСредстваПоКошелькам (Рис_52):

    Настройки здесь будут немного другие (Рис_53):

    При запуске отчета из приложения получаем примерно вот такой результат (Рис_54):

    Третий отчет – ОстаткиДенежныхСредствПоКошелькам. Здесь тоже в качестве исходных данных будем использовать регистр накоплений ОстаткиДенежныеСредстваПоКошелькам (Рис_55):

    Настройки будут такие (Рис_56):

    При запуске отчета из приложения получаем вот такой результат (Рис_57):

    На этом данную статью я заканчиваю. 

    Теперь вы наверняка сможете сами дорабатывать ваше приложение Мой кошелек.

    Что мы не успели сделать?

    Не доработали  документ Перемещение для работы с разновалютными кошельками.

    Не сделали документ ПогашениеКредита.

    Не доделали до конца систему работы с Бюджетом.

    Не сконфигурировали Справочники : 

                                 Список дел (работа с текущими делами),

                                 Люди (телефонный справочник с возможностью отправки электронной почты),

                                 Имущество (с табличными частями Налоги и Рыночная стоимость),

                                 Показания приборов учета ,

                                 Реквизиты для перечислений,

                                 Оплата коммунальных услуг.

    Кроме того хорошо было бы сделать выход в Интернет и отправку электронной почты прямо из приложения.

    На главную страницу (Главное) , которая сейчас при входе в нашу программу пустая (кроме сообщений ничего нет), можно что-нибудь вывести , например,  курсы валют или наиболее часто используемый справочник.

    Практика показывает, что неплохой вариант – вывести на закладку Главное  список документов РасходДенежныхСредств или справочник Кошельки , поскольку занесение своих расходов – основная операция при работе с программой.

    Успехов вам!    

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

Наименование Файл Версия Размер
1С и Ваш Кошелек:

.cf 172,10Kb
27.07.17
1
.cf 1.01 172,10Kb 1 Скачать
1С и Ваш Кошелек:

.dt 234,42Kb
27.07.17
6
.dt 1.01 234,42Kb 6 Скачать
1С и Ваш Кошелек:

.doc 4,15Mb
31.07.17
1
.doc 1.0 4,15Mb 1 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Milanick 02.08.17 09:42 Сейчас в теме
Очень хорошее инструкция для практики. Почитал, сделал. :)

Еще бы такое же описание для мобильного приложения. Логично же , сделать для своей базы , мобильный клиент. Ушел в магазин, потратил деньги, зафиксировал ( с распознованием спс)...
2. DrAku1a 1380 03.08.17 04:33 Сейчас в теме
Прикольно получилось. И подробно расписано - за это респект!

На мобильном (андройд) - использую программу "Vizi бюджет", там основное есть (кошельки, доходы, расходы, цели, бюджет и некоторые отчеты). Есть бесплатная и платная (купил), разница меж ними небольшая - только обмен с dropbox (удобно, кстати).
Я даже начал запиливать конфу в 1С, чтобы смотреть отчеты или делать глобальные правки в более удобной среде... Но "добро" от разработчиков на использование их продукта (даже в бесплатной версии конфы) - так и не получил.

Так вот, в процессе забивания финансов я столкнулся с тем, что время от времени - забываю оперативно внести расходы/доходы, и нужен документ "Инвентаризация денежных средств". В приложении есть функция "Изменить баланс", и она работает нормально - создаёт "проводку" с категорией "Правка баланса", но хочется даже большего. Нужен документ по типу документа "Инвентаризация товаров", но для денег, "Инвентаризация счетов", в котором забиваются реальные остатки, "подтягиваются" текущие и документ делает несколько проводок "Правка баланса", при этом - чтобы была возможность после внесения задним числом доходов/расходов (ну, вспомнилось) - обновить остатки до инвентаризации и проводки по правке баланса.
Может, пригодиться.

spogo; dajen; +2 Ответить
7. echo77 1167 04.08.17 09:48 Сейчас в теме
(2) Посмотрите конфигурацию УЛФин и рабочий стол для нее, который я делал: http://infostart.ru/public/602254/
3. Yashazz 3439 03.08.17 09:14 Сейчас в теме
Ёёё. Ещё одно?.. И не надоело же народу... Каждый одинэсник, мало-мальский освоивший конфигурирование, начинает для себя лепить эдакий кошелёк. И почему-то эта идея через некоторое время загибается... Почему бы? И сами не ведём, и другим пофигу) Но, со времён 7.5 и по сию пору не оскудевает поток этих баянов)))
user633533_encantado; rayastar; +2 2 Ответить
8. корум 284 04.08.17 10:39 Сейчас в теме
(3)
начинает для себя лепить эдакий кошелёк

Некоторые лепят "домашнюю библио/фильмотеку", но не суть.
и "лепят" не только 1с-ники, а многие программисты от визуал бейсика для excel до веб-разработчиков и сапёров.
Это такой продвинутый хелло ворлд, по обьёму как пакет лабораторных работ студентов вуза.
Большой плюс - хорошо знакомая предметная область, которую можно без усилий разложить на составляющие элементы конфигурации.
McMaxima36; vladimir-89; pbabincev; inf012; +4 Ответить
11. echo77 1167 04.08.17 11:53 Сейчас в теме
(3) А что нет то? Публикация хороша как практический учебник по теме. Вести учет именно в этой программе не обязывает, стоимость для скачивания - условная
4. user633533_encantado 7 03.08.17 10:55 Сейчас в теме
"Управляемые блокировки ?" - не , не слышал.
5. user808217 03.08.17 21:30 Сейчас в теме
Благодарю за труд. Прошу рассмотреть возможность реализации для мобильного приложения.
6. echo77 1167 04.08.17 09:46 Сейчас в теме
(0) Не понимаю, зачем такая детализация: РазделыРасходов, НоменклатураРасходов, РазделыДоходов, НоменклатураДоходов, Статьи бюджета - не проще ли ввести один справочник Статей ДДС и сделать его иерархическим?

Жду публикацию по развитию конфигурации в сторону мобильного приложения.
9. корум 284 04.08.17 10:43 Сейчас в теме
(6) странный вопрос для 1с-ника...

РазделыРасходов, НоменклатураРасходов

Разделы: обслуживание авто, фигня для дачи, домашний ремонт.
номенклатура: изолента.
одна номенклатура, которая расходуется на разные цели.
Иерархическим справочником не решить.
McMaxima36; +1 Ответить
10. echo77 1167 04.08.17 11:51 Сейчас в теме
(9) Хотите детализацию до покупаемой номенклатуры - ваше дело, я не против. По своему опыту ведения учета в УЛФин хочу отметить, что такую детализацию ежедневно набивать надоедает довольно быстро. Честно говоря, даже укрупненно разбивать чек по статьям задача тоже муторная.
В своем рабочем столе для УЛФин планирую сделать ввод расходов по счетам на основе истории предыдущих покупок - чтобы оставалось только вписывать суммы по статьям по которым был расход с этого счета ранее
12. Zixi 07.08.17 10:24 Сейчас в теме
Отличная статья! Для начала работы в 1С - очень даже хорошо: просто, понятно и доступно.
Хотелось бы увидеть завершение работы с Бюджетом.
13. Altair777 640 07.08.17 11:31 Сейчас в теме
Сильно сомневаюсь, что подобный подход поможет стать программистом. Сидеть и тыкать в кнопочки по инструкции - это отнюдь не программирование.
14. Craig 265 09.09.17 15:11 Сейчас в теме
(0) Респект, хорошая конфа, красивая структура. "+".

Вот только увидел ошибку в отчете "Движение денежных средств по кошелькам" - начальное сальдо не правильно выводится. Остатки (без регистратора) и обороты (с регистратором) надо получать отдельно и через "ОБЪЕДИНИТЬ ВСЕ" выводить.
15. user1315279 22.11.19 23:24 Сейчас в теме
я вот вообще только начал пользоваться 1С , и мне надо подобная конфигурация , но так что бы я мог сам что то изменить , подредактировать и так далее . Автор так полностью расписал свои действия , что мне очень помогает , но всё равно так тяжело когда не знаешь структуру , и парралельно думаешь , а как это переделать под себя , ведь немного всё таки есть отличия . Спасибо Автору
Оставьте свое сообщение

См. также

Безопасная работа с транзакциями во встроенном языке Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Разбираемся с опасностями использования транзакций во встроенном языке 1С. Познаем ошибку "В данной транзакции уже происходили ошибки". Учимся защищаться от них.

1 стартмани

25.03.2019    34428    tormozit    44    

Загрузка, скачивание, удаление файлов с помощью НачатьПомещениеФайлаНаСервер() и НачатьПолучениеФайлаССервера()

Практика программирования v8 1cv8.cf Абонемент ($m)

В платформе 8.3.15 появились новые методы НачатьПомещениеФайлаНаСервер() и НачатьПолучениеФайлаССервера(). В данной статье рассмотрено готовое решение проверенное и прекрасно работающее на тонком и веб-клиенте.

1 стартмани

25.07.2020    2531    Flashill    10    

Параллельные вычисления расчета факториала числа N

Практика программирования v8 1cv8.cf Абонемент ($m)

Распараллеливание алгоритма с помощью фоновых заданий (асинхронные вычисления)

1 стартмани

29.06.2020    2481    Rustig    17    

Универсальная печатная форма Приказа/Договора с возможностью настройки макета в пользовательском режиме

Практика программирования Универсальные печатные формы v8 1cv8.cf Абонемент ($m)

В данной статье я опишу реализацию универсальной (в кавычках) печати Приказа (Договора или чего пожелаете) с возможностью настройки выводимого текста с параметрами из пользовательского режима

1 стартмани

24.06.2020    1234    BuriyLesha    0    

Как выполнить отчет на СКД через COM и получить данные отчета? Промо

Практика программирования v8 УПП1 Россия Абонемент ($m)

Для чего это нужно. Например, нужно в одной базе получить какой-либо показатель из другой базы. Этот показатель вычисляется в каком-либо сложном отчете, который написан на СКД. Можно, конечно, "скопипастить" текст запроса из другой базы, немного подправить его и выполнять в том же COM подключении. Но с этим теряется гибкость: если отчет изменился, то нужно помнить о том, что где-то есть его "немного модифицированная" копия. В статье будет рассмотрен пример получения данных из базы ЗУП.

2 стартмани

08.05.2018    26979    wowik    3    

Методика обновления формы объекта данных при изменении объекта

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

В формах объектов данных часто встречаются элементы, косвенно связанные с объектом. Логику обновления этих элементов при изменении объекта обычно вызывают из обработчиков ПриСозданнииНаСервере и ПриОткрытии, забывая про наличие других способов изменения объекта. В статье предложена методика для обычных и управляемых форм, учитывающая все способы.

1 стартмани

09.03.2020    7614    tormozit    13    

Отправка уведомлений с помощью командной строки, Оповещения с сервера на клиент с помощью командной строки

Практика программирования v8 1cv8.cf Россия Абонемент ($m)

Отправка уведомлений с помощью команды командной строки msg. Оповестить пользователей из серверного модуля или регламентного задания, с помощью командной строки msg.

1 стартмани

05.03.2020    5514    user5300    3    

Вывод сообщений в HTML поле средствами 1С

Практика программирования v8 v8::УФ Абонемент ($m)

Пример использования вывода большого количества сообщений в поле HTML. С возможностью открывать ссылочные объекты и создавать новые объекты передавая параметры прямо из HTML поля. Протестировано на релизах 8.3.12 и 8.3.15+

2 стартмани

31.01.2020    5641    burni4    16    

Как нарисовать граф на 1С Промо

Практика программирования v8 Абонемент ($m)

Описывается реализация на языке запросов 1С метода расположения вершин графа на плоскости, основанного на использовании электромеханической аналогии. При этом вершины графа представляются одноименными электрическими зарядами, дуги - пружинками. Силы взаимодействия вершин в этой системе переводят их из случайного начального в нужное конечное положение. Приведена обработка рисования графов "ГрафОграф", реализующая данный подход, показывающая также динамику процесса. Граф можно задать списком ребер вручную, выбрать из нескольких предопределенных примеров или сформировать по данным информационной базы.

1 стартмани

09.08.2013    70266    ildarovich    117    

Краткое руководство по внесению изменений в конфигурацию

Практика программирования v8 1cv8.cf Абонемент ($m)

Кратко описаны основополагающие моменты при старте групповой разработки конфигурации несколькими программистами. Полезно для проектной документации как требование к разработчикам или сопровождающей компании.

1 стартмани

13.01.2020    16781    sapervodichka    41    

Универсальные функции: разложение произвольной строки адреса в структуру

Практика программирования Универсальные функции v8 1cv8.cf Абонемент ($m)

Процедуры и функции раскладывают произвольную строку адрес в структуру по ключевым словам.

1 стартмани

30.12.2019    3580    vik070777    10    

"Живые" картинки со Snap.SVG

Практика программирования WEB Работа с интерфейсом v8 Абонемент ($m)

В статье рассмотрен пример использования http-сервисов для визуализации данных

1 стартмани

24.10.2019    13349    blackhole321    7    

Простой способ индексирования интервалов Промо

Практика программирования v8 Абонемент ($m)

Предлагается простой способ индексирования интервалов для решения задач выборки записей, включающих заданный момент времени, пересекающихся с заданным интервалом или множеством интервалов. Способ основан на добавлении к исходной таблице особого числового индексированного поля, рассчитываемого по специальной формуле. Приведен код функций, необходимых для расчетов поля поиска и параметров поисковых запросов. Приведены также результаты тестирования метода, доказывающие его высокую эффективность.

1 стартмани

28.09.2016    39338    ildarovich    22    

RLS - дубли условий в запросах к СУБД

Практика программирования Роли и права v8 v8::Права 1cv8.cf Абонемент ($m)

"Подводные камни", возникающие при бездумном копировании ролей с ограничениями RLS, как это отражается на производительности, разбор примера и инструмент для анализа.

1 стартмани

07.10.2019    8366    geron4    4    

Полезные процедуры и функции для программиста

Практика программирования Универсальные функции v8 1cv8.cf Россия Абонемент ($m)

Все мы пишем программный код и часто используем процедуры, облегчающие его написание. Ниже приведена выборка таких полезных процедур и функций.

07.10.2019    29523    HostHost    40    

Полное копирование одной формы в другую

Практика программирования Универсальные обработки Работа с интерфейсом v8 1cv8.cf Абонемент ($m)

Однажды я столкнулся с необходимостью открыть форму ЛЮБОГО документа с определенными изменениями, не зависящими от структуры объекта (например, заблокировать все кнопки). В интернете решения я не нашел. Обычно на форумах на запросы подобного рода отвечают чем-то вроде "покажи первоначальную задачу, а не спрашивай как реализовать то, что ты придумал". Тем не менее, мне стало интересно, как это можно сделать.

1 стартмани

03.10.2019    4882    nekit_rdx    23    

Бесплатная проверка контрагентов в ФНС (общий модуль с алгоритмом). На примере выводим статус в список справочника контрагентов Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Если вам интересно проверить контрагенте в ФНС, вам поможет данная публикация. Весь алгоритм работы строится на основе данных, полученных с сервиса http://npchk.nalog.ru совершенно бесплатно.

1 стартмани

01.02.2018    34914    rpgshnik    49    

Многопоточная обработка данных на примере перепроведения документов

Обработка документов Практика программирования v8 ERP2 УТ11 КА2 Абонемент ($m)

Дальнейшее развитие темы фоновой обработки данных - проведение документов в потоках. Настройка параметров и запуск основного процесса (менеджера потоков). Разбивка документов для проведения на не связанные друг с другом наборы и запуск дополнительных фоновых заданий для отдельных потоков. Отслеживание выполнения каждого потока в родительском сеансе.

1 стартмани

17.09.2019    8989    ids79    46    

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

Документооборот и делопроизводство Практика программирования v8 ДО Абонемент ($m)

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

1 стартмани

15.09.2019    6700    pavelpribytkin96    8    

Описание формата внутреннего представления данных 1С в контексте обмена данными

Практика программирования Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

Фирма 1С не рекомендует использовать внутреннее представление данных для любых целей, которые отличны от обмена с 1С:Предприятием 7.7. Но сама возможность заглянуть на "внутреннюю кухню" платформы с помощью функций ЗначениеВСтрокуВнутр(), ЗначениеВФайл(), ЗначениеИзСтрокиВнутр() и ЗначениеИзФайла(), дала возможность сообществу программистов 1С разработать новые приемы разработки и анализа. Так, именно на использовании внутреннего представления был построен алгоритм "быстрого массива", который позволяет практически мгновенно создать массив в памяти на основании строки с разделителями. С помощью разбора внутреннего представления можно "на лету" программным кодом выполнить анализ обычной формы и даже сделать редактор графической схемы. Во внутреннем формате сохраняют свои данные между сеансами различные популярные внешние обработки. А еще это возможность сделать быстрый обмен с внешними системами.

1 стартмани

06.09.2019    19188    Dementor    30    

БСП: Дополнительная обработка (Регламенты), примеры от простого к сложному Промо

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

Очень много попадается странных решений, которые можно решить через БСП:Дополнительные отчеты и обработки. Я бы вообще БСП из-за этой подсистемы переименовал в «Большое Спасибо Программистам». Поработаем с подсистемой в части написания регламентных заданий.

1 стартмани

10.05.2018    44353    dsdred    36    

Удобный просмотр результата запроса с большим количеством временных таблиц

Практика программирования v8 Абонемент ($m)

Если Вам часто приходится просматривать в отладчике сложные пакетные запросы с большим количеством временных таблиц, то эта статья для Вас.

1 стартмани

27.08.2019    10764    ids79    21    

Запуск фонового задания во внешней обработке. Отключение предупреждений защиты от опасных действий в фоновом задании

Практика программирования v8 1cv8.cf Абонемент ($m)

Как запустить фоновое задание из модуля внешней обработки используя БСП. Как отключить безопасный режим и сообщения защиты от опасных действий независимо от профиля безопасности пользователя в фоновом задании во внешней обработке.

2 стартмани

24.08.2019    10439    BenGunn    22    

Изменяющееся контекстное меню в 1С 8.3

Практика программирования Работа с интерфейсом Разработка v8 v8::УФ Абонемент ($m)

В одной практической задаче мне пришлось разрабатывать контекстное меню таблицы управляемой формы, которое должно было меняться в зависимости от данных, находящихся в этой таблице. Ниже приведен мой способ решения этой задачи.

1 стартмани

06.08.2019    15366    signum2009    16    

Некоторая работа с данными через COM Промо

Практика программирования v8 Абонемент ($m)

В статье приведены примеры работы с Платформой 8.X через COM (точнее, через объект COMConnector). Примеры кода были использованы при реализации прикладных задач в процессе трудовой деятельности.

2 стартмани

05.12.2012    57308    wowik    32    

Процедура ПриКомпоновкеРезультата

Практика программирования v8 1cv8.cf Абонемент ($m)

Коллекция кода

1 стартмани

26.07.2019    37383    vasilev2015    64    

10 способов получить модуль числа (а может, и больше)

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Пишем функцию вычисления модуля числа. Сколько способов существует? Давайте посчитаем!

1 стартмани

11.07.2019    7953    sam441    29    

Ловец дедлоков СУБД

Производительность и оптимизация (HighLoad) Практика программирования Разработка v8 Россия Абонемент ($m)

Анализ простейшего дедлока СУБД в рабочей базе с использованием ЦУП (центра управления производительностью) и profiler MS SQL (Microsoft SQL Server). Эта статья будет полезна людям, изучающим вопросы оптимизации работы 1С, или тем, у кого возникают дедлоки в рабочей базе. UPD 09.07.2019 добавлено воспроизведение блокировки в случае установки управляемой блокировки перед чтением набора записей регистра сведений. UPD 10.07.2019 добавлена тестовая база с примером.

1 стартмани

08.07.2019    10957    azazana    79    

Работа со схемой запроса Промо

Инструментарий разработчика Практика программирования v8 v8::Запросы Абонемент ($m)

Стандартом взаимодействия с реляционной базой данных стал язык SQL. Приемником SQL в 1С является язык запросов. Язык запросов, также как и SQL, является структурированным. Составляющие структуры запроса отвечают на разные вопросы о том, какие данные требуется получить и какие манипуляции с множествами данных необходимо произвести при получении. В простых случаях текст запроса можно написать вручную, однако в сложных случаях, а также при программном формировании, - лучше воспользоваться объектной моделью запроса и использовать объект "Схема запроса". В статье дается описание объектной модели и особенностей работы с ней, а также приводится решение, упрощающее взаимодействие с объектом "Схема запроса".

1 стартмани

24.04.2018    43632    kalyaka    35    

Мониторинг производительности и искусственный интеллект

Производительность и оптимизация (HighLoad) Практика программирования Разработка v8 Абонемент ($m)

Расскажем и покажем практически, как использовать искусственный интеллект на страже мониторинга производительности. У вас появится возможность создать собственного помощника Ларису, которая возьмет на себя вопросы по контролю и диагностике состояния обслуживаемой системы.

1 стартмани

01.07.2019    9150    ivanov660    28    

"Убер на складе": динамический расчет маршрутов с учетом реальных расстояний

Учет ТМЦ Практика программирования Учет ТМЦ v8 УУ Абонемент ($m)

Представляю методику и инструмент для динамического расчета маршрутов отбора на высоконагруженных складах для максимального повышения эффективности склада, ускорения проходимости и, как следствие, экономии денег. Это методика и обработка для интеграции в WMS решения. Тестировалось на 1С 8.3.14.1565.

3 стартмани

24.06.2019    15296    informa1555    17    

1С:Ассемблер. Немного летнего веселья!

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Все вы, наверное, слышали, что 1С-ники жалуются на свою систему, считая язык 1С недостаточно низкоуровневым, скучным и т.п. Все они с тоской поглядывают в сторону "настоящих" языков программирования. Так вот, господа, они неправы. В системе 1С есть места, где можно размять программерский мозг и получить удовольствие от низкоуровневой техники. Предлагаю вам погрузиться в недра виртуальной машины 1С и понять, как она работает. Там есть свой "ассемблер" и мы попробуем его в действии!

1 стартмани

21.06.2019    28705    Evil Beaver    126    

Многопоточность. Универсальный «Менеджер потоков» (фреймворк) с отслеживанием зависимости объектов Промо

Практика программирования Математика и алгоритмы Универсальные функции Производительность и оптимизация (HighLoad) v8 1cv8.cf Россия Абонемент ($m)

Восстановление партий, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

26.05.2017    48897    DarkAn    86    

Простые примеры сложных отчетов на СКД

Практика программирования v8 v8::СКД 1cv8.cf Абонемент ($m)

Подписи в отчете. Особенности соединения наборов: как соединить несоединяемое. Остатки на дату и обороты по месяцам в одном отчете. Курс валюты на каждую дату без группировок и соединений в запросе. Отчет с произвольными колонками и с произвольной последовательностью. "Неадекватный отчет".

1 стартмани

12.06.2019    29438    Hatson    31    

Графики работы из БСП

Практика программирования Разработка v8 1cv8.cf Россия Абонемент ($m)

Не очень давно на канале 1С:БСП была опубликована заметка по использованию Графиков работы и Календарных графиков.

1 стартмани

23.05.2019    3172    fenixnow    0    

Создание внешней печатной формы в формате документа Word

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В статье написано, как создать внешнюю печатную форму (для конфигураций с БСП) в формате Word.

1 стартмани

17.05.2019    13073    ВикторП    21    

Новый запрос и новая таблица значений как функции Промо

Практика программирования v8 Абонемент ($m)

Предлагается две простые функции, использование которых уменьшает объем кода в конфигурациях на платформе «1С:Предприятие 8». Эти функции можно добавлять к своему общему модулю, что сделает процесс программирования более эффективным.

1 стартмани

27.11.2012    45145    ildarovich    46    

Пример настройки шаблонов и реализации печати отчетов в документ MS Word используя функциональную часть "Библиотеки Стандартных Подсистем 1С" (БСП)

Практика программирования Разработка v8 Россия Абонемент ($m)

В конфигурации выбраны и использованы только необходимые объекты библиотеки стандартных подсистем для реализации вывода отчёта, с табличными частями, в документ MS Word. Показан пример создания необходимых областей в шаблоне для вывода параметров в отчёт.

1 стартмани

23.04.2019    6073    olegpkc    11    

Ops средствами 1С:Предприятие

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В статье описан программный пакет "Автоматизация ИТ-процессов" (АИТП), позволяющий автоматизировать задачи по администрированию, управлению и обслуживанию ИТ-инфраструктуры.

1 стартмани

23.04.2019    17295    blackhole321    28    

1C + Python + Django Rest Framework + Vue.js. Опыт несложной full-stack разработки

Практика программирования Внешние источники данных Обмен через XML WEB Разработка v8 1cv8.cf Абонемент ($m)

В этой статье мы рассмотрим путь и основные моменты создания небольшого вэб-сервиса, который мы называем "Онлайн Прайс-лист". Выгрузка из 1С, бэкенд, фронтенд, получение заказов в 1С.

1 стартмани

22.04.2019    32640    riposte    65    

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

Практика программирования v8 1cv8.cf Абонемент ($m)

В продолжение публикации «Транзитивное замыкание запросом» [http://infostart.ru/public/158512/] добавлены другие варианты использования того же приема. Приведены запросы для быстрого определения уровней всех элементов справочника, максимальной глубины справочника, прародителей произвольных элементов справочника, запрос для быстрого определения циклов (на примере справочника спецификаций «1С:Управление производственным предприятием») и определения множеств аналогов номенклатуры (также на примере конфигурации «1С:Управление производственным предприятием»).

1 стартмани

13.11.2012    111504    ildarovich    98    

Вывод вариантов СКД в таблицы на управляемой форме

Практика программирования Работа с интерфейсом v8 v8::УФ v8::СКД 1cv8.cf Абонемент ($m)

Задача стояла такая: есть 2 различных запроса, результаты которых выгружаются на форму обработки в таблицы значений (далее ТЗ) и программно "соприкасаются" между собой определенным образом (как именно- в рамках данной статьи неважно). Нюанс в том, что запросы должны иметь свой компоновщик настроек и могут интерактивно на форме изменяться пользователем. На оригинальность публикации не претендую - изначально в рамках поставленной задачи пытался найти что-то подобное (уже готовый шаблон) на инфостарте, возможно "плохо искал" ;)

05.04.2019    10986    artkor    1    

Функциональное программирование в 1С

Практика программирования Математика и алгоритмы Разработка v8 1cv8.cf Абонемент ($m)

Статья о функциональном программировании в 1С. Добавляем новые возможности. Пример передачи функций в качестве аргумента.

1 стартмани

28.03.2019    8293    alexey.kutya    26    

[EnterpriseData] Антисвертка характеристик номенклатуры при выгрузке в Бухгалтерию

Практика программирования Перенос данных из 1C8 в 1C8 Разработка v8 v8::ПВХ КД УНФ БП3.0 Россия БУ Абонемент ($m)

Рассмотрена выгрузка каждой пары значений Номенклатура - Характерстика из УНФ 1.6 в отдельную номенклатуру в Бухгалтерию 3.0 путём доработки правил обмена в формате EnterpriseData.

1 стартмани

27.03.2019    4538    nforce    5    

Неоплаченные долги при распределении оплаты по правилу ФИФО одним запросом и намного быстрее, чем Вы думали Промо

Практика программирования Дебиторская и кредиторская задолженность Дебиторская и кредиторская задолженность v8 v8::СКД КА1 УТ10 УПП1 УУ Абонемент ($m)

Предлагается метод для быстрого нахождения неоплаченных долгов при распределении оплаты по правилу ФИФО, основанный на дихотомии. Описывается реализация метода в виде достаточно простого запроса, решающего за линейное время указанную задачу, считавшуюся ранее существенно более трудоемкой. Приводятся примеры использования запроса в отчетах на СКД для конфигураций УТ, КА, УПП.

1 стартмани

28.02.2014    68106    ildarovich    125    

Интеграция 1С и SharePoint

Практика программирования Разработка v8 УНФ ДО ERP2 БП3.0 УТ11 УХ КА2 Россия Абонемент ($m)

Заказчики поставили задачу автоматизации согласования заявок на оплату в программе 1С:Бухгалтерия предприятия 3.0. Согласно ТЗ, данные должны подтягиваться из действующей электронной системы документаоборота на MS SharePoint (в дальнейшем СЭД MS SP).

1 стартмани

22.03.2019    5326    -I-    4    

Легкий "тюнинг" УТ 10.3

Практика программирования Разработка v8 v8::ОУ УТ10 Россия УУ Абонемент ($m)

Вариант программной реализации изменения форм типовых объектов для конфигурации Управление торговлей 10.3.

1 стартмани

15.03.2019    4344    pm74    6    

Пример использования СКД и данных расшифровки на мобильной платформе

Практика программирования Разработка v8 v8::Mobile v8::СКД 1cv8.cf Россия Абонемент ($m)

СКД в мобильном приложении и меню действий на основе данных расшифровки (отчет, совместимый с мобильной платформой 8.3.13.45).

1 стартмани

12.03.2019    5479    majoram    0    

Транзитивное замыкание запросом Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

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

1 стартмани

29.10.2012    84795    ildarovich    118    

Программное создание реквизита управляемой формы с помощью механизма расширений

Практика программирования Разработка v8 v8::УФ 1cv8.cf Абонемент ($m)

В ЗУП 3 возникла задача добавить реквизит в справочник не внося изменений в конфигурацию. БСП с механизмом дополнительных реквизитов использовать было нежелательно, поэтому был использован механизм расширений. Для вывода данного реквизита на форму добавлять саму форму в расширение не хотелось по ряду причин, описанных ниже. Создание реквизита и элемента формы, соответствующего данному реквизиту было решено сделать программно в самом расширении, следуя принципу минимального воздействия на конфигурацию.

1 стартмани

12.03.2019    34776    ni_cola    31    

Иерархия библиотек. Автоматическое обновление или как отказаться от переопределяемых модулей

Практика программирования Математика и алгоритмы Разработка v8 Абонемент ($m)

В статье рассмотрен один из вариантов библиотечного подхода к разработке, позволяющий организовать иерархический вызов библиотечных процедур и упростить автоматическую сборку готового продукта из нескольких библиотек. Предлагаемый подход может служить одним из элементов CI/CD при разработке ПО на платформе 1С.

1 стартмани

04.03.2019    5711    Alxby    4    

Асинхронная работа с текстовыми файлами в 1С 8.3

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

В этой статье я рассмотрю основные моменты работы с текстовым файлом в 1С 8.3. (загрузка - выгрузка) в режиме отключенной модальности (асинхронно).

1 стартмани

28.02.2019    7319    signum2009    6