diff --git a/Configuration.xml b/Configuration.xml index e5acb18..2103970 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.112 + 3.0.0.113 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index b1b7d8a..3697625 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -115,7 +115,7 @@ Для Каждого Область Из ТаблДок.Области Цикл ИмяЛиста = Область.Имя; Если ВРег(ИмяЛиста) = "РАСЧЕТ" Тогда Продолжить; КонецЕсли; - ФИО = СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|C2").Текст); + ФИО = ПрочитатьСтрокуИзТД(ТаблДок, ИмяЛиста, 2, 3); Если Не ЗначениеЗаполнено(ФИО) Тогда Продолжить; КонецЕсли; Если СтрНачинаетсяС(ВРег(ФИО), "ИТОГО") Тогда Продолжить; КонецЕсли; Счетчик = Счетчик + 1; @@ -124,8 +124,8 @@ Карточка.Вставить("ФИО", ФИО); Карточка.Вставить("ИНН", ""); Карточка.Вставить("СНИЛС", ""); - Карточка.Вставить("ЛицевойСчетВБанке", СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|D3").Текст)); - Карточка.Вставить("ВидЗанятости", СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|A5").Текст)); + Карточка.Вставить("ЛицевойСчетВБанке", ПрочитатьСтрокуИзТД(ТаблДок, ИмяЛиста, 3, 4)); + Карточка.Вставить("ВидЗанятости", ПрочитатьСтрокуИзТД(ТаблДок, ИмяЛиста, 5, 1)); Карточка.Вставить("АдресРегистрации", ""); Карточка.Вставить("Идентификатор", Счетчик); МассивСотрудников.Добавить(Карточка); @@ -135,7 +135,7 @@ ДанныеНДФЛ = Новый Структура; ДанныеНДФЛ.Вставить("ФИО", ФИО); ДанныеНДФЛ.Вставить("ИдентификаторСотрудника", Счетчик); - ДанныеНДФЛ.Вставить("МесяцРасчета", СокрЛП("" + ТаблДок.Область(ИмяЛиста + "|A" + СтрокаМесяца).Текст)); + ДанныеНДФЛ.Вставить("МесяцРасчета", ПрочитатьСтрокуИзТД(ТаблДок, ИмяЛиста, СтрокаМесяца, 1)); ДанныеНДФЛ.Вставить("СуммаВаловогоДохода", ПрочитатьЧислоИзТД(ТаблДок, ИмяЛиста, СтрокаМесяца, 4)); ДанныеНДФЛ.Вставить("СкидкаДляНДФЛЗаМесяц", ПрочитатьЧислоИзТД(ТаблДок, ИмяЛиста, СтрокаМесяца, 8)); ДанныеНДФЛ.Вставить("ВычетНаРаботникаЗаМесяц", ПрочитатьЧислоИзТД(ТаблДок, ИмяЛиста, СтрокаМесяца, 12)); @@ -153,7 +153,7 @@ МассивВзносов = Новый Массив; НачальнаяСтрока = 0; Для Ном = 17 По 30 Цикл - ФТ = СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|A" + Ном).Текст); + ФТ = ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, 1); Если Не ЗначениеЗаполнено(ФТ) Тогда Продолжить; КонецЕсли; Если Не СтрНачинаетсяС(ВРег(ФТ), "ИТОГО") И Не СтрНачинаетсяС(ВРег(ФТ), "СОТРУДНИК") И Не СтрНачинаетсяС(ВРег(ФТ), "ФАМИЛИЯ") И СтрДлина(ФТ) > 3 Тогда НачальнаяСтрока = Ном; Прервать; @@ -166,7 +166,7 @@ Счетчик = 0; Для Ном = НачальнаяСтрока По 500 Цикл - ФИОТекст = СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|A" + Ном).Текст); + ФИОТекст = ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, 1); Если Не ЗначениеЗаполнено(ФИОТекст) Тогда Продолжить; КонецЕсли; Если СтрНачинаетсяС(ВРег(ФИОТекст), "ИТОГО") Тогда Прервать; КонецЕсли; ИдСотр = КэшФИО.Получить(ФИОТекст); @@ -175,9 +175,9 @@ С = Новый Структура; С.Вставить("ФИО", ФИОТекст); С.Вставить("ИдентификаторСотрудника", ИдСотр); - С.Вставить("Должность", СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|B" + Ном).Текст)); - С.Вставить("СчетБК", СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|C" + Ном).Текст)); - С.Вставить("ВидЗанятости", СокрЛП("" + ТаблДок.Область(ЛистРасчет + "|D" + Ном).Текст)); + С.Вставить("Должность", ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, 2)); + С.Вставить("СчетБК", ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, 3)); + С.Вставить("ВидЗанятости", ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, 4)); С.Вставить("КоличествоСтавок", ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, Ном, 7)); С.Вставить("Оклад", ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, Ном, 8)); С.Вставить("ОтработаноДней", ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, Ном, 6));