Имя: Пароль:
1C
1С v8
Запустить изъятие денег с кассы
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
неудивительно что " что то на форуме стали просто больше критиковать за неграмотность и предлагать свои платные услуги"