Суббота, 20 апреля, 2024

Сумма прописью на английском 1c

Как перевести сумму в строку на английском

Для перевода суммы из числа в строку прописью воспользуемся стандартной функцией ЧислоПрописью(). Синтаксис функции выглядит так: ЧислоПрописью(<Число>, <ФорматнаяСтрока>, <ПараметрыПредметаИсчисления>)

  Результат = "";
    СуммаКПрописи = Объект.Число;
    
    //На кириллице
    ФормСтрока = "Л = ru_RU; ДП = Истина";
    ПарПредмета = "рубль,рубля,рублей,м,копейка, копейки, копеек, ж,2";
    Результат = Результат + " " +ЧислоПрописью(СуммаКПрописи,  ФормСтрока, ПарПредмета) + Символы.ПС;
    
    ПарПредмета="доллар,доллара,долларов,м,цент,цента,центов,м,2";
    Результат = Результат + " " +ЧислоПрописью(СуммаКПрописи,  ФормСтрока, ПарПредмета) + Символы.ПС;
    
    ПарПредмета="евро,евро,евро,м,евроцент,евроцента,евроцентов,м,2";
    Результат = Результат + " " +ЧислоПрописью(СуммаКПрописи,  ФормСтрока, ПарПредмета) + Символы.ПС;
    
    //На английском
    Результат = Результат + " " + ЧислоПрописью(СуммаКПрописи, "L=en_US","rouble, roubles, kopeck,kopecks,  2") + Символы.ПС;
    
    Результат = Результат + " " + ЧислоПрописью(СуммаКПрописи, "L=en_US", "dollar, dollars,m, cent, cents,m, 2") + Символы.ПС;
    
    Результат = Результат + " " + ЧислоПрописью(СуммаКПрописи, "L=en_US","euro, euros,m, cent, cents,m, 2") + Символы.ПС;
    
    Объект.Резульат = Результат;


Результат выглядит вот так:

Как перевести сумму в строку на английском

Понадобиться такое преобразование числа может например для печатной формы «Акта об оказании услуг» для иностранных контрагентов. По ссылке находиться небольшая обработка для получения расширенного представления об этой функции:  ЧислоПрописью.epf.

Пожалуйста лайк, репост

Это тоже интересно

РЕКОМЕНДУЕМ

Интересное