Vunicode
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: //----- Расчет Удержания По ИСКАМ (КРЕДИТАМ) ---
Иск.ИспользоватьВладельца(Сотрудник);
Если Иск.ВыбратьЭлементы() = 1 Тогда
ОблСумХ = ОблМесАЛ;
ОблСумХ = ?(ОблСумХ < 0, 0, ОблСумХ);
воХ = ?((Иск.ВидУдКр.Выбран()=1) И (Иск.ВидУдКр=Перечисление.ВидУдержКредита.ВидОпл_819),во819,во809);
Пока Иск.ПолучитьЭлемент() > 0 Цикл
Если (Иск.ПометкаУдаления()=1) ИЛИ (Иск.ДатаНач > Дата1) Тогда Продолжить; КонецЕсли;
НачИски=0;
гг.ИспользоватьСубконто(ВидыСубконто.Сотрудники,Сотрудник,2);
гг.ИспользоватьСубконто(ВидыСубконто.НомераДелИсков,Иск.НомерДела,2);
гг.ВыполнитьЗапрос(Дата1,,"ИСК");
УжеУдИски= гг.СНД();
Если Иск.ПроцУдержания <> 0 Тогда
НачИски = Окр(ОблСумХ * Иск.ПроцУдержания / 100, 2);
КонецЕсли;
Если Иск.СумУдержания <> 0 Тогда
НачИски = Иск.СумУдержания;
НачИски = ?(НачИски > ОблСумХ, ОблСумХ, НачИски);
КонецЕсли;
Если УжеУдИски+НачИски > Иск.СуммаИска Тогда
НачИски = Иск.СуммаИска - УжеУдИски;
НачИски = ?(НачИски < 0, 0, НачИски);
КонецЕсли;
НачИски = Цел(НачИски);
ИтНачИски = ИтНачИски + НачИски;
Если НачИски <> 0 Тогда
глПроводка( Операция, , ,
СчетПоКоду("НАЧ"), глСубконто(Сотрудник, воХ),
, НачИски, , ,
"Удержание по иску (кредиту)", "ЗП", Организация );
глПроводка( Операция, СчетПоКоду("ИСК"), глСубконто(Сотрудник, Иск.НомерДела),
, ,
, НачИски, , ,
"Сумма иска (кредита)", "ЗП", Организация );
КонецЕсли;
КонецЦикла;
КонецЕсли; |
Мне нужно чтоб кредит высчитывался не автоматом, а ручным вводом каждый месяц, ума не приложу как это организовать, читает только первую строку и всё тут. |
