Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 18:06

Платформа 8.2

Автор vvvlad85, 01 дек 2010, 16:22

0 Пользователей и 1 гость просматривают эту тему.

vvvlad85

почему в 8.2 кодгда выполняется этот код экран мигает как будто сбивается фокус. А в 8.1 такого не было. Или может я что то не так делаю.
В принципе на работу не влияет но как неприятно

      Для Каждого Строка Из чдСтрокиППИ Цикл
         чдДокументВыплаты = Документы.ЗарплатаКВыплатеОрганизаций.СоздатьДокумент();
         чдДокументВыплаты.Дата = КонецМесяца(Дата);
         //чдДокументВыплаты.ДатаНачала = НачалоМесяца(Дата);
         //чдДокументВыплаты.ДатаОкончания = КонецМесяца(Дата);
         чдДокументВыплаты.ДнейНеВыплаты = 0;
         чдДокументВыплаты.ДокументОснование = Ссылка;
         чдДокументВыплаты.Организация = Организация;
         чдДокументВыплаты.Ответственный = ПараметрыСеанса.ТекущийПользователь;
         чдДокументВыплаты.ПериодРегистрации = ПериодРегистрации;
         чдДокументВыплаты.СпособВыплаты = Перечисления.СпособыВыплатыЗарплаты.ЧерезБанк;
         чдДокументВыплаты.ХарактерВыплаты = Перечисления.ХарактерВыплатыЗарплаты.Зарплата;
         чдДокументВыплаты.Банк = Строка.Банк;
         чдДокументВыплаты.ПроцентВыплаты = 100;
         чдСтрокаЗарплаты = чдДокументВыплаты.Зарплата.Добавить();
         чдСтрокаЗарплаты.Авторасчет = Истина;
         чдСтрокаЗарплаты.ВыплаченностьЗарплаты = Перечисления.ВыплаченностьЗарплаты.НеВыплачено;
         чдСтрокаЗарплаты.Начислено = Строка.Начислено;
         чдСтрокаЗарплаты.Сумма = Строка.Сумма;
         чдСтрокаЗарплаты.Удержано = 0;
         чдСтрокаЗарплаты.КомпенсацияЗаЗадержкуЗарплаты = 0;
         чдСтрокаЗарплаты.Физлицо = Строка.ФизЛицо;
         чдСтрокаЗарплаты.чдВалюта = Строка.чдВалюта;
         чдСтрокаЗарплаты.чдЛицевойСчет = Строка.чдЛицевойСчет;
         чдСтрокаЗарплаты.чдСуммаВВалюте = Строка.чдСуммаВВалюте;
         Попытка
            чдДокументВыплаты.Записать(РежимЗаписиДокумента.Проведение);
         Исключение   
            чдДокументВыплаты.Записать(РежимЗаписиДокумента.Запись);
         КонецПОпытки;
         чдСтрокаДокументов = чдФормаДокументовЗарплатаКВыплатеОрганизации.чдДокументыЗарплатаКВыплатеОрганизации.Добавить();
         чдСтрокаДокументов.Пометка = Истина;
         чдСтрокаДокументов.Документ = чдДокументВыплаты.Ссылка;
         чдСтрокаДокументов.ТипДокумента = "ППИ";
      КонецЦикла;

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск