Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Кількість (прописом)          
vadim007 Подменю пользователя
сообщение 22.10.13, 8:51
Сообщение #1

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0

Бухия для Украины.
В доверенности графа Кількість (прописом) записывается так: Дев'яносто п'ять целых вісімдесят п'ять сотых.
Так у всех, или только у меня? Как исправить этот суржик?

Vofka Подменю пользователя
сообщение 22.10.13, 9:01
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4519 раз
Рейтинг: 3641.2

Извините за офтоп.
Удалите файл прописи языка "азаровский". haha.gif

mister-x Подменю пользователя
сообщение 22.10.13, 9:27
Сообщение #3

...
Иконка группы
Модератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 3477
Из: Тернопіль
Спасибо сказали: 1417 раз
Рейтинг: 0

в демці 298 друкує тільки цілу частину кількості

Домовик Подменю пользователя
сообщение 22.10.13, 9:53
Сообщение #4

Ветеран
Иконка группы
Группа: Местный
Сообщений: 975
Из: Киев
Спасибо сказали: 168 раз
Рейтинг: 0

вот как-то оно выглядит так, что spl файл в котором должны быть перечислены дроби у вас только русский, без окончания ukr.

но вообще Мистер-Х прав. какая-то нестандартная доверенность.

а еще может быть кто-то эти файлы вручную правил.

Сообщение отредактировал Домовик - 22.10.13, 9:54

vadim007 Подменю пользователя
сообщение 22.10.13, 12:40
Сообщение #5

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0

Позор на мою седую голову - это я четыре года назад добавил в доверенность код:
Функция ПрописьДроби(Знач Ч)
    Числ = СокрЛП(Строка(Ч));
    Поз  = Найти(Числ, ".");
    // Анализ целой части
    ЦелЧ = Лев(Числ, ?(Поз=0,СтрДлина(Числ),Поз-1));
    ЦелЧ = Формат(ЦелЧ, "ЧП");
    Если ПустоеЗначение(ЦелЧ) = 1 Тогда
        ЦелЧ = "Ноль";
    КонецЕсли;
    // анализ дробной части
    Дроб = "";
    Если Поз > 0 Тогда
        ЦелЧ = ЦелЧ + " целых ";
        Дроб = Сред(Числ, Поз+1);
        Длин = СтрДлина(Дроб);
        Дроб = НРег(Формат(Число(Дроб), "ЧП"));
        Если Длин = 1 Тогда
            Дроб = Дроб+" десятых";
        ИначеЕсли Длин = 2 Тогда
            Дроб = Дроб+" сотых";
        ИначеЕсли Длин = 3 Тогда
            Дроб = Дроб+" тысячных";
        ИначеЕсли Длин = 4 Тогда
            Дроб = Дроб+" десятитысячных";
        ИначеЕсли Длин = 5 Тогда
            Дроб = Дроб+" стотысячных";
        ИначеЕсли Длин = 6 Тогда
            Дроб = Дроб+" миллионных";
        Иначе
            Дроб = Дроб+" неопределенных";
        КонецЕсли;
    КонецЕсли;
    Числ = ЦелЧ + Дроб;
    Возврат Числ;
КонецФункции

Счас буду думать как исправить...

Спасибо сказали: Домовик,

volodya1122 Подменю пользователя
сообщение 22.10.13, 13:38
Сообщение #6

Оратор
Иконка группы
Группа: Местный
Сообщений: 336
Из: Тернопіль
Спасибо сказали: 133 раз
Рейтинг: 135.7

Цитата(vadim007 @ 22.10.13, 13:40) *
Дроб = Дроб+" неопределенных";


А Вы с юмором.......

Cthulhu Подменю пользователя
сообщение 24.10.13, 17:24
Сообщение #7

Завсегдатай
Иконка группы
Группа: Местный
Сообщений: 224
Из: не ту страну назвали Гондурасом
Спасибо сказали: 83 раз
Рейтинг: 0

//[поскипано] корректор
        Иначе//Если Длин = 6 Тогда  //[*] корректор
            Дроб = Дроб+" миллионных";
        //Иначе  //[-] корректор
        //    Дроб = Дроб+" неопределенных";  //[-] корректор
        КонецЕсли;
    КонецЕсли;
    Числ = ЦелЧ + Дроб//;  //[*] корректор
    +?(Длин>6," (с хвостиком даже)","");  //[+] корректор
    Возврат Числ;

haha.gif

    Числ = //ЦелЧ + Дроб;  //[*] корректор
    Лев(ЦелЧ,Мин(6,СтрДлина(ЦелЧ))+?(Длин>6," (с хвостиком даже)","");  //[+] корректор


Сообщение отредактировал Cthulhu - 24.10.13, 16:50

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 19.04.24, 23:50
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!