Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.x (все механизмы) 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x
0. GeterX 671 08.11.19 14:21 Сейчас в теме

Кнопка ПОДБОР для документа Заявка на открытие лицевых счетов

Расширение добавляет кнопку "Подбор" в документ "Заявка на открытие лицевых счетов".
И отключает проверку на 19 символов в латинском Фамилии, Имени при выгрузке.

Перейти к публикации

+ – Ответить
Комментарии
Избранное Подписка Сортировка: Древо
1. DJDUH 17 08.11.19 15:29 Сейчас в теме
Запрос в цикле, ай-я-я-й-й!!! 

Для каждого Строка Из Объект.Сотрудники Цикл
		
	//Строка.ЯвляетсяЗарплатнойКартой = Истина;
	Строка.СистемаРасчетовПоБанковскимКартам = "МИР";
	Строка.ВалютаВклада = Справочники.Валюты.НайтиПоКоду("643");
		
КонецЦикла;
Показать



Валюта643 = Справочники.Валюты.НайтиПоКоду("643");
Для каждого Строка Из Объект.Сотрудники Цикл
		
	//Строка.ЯвляетсяЗарплатнойКартой = Истина;
	Строка.СистемаРасчетовПоБанковскимКартам = "МИР";
	Строка.ВалютаВклада = Валюта643 ;
		
КонецЦикла;
Показать
+ – Ответить
2. GeterX 671 08.11.19 17:04 Сейчас в теме
(1) извиняюсь, поправил.
+ – Ответить
3. chesnokov-a-v 99 17.12.19 14:35 Сейчас в теме
Установил расширение, но кнопка "Подбор" не появилась. ЗУП 3.1.11.133
+ – Ответить
4. GeterX 671 17.12.19 14:40 Сейчас в теме
(3) в описании написано: "В расширении следует отключить безопасный режим."
+ – Ответить
5. chesnokov-a-v 99 17.12.19 20:06 Сейчас в теме
(4) конечно это было сделано. попробую разобраться в проблеме чуть позже.
+ – Ответить
6. GeterX 671 17.12.19 20:24 Сейчас в теме
(5) попробуйте поискать в меню Ещё табличной части документа.
+ – Ответить
7. chesnokov-a-v 99 18.12.19 11:28 Сейчас в теме
(6) Появилась. Удалил расширение и добавил заново, с несколькими перезапусками (магия).
+ – Ответить
8. Amras 43 20.12.19 09:41 Сейчас в теме
Так попроще будет, а уж добавить команду (ПодобратьСотрудников) на форму, думаю, труда не составит. И при всем при этом используем исключительно типовые механизмы (протестировано на ЗУП КОРП 3.1.10.223), кроме получения ФизическогоЛица. 

&НаКлиенте
Процедура ПодобратьСотрудников(Команда)
	КадровыйУчетКлиент.ВыбратьСотрудниковРаботающихНаДатуПоПараметрамОткрытияФормыС­писка(
		Элементы.ЛицевыеСчета,,,,,АдресСпискаПодобранныхСотрудников());
КонецПроцедуры
	
// Возвращает адрес во временном хранилище массива уже подобранных сотрудников.
//
&НаСервере
Функция АдресСпискаПодобранныхСотрудников()
	СписокСотрудников = Объект.Сотрудники.Выгрузить(,"ФизическоеЛицо").ВыгрузитьКолонку("ФизическоеЛицо");
	
	Возврат ПоместитьВоВременноеХранилище(СписокСотрудников, УникальныйИдентификатор);
КонецФункции

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

&НаСервере
Функция МГ_ПолучитьФизЛицо(Сотрудник)
	Возврат Сотрудник.ФизическоеЛицо;
КонецФункции
Показать
+ – Ответить
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
Не выводится цифра в ресурсах  0.1 $m Dev
Перевыставление услуг, принципал КА 2.4  0.45 $m DevКА2
КС в РСВ  0.05 $m ЗарплатаЗУП3.x
Посоветуйте удобный тайм-трекер  5 $m Личная эффективность
скрытые "лишние" поля таблицы в MS SQL и PG в документе которых нет в конфигураторе  0.04 $m UpdateCFБП3.0v8ПрограммистВопросИсследование
Как во ВПФ поменять формат даты у строки? (скриншоты) УТ10.3  0.3 $m Dev
MSScriptControl.ScriptControl не работает под другими терминальными пользователями  1 $m Admin

Вакансии

Программист 1С
Воронеж
зарплата от 70 000 руб.
Полный день
Программист 1С
Москва
зарплата до 160 000 руб.
Полный день
Программист 1С
Чебоксары
зарплата от 50 000 руб. до 70 000 руб.
Полный день
Программист 1С
Новосибирск
зарплата от 80 000 руб. до 120 000 руб.
Полный день
Программист 1С
Санкт-Петербург
зарплата от 110 000 руб. до 150 000 руб.
Полный день