An4eus
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Akam1
Цитата: An4eus
Цитата:| мне вот всегда интересно, а откуда они берутся? |
Обычно они идут с каждым обновлением любой конфы или платформы от 1С. Хоть 7.х, хоть 8.х. |
что-то в 7-ке я такого никогда не видел...
vkramnik
Цитата: И, наконец, ПечВес = ПечВесКг+" кг "+ПечВесГр+" гр"
Функцию типа ЧислоПрописью() можешь написать сама, а можешь поискать в Интернете... |
тогда никакого нету смысла использовать файл прописи!
Samurai123
Цитата:| подскажите, как правильно, оформить в печатной форме запись числа на пример 2,5 кг, чтоб было прописью Два кг. пятьсот гр... |
содать файл прописи, как "денежная" величина!
Цитата: 1. создала файл Wes.spl где описла
{"Speller",
{"Weight",
{"килограмм","килограмма","килограммов","грамм","грамма","граммов","W"}}
} |
лучше так:
Код: {"Speller",
{"Money",
{"килограмм","килограмма","килограммов","грамм","грамма","граммов","M"}}
} |
Цитата: 2. в глобальном модуле
Функция глВесПрописью(ИтогоВес, ОКЕИ) Экспорт
Если ФС.СуществуетФайл(КаталогИБ() + ОКЕИ.ИмяФайлаПрописи) = 1 Тогда
Пропись(ОКЕИ.ИмяФайлаПрописи);
Иначе
Сообщить(" Для веса " + ОКЕИ + " отсутствует файл прописи. " +
РазделительСтрок +
" ");
КонецЕсли;
СтрокаВес = Формат(ИтогоВес, "ЧПВ");
Пропись("Wes.SPL");
Возврат СтрокаВес;
КонецФункции |
есть неточности!!! лучше так:
Код: Функция глВесПрописью(ИтогоВес, ОКЕИ) Экспорт
Если ФС.СуществуетФайл(КаталогИБ() + ОКЕИ.ИмяФайлаПрописи) = 1 Тогда
Пропись(ОКЕИ.ИмяФайлаПрописи);
Иначе
Сообщить(" Для веса " + ОКЕИ + " отсутствует файл прописи. " +
РазделительСтрок +
" ");
КонецЕсли;
//Ч - передаваемый параметр - число
//П - использовать для вывода проспиь
//Д - выводить денежную величину
//С - выводить её с конейками
СтрокаВес = Формат(ИтогоВес, ЧПДС");
//обязательно нужно обнулить пропись!!!
Пропись("");
Возврат СтрокаВес;
КонецФункции |
----------
Век живи - век учись! |
|
Неделя - полет нормальный...
