Можно ли автоматически заполнить в ЗИК ред.2,3 автоматически заполнять почтовые переводы по алиментам. Как это сделать?
Можно ли автоматически заполнить в ЗИК ред.2,3 автоматически заполнять почтовые переводы по алиментам. Как это сделать?
Можно, если будет кому за это взяться. Типового решения нет
"Вопрос в том, что нужно сделать??? Если просто добавить суммы какие исчисляет почтамп ("это на нашем почтампте") то в документе "Почтовыйсбор" лови:<br><br><<<br>//******************************************************************************<br>// Предопределенная процедура<br>//<br>Процедура ПровестиРасчет()<br> <br> // если запись исправлена или фиксирована, то ее не рассчитываем<br> Если (Исправлена=1) или (Фиксирована=1) Тогда<br> глСообщениеТрассировки(глСообщенияТрассировки, """" + ?(Исправлена=1,"Результат записи исправлен вручную","Запись фиксирована") + ". Расчет не проводился.", , 1);<br> Возврат<br> КонецЕсли;<br><br> ЖурналРасчетовЗарплата = СоздатьОбъект("ЖурналРасчетов.Зарплата");<br> ЖурналРасчетовЗарплата.ВыбратьЗаписиПоОбъекту(Объект,ДатаНачала,ДатаОкончания);<br> <br> Пока ЖурналРасчетовЗарплата.ПолучитьЗапись()=1 Цикл<br> Если (ЖурналРасчетовЗарплата.ВидРасч=ВидРасчета.УдержаниеПоИсполнительномуЛисту)<br> и (ЖурналРасчетовЗарплата.Документ=Документ) Тогда<br> <br> // Почтовый сбор при пересылке алиментов исчисляется за каждый<br> // полный или не полный рубль по исполнительному листу<br> СуммаПоИспЛисту = ЖурналРасчетовЗарплата.Результат;<br> <br> //+++Добавлено Изменено ЗПФ т.к. ПРИ ПОЧТОВОМ СБОРЕ ОТНИМ 1000 руб.<br> //СуммаПоИспЛисту = ?(Цел(СуммаПоИспЛисту) = СуммаПоИспЛисту, СуммаПоИспЛисту, Цел(СуммаПоИспЛисту) + 1);<br> //Результат = СуммаПоИспЛисту*Документ.ПроцентПочтовогоСбора/100;<br> СумПоИспЛисту = ЖурналРасчетовЗарплата.Результат - 1000;<br> Результат = Окр(Окр(СумПоИспЛисту)*Документ.ПроцентПочтовогоСбора/100,2);<br> <br> Если СуммаПоИспЛисту <= 1000 Тогда<br> Результат = Результат +7;<br> ИначеЕсли (СуммаПоИспЛисту > 1000) ИЛИ (СуммаПоИспЛисту <= 5000) Тогда<br> Результат = Результат + 57;<br> КонецЕсли;<br> //+++<br> <br> Прервать;<br> КонецЕсли;<br> КонецЦикла;<br> РасшифСуммаПоИспЛисту = Окр(СуммаПоИспЛисту);<br> глСообщениеТрассировки(глСообщенияТрассировки, "Почтовый сбор при пересылке алиментов исчисляется от суммы удержания: _П01", 0, 1, РасшифСуммаПоИспЛисту, "Ч15");<br> глСообщениеТрассировки(глСообщенияТрассировки, "Процент исчисления почтового сбора для перечисления алиментов: _П01", 0, 0, Документ.ПроцентПочтовогоСбора, "Ч5.2");<br> глСообщениеТрассировки(глСообщенияТрассировки, "Сумма почтового сбора по исполнительному документу составила: _П01", 0, 0, Результат, "Ч15.2");<br> <br>КонецПроцедуры // ПровестиРасчет<br>>><br>"
26 апреля 2024 года — Форум пользователей «1С:Документооборота» |
1C:Лекторий: 7 мая 2024 года — Бесплатная онлайн-лекция о новом в 1С:ЗУП (версии 3.1.27-3.1.29): поддержка изменений по налогам и взносам, СЭДО, регистрация в органе статистики и другие изменения 1C:Лекторий: 14 мая 2024 года — Бесплатная онлайн-лекция об учете в 1С:БГУ 8 (ред. 2) невостребованной кредиторами задолженности. Серия 1С:Консалтинг для госсектора |