v7: Помогите рассчитать сдачу

1C 7.7

10.07.13

✎

17:06

Не получается с расчетом сдачи в типовой ТиС, документ Чек ККМ. Попросили люди чтобы если внесенная покупателем сумма равна сумме товара, то чтобы в сдаче выбивало вот такой текст "00-00"
Вот функция:
Функция РасчетСдачи()
ВремСумма = Итог("Сумма");
ВремСдача = Макс(Получено - ВремСумма, 0);

Если (СтараяСумма <> ВремСумма) ИЛИ (СтараяПолучено <> Получено) Тогда
СтараяСумма = ВремСумма;
СтараяПолучено = Получено;
Попытка
глДПВывестиСтроки(глФРМ(ВремСумма,,""), глФРМ(ВремСдача,,""));
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;

1 melya

10.07.13

✎

17:08

Я сделал так:

Если (ВремСумма = Получено) Тогда
ВремСдача = "00-00"
КонецЕсли;

Не судите строго...

2 Kreont

10.07.13

✎

17:12

ну и норм, если работает то больше и не надо :)

3 melya

10.07.13

✎

17:12

я не программист)) попросила девушка знакомая)) если сделаю, может быть она мне даст... Помогите пожалуйста

4 melya

10.07.13

✎

17:12

(2) так не работает!

5 Kreont

10.07.13

✎

17:13

Развечто проверь что б по коду дальше ВремСдача не использовалась как число в операциях, если исползуется только для вывода тогда все норм.

6 ДенисЧ

10.07.13

✎

17:13

(3) Фиксин???

7 Kreont

10.07.13

✎

17:13

(3) за самомотивацию 5 балов!

8 KUBIK

10.07.13

✎

17:14

может быть она мне даст = сдачу??? :))))))))))

9 melya

10.07.13

✎

17:14

(6) не понимаю

10 melya

10.07.13

✎

17:14

(8) можно и так сказать, сдачу за мои старания

11 dedmoroz777

10.07.13

✎

17:15

глДПВывестиСтроки(глФРМ(ВремСумма,,""), ?(ВремСдача = 0,"00-00",глФРМ(ВремСдача,,"")));

12 Базис

naïve

10.07.13

✎

17:15

Попрошайка.

13 melya

10.07.13

✎

17:16

(11) пропробую..

14 melya

10.07.13

✎

17:19

Функция РасчетСдачи()
ВремСумма = Итог("Сумма");
ВремСдача = Макс(Получено - ВремСумма, 0);

Если (СтараяСумма <> ВремСумма) ИЛИ (СтараяПолучено <> Получено) Тогда
СтараяСумма = ВремСумма;
СтараяПолучено = Получено;
Попытка
глДПВывестиСтроки(глФРМ(ВремСумма,,""), глФРМ(ВремСдача,,""));
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
глДПВывестиСтроки(глФРМ(ВремСумма,,""), ?(ВремСдача = 0,"00-00",глФРМ(ВремСдача,,"")));
Возврат (глФРМ(ВремСдача));
КонецФункции // РасчетСдачи()

сделал так, не помогает, может я не туда прописал?

15 melya

10.07.13

✎

17:20

ребятушки, помогите, очень нужно!

16 Ёпрст

10.07.13

✎

17:23

(14)
Функция РасчетСдачи()
ВремСумма = Итог("Сумма");
ВремСдача = Макс(Получено - ВремСумма, 0);

Если (СтараяСумма <> ВремСумма) ИЛИ (СтараяПолучено <> Получено) Тогда
СтараяСумма = ВремСумма;
СтараяПолучено = Получено;
Попытка
глДПВывестиСтроки(глФРМ(ВремСумма,,""), ?(ВремСдача = 0,"00-00",глФРМ(ВремСдача,,"")));
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЕсли;

КонецФункции // РасчетСдачи()

17 Ёпрст

10.07.13

✎

17:23

теперь точно даст

18 Mikeware

10.07.13

✎

17:23

(15) значит, не дорос ты еще до секса.

19 ДенисЧ

10.07.13