Изменить валюту в программе для ресторана

@lopunkik · Регистрация: 08.05.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Есть программа для ресторана. При нажатии на обслуживание>>Оформить счет выдает чек, в чеке информация о заказе, клиенте, официанте и сумма к оплате в рублях(цифрами и прописью). Не могу найти где поменять на другую валюту(тенге).

Тут сам проект, посмотрите пожалуйста, очень надо.
programma.rar

@alex89d · 10.05.2015, 22:37

Форма upropis

Delphi

var rub: string[MaxPosition + 3]; kop: string[2]; 
begin {Возвращает число прописью с рублями и копейками}
 
  Str(c: MaxPosition + 3: 2, Result);
  if Pos('E', Result) = 0 then //Если число можно представить в строке <>1E+99
    begin 
      rub := TrimLeft(Copy(Result, 1, Length(Result) - 3));
      kop := Copy(Result, Length(Result) - 1, 2); 
      Result := NumToStr(rub) + ' тенге' + ruble[ending(rub)]
        + ' ' + kop + ' копе' + Kopeek[ending(kop)];
      Result := AnsiUpperCase(Result[1]) + Copy(Result, 2, Length(Result) - 1);
    end;
end;

@alex89d · 10.05.2015, 22:39

И вот:

@lopunkik 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 1
		1
	Изменить валюту в программе для ресторана 08.05.2015, 08:32. Показов 1735. Ответов 2 Метки нет (Все метки) Здравствуйте. Есть программа для ресторана. При нажатии на обслуживание>>Оформить счет выдает чек, в чеке информация о заказе, клиенте, официанте и сумма к оплате в рублях(цифрами и прописью). Не могу найти где поменять на другую валюту(тенге). Тут сам проект, посмотрите пожалуйста, очень надо. programma.rar 0

	10.05.2015, 22:39

Опции темы

Изменить валюту в программе для ресторана

Решение