![]() |
![]() |
![]() |
|
Запустить изъятие денег с кассы | ☑ | ||
---|---|---|---|---|
0
Chuchi
29.08.13
✎
19:38
|
День добрый, наверно опять останусь без полезного совета ( что то на форуме стали просто больше критиковать за неграмотность и предлагать свои платные услуги) но все ж...а вдруг..
с рабочего места кассира открываю документ возврата товара.. как при закрытии этого документа запустить сразу процедуру изъятия денег из кассы ( за возвращенный товар).. эта процедура есть на рабочем месте кассира? |
|||
1
Нуф-Нуф
29.08.13
✎
19:40
|
"процедуру изъятия денег из кассы ( за возвращенный товар)"
Это что? |
|||
2
Нуф-Нуф
29.08.13
✎
19:40
|
Макрос в эксел98?
|
|||
3
Chuchi
29.08.13
✎
19:42
|
Процедура ДействияФормыИзъятиеДенег(Кнопка)
Если мФР <> Неопределено Тогда Сумма = Неопределено; Если ВвестиЧисло(Сумма, "Необходимо ввести сумму", 15, 3) Тогда Пароль = ПолучитьСерверТО().ПолучитьПарольКассираККМ(); Результат = ПолучитьСерверТО().ВнестиСумму(мФР, Пароль, -Сумма); //Если ЗначениеЗаполнено(Результат) Тогда // ТекстОшибки = ПолучитьСерверТО().ПолучитьТекстОшибкиФРТО(Результат); // Предупреждение(ТекстОшибки); //КонецЕсли; Если ЗначениеЗаполнено(Результат) Тогда ТекстОшибки = ПолучитьСерверТО().ПолучитьТекстОшибкиФРТО(Результат); Предупреждение(ТекстОшибки); Иначе ДокИнкассация=Документы.Инкассация.СоздатьДокумент(); ДокИнкассация.Дата=ТекущаяДата(); ДокИнкассация.Организация= УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяОрганизация"); ДокИнкассация.КассаККМ=УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяКассаККМ"); ДокИнкассация.СуммаДокумента=-Сумма; Комм=""; //111111111111111111111111111111111111 //1111111111111111111111111111111111111 ~метка: Если ВвестиСтроку(Комм,"Введите причину инкассации",100,Ложь)=Истина Тогда ДокИнкассация.Комментарий=Комм; Иначе Перейти ~метка; КонецЕсли; //1111111111111111111111111111111111111 //111111111111111111111111111111111111 //Если ВвестиСтроку(Комм,"Введите причину инкассации",100,Ложь)=Истина Тогда // ДокИнкассация.Комментарий=Комм; // КонецЕсли; ДокИнкассация.Записать(РежимЗаписиДокумента.Проведение); КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры |
|||
4
Нуф-Нуф
29.08.13
✎
19:47
|
Вынеси в общий модуль
|
|||
5
Chuchi
30.08.13
✎
12:52
|
а можно как то сумму документа поместить в переменную и потом при получении фокуса на рабочем месте кассира запустить изъятие и вставить сумму из этой переменной?
|
|||
6
Wobland
30.08.13
✎
12:54
|
>но все ж...а
поручкам молчать! |
|||
7
Chuchi
30.08.13
✎
14:38
|
Изъятие = Документы.ЧекККМ.СоздатьДокумент();
ФормаИз = Изъятие.ПолучитьФорму("ФормаРегистрацииПродаж"); ФормаИз.Открыть(); ФормаИз.ДействияФормыИзъятиеДенег(Кнопка); Документ.ВозвратТоваровОтПокупателя.Форма.ФормаДокумента.Форма(2780)}: Метод объекта не обнаружен (ДействияФормыИзъятиеДенег) как бы запустить то? Пожалуйста подскажите |
|||
8
Джинн
30.08.13
✎
14:39
|
Адрес кассы дайте. Сейчас ребята приедут и изымут.
|
|||
9
eklmn
гуру
30.08.13
✎
14:50
|
неудивительно что " что то на форуме стали просто больше критиковать за неграмотность и предлагать свои платные услуги"
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |