Ценники без копеек

[sunrise]

В настройках программы указал округление до 100 копеек. В справочнике и в прайсе цены отражаются без копеек.
Но вот на ценниках с копейками... Как можно это исправить?

[sunrise]

Вопрос снят, так как по умолчанию почему-то в отчете "Ценники" стоит проходная цена - причина была в этом

[AVDcomp]

Дабы не плодить новые темы
Вопрос такого плана - надо цену в ценнике без копеек, но чтобы после тысяч была запятая или точка.... - 10.280 или 10,200  ?

[admin]

Дабы не плодить новые темы
Вопрос такого плана - надо цену в ценнике без копеек, но чтобы после тысяч была запятая или точка.... - 10.280 или 10,200  ?

Обычной FormatFloat это не сделать т.к. он использует глобальный ThousandSeparator, а он у нас в программе убран т.е.
ThousandSeparator = "";

[admin]

Вот простенькая функция на FastScript, вставляете ее в печатную форму на закладку Код:

Код Виділити Розширити

String ThousandSeparate(Extended aValue)   
{
  String retValue = FormatFloat("0", aValue);
  if(Length(retValue) <= 3)
    return retValue;
  int tmpThousandCount = 1;
  for(int i = Length(retValue);i >= 1; i--)
  {
    if((tmpThousandCount == 3) && (i != 1))
    {       
      Insert(",",retValue,i);
      tmpThousandCount = 1;               
    }
    else
    {       
      tmpThousandCount++;
    }               
  }
  return retValue;
}

Использование [ThousandSeparate(135556512.2222)]
если например надо вставить вместо стандартной:
Ціна: [ToNacValuta(StrToFloat(<Товар.Цена.Розничная>), <Товар.Цена.Валюта.Расходная.Номер>)] грн.
то используйте так:
Ціна: [ThousandSeparate(StrToFloat(ToNacValuta(StrToFloat(<Товар.Цена.Розничная>), <Товар.Цена.Валюта.Расходная.Номер>)))] грн.