P Anton

89
Рейтинг

luser



  •   Регистрация: 06.04.2009 (15 лет назад)

  •   Был(а) на сайте: 04.04.2024

Подписчики 3

Группы

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

Премиум-аккаунт 2017 (Автоматизатор) (до 13.08.2024 17:57:00)

Карта покупателя SILVER

Рейтинг 89

Справка о средней заработной плате

Отчеты и формы Бухгалтер Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 2.5 Россия Бесплатно (free) Внешняя обработка (ert,epf) Зарплата

Поправил кажется вот эту разработочку http://infostart.ru/public/19715/ чтобы работала в последних версиях ЗУП.

04.02.2010    19351    673    luser    9       

32

Комментарии

ОбменБьется кодировка DBF файла при открытии#1 14.01.24 19:23
Добрый день.

Помогите найти косяк.

Код
&НаКлиенте
Асинх Процедура ЗагрузитьФайл(Команда)
   
   ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов;
   ПараметрыДиалога.Заголовок = "Выберите файл";
   ПараметрыДиалога.Фильтр = "Реестр  (_*.dbf)|_*.dbf";
   ОписаниеФайла = Ждать ПоместитьФайлНаСерверАсинх(,,,ПараметрыДиалога);
   Если ОписаниеФайла <> Неопределено Тогда
      ПрочитатьDBFВТаблицуЗначений(ОписаниеФайла.Адрес);
   КонецЕсли;
   
   ПоказатьОповещениеПользователя("Обработка файла завершена!");
   
КонецПроцедуры                    

&НаСервере
Процедура ПрочитатьDBFВТаблицуЗначений(АдресДанных)
   
        НашеИмяФайла = Прав(ИмяФайлаБезРасширения,8)+".dbf";

   ПутьКФайлу = КаталогВременныхФайлов() + НашеИмяФайла;   
   Данные = ПолучитьИзВременногоХранилища(АдресДанных);
   Данные.Записать(ПутьКФайлу);

   Попытка
      ФайлDBF = Новый XBase;
//           ФайлDBF.Кодировка = КодировкаXBase.OEM;
           ФайлDBF.ОткрытьФайл(ПутьКФайлу,,Истина);  
//           Сообщить(ФайлDBF.Кодировка)
   Исключение
      Сообщение = Новый СообщениеПользователю;
      Сообщение.Текст = "Не удалось прочитать файл, по причине: " + ОписаниеОшибки();
      Сообщение.Сообщить();                                                        
      Возврат;
   КонецПопытки;

        ФайлDBF.Первая(); 

        Пока Не ФайлDBF.ВКонце() Цикл 
                Если Не ФайлDBF.ЗаписьУдалена() Тогда 
                КонецЕсли;
                ФайлDBF.Следующая();
        КонецЦикла;
   
   ФайлDBF.ЗакрытьФайл();

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


Файл изначально в кодировке OEM/DOS/CP866.
Когда через временное хранилище файл передаем на сервер (сервер 1С на Linux), то у файла бьется кодировка - кириллица не при каких вариантах не отображается корректно - получаем кракозябры.

Если dbf-файл открываем в файловом варианте базы с жесткого диска на клиенте - открывается нормально, кириллица корректна, все норм.
БУСверка движений документов и записей регистров#23 17.02.22 16:19
Не работает сравнение двух файлов, сразу валит ошибку

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

Сравнение_Error.jpg
БУРеестр прямых выплат ФСС в формате 1.7.6 вместо 1.7.7 для ЗУП и ЗГУ 3.1.14.394 и 3.1.16.133 (расширение)#9 11.02.21 13:07
на 3.1.14.395 работает только со снятой галкой "Безопасный режим"
ПубликацииВыгрузка сотрудников, их должностей и подразделений ЗУП 3.х -> БП 3.0 (в т.ч. по расписанию регламентно)#20 06.11.19 17:55
(18)
Из правил обмена удаляем
Код
               <Свойство>
                  <Код>12</Код>
                  <Наименование>УдалитьВидЗанятости --&gt; УдалитьВидЗанятости</Наименование>
                  <Порядок>600</Порядок>
                  <Источник Имя="УдалитьВидЗанятости" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗанятости"/>
                  <Приемник Имя="УдалитьВидЗанятости" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗанятости"/>
               </Свойство>

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

upd:
в регистре "Текущие кадровые данные сотрудников" записи создаются, если два раза произвести загрузку одного и того же файла, т.е. когда уже есть создался сотрудник, после этого регистр загружается...
ПубликацииВыгрузка сотрудников, их должностей и подразделений ЗУП 3.х -> БП 3.0 (в т.ч. по расписанию регламентно)#18 06.11.19 17:06
Ошибка получения значения свойства объекта (по имени свойства источника)
ПКО = Сотрудники (Справочник: Сотрудники)
ПКС = 12 (УдалитьВидЗанятости --> УдалитьВидЗанятости)
Объект = Иванова Лидия Ивановна (Сотрудник)
СвойствоПриемника = УдалитьВидЗанятости (ПеречислениеСсылка.ВидыЗанятости)
ОписаниеОшибки = Поле объекта не обнаружено (УдалитьВидЗанятости)
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(9657)
КодСообщения = 13


Ошибка при выгрузке данных: {Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(1335)}: Ошибка получения значения свойства объекта (по имени свойства источника)
ПКО = Сотрудники (Справочник: Сотрудники)
ПКС = 12 (УдалитьВидЗанятости --> УдалитьВидЗанятости)
Объект = Иванова Лидия Ивановна (Сотрудник)
СвойствоПриемника = УдалитьВидЗанятости (ПеречислениеСсылка.ВидыЗанятости)
ОписаниеОшибки = Поле объекта не обнаружено (УдалитьВидЗанятости)
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(9657)
КодСообщения = 13

Зарплата и управление персоналом, редакция 3.1 (3.1.11.133)
БУИнвентаризационная опись ОС (ИНВ-1) и товаров (ИНВ-3) без фактического наличия. БП 3.0#0 06.11.19 9:06
Стандартная форма ИНВ-1 и ИНВ-3, из которой убран вывод фактического наличия.
БУИнвентаризационная опись, Акт инвентаризации, Сличительная ведомость результатов инвентаризации, Приказ о проведении инвентаризации, Задание на пересчет товара. ИНВ-1, ИНВ-3, ИНВ-15, ИНВ-17, ИНВ-18, ИНВ-19, ИНВ-22. КА 2.4, ERP 2#9 05.11.19 19:22
(8)
Да, уже нашел свой косяк. В двух соседних вкладках было открыто ерп и БП, а скачал блин отсюда.

Лень было выдергивать из типовой конфы, но выдернуть оказало проще, чем перекачать )))