gifts2017

Выгрузка справочника Сотрудники в АРМ "Подготовка расчетов для ФСС" для ЗиК 7.7

Опубликовал Василий Пупкин (Boris805) в раздел Обработки - Обработка справочников

Внешняя обработка для конфигурации "1С: Зарплат и кадры 7.7".

Обработка призвана облегчить (немного) труд сотрудников расчетных отделов, попавших под гнет пилотного проекта ФСС.

В первую очередь стоит конечно обратить внимание на разработку http://infostart.ru/public/139728/, но некоторым возможно будет удобнее набивать необходимые данные в так называемом АРМ ФСС.

Обработкой пользоваться просто: или через меню Файл->Открыть, или добавить в Дополнительные возможности. Для этого файл с обработкой нужно скопировать в каталог ExtForms, расположенный в папке с базой ЗиК. После чего перейти Сервис->Дополнительные возможности, там нажать кнопку Изменить->Внести в список и выбрать файл "ВыгрузкаВАРМФСС.ert".

Использование:

1) Формируем список сотрудников для выгрузки кнопками Заполнить/Добавить/Удалить

2) Указываем регистрационный № и код подчиненности ФСС, автора и путь к файлу выгрузки.

3) Жмем кнопку "Выгрузить"

4) Заходим в АРМ ФСС. Далее Справочники->Физлица->Застрахованные лица

5) Находим кнопку "Импорт данных о застрахованных лицах" (Вверху самая правая) и указываем файл import.xml, находящийся в указанном Вами каталоге.

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

Наименование Файл Версия Размер Кол. Скачив.
ВыгрузкаВАРМФСС.ert
.ert 79,50Kb
30.07.12
45
.ert 79,50Kb 45 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Алексей Подкин (alkar) 06.07.15 11:13
Для выгрузки кода Кладр необходимо доработать.
А именно, заменить кусок аналогичного условия в процедуре СоздатьФайл:
АдресСписком = глРазложить(СписокСотров.Сотрудник.АдресПрописка);
		Если АдресСписком.РазмерСписка() > 9 Тогда
			Индекс = ?(Резидент = 1,СокрЛП(АдресСписком.ПолучитьЗначение(2)),"");
			Регион = ?(Резидент = 1,СокрЛП(АдресСписком.ПолучитьЗначение(3)),"");  
			Район = СокрЛП(АдресСписком.ПолучитьЗначение(4));
			СпрРегионы = СоздатьОбъект("Справочник.KLADR");  
			СпрРегионы.НайтиПоНаименованию(Регион);       
			КодРегион = Лев(СпрРегионы.Код,2);
			Город = СокрЛП(АдресСписком.ПолучитьЗначение(5));
			НаселенныйПункт = СокрЛП(АдресСписком.ПолучитьЗначение(6));
			СпрУлица = СоздатьОбъект("Справочник.STREET");              
			Улица = СокрЛП(АдресСписком.ПолучитьЗначение(7));
			Дом = СокрЛП(АдресСписком.ПолучитьЗначение(8));
			Корпус = СокрЛП(АдресСписком.ПолучитьЗначение(9));
			Квартира = СокрЛП(АдресСписком.ПолучитьЗначение(10)); 
		
			  СпрУлица.ВыбратьЭлементы();
			  пока СпрУлица.ПолучитьЭлемент()>0 цикл  
			  		ПозицияРешетки=Найти(СпрУлица,"#");
			  		ТоЧтоНадо=сокрлп(Лев(СпрУлица,ПозицияРешетки-1));
			  	 Если (строка(СпрУлица.Индекс)=Индекс) И (ТоЧтоНадо=Улица) тогда
			  	 		Сообщить("КодУлицы="+Строка(СпрУлица.КодУлицы)+"Город="+Строка(СпрУлица.Город)+" Нас пункт="+Строка(СпрУлица.НасПункт)+" улица="+Строка(СпрУлица.Наименование));
			  	 		ГлавныйКод="#"+Строка(СпрУлица.КодУлицы)+"00";
	             КонецЕсли;
			  конеццикла;
	
		Иначе
			Индекс = "";
			Регион = "";
			Район = "";
			Город = "";
			НаселенныйПункт = "";
			Улица = "";
			Дом = "";
			Корпус = "";
			Квартира = "";
		КонецЕсли;

...Показать Скрыть

И кусочек

хмлВетка = хмлСвРекв.СоздатьПодчиненныйЭлемент("ADDR_KLADR");
		хмлВетка.Значение = ГлавныйКод;


Если кому надо пишите могу скинуть, доделанную обработку.
2. Лиза Подгорнова (majemay) 13.07.15 10:03
Находим кнопку "Импорт данных о застрахованных лицах" (Вверху самая правая) и указываем файл import.xml,
Не нахожу такой кнопки в версии 2.0.4.9
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа