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