Почтовый сбор
11.05.2007
15:21
#1
почему 1С никак не могут правильно реализовать мехонизм расчета почтового сбора в исполнительных листах????????? даже в 8.1!!!!!!!!! Ужас!!!!!
11.05.2007
19:14
#2
"LOL ;))
Неужели Вы думаете, что во всех регионах алгоритм одинаковый? 1C думает, что везде, как в Москве. ;)"
Неужели Вы думаете, что во всех регионах алгоритм одинаковый? 1C думает, что везде, как в Москве. ;)"
29.05.2007
06:03
#4
А в чём проблема. Одна функция - возвращает сумму почтового перевода (например по сетке тарифов от суммы переводов). И одна строчка в модуле проведения расчетов.
29.05.2007
07:39
#6
"Реальные тарифы по Красноярскому Краю:
// возвращает сумму почтового перевода по сетке тарифов
// Параметры
// Сумма – Число – размер почтового перевода
//
// Возвращаемое значение:
// Число – сумма почтового сбора
//
Функция ПолучитьСуммуПочтовогоСбора(Сумма) Экспорт
Если Сумма = 0 Тогда
Возврат 0;
КонецЕсли;
Если Сумма <= 1000 Тогда
Возврат 7 + Сумма*5/100;
ИначеЕсли Сумма > 1000 И Сумма <= 5000 Тогда
Возврат 57 + (Сумма-1000)*4/100;
ИначеЕсли Сумма > 5000 И Сумма <= 20000 Тогда
Возврат 217 + (Сумма-5000)*2/100;
ИначеЕсли Сумма > 20000 И Сумма <= 100000 Тогда
Возврат 517 + (Сумма-20000)*1/100;
КонецЕсли;
КонецФункции // ПолучитьСуммуПочтовогоСбора()
"
// возвращает сумму почтового перевода по сетке тарифов
// Параметры
// Сумма – Число – размер почтового перевода
//
// Возвращаемое значение:
// Число – сумма почтового сбора
//
Функция ПолучитьСуммуПочтовогоСбора(Сумма) Экспорт
Если Сумма = 0 Тогда
Возврат 0;
КонецЕсли;
Если Сумма <= 1000 Тогда
Возврат 7 + Сумма*5/100;
ИначеЕсли Сумма > 1000 И Сумма <= 5000 Тогда
Возврат 57 + (Сумма-1000)*4/100;
ИначеЕсли Сумма > 5000 И Сумма <= 20000 Тогда
Возврат 217 + (Сумма-5000)*2/100;
ИначеЕсли Сумма > 20000 И Сумма <= 100000 Тогда
Возврат 517 + (Сумма-20000)*1/100;
КонецЕсли;
КонецФункции // ПолучитьСуммуПочтовогоСбора()
"
30.05.2007
07:40
#7
"Для Омской области:
Результат = 0;
If СуммаПоИспЛисту>0 Then
If СуммаПоИспЛисту <= 1000 Then
Результат = 7 + СуммаПоИспЛисту * 0.07
ElsIf СуммаПоИспЛисту <= 5000 Then
Результат = 77 + (СуммаПоИспЛисту - 1000) * 0.06
ElsIf СуммаПоИспЛисту <= 20000 Then
Результат = 317 + (СуммаПоИспЛисту - 5000) * 0.02
Else
Результат = 617 + (СуммаПоИспЛисту - 20000) * 0.01
EndIf;
EndIf;
"
Результат = 0;
If СуммаПоИспЛисту>0 Then
If СуммаПоИспЛисту <= 1000 Then
Результат = 7 + СуммаПоИспЛисту * 0.07
ElsIf СуммаПоИспЛисту <= 5000 Then
Результат = 77 + (СуммаПоИспЛисту - 1000) * 0.06
ElsIf СуммаПоИспЛисту <= 20000 Then
Результат = 317 + (СуммаПоИспЛисту - 5000) * 0.02
Else
Результат = 617 + (СуммаПоИспЛисту - 20000) * 0.01
EndIf;
EndIf;
"
Читают тему
(гостей: 1)