Правильное отображение копеек в счете
Собственно хочу предложить небольшой скрипт для исправления недочета КСТ. При выводе любой цифры в письменном виде копейки отображаются не совсем корректно (
Пример: Четыре тысячи двести пятьдесят 40/100) что есть не хорошо.
Решение:- Заходим в дизайнер и открываем соответствующее поле Memo
- Пишим во втором окне следующий текст:
begin
a:=STRTOFLOAT(COPY([Сумма счета (пропис.)], LENGTH([Сумма счета (пропис.)])-4, 1));
if a = 1 then
text:='копейка';
if (a>1) and (a<5) then
text:='копейки';
if (a>4) or a = 0 then
text:='копеек';
memo:=copy([Сумма счета (пропис.)], 1,LENGTH([Сумма счета (пропис.)])-4)+' '+text;
end
- Сохраняем полученный отчет.
Результат: Четыре тысячи двести пятьдесят 40 копеек.
Приведенный выше код не притендует на оригинальность и не является оптимальным, а лишь демонстрирует возможности встроенного дизайнера.