Здравствуйте Террасофт!
В созданном "ФастРепорт" отчете реализована функция подстановки суммы прописью, следующим образом:
var
ConvertUtils, CurrencyUtils: Variant;
procedure memSummaOnBeforePrint(Sender: TfrxComponent);
var
Amount: String;
AmountInStr: String;
begin
Amount := FloatToStr(SUM(,ddOffering));
AmountInStr := ConvertUtils.ScriptControl.CodeObject.AmountToStr(Amount, 'ru', 'RUB');
memSumma.Text := AmountInStr;
end;
procedure frxReportOnStartReport(Sender: TfrxComponent);
var
Connector: Variant;
begin
Connector := ds_ReportInvoiceWithNDSForRussia11.GetConnector();
ConvertUtils := Connector.Services.GetNewItemByUSI('scr_ConvertUtils');
CurrencyUtils := Connector.Services.GetNewItemByUSI('scr_CurrencyUtils');
end;
begin
end.
Подскажите как реализовать подстановку копеек цифрами, а остальное оставить, как было, буквами?