asad06
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Akam1
Цитата: asad06
Конфигурация какая? В основном - ручной правкой конфигурации. Как мне объяснили в фирме-франчайзи, когда у нас возник такой же вопрос, этот вопрос давно и периодически поднимается на официальном форуме 1С, но они только отмахиваются - мол, "в Москве берется процентом, а как по всей стране - нам пофигу, дорабатывать ничего не будем". Ну, примерно так. Если конфигурация зарплатная, то посоветовали создавать как-то собственные начисления и т.д., я не стал мучиться и поправил конфигурацию. Но ее сейчас уже нет. |
Конфигурация 1с 7.7 Зарплата и кадры 2.3(70.70.293)
Вот в гугле нашел такой код, но у меня он почему то не работает... может кто-нибудь подправить?
Цитата: //******************************************************************************
// Предопределенная процедура
//
Процедура ПровестиРасчет()
// если запись исправлена или фиксирована, то ее не рассчитываем
Если (Исправлена=1) или (Фиксирована=1) Тогда
глСообщениеТрассировки(глСообщенияТрассировки, "" + ?(Исправлена=1,"Результат записи исправлен вручную","Запись фиксирована") + ". Расчет не проводился.", , 1);
Возврат
КонецЕсли;
ЖурналРасчетовЗарплата = СоздатьОбъект("ЖурналРасчетов.Зарплата");
ЖурналРасчетовЗарплата.ВыбратьЗаписиПоОбъекту(Объект,ДатаНачала,ДатаОкончания);
Пока ЖурналРасчетовЗарплата.ПолучитьЗапись()=1 Цикл
Если (ЖурналРасчетовЗарплата.ВидРасч=ВидРасчета.УдержаниеПоИсполнительномуЛисту)
и (ЖурналРасчетовЗарплата.Документ=Документ) Тогда
// Почтовый сбор при пересылке алиментов исчисляется за каждый
// полный или не полный рубль по исполнительному листу
СуммаПоИспЛисту = ЖурналРасчетовЗарплата.Результат;
Результат = Окр(Окр(СуммаПоИспЛисту)*Документ.ПроцентПочтовогоСбора/100,2);
//***Самара люкс
Если СуммаПоИспЛисту <= 1000 Тогда
Результат = 7 + СуммаПоИспЛисту*0.05;
ИначеЕсли СуммаПоИспЛисту <= 5000 Тогда
Результат = 57 + (СуммаПоИспЛисту - 1000)*0.04;
ИначеЕсли СуммаПоИспЛисту <= 20000 Тогда
Результат = 217 + (СуммаПоИспЛисту - 5000)*0.02;
Иначе //СуммаПоИспЛисту <= 100000 Тогда
Результат = 517 + (СуммаПоИспЛисту - 20000)*0.01;
КонецЕсли;
//***Самара люкс
Прервать
КонецЕсли;
КонецЦикла;
РасшифСуммаПоИспЛисту = Окр(СуммаПоИспЛисту);
глСообщениеТрассировки(глСообщенияТрассировки, "Почтовый сбор при пересылке алиментов исчисляется от суммы удержания: _П01", 0, 1, РасшифСуммаПоИспЛисту, "Ч15");
глСообщениеТрассировки(глСообщенияТрассировки, "Процент исчисления почтового сбора для перечисления алиментов: _П01", 0, 0, Документ.ПроцентПочтовогоСбора, "Ч5.2");
глСообщениеТрассировки(глСообщенияТрассировки, "Сумма почтового сбора по исполнительному документу составила: _П01", 0, 0, Результат, "Ч15.2");
КонецПроцедуры // ПровестиРасчет
|
|
Есть идеи? ... если создать новую базу, то обновления делаются, а с рабочей нет 
