skilet
27.11.2011, 00:51
народ помогите мне написать сумму прописью, стоит 8.2 бух. предприятия, поставил внешнюю обработку печатной формы все вроде хорошо, но пишет сумму цифрами (пример:4500), а надо прописью...понять немогу где и как прописывать....
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
Сумма = ОбщегоНазначения.Сформиро� �атьСуммуПрописью(ОбщегоНа значения.ФорматСумм((УчетН� �С.ПолучитьСуммуДокументаС НДС(СсылкаНаОбъект, "Товары")+УчетНДС.ПолучитьСуммуДок� �ментаСНДС(СсылкаНаОбъект, "Услуги")) * Курс / Кратность), ?(СуммыВРублях, мВалютаРубли, СсылкаНаОбъект.ВалютаДоку� �ента));
Если (СсылкаНаОбъект.Товары.Ито� �("СуммаНДС")+СсылкаНаОбъект.Услуги.Ито г("СуммаНДС")) <> 0 Тогда
СуммаНДС = ОбщегоНазначения.Сформиро� �атьСуммуПрописью(ОбщегоНа значения.ФорматСумм((Ссылк� �НаОбъект.Товары.Итог("СуммаНДС")+СсылкаНаОбъект.Услуги.Ито г("СуммаНДС")) * Курс / Кратность), ?(СуммыВРублях, мВалютаРубли, СсылкаНаОбъект.ВалютаДоку� �ента));
ОбластьМакета.Параметры.Су ммаПрописью = Сумма + " , в том числе НДС " + СуммаНДС;
иначе
СуммаНДС = "";
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
ОбластьМакета.Параметры.Су ммаПрописью = Сумма + СуммаПрописью(СуммаПропис� �ю.мВалютаРубли"),+ " , НДС не облагается." ;
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
Сумма = ОбщегоНазначения.Сформиро� �атьСуммуПрописью(ОбщегоНа значения.ФорматСумм((УчетН� �С.ПолучитьСуммуДокументаС НДС(СсылкаНаОбъект, "Товары")+УчетНДС.ПолучитьСуммуДок� �ментаСНДС(СсылкаНаОбъект, "Услуги")) * Курс / Кратность), ?(СуммыВРублях, мВалютаРубли, СсылкаНаОбъект.ВалютаДоку� �ента));
Если (СсылкаНаОбъект.Товары.Ито� �("СуммаНДС")+СсылкаНаОбъект.Услуги.Ито г("СуммаНДС")) <> 0 Тогда
СуммаНДС = ОбщегоНазначения.Сформиро� �атьСуммуПрописью(ОбщегоНа значения.ФорматСумм((Ссылк� �НаОбъект.Товары.Итог("СуммаНДС")+СсылкаНаОбъект.Услуги.Ито г("СуммаНДС")) * Курс / Кратность), ?(СуммыВРублях, мВалютаРубли, СсылкаНаОбъект.ВалютаДоку� �ента));
ОбластьМакета.Параметры.Су ммаПрописью = Сумма + " , в том числе НДС " + СуммаНДС;
иначе
СуммаНДС = "";
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
ОбластьМакета.Параметры.Су ммаПрописью = Сумма + СуммаПрописью(СуммаПропис� �ю.мВалютаРубли"),+ " , НДС не облагается." ;