408
Рейтинг

jan-pechka
Щука Исключительная

Регистрация: 18.09.2016 (7 лет назад)
Был(а) на сайте: 22.04.2024

Друзья

Подписчики 49

Дополнительная информация

Группы

Профессиональный разработчик

Рейтинг 408

Шлюз-обмен между старой Больницей и новой. Выгрузка СЭМД для РЭМД
+2 –

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Здравоохранение, медицина, стоматология Абонемент ($m) Архив с данными Перенос данных 1C

Обмен 1С=1С: веб-сервис без собственного XDTO. Старые версии 1С:Больницы: 1С:Медицина.Больница версии 1.1.3.1 или 1С:Медицина.Больница версии 1.1.4.2 1С Платформа для старой версии 1С:Больница 8.3.20.1789. Современные версии 1С:Больницы: 1С:Медицина.Больница версии 2.0.12.16 или 1С:Медицина.Больница версии 2.0.14.1. 1С Платформа для новой версии 1С:Больница 8.3.22.1923 (и выше).

1 стартмани

09.04.2024 289 2 jan-pechka 1

Состав семьи по возрастам
+3 –

Отчеты и формы Бухгалтер Пользователь Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет Абонемент ($m) Внешний отчет (ert,erf) Кадровый учет

Отчет попросили сделать кадры. Типовой отчет кадров в ЗУП "Личные карточки сотрудника Т-2" - не дает возможность сформировать общие итоги по составу семьи.

1 стартмани

21.04.2023 2136 jan-pechka 1

Форма № ОН0001 (Приложение к приказу Минюста России от 30.09.2021 № 185) о деятельности некоммерческой организации и о персональном составе (за предшествующий год) для минЮста
+4 –

Отчеты и формы Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет Абонемент ($m) Внешний отчет (ert,erf) Регламентированный учет и отчетность

Отчет нужен бухгалтерам детсадов, больниц и других. В типовых программах (1С:Бухгалтерия и 1С:ЗУП) - этого отчета нет. Срок сдачи до 15 апреля. В отчете по фильтру "Вид занятости" - можно отобрать "Основное место работы", внутренних и внешних совместителей.

3 стартмани

19.04.2023 3314 13 jan-pechka 0

Изменение планового начисления -> меняем ВРЕДНОСТЬ на основании изменения штатного расписания
+7 –

Инструменты и обработки Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет Абонемент ($m) Расширение (cfe) Зарплата

Изменение вредности, полученной по СОУТ (специальная оценка условий труда). Тестировалась на ЗУП версии 3.1.24.308.

3 стартмани

11.04.2023 2284 3 jan-pechka 0

Разница начисленной амортизации ОС после изменения СПИ (ФСБУ 6/2020). БП 3.0
+2 –

Отчеты и формы Программист Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Абонемент ($m) Внешний отчет (ert,erf) Учет ОС и НМА

С января 2022 г, по приказу ФСБУ 6/2020 «Основные средства» и ФСБУ 26/2020 «Капитальные вложения»: Основные средства (ОС), первоначальная стоимость которых ниже 100т.р. - нужно перевести в материалы, а те ОС, которые выше 100р., но полностью (или почти) изношенные - нужно было пересчитать СПИ, полученную разницу амортизации после этого - разнести по 02 счету и затратным счетам. Тестировалось на 1С:Бухгалтерия 3 -> следующих версий: 1) 3.0.70.50; 2) 3.0.88.22; 3) 3.0.132.34 (актуальная на 2023 г.).

1 стартмани

06.04.2023 2541 8 jan-pechka 0

Удаление документов из базы на примере Сведений о застрахованных лицах в ФСС. ЗУП 3.1
+4 –

Инструменты и обработки Программист Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет ФОМС, ЕФС Абонемент ($m) Внешняя обработка (ert,epf) Чистка данных

Удаляем любой документ из любой базы 1С на примере данной простой внешней обработки. Разрабатывалась на ЗУП 3.1.20.36.

1 стартмани

29.07.2022 3042 6 jan-pechka 3

Анализ планового и фактически отработанного времени + праздничные и ночные часы + оклад по должности + суммы по видам начислений и удержаний. ЗУП 3.1
+20 –

Отчеты и формы Бухгалтер Пользователь Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет Управленческий учет Абонемент ($m) Внешний отчет (ert,erf) Зарплата Учет рабочего времени

Отчет "Анализ отработанного времени + Начисления и удержания по сотрудникам" для конфигурации для Зарплата и управление персоналом, редакция 3.1. Предназначен для сравнения фактического и планового времени (указанного в графиках сотрудников) по месяцам. В отчете, как в шахматке, есть суммы начислений и удержаний, а также тарифный оклад. Кроме того, отображаются ночные часы и часы работы в государственные праздники.

3 стартмани

12.07.2022 8908 73 jan-pechka 10

Конфигурация "Памятка" (Справка) для внедренцев и программистов 1С + бонус: реальная база знаний.
+26 –

Инструменты и обработки Программист Платформа 1С v8.3 Абонемент ($m) Архив с данными Инструментарий разработчика

Простая самописная база для хранения и памяти своих наработок по внедрению конфигураций 1С, а также памятка кода/конструкций языка 1С. +бонус: реальная база знаний внедренца1с за 2018г.

1 стартмани

08.02.2022 6944 47 jan-pechka 12

Отчет "Внешние совместители", как типовой отчет "Анализ зарплаты по сотрудникам". ЗУП 3.1
+3 –

Отчеты и формы Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Абонемент ($m) Архив с данными Зарплата

ЗУП: отчет "Внешние совместители", как типовой отчет "Анализ ЗП по сотрудникам" (этот типовой отчет также используется для отчета "Расчетный листок"), но написанный более просто и понятно, с реальными живыми регистрами ЗУПа). Плановики просили сделать этот отчет, чтобы контролировать расчеты в регламентном отчете П-4.

1 стартмани

21.01.2022 8762 16 jan-pechka 1

Обновление нетиповой конфигурации ЗУП одним махом через 19 релизов + решение глюков обновлений (памятка)
+16 –

Статья Программист Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 3.x Россия Бесплатно (free) Нет файла Обновление 1С

ЗУП начальный 3.1.13.188, ЗУП обновленный 3.1.20.36.

15.12.2021 5152 jan-pechka 9

Смотреть все

Поймала ошибку "Ошибка при вызове метода контекста (ПредставлениеКодаЛокализации)", "Ошибочное имя локализации 'ru1'" в конфигурации 1с.Больница 2.0, все вышеперечисленные методы не помогли...Оказалось, что в конфигураторе 2 языка с кодом: "ru" и "ru1" (второй-для санаторий), так вот когда при создании на сервере справочник "ЯзыкиПечатныхФорм" пытается заполнить в наименовании Название языка, то обрезает полное наименование и оставляет только первое слово= "Русский", в результате спр."ЯзыкиПечатныхФорм" становится неуникальным, а следовательно, везде, где он используется (н-р, в создании ПечатныхФорм) - будет возникать ошибка....
Чтобы устранить - создайте расширение, и откорректируйте общ.мод."МультиязычностьСервер":

Код
&Вместо("ПредставлениеЯзыка") Функция Язык_ПредставлениеЯзыка(КодЯзыка) Экспорт Если КодЯзыка= "ru1" Тогда Возврат "Русский санаторно курортный"; Иначе Представление = ПредставлениеКодаЛокализации(КодЯзыка); ЧастиСтроки = СтрРазделить(Представление, " ", Истина); ЧастиСтроки[0] = ТРег(ЧастиСтроки[0]); Представление = СтрСоединить(ЧастиСтроки, " "); Возврат Представление; КонецЕсли; КонецФункции

Код

&Вместо("ПредставлениеЯзыка")
Функция Язык_ПредставлениеЯзыка(КодЯзыка) Экспорт
   Если КодЯзыка= "ru1" Тогда
      Возврат "Русский санаторно курортный";
   Иначе
      Представление = ПредставлениеКодаЛокализации(КодЯзыка);
      ЧастиСтроки = СтрРазделить(Представление, " ", Истина);
      ЧастиСтроки[0] = ТРег(ЧастиСтроки[0]);
      Представление = СтрСоединить(ЧастиСтроки, " ");
      
      Возврат Представление;
   КонецЕсли;
КонецФункции

Обмен › Шлюз-обмен между старой Больницей и новой. Выгрузка СЭМД для РЭМД › #1 11.04.24 13:18

Обнаружилась ошибка: когда переносила свою обработку "моеШМД" в расширение, то в параметрах формы: Параметр с типом "справочник ШаблоныМедицинскихДокументов" -> превратился в тип строка...Обязательно нужно этот параметр вернуть в тип "справочник ШаблоныМедицинскихДокументов"

Прикрепленные файлы:

Ошибка_переноса в Расширение моего ШМД.png

Dev › Шаблоны медицинских документов (ШМД) для 1С: Медицина поликлиника › #14 09.04.24 13:35

(13)вот здесь подробно описала муки с РЭМДом

Dev › Задваиваются строки в отчете › #18 07.04.24 13:15

еще в СКД когда включена настройка "РасположениеИтогов"=Конец, то всегда задваиваются записи. Это глюк СКД.
Если поставить=Начало, то все ок

Обмен › Шлюз-обмен между старой Больницей и новой. Выгрузка СЭМД для РЭМД › #0 02.04.24 10:33

Обмен 1С=1С: веб-сервис без собственного XDTO.
Старые версии 1С:Больницы: 1С:Медицина.Больница версии 1.1.3.1 или 1С:Медицина.Больница версии 1.1.4.2
1С Платформа для старой версии 1С:Больница 8.3.20.1789.
Современные версии 1С:Больницы: 1С:Медицина.Больница версии 2.0.12.16 или 1С:Медицина.Больница версии 2.0.14.1.
1С Платформа для новой версии 1С:Больница 8.3.22.1923 (и выше).

Dev › Шаблоны медицинских документов (ШМД) для 1С: Медицина поликлиника › #12 14.02.24 7:43

(11)Напрямую. Подаете заявление в РЭМД и вперед. Главное, это чтобы 1с.Больница была 2 версии - там встроен уже механизм обмена с минздравом - > опубликовываете в Больнице 2.0 ее типовой http-сервис "ФедеральныеВебСервисы" и все - проходите тесты, которые задает тех.поддержка РЭМДа)) Мы тестовую среду РЭМДа прошли, сейчас ломаем голову над промышленной средой - там условие жесткой аппаратной защиты......Но в любом случае - 1с - это не промед - все решаемо))

Dev › Шаблоны медицинских документов (ШМД) для 1С: Медицина поликлиника › #10 02.02.24 13:18

(9)пока не нужно было...обычную обработку-ШМД с макетом "Протокол консультации(ред.3)" сделала и все. Для откатки в тестовой среде РЭМД этого достаточно.
Но в примерах обработокШМД есть код для вставки картинки:

Код
#Область РаботаСИзображениямиШМД &НаКлиенте Процедура ВставитьИзображение(Файл, ИмяФайла, Миме, ОписаниеФайла) Экспорт КонецПроцедуры &НаКлиенте Функция ПолучитьСписокИзображений() Экспорт Возврат Неопределено; КонецФункции &НаКлиенте Процедура УдалитьИзображение(Файл) Экспорт КонецПроцедуры Функция СтандартноеПрикреплениеИзображений() Экспорт Возврат Истина; КонецФункции #КонецОбласти

Код

#Область РаботаСИзображениямиШМД
&НаКлиенте
Процедура ВставитьИзображение(Файл, ИмяФайла, Миме, ОписаниеФайла) Экспорт
КонецПроцедуры
&НаКлиенте
Функция ПолучитьСписокИзображений() Экспорт
   Возврат Неопределено;
КонецФункции
&НаКлиенте
Процедура УдалитьИзображение(Файл) Экспорт
КонецПроцедуры

Функция СтандартноеПрикреплениеИзображений() Экспорт
   Возврат Истина;
КонецФункции
#КонецОбласти

А отрабатывает их сам механизм "ШаблоныМедицинских документов": сначала создает команду Картинок (это если в Проц.Оповещение передадите параметр Картинка), а потом сам же и отрабатывает, н-р, в общ.модуле ШаблоныМедицинскихДокументовПереопределяемыйКлиент:

Код
Процедура ОбработкаОповещения(Форма, ИмяСобытия, Параметр, Источник) Экспорт Если ИмяСобытия = ОповещенияФорм.ПослеДобавленияФайловКОбъекту() И Источник = Форма.ВладелецФормы И НЕ Форма.ШМДДеактивирован Тогда // из за различного интерфейса у веб-ШМД и обработок-ШМД Попытка СсылкаШМД = Форма.ШМД.Ссылка; Исключение СсылкаШМД = Форма.ШМДСсылка; КонецПопытки; Если ТипЗнч(Параметр) = Тип("Структура") И Параметр.Свойство("НовыеФайлы") Тогда НовыеФайлы_ = Параметр.НовыеФайлы; Если ТипЗнч(НовыеФайлы_) = Тип("Массив") И Истина = ШаблоныМедицинскихДокументов.ПолучитьПараметрОписанияШМД(СсылкаШМД, "ПрикреплениеИзображенийИФайлов") Тогда Для Каждого Файл_ Из НовыеФайлы_ Цикл Попытка ФайлОб_ = ШаблоныМедицинскихДокументовПоликлиника.ПолучитьИнформациюОФайле(Файл_); Форма.ВставитьИзображение( ФайлОб_.Идентификатор, ФайлОб_.ИмяФайла, ФайлОб_.МИМЕТип, ФайлОб_.Описание ); Исключение КонецПопытки; КонецЦикла; КонецЕсли; КонецЕсли; Если ТипЗнч(Параметр) = Тип("Структура") И Параметр.Свойство("УдаленныеФайлы") И Истина = ШаблоныМедицинскихДокументов.ПолучитьПараметрОписанияШМД(СсылкаШМД, "ПрикреплениеИзображенийИФайлов") Тогда УдаленныеФайлы_ = Параметр.УдаленныеФайлы; Если ТипЗнч(УдаленныеФайлы_) = Тип("Массив") Тогда Для Каждого Файл_ Из УдаленныеФайлы_ Цикл Попытка Форма.УдалитьИзображение( ШаблоныМедицинскихДокументовПоликлиника.ПолучитьИнформациюОФайле(Файл_).Идентификатор ); Исключение КонецПопытки; КонецЦикла; КонецЕсли; КонецЕсли; ИначеЕсли ИмяСобытия = ОповещенияФорм.ПослеЗаписиВОбработкеФормированиеМедицинскихДокументов() И Источник = Форма.ВладелецФормы И НЕ Форма.ШМДДеактивирован Тогда Если Не ЗначениеЗаполнено(Форма.ШМД.ИдентификаторДокумента) Тогда Форма.ШМД.ИдентификаторДокумента = Параметр.МД.Ссылка; КонецЕсли; Если ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Форма, "МедицинскийДокумент") И Не ЗначениеЗаполнено(Форма.МедицинскийДокумент) Тогда Форма.МедицинскийДокумент = Параметр.МД.Ссылка; КонецЕсли; // обновление назнчений и диагнозов в ШМД после записи документа Форма.СерверныйВызов("ПослеЗаписиВОбработке"); КонецЕсли; КонецПроцедуры

Код

Процедура ОбработкаОповещения(Форма, ИмяСобытия, Параметр, Источник) Экспорт
   
   Если ИмяСобытия = ОповещенияФорм.ПослеДобавленияФайловКОбъекту()
      И Источник = Форма.ВладелецФормы И НЕ Форма.ШМДДеактивирован
   Тогда
      // из за различного интерфейса у веб-ШМД и обработок-ШМД
      Попытка
         СсылкаШМД = Форма.ШМД.Ссылка;
      Исключение
         СсылкаШМД = Форма.ШМДСсылка;
      КонецПопытки;
   
      Если ТипЗнч(Параметр) = Тип("Структура") И Параметр.Свойство("НовыеФайлы") Тогда
         НовыеФайлы_ = Параметр.НовыеФайлы;
         
         Если ТипЗнч(НовыеФайлы_) = Тип("Массив") 
            И Истина = ШаблоныМедицинскихДокументов.ПолучитьПараметрОписанияШМД(СсылкаШМД, "ПрикреплениеИзображенийИФайлов")
         Тогда
            Для Каждого Файл_ Из НовыеФайлы_ Цикл
               Попытка
                  ФайлОб_ = ШаблоныМедицинскихДокументовПоликлиника.ПолучитьИнформациюОФайле(Файл_);
                  Форма.ВставитьИзображение(
                     ФайлОб_.Идентификатор, 
                     ФайлОб_.ИмяФайла,
                     ФайлОб_.МИМЕТип,
                     ФайлОб_.Описание
                  );
               Исключение
               КонецПопытки;
            КонецЦикла;
         КонецЕсли;
      КонецЕсли;

      Если ТипЗнч(Параметр) = Тип("Структура") И Параметр.Свойство("УдаленныеФайлы") 
         И Истина = ШаблоныМедицинскихДокументов.ПолучитьПараметрОписанияШМД(СсылкаШМД, "ПрикреплениеИзображенийИФайлов")
      Тогда
         УдаленныеФайлы_ = Параметр.УдаленныеФайлы;
         
         Если ТипЗнч(УдаленныеФайлы_) = Тип("Массив") Тогда
            Для Каждого Файл_ Из УдаленныеФайлы_ Цикл
               Попытка
                  Форма.УдалитьИзображение(
                     ШаблоныМедицинскихДокументовПоликлиника.ПолучитьИнформациюОФайле(Файл_).Идентификатор
                  );
               Исключение
               КонецПопытки;
            КонецЦикла;
         КонецЕсли;
      КонецЕсли;

   ИначеЕсли ИмяСобытия = ОповещенияФорм.ПослеЗаписиВОбработкеФормированиеМедицинскихДокументов() 
      И Источник = Форма.ВладелецФормы И НЕ Форма.ШМДДеактивирован
   Тогда
      Если Не ЗначениеЗаполнено(Форма.ШМД.ИдентификаторДокумента) Тогда
         Форма.ШМД.ИдентификаторДокумента = Параметр.МД.Ссылка;
      КонецЕсли;
      
      Если ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Форма, "МедицинскийДокумент")
         И Не ЗначениеЗаполнено(Форма.МедицинскийДокумент)
      Тогда
         Форма.МедицинскийДокумент = Параметр.МД.Ссылка;
      КонецЕсли;
      
      // обновление назнчений и диагнозов в ШМД после записи документа
      Форма.СерверныйВызов("ПослеЗаписиВОбработке");
   КонецЕсли;

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

Dev › Шаблоны медицинских документов (ШМД) для 1С: Медицина поликлиника › #8 24.01.24 14:33

Когда устанавливается дистрибутив 1с.Больница, то в папочку складываются готовые от 1с-разработчиков все возможные виды ШМД, на их основе проще разработать/доработать свой ШМД.
C:\Users\Пользователь\AppData\Roaming\1C\1cv8\tmplts\informed\hospital\2_0_8_1\ExtFiles\ПримерыШМД
в архиве ниже,например, примеры ШМД для профОсмотров

Прикрепленные файлы:

ШМД для профосмотров.rar

Dev › Как найти значение в перечислении › #17 17.01.24 13:35

(7) можно не только по имени, а и по "Порядок". Например у меня в обоих базах, стоящих в обменке, Перечисление СтатусыУслуг имеет очень большой перечень данных и неудобно эти Наименования в запросе перебирать, запихивая их в строку, а вот Порядок данного перечисления и в той и в другой базе одинаковый, сл.передаю этот Порядок(число), а в принимающей базе - просто по этому порядку (он же Индекс)- получаю ссылку на нужное значение перечисления:

Код
новСтр.ИсходныйСтатус=Перечисления.СтатусыУслуг.Получить(стр.ИсходныйСтатусПорядок);

Dev › Обновил версию с 8.2.10.77 на 8.2.10.82 веб-клиент выдает ошибку › #12 10.01.24 11:35

я переносила базу на другой сервер и забыла в файле vrd прописать новый сервер, вот он к старому и ломился))

408 Рейтинг

jan-pechka Щука Исключительная

Рейтинг 408

Комментарии

408
Рейтинг

jan-pechka
Щука Исключительная