98
Рейтинг

! Изменена 05.04.2011 - убран раздел "Итого" Справка о сумме заработной платы, иных выплат и вознаграждений, на которую были начислены страховые взносы на обязательное социальное страхование на случай временной нетрудоспособности и в связи с материнством, за два календарных года, предшествующих году прекращения работы (службы, иной деятельности) или году обращения за справкой, и текущий календарный год (внешняя печатная форма): Изменения, согласно утвержденной форме - Приложение № 1 к приказу Минздравсоцразвития от 17.01.2011 № 4н.

1 стартмани

24.03.2011 14755 194 sempaii 5

Новая форма 2-НДФЛ (2010 г.) для ЗиУП 2.5.х (на платформе 8.1)
+13 –

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

Сотрудники уже просят справки 2-НДФЛ? А 1С выпустит обновление только в конце января. Некоторые банки УЖЕ не принимают старые формы... Внешняя печатная форма - выход из ситуации.

1 стартмани

21.01.2011 14004 352 sempaii 6

Расчетный листок с расшифровкой по регистратору и подсчетом количества листков (для ЗУП и УПП на платформе 8.2)
+29 –

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

1 стартмани

26.11.2010 30571 364 sempaii 12

Внешняя печатная форма Т-60 (Записка-расчет о предоставлении отпуска работнику)
+11 –

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

Внешняя печатная форма Т-60, идентичная 1С, с небольшим изменением - добавлено ФИО бухгалтера, подставляется из Ответственного лица. Предназначена для использования из документа "Начисление отпуска сотрудникам организации" в конфигурации 1С:Зарплата и управление персоналом 8.1

1 стартмани

09.07.2010 21247 187 sempaii 4

Автоматическое дозаполнение документа "Ввод распределения основного заработка сотрудников организации" до 100%
+7 –

Инструменты и обработки Для всех Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 2.5 Абонемент ($m) Внешняя обработка (ert,epf) Зарплата Мастера заполнения

Обработка табличной части "Распределение основного заработка" документа "Ввод распределения основного заработка сотрудников организации".

1 стартмани

07.07.2010 15078 77 sempaii 1

Отчет: профсоюзное членство.
+7 –

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

Отчет: профсоюзное членство - с анализом в разрезе возраста, пола, для статистического отчета Форма №2, утвержденной постановлением Исполкома ФНПР от 28-08-2002. Отдельно отчет в разрезе отделов

1 стартмани

15.04.2010 14877 55 sempaii 7

Смотреть все

Цитата
&НаСервереБезКонтекста Процедура УстановитьКонтактнуюИнформацию(ЗагружаемыйОбъект, Вид, Знач Представление) Если ПустаяСтрока(Представление) Тогда Возврат; КонецЕсли; СтруктураПоиска = Новый Структура("Вид", Вид); СтрокиСуществующейКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.НайтиСтроки(СтруктураПоиска); Если СтрокиСуществующейКИ.Количество() > 0 Тогда ЗагружаемыйОбъект.КонтактнаяИнформация.Удалить(СтрокиСуществующейКИ[0]); КонецЕсли; УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию( ЗагружаемыйОбъект, Представление, Вид); КонецПроцедуры

&НаСервереБезКонтекста
Процедура УстановитьКонтактнуюИнформацию(ЗагружаемыйОбъект, Вид, Знач Представление)

Если ПустаяСтрока(Представление) Тогда
Возврат;
КонецЕсли;

СтруктураПоиска = Новый Структура("Вид", Вид);
СтрокиСуществующейКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.НайтиСтроки(СтруктураПоиска);
Если СтрокиСуществующейКИ.Количество() > 0 Тогда
ЗагружаемыйОбъект.КонтактнаяИнформация.Удалить(СтрокиСуществующейКИ[0]);
КонецЕсли;

УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(
ЗагружаемыйОбъект,
Представление,
Вид);

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

Проверил на свежем примере этот код, всё заполнилось корректно, кроме одного поля ВидДляСписка - оно осталось пустое.

Обмен › Загрузка данных из табличного документа (поддержка дополнительных реквизитов, контактной информации) › #91 09.11.22 14:05

Ещё небольшое добавление, надо добавить СтрокаКИ.ВидДляСписка.

СтрокаКИ.Представление = Представление;
СтрокаКИ.Вид = Вид;
СтрокаКИ.ВидДляСписка = Вид;
СтрокаКИ.Тип = СтрокаКИ.Вид.Тип;

Обмен › Загрузка данных из табличного документа (поддержка дополнительных реквизитов, контактной информации) › #90 09.11.22 12:37

В ЗУП 3.1.23.165 загружал информацию по мобильным телефонам с помощью вашей обработки. Формат контактной информации отличается, поэтому внёс исправления:

Код
&НаСервереБезКонтекста Процедура УстановитьКонтактнуюИнформацию(ЗагружаемыйОбъект, Вид, Знач Представление) СтруктураПоиска = Новый Структура("Вид", Вид); СтрокиСуществующейКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.НайтиСтроки(СтруктураПоиска); Если СтрокиСуществующейКИ.Количество() > 0 Тогда СтрокаКИ = СтрокиСуществующейКИ[0]; Иначе СтрокаКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.Добавить(); КонецЕсли; Если ПустаяСтрока(Представление) Тогда ЗагружаемыйОбъект.КонтактнаяИнформация.Удалить(СтрокаКИ); Возврат; КонецЕсли; СтрокаКИ.Представление = Представление; СтрокаКИ.Вид = Вид; СтрокаКИ.Тип = СтрокаКИ.Вид.Тип; //СтрокаКИ.ЗначенияПолей = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(СтрокаКИ.Представление, СтрокаКИ.Вид); Адрес = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(СтрокаКИ.Представление, СтрокаКИ.Тип); СтрокаКИ.Значение = Адрес; СтрокаКИ.ЗначенияПолей = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВXML(Адрес, СтрокаКИ.Представление, СтрокаКИ.Тип); XDTOКонтактная = УправлениеКонтактнойИнформациейЛокализация.КонтактнаяИнформацияИзXML(СтрокаКИ.ЗначенияПолей, СтрокаКИ.Тип, ); Если СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Или СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Факс Тогда СтрокаКИ.НомерТелефона = УбратьРазделителиВНомерТелефона(XDTOКонтактная.Представление); СтрокаКИ.НомерТелефонаБезКодов = УбратьРазделителиВНомерТелефона(XDTOКонтактная.Состав.Номер); ИначеЕсли СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда СтрокаКИ.Страна = XDTOКонтактная.Состав.Страна; Если XDTOКонтактная.Состав.Состав <> Неопределено И ТипЗнч(XDTOКонтактная.Состав.Состав) <> Тип("Строка") Тогда СтрокаКИ.Регион = XDTOКонтактная.Состав.Состав.СубъектРФ; СтрокаКИ.Город = XDTOКонтактная.Состав.Состав.Город; КонецЕсли; ИначеЕсли СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда СтрокаКИ.АдресЭП = XDTOКонтактная.Состав.Значение; ПозицияСобаки = Найти(XDTOКонтактная.Состав.Значение, "@"); Если ПозицияСобаки <> 0 Тогда СтрокаКИ.ДоменноеИмяСервера = Сред(XDTOКонтактная.Состав.Значение, ПозицияСобаки + 1); КонецЕсли; КонецЕсли; КонецПроцедуры // Убирает разделители в номере телефона. // // Параметры: // НомерТелефона - Строка - номер телефона или факса. // // Возвращаемое значение: // Строка - номер телефона или факса без разделителей. // &НаСервереБезКонтекста Функция УбратьРазделителиВНомерТелефона(Знач НомерТелефона) Поз = СтрНайти(НомерТелефона, ","); Если Поз <> 0 Тогда НомерТелефона = Лев(НомерТелефона, Поз-1); КонецЕсли; НомерТелефона = СтрЗаменить(НомерТелефона, "-", ""); НомерТелефона = СтрЗаменить(НомерТелефона, " ", ""); НомерТелефона = СтрЗаменить(НомерТелефона, "+", ""); НомерТелефона = СтрЗаменить(НомерТелефона, "(", ""); НомерТелефона = СтрЗаменить(НомерТелефона, ")", ""); Возврат НомерТелефона; КонецФункции

Код

&НаСервереБезКонтекста
Процедура УстановитьКонтактнуюИнформацию(ЗагружаемыйОбъект, Вид, Знач Представление)
   
   СтруктураПоиска = Новый Структура("Вид", Вид);
   СтрокиСуществующейКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.НайтиСтроки(СтруктураПоиска);
   Если СтрокиСуществующейКИ.Количество() > 0 Тогда
      СтрокаКИ = СтрокиСуществующейКИ[0];
   Иначе
      СтрокаКИ = ЗагружаемыйОбъект.КонтактнаяИнформация.Добавить();
   КонецЕсли;  
   
   Если ПустаяСтрока(Представление) Тогда
      ЗагружаемыйОбъект.КонтактнаяИнформация.Удалить(СтрокаКИ);
      Возврат;
   КонецЕсли;
               
   СтрокаКИ.Представление    = Представление;   
   СтрокаКИ.Вид          = Вид;
   СтрокаКИ.Тип          = СтрокаКИ.Вид.Тип;
   //СтрокаКИ.ЗначенияПолей    = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(СтрокаКИ.Представление, СтрокаКИ.Вид);
   
   Адрес = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(СтрокаКИ.Представление, СтрокаКИ.Тип);
   СтрокаКИ.Значение = Адрес;
   СтрокаКИ.ЗначенияПолей    = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВXML(Адрес, СтрокаКИ.Представление, СтрокаКИ.Тип);
   
   XDTOКонтактная = УправлениеКонтактнойИнформациейЛокализация.КонтактнаяИнформацияИзXML(СтрокаКИ.ЗначенияПолей, СтрокаКИ.Тип, );
   
   Если СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон
    Или СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Факс Тогда
   
      СтрокаКИ.НомерТелефона = УбратьРазделителиВНомерТелефона(XDTOКонтактная.Представление);
      СтрокаКИ.НомерТелефонаБезКодов = УбратьРазделителиВНомерТелефона(XDTOКонтактная.Состав.Номер);
      
   ИначеЕсли СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
   
      СтрокаКИ.Страна = XDTOКонтактная.Состав.Страна;
   
      Если XDTOКонтактная.Состав.Состав <> Неопределено
         И ТипЗнч(XDTOКонтактная.Состав.Состав) <> Тип("Строка") Тогда
   
         СтрокаКИ.Регион = XDTOКонтактная.Состав.Состав.СубъектРФ;
   
         СтрокаКИ.Город = XDTOКонтактная.Состав.Состав.Город;
   
      КонецЕсли;
   
   ИначеЕсли СтрокаКИ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда
   
      СтрокаКИ.АдресЭП = XDTOКонтактная.Состав.Значение;
   
      ПозицияСобаки = Найти(XDTOКонтактная.Состав.Значение, "@");
   
      Если ПозицияСобаки <> 0 Тогда
   
         СтрокаКИ.ДоменноеИмяСервера = Сред(XDTOКонтактная.Состав.Значение, ПозицияСобаки + 1);
   
      КонецЕсли;
   
   КонецЕсли;   
   
КонецПроцедуры

// Убирает разделители в номере телефона.
//
// Параметры:
//    НомерТелефона - Строка - номер телефона или факса.
//
// Возвращаемое значение:
//     Строка - номер телефона или факса без разделителей.
//
&НаСервереБезКонтекста
Функция УбратьРазделителиВНомерТелефона(Знач НомерТелефона)
   
   Поз = СтрНайти(НомерТелефона, ",");
   Если Поз <> 0 Тогда
      НомерТелефона = Лев(НомерТелефона, Поз-1);
   КонецЕсли;
   
   НомерТелефона = СтрЗаменить(НомерТелефона, "-", "");
   НомерТелефона = СтрЗаменить(НомерТелефона, " ", "");
   НомерТелефона = СтрЗаменить(НомерТелефона, "+", "");
   НомерТелефона = СтрЗаменить(НомерТелефона, "(", "");
   НомерТелефона = СтрЗаменить(НомерТелефона, ")", "");
   
   Возврат НомерТелефона;
   
КонецФункции

Dev › Поиск непроведенных документов с движениями (8.2, обычное приложение, управляемое приложение) › #33 30.08.19 11:42

Спасибо за обработку, помогла найти непроведенные документы.

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

Поправил процедуру:

Код
&НаКлиенте Процедура ДокументыТаблицаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; //ОткрытьЗначение(Элемент.ТекущиеДанные.Регистратор); ПоказатьЗначение(,Элемент.ТекущиеДанные.Регистратор); КонецПроцедуры

Код

&НаКлиенте
Процедура ДокументыТаблицаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
   
   СтандартнаяОбработка = Ложь;
   
   //ОткрытьЗначение(Элемент.ТекущиеДанные.Регистратор);
   ПоказатьЗначение(,Элемент.ТекущиеДанные.Регистратор);
   
КонецПроцедуры

Обмен › Ошибка при переходе на зуп 3.1 › #16 30.12.18 14:34

(15)

При переходе на ЗГУ 3.1.8.214 столкнулись с такой же проблемой.
Решили проблему поправив обработку выгрузки ПомощникВыгрузки_V8, внес следующее исправление в модуль обработки:

Код
Если НайденныеСтроки.Количество() > 0 Тогда ВыборкаПоДокументу.Вставить("ЕжегодныеОтпуска", НайденныеСтроки[0].ЕжегодныеОтпуска); ВыборкаПоДокументу.Вставить("ОстаткиОтпусковПоРабочимГодам", НайденныеСтроки[0].ОстаткиОтпусковПоРабочимГодам); ВыборкаПоДокументу.Вставить("ОтсутствияСдвигающиеРабочийГод", НайденныеСтроки[0].ОтсутствияСдвигающиеРабочийГод); // +СБ. Филиппов Андрей. 2018-12-29. Иначе ВыборкаПоДокументу.Вставить("ЕжегодныеОтпуска", Новый ТаблицаЗначений); ВыборкаПоДокументу.Вставить("ОстаткиОтпусковПоРабочимГодам", Новый ТаблицаЗначений); ВыборкаПоДокументу.Вставить("ОтсутствияСдвигающиеРабочийГод", Новый ТаблицаЗначений); // -СБ. Филиппов Андрей КонецЕсли;

Код

Если НайденныеСтроки.Количество() > 0 Тогда
                   ВыборкаПоДокументу.Вставить("ЕжегодныеОтпуска", НайденныеСтроки[0].ЕжегодныеОтпуска);
                   ВыборкаПоДокументу.Вставить("ОстаткиОтпусковПоРабочимГодам", НайденныеСтроки[0].ОстаткиОтпусковПоРабочимГодам);
                   ВыборкаПоДокументу.Вставить("ОтсутствияСдвигающиеРабочийГод", НайденныеСтроки[0].ОтсутствияСдвигающиеРабочийГод);
               // +СБ. Филиппов Андрей. 2018-12-29. 
               Иначе
                   ВыборкаПоДокументу.Вставить("ЕжегодныеОтпуска", Новый ТаблицаЗначений);
                   ВыборкаПоДокументу.Вставить("ОстаткиОтпусковПоРабочимГодам", Новый ТаблицаЗначений);
                   ВыборкаПоДокументу.Вставить("ОтсутствияСдвигающиеРабочийГод", Новый ТаблицаЗначений);
               // -СБ. Филиппов Андрей    
               КонецЕсли;

Публикации › Согласование (подсистема). Для любого справочника и документа в 1С. Встраивается в любые конфигурации › #89 22.06.18 11:49

Нечаянно ткнул в минус, и похоже глюк на инфостарте, не могу опять поднять. Прошу прощения. (

Admin › Превращаем УПП в ЗУП › #25 27.12.17 17:54

(19) Александр, поступил почти аналогичным способом, но поменял настройки непосредственно в файле правил обмена в ЗУП 3.1 (общие макеты - ЗарплатаКадрыПереносДанныхИзЗУП25).

1. Поменял номер минимального релиза из которого должны выгружаться данные с 2.5.118.2 на 1.3.90.2.
2. Поменял название регистра УчетнаяПолитикаНалоговыйУчет - УчетнаяПолитикаОрганизаций.
Данные по настройкам налогового учета в этом случае перенесутся.

Ну и чтобы не нужно было включать возможность изменения в ЗУП 3.1 в итоге сделал обработку - сохранил во внешние обработки типовую встроенную НачальнаяНастройкаПрограммы, прицепил к ней макет ЗарплатаКадрыПереносДанныхИзЗУП25, и получаю его в обработке.

Dev › Конфигурация "Мобильное тестирование" › #22 29.07.17 19:11

Уже разобрался - https://wonderland.v8.1c.ru/blog/poluchenie-dokhoda-ot-mobilnykh-prilozheniy/?sphrase_id=18920 вот эти изменения в платформе 8.3.8.
Надо закомментировать несколько строк в общем модуле МобильныеПокупкиКлиент.

98 Рейтинг

sempaii Андрей Филиппов

Рейтинг 98

Комментарии

98
Рейтинг

sempaii
Андрей Филиппов