Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Кількість (прописом)
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
vadim007
Бухия для Украины.
В доверенности графа Кількість (прописом) записывается так: Дев'яносто п'ять целых вісімдесят п'ять сотых.
Так у всех, или только у меня? Как исправить этот суржик?
Vofka
необходимо зарегистрироваться для просмотра ссылки
Удалите файл прописи языка "азаровский". haha.gif
mister-x
в демці 298 друкує тільки цілу частину кількості
Домовик
вот как-то оно выглядит так, что spl файл в котором должны быть перечислены дроби у вас только русский, без окончания ukr.

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

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

Счас буду думать как исправить...
volodya1122
Цитата(vadim007 @ 22.10.13, 13:40) необходимо зарегистрироваться для просмотра ссылки
Дроб = Дроб+" неопределенных";


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

haha.gif

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