Всем привет! 7кой забыл когда занимался, подскажите как настроить оплату картами. Там или ТИС древний или не знаю в чем проблема. Они просто нажимают ОК в доке чекККМ. И ккм отдает чек, где вся сумма наличкой. Подскажите как это делается в 77?

передавать данные с другим типом оплаты

(0) никак, этого нет в стандарте 1с, но решается легко 3 строчками кода, даже не в конфе а обработке обслуживания

это если не заморачиваться частичными оплатами

(3) А если заморачиваться?

(4) а если заморачиваться, то сначала надо спросить сколько есть денег, отнять их от нужной суммы, а потом добавить "три строчки кода"

(0) приглашается программист, который минимум умеет пользоваться отладчиком и платятся ему деньги..

(4) Не тогда надо сделать
~ОшибкаВводаСумм;
ОплатаНал = 0;
ОплатаБезнал = 0;
Если ВвестиЧисло(ОплатаНал,"Введите сумму оплаты НАЛИЧНЫМИ, Сумма по чеку = " + СуммаЧека) = 1 тогда

КонецЕсли;
Если ВвестиЧисло(ОплатаБезнал ,"Введите сумму оплаты БЕЗНАЛИЧНЫМИ, Сумма по чеку " + СуммаЧека) = 1 тогда

КонецЕсли;
Далее проверяй на ноль и на НАЛИЧНЫМИ+ БЕЗНАЛИЧНЫМИ = СуммаЧека
и распихивай

Если (НАЛИЧНЫМИ = 0) И (БЕЗНАЛИЧНЫМИ = 0) Тогда
Возврат "ОшиькаВводаСумм";
КонецЕсли;

Если НАЛИЧНЫМИ+ БЕЗНАЛИЧНЫМИ  <> СуммаЧека Тогда
Перейти ~ОшибкаВводаСумм;
КонецЕсли;
Сообщить();

Если НАЛИЧНЫМИ <> 0 Тогда
Объект.Summ1  = НАЛИЧНЫМИ;
КонецЕсли;
Если БЕЗНАЛИЧНЫМИ <> 0 Тогда
Объект.Summ2  = БЕЗНАЛИЧНЫМИ;
КонецЕсли;

Можно на форме обработки разместить Нал безнал и так далее сами фантазируйте в удобстве работы

также как и в старых
у кого-то код вида оплаты,а у кого-то отдельная сумма в пакете завершения чека.
эквайринг все равно отдельно подключается и с ккт свчзывается только через код в 1с

(4) ))) то там вылезет не только частичная оплата. К тому же зачем оно надо, если всё или почти всё уже заморочено и готово к употреблению, по цене одного среднего ужина)))

(7) жуть какая. я понимаю, понедельник, утро, но надо как-то сдерживаться, что-ли.

(2) Это нужно еще немного допилить форму, что бы она могла где то указать, что оплата безналичная, как я понимаю. Как обычно это выглядит?  Можно увидеть эти три строчки кода?
(3) Частичными оплатами заморачиваться не будем.
(6) Я умею пользоваться отладчиком. Возиться на рабочем месте, нет возможности, оперативная работа. Домой тащить ккм вообще не вариант. Хорошо бы глянуть, рабочий код, сразу на месте внести изменения, чтобы по минимуму там занимать рабочую машину, разглядывая как это работало в ледниковом периоде(или когда там 77 была актуальна?).

(10) Вот так например?
http://catalog.mista.ru/upload/iblock/191/1917c7d8a0884f3a0fcd9a6cca29c243.PNG

(11) Вот здесь этот пример в документе ЧекККМ для ТИС, ред. 9.2 реализован https://yadi.sk/d/0kc_Ait63MBGSh

(12) В файле TIS987_54FZ.md

(9) А в чем жуть, или код не рабочий?
(10) 3 а точнее 5 строк добавить, 2 исправть кода в Обработке обслуживания в процедуре ПечататьЧек()
ОплатаБезнал = 0;
Получено = СуммаЧека;
Если Вопрос("Оплата БЕЗНАЛИЧНЫМИ",6) = 4 тогда
ОплатаБезнал = СуммаЧека;
Получено = 0;
КонецЕсли;

Объект.Summ1  = Получено ;
Объект.Summ2  = ОплатаБезнал;
Объект.Summ3  =0;
Объект.Summ4  =0;

(14) за один только безусловный переход я бы уже бил по рукам - здесь он совершенно не оправдан. ещё как минимум одно условие лишнее. да и в целом, общая логика - я понимаю, сферическая в вакууме - но делать так нельзя.
(14) это то же, сомнительного качества код. Получено - это реквизит чека с определённой логикой, тупо присваивать ему что-либо  - это бред, тем более когда введена ОплатаБезнал. где в чеке сохраняется признак оплаты картой, ОплатаБезнал - это реквизит? ну и вопросы по логике документа по кнопке ок/провести - это ещё одна причина бить по рукам.

(15) Себе настучи кодоморалфаг,Логика в получено - это реквизит ЧекаККМ, а не обработки обслуживания,не думаю что в этом случае критично расчет сдачи в печати чека, не хочешь получено - сделай забратоналомупакупателя, и так во всем, а логика безусловного перехода - в том что кассир ошибся при вводе суммы, их надо переввести, или есть другое решение? а нуда, мы же скажем не верно введена сумма, и по кругу будем возвращать в чек да?
логики не более чем достаточно

(16) + и да это всего лишь заготовки а как их будет реализовывать автор, мне честно по барабану

(17) "Поставляемая конфигурация - пример реализации учёта", кажется так было в документации от типовой?

Вот, кусок из моей рабочей самописки, под АТОЛ, Пар - 1 если нал, 2 если картой:

    ИтогЧека    = ТЧ.Итог("Сумма");
    Если Пар = 1 Тогда
        Если СуммаОтПок > ИтогЧека Тогда
            ECR.TypeClose         = 0;
            ECR.Summ             = СуммаОтПок;
            Если ECR.Delivery() <> 0 Тогда
                Ошибка = 1;
                Возврат;
            КонецЕсли;             
        Иначе
            ECR.TypeClose     = 0;
            ECR.Summ        = ИтогЧека;
            ECR.Payment();
              Если ECR.CloseCheck() <> 0 тогда
                  Сообщить("Ошибка продажи по накладной ");
                  Ошибка = 1;
                Если ECR.OutOfPaper = 0 Тогда
                      Предупреждение("В ККМ закончилась бумага!");
                  КонецЕсли;
                  Если ECR.GetCurrentMode() <> 0 Тогда
                     Возврат;
                КонецЕсли;
                Возврат;
              КонецЕсли;        
        КонецЕсли;
    ИначеЕсли Пар = 2 Тогда
        ECR.TypeClose = 5; // В новых прошивках соответствует платежной карте
        ECR.Summ        = ИтогЧека;
        ECR.Payment();
          Если ECR.CloseCheck() <> 0 тогда
              Сообщить("Ошибка продажи по накладной ");
              Ошибка = 1;
            Если ECR.OutOfPaper = 0 Тогда
                  Предупреждение("В ККМ закончилась бумага!");
              КонецЕсли;
              Если ECR.GetCurrentMode() <> 0 Тогда
                Возврат;
            КонецЕсли;
            Возврат;
        КонецЕсли;
    Иначе
        ECR.TypeClose     = 5;
        ECR.Summ         = Мин(ДоляКарт,ИтогЧека);
        ECR.Payment();
        ECR.TypeClose     = 0;
        ECR.Summ         = ИтогЧека - ДоляКарт;
        ECR.Payment();
        
          Если ECR.CloseCheck() <> 0 тогда
              Сообщить("Ошибка продажи по накладной ");
              Ошибка = 1;
            Если ECR.OutOfPaper = 0 Тогда
                  Предупреждение("В ККМ закончилась бумага!");
              КонецЕсли;
              Если ECR.GetCurrentMode() <> 0 Тогда
                Возврат;
            КонецЕсли;
            Возврат;
          КонецЕсли;        
    КонецЕсли;

http://catalog.mista.ru/public/603118/
http://catalog.mista.ru/upload/iblock/3ac/3ac38f5f4f035656c216a60fddd75cde.jpg

(20) Когда допилишь смешанную оплату? ;)

(21) А как делать Возврат при смешанной оплате (картой наличкой)? если возвращается часть то как делить на наличку и безнал

(22) В этом случае делается полный возврат, и выбивается новый чек

В (19) у меня смешанная оплата работает. И для возврата тоже будет работать, только сумму первой оплаты(безнал) надо вручную вводить. Естественно, терминал не подключен, вводится на терминале сумма и в кассе вручную. Есть у меня немного другая конфа, где СБЕР подключен интегрированно, через sbrf.dll, правда, под восьмеркой, но "семерошными" методами, переписать на 7.7 ни каких проблем. Там тоже смешанная оплата работает, вводится сумма по карте, а остаток предлагает ввести наличкой, можно со сдачей или без.

(10) ну вот... тебе легче станет?
ИначеЕсли СокрЛП(код) = "115" Тогда // Клавиша  F4 //оплата по безналу  
    ЗаписалиДокумент    = 0;  
    ЗапустилиНаПробитие = 1;
    //ЗаписьЖурналаРегистрации("Готовим таблицу докмента", "ФР", "Чек", ТекущийДокумент(), 3);
    Если лкмПодготовитьДокументСуммы() = 1 Тогда
        //ЗаписьЖурналаРегистрации("Подключаем терминал СБ", "ФР", "Чек", ТекущийДокумент(), 3);
        Если лкмПодключитьТерминалБанка() = 1 Тогда
            ПарамДляФормы = СоздатьОбъект("СписокЗначений");
            ПарамДляФормы.ДобавитьЗначение(СуммаПоРучнойКассе - ЧекПробитККМВВ * СуммаКартойВВ, "СуммаВВ");
            ПарамДляФормы.ДобавитьЗначение(СуммаНеВВ - ЧекПробитККМ * СуммаКартойНеВВ, "СуммаНеВВ");  
            ПарамДляФормы.ДобавитьЗначение(ТекущийДокумент(),"ТекущийДокумент");
            //ЗаписьЖурналаРегистрации("Спрашиваем сумму: " + (СуммаПоРучнойКассе + СуммаНеВВ), "ФР", "Чек", ТекущийДокумент(), 3);
            ОткрытьФормуМодально("Обработка.ВводСуммыПоТерминалу", ПарамДляФормы);  //здесь спрашиваем сколько будут оплачивать налом, остальное картой.
            СуммаОплатыКартойВсего = ПарамДляФормы;  
            //ЗаписьЖурналаРегистрации("Спросили сумму для терминала, ввели: " + СокрЛП(СуммаОплатыКартойВсего) + ". В чеке: " +
            //СокрЛП(СуммаПоРучнойКассе + СуммаНеВВ) + " (не ВВ: " + СокрЛП(СуммаНеВВ) + " + ВВ: " +
            //СокрЛП(СуммаПоРучнойКассе) + "). Получили от клиента: " + СокрЛП(Получено), "ФР", "Терминал банка", ТекущийДокумент(), 3);
            Если СуммаОплатыКартойВсего > 0 Тогда
                Если (СуммаПоРучнойКассе > 0) И (ЧекПробитККМВВ = 0) Тогда
                    СуммаКартойВВ = Мин(СуммаПоРучнойКассе, ПарамДляФормы);
                    ПарамДляФормы = ПарамДляФормы - СуммаКартойВВ;
                КонецЕсли;
                Если (СуммаНеВВ > 0) И (ЧекПробитККМ = 0) Тогда
                    СуммаКартойНеВВ = Мин(СуммаНеВВ, ПарамДляФормы);
                    ПарамДляФормы = ПарамДляФормы - СуммаКартойВВ;    
                КонецЕсли;
                
                Если ВыполнитьНажатиеНаКнопку("ОК") = 1 Тогда
                    БылаНажатаКнопкаАлт = 0;
                КонецЕсли;
            Иначе
                Предупреждение("Ввели нулевую сумму!", 15);    
            КонецЕсли;    
        Иначе
            Предупреждение("Ошибка при подготовке документа к пробитию!!!", 15);
            ЗапустилиНаПробитие = 0;
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
    Иначе
        Предупреждение("Проверьте цены в документе!!!", 15);
        ЗапустилиНаПробитие = 0;
        СтатусВозврата(0);
        Возврат;
    КонецЕсли;

(21) надо, надо! а то опух от малоджелания. неинтересные эти мелкие копания ;-)

а как, поясните, делается документ.ОтчетККМ за смену?
я у себя допиливал в МНЧ дока реквизит типа ТипОплаты, при проведении что безналом - проводил по Регистру.Банк, налом - по регистр.Касса.
.
но как-то никто не упоминает как он в базе проводит закрытие смены..
???

(27) Да обычно, через обработку "Закрытие кассовой смены" малость переделаную

(27) Что безналом то потом с помощью РКО убираем из касс эквайринг

(27) Ну если по нормальному заморачиваться, то у меня эти модули перепилены сильно, там и банк - касса переносятся, и клиенты и скидки и сертификаты и баллы и карты клиентов которае применилась при расчете скидки, но это уже совсем другая история