Вопрос из гостевой. Автор: Yuriy (в 12:30, 3 октября 2008 г.)

Помогите пожалуйста внести изменения в шаблон вордовского договора чтобы автоматом расчитывалась 50% предоплата из 100% суммы и также была запись прописью с большой буквы.Сам смог только сделать вычисления числа суммы а НДС и пропись знаний не хватает. Прилагаю кусочек кода, а может быть у кого-то уже есть готовый шаблон, где нужно поправить только текстовую часть. Буду благодарен за помощь.
КОД:
2.1. Стоимость работ по договору составляет [ pvFormatFloat(',0.00', DocSum.DocFullSum)] рублей ([CurrToStr(DocSum.DocFullSum, DocSum.DocCurrID, '%0:s %1:s %2:s %3:s')]) [IF(DocSum.DocNDSSum > 0, 'в т. ч. НДС ' + Str(DocSum.DocNDSMax * 100) + '% - ' + pvFormatFloat(',0.00', DocSum.DocNDSSum) + ' (' + CurrToStr(DocSum.DocNDSSum, DocSum.DocCurrID, '%0:s %1:s %2:s %3:s') + ')', '(без НДС)')], согласно смете (Приложение №1), которая является неотъемлемой частью до-говора.
2.2 «Заказчик» производит предоплату в размере 50% от стоимости работ по дан-ному договору «Исполнителю», что составляет [ pvFormatFloat(',0.00', DocSum.DocFullSum)] рублей ([CurrToStr(DocSum.DocFullSum, DocSum.DocCurrID, '%0:s %1:s %2:s %3:s')]) [IF(DocSum.DocNDSSum > 0, 'в т. ч. НДС ' + Str(DocSum.DocNDSMax * 100) + '% - ' + pvFormatFloat(',0.00', DocSum.DocNDSSum) + ' (' + CurrToStr(DocSum.DocNDSSum, DocSum.DocCurrID, '%0:s %1:s %2:s %3:s') + ')', '(без НДС)')] не позднее 3 (трех) банковских дней с момента подписания обеими сторонами акта приемки выполненных работ

Выражение для суммы цифрами:
[pvFormatFloat(',0.00', DocSum.DocFullSum*0.5)]
Суммы прописью:
[CurrToStr(pvFormatFloat(',0.00', DocSum.DocFullSum*0.5), DocSum.DocCurrID, '%0:s %1:s %2:s %3:s')]
НДС цифрами и прописью:
[IF(DocSum.DocNDSSum*0.5 > 0, 'в т. ч. НДС ' + Str(DocSum.DocNDSMax * 100) + '% - ' + pvFormatFloat(',0.00', DocSum.DocNDSSum*0.5) + ' (' + CurrToStr(pvFormatFloat(',0.00', DocSum.DocNDSSum*0.5), DocSum.DocCurrID, '%0:s %1:s %2:s %3:s') + ')', '(без НДС)')]