Сумма прописью в расходнике.

[serj37]

Добрый день! Наши бухгалтера ссылаясь на - http://www.consultant.ru/document/cons_doc_LAW_163618/ говорят, что получатель денег теперь не обязан писать прописью сумму, а она должна быть обязательно в этой строке расходника. Во-первых, пропись это как бы калиграфически и вручную. Во-вторых ни разу не сталкиваься в 1С чтобы цифры переводились в текст. Кто-нибудь сталкивался с этой проблемой?

[mixqn]

Ну вообще-то представление числа прописью - задача типовая. В 1С 8.х есть даже встроенная функция ЧислоПрописью. Про 7.7 уже не помню, смотреть надо, там, возможно, встроенной нет, но обязательно должно быть что-то где-то, может в глобальном модуле, или может быть компонентой V7plus подключается. В общем не помню, искать надо Но факт что такое должно быть.

Добавлено:

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

Код Выделить Развернуть

Сообщить(СокрЛП(Формат(Сумма,"Ч 19.0"))+" – "+Формат(Сумма,"ЧПД"));
не уверен, что он рабочий, но попробуйте, поэкспериментируйте.

[serj37]

Ну вообще-то представление числа прописью - задача типовая. В 1С 8.х есть даже встроенная функция ЧислоПрописью. Про 7.7 уже не помню, смотреть надо, там, возможно, встроенной нет, но обязательно должно быть что-то где-то, может в глобальном модуле, или может быть компонентой V7plus подключается. В общем не помню, искать надо Но факт что такое должно быть.

Добавлено:

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

Код Выделить Развернуть

Сообщить(СокрЛП(Формат(Сумма,"Ч 19.0"))+" – "+Формат(Сумма,"ЧПД"));
не уверен, что он рабочий, но попробуйте, поэкспериментируйте.

Спасибо! Будем пробовать.

[has]

Из глобального модуля 1С ТиС

Код Выделить Развернуть


Функция глСуммаПрописью(Сумма, Валюта) Экспорт

Если Валюта <> глРубли Тогда

Если ФС.СуществуетФайл(КаталогИБ() + Валюта.ИмяФайлаПрописи) = 1 Тогда
Пропись(Валюта.ИмяФайлаПрописи);
Иначе
Сообщить("Для валюты " + Валюта + " отсутствует файл прописей." +
         РазделительСтрок +
"Сумма прописью сформирована в национальной валюте.");
КонецЕсли;

КонецЕсли;

СтрокаСуммы = Формат(Сумма, "ЧПДС");

// установим пропись по умолчанию
Пропись("");
Возврат СтрокаСуммы;

КонецФункции // глСуммаПрописью()