Имя: Пароль:
1C
 
Внешеяя обработка
0 Vovik
 
10.06.05
14:07
Помогите нужна ertшка(рабочая, провереная) для апарата Samsung RF4615 апарат фискализирован
1 Убитая С Тазом
 
10.06.05
14:08
Гнусмас не работает с ертешками
2 Vovik
 
10.06.05
14:10
И с, чем же он работает?
3 Убитая С Тазом
 
10.06.05
14:11
с лентами кассовыми...
4 Дык ведь
 
10.06.05
14:12
тебе для начала драйвер надо. Или из командной строки хотишь рОбить? Есть и такие варианты.
5 Vovik
 
10.06.05
14:13
Ты хоть раз кассы подключала?
6 Vovik
 
10.06.05
14:14
Дрова есть.
7 Vovik
 
10.06.05
14:15
фискализирован
8 Убитая С Тазом
 
10.06.05
14:15
(5)И чо?
Вот те образец для Мини-600... дальше иппайся сам
Перем НазваниеДрайвера;

//===========================================            
Процедура ИнициализацияДрайвера()                      
   
КонецПроцедуры                

//===========================================            
Процедура Инициализация()            
   
   ЭККА = глРасшифровка.Получить("Касса");
       
   Состояние("Инициализация драйвера ЭККА "+ЭККА);
   
   спПараметры = СоздатьОбъект("СписокЗначений");
   глПарсить(ЭККА.ПараметрыИнициализации,спПараметры,РазделительСтрок);

   Попытка
       Драйвер = CreateObject("MiniECR_OLE.FiscPrn");
       глПереченьДрайверов.ДобавитьЗначение(Драйвер,НазваниеДрайвера+ЭККА.Код);
       глТрассировка("Подключен драйвер для ЭККА "+ЭККА,2);
   Исключение
       глТрассировка("Ошибка ЭККА :"+ОписаниеОшибки(),0);
       глТрассировка("Возможно, драйвер не установлен !",2);
   КонецПопытки;
   
   
КонецПроцедуры

//===========================================            
Процедура ПечатьЧека()
   
   Док = глРасшифровка.Получить("Документ"); // Чек
   
   Если ПустоеЗначение(Док)=1 Тогда
       Возврат;
   КонецЕсли;
   
   Драйвер = глПереченьДрайверов.Получить(НазваниеДрайвера+Док.ЭККА.Код);
   
   Если ПустоеЗначение(Драйвер)=1 Тогда
       глТрассировка("Не найден драйвер ЭККА",1);
       Возврат;
   КонецЕсли;
   
   спПараметры = СоздатьОбъект("СписокЗначений");
   глПарсить(Док.ЭККА.ПараметрыИнициализации,спПараметры,РазделительСтрок);

   Порт = Число(спПараметры.Получить("Порт"));
   Если ПустоеЗначение(Порт)=1 Тогда
       Порт = 1;
   КонецЕсли;
   
   Скорость = Число(спПараметры.Получить("Скорость"));
   Если ПустоеЗначение(Скорость)=1 Тогда
       Скорость = 19200;
   КонецЕсли;
   ЕдиницаВНаименовании = Число(спПараметры.Получить("ЕдиницаВНаименовании"));
   Если ЕдиницаВНаименовании = 1 Тогда
       ДлинаНаименования = Число(спПараметры.Получить("ДлинаНаименования"));
       Если ПустоеЗначение(ДлинаНаименования) = 1 Тогда
           ДлинаНаименования = 11;
       КонецЕсли;
   КонецЕсли;
   
   Попытка
       РезЧек = 1;
       
       Док.ВыбратьСтроки();
       Пока Док.ПолучитьСтроку()=1 Цикл
           // печать строки
           // поскольку ставку НДС можно задать только для отдела,
           // то предполагаем, что товары разделены по отделам в соответсвии со ставками НДС
           НалоговаяГр = глНалоговаяГруппа(Док.Товар.СтавкаНДС.Получить(Док.ДатаДок));
           Наименование = СокрЛП(Док.Товар.Наименование);
           
           Если ЕдиницаВНаименовании = 1 Тогда
               Единица = " ("+СокрЛП(Док.Единица)+")";
               Наименование = Лев(Наименование,ДлинаНаименования - СтрДлина(Единица))+Единица;
           КонецЕсли;
           
           Рез = Драйвер._SALE(Порт,Скорость,Наименование,Док.Количество,Окр(Док.ЦенаСНДС,2),НалоговаяГр);
           Если Рез = 0 Тогда
               глТрассировка(Шаблон("Ошибка печати строки чека по строке [Док.НомерСтроки] документа !"),0);
               РезЧек = 0;
           КонецЕсли;
       КонецЦикла;
       
       Если РезЧек = 0 Тогда
           // аннулируем чек, если была ошибка
           Драйвер._ANNUL(Порт,Скорость);
           Возврат;
       КонецЕсли;
       
       Рез = 1;
       Если Док.СуммаСкидки > 0 Тогда
           // Скидка на итог
           Рез = Драйвер._SDIS_TOTAL(Порт,Скорость,Док.СуммаСкидки);
       ИначеЕсли Док.СуммаСкидки < 0 Тогда
           // Наценка на итог
           Рез = Драйвер._SEXTRA_TOTAL(Порт,Скорость,-Док.СуммаСкидки);
       КонецЕсли;
       Если Рез=0 Тогда
           глТрассировка("Ошибка при указании скидки/наценки !",0);
           Драйвер._ANNUL(Порт,Скорость);
           Возврат;
       КонецЕсли;
       
       // Полностью оплачен (0 - наличными)
       Рез = Драйвер._PAY(Порт,Скорость,0);
       Если Рез=0 Тогда
           глТрассировка("Ошибка при оплате чека !",0);
       КонецЕсли;
       
       Если Рез =0 Тогда
           // аннулируем чек
           Драйвер._ANNUL(Порт,Скорость);
       Иначе
           Док.ЧекПробит=1;
       КонецЕсли;
       
       Драйвер._ClosePort();
   Исключение
       глТрассировка("Ошибка ЭККА :"+ОписаниеОшибки());
       Док.ЧекПробит=0;
   КонецПопытки;

КонецПроцедуры                  

//===========================================            
Процедура Отчет()
   
   Сообщить("Драйвер фискального принтера не поддержвает загрузку отчета!");
   
КонецПроцедуры                  

//===========================================            
Процедура ВыгрузитьАртикулы()
   
   Сообщить("Драйвер фискального принтера не поддержвает выгрузку артикулов!");
   
КонецПроцедуры


//===========================================            
Процедура ПриОткрытии()
   Параметр = глРасшифровка.Получить("Парам");
   Если Параметр = "Инициализация" тогда
       Инициализация();
   ИначеЕсли Параметр = "ПодключитьДрайвер" тогда
       ИнициализацияДрайвера();
   ИначеЕсли Параметр = "ВыгрузитьАртикулы" тогда
       ВыгрузитьАртикулы();
   ИначеЕсли Параметр = "ПечатьЧека" тогда
       ПечатьЧека();
   ИначеЕсли Параметр = "Отчет" тогда
       Отчет();
   КонецЕсли;
   СтатусВозврата(0);
КонецПроцедуры

НазваниеДрайвера = "МиниФП";
9 Vovik
 
10.06.05
14:16
muchs gracias!!!
10 Убитая С Тазом
 
10.06.05
14:17
Вот для "Славича"
Перем НазваниеДрайвера;

// конфигурация пульта
Перем Конф, спСхем, спДаНет, Кассы;

Процедура ПриВыбореЗакладки(Ном,Значение)
   Форма.ИспользоватьСлой("Основной, "+Значение,2);
КонецПроцедуры

// ===============================
Процедура Обновить()
   текСтр = тбКонф.ТекущаяСтрока();
   
   тбКонф.УдалитьСтроки();
   ИмяУстр = "";
   КвоКасс = 0;
   // прочитаем информацию в таблицу
   Конф.MoveFirst();
   Пока Конф.EOF = 0 Цикл
       ИмяУстр = Конф.DeviceName;
       КвоКасс = Конф.Count;
       
       тбКонф.НоваяСтрока();
       тбКонф.НомКассы = Конф.CashNo;
       тбКонф.НомСхемы = Конф.SchemaNo;
       
       Номер = спСхем.НайтиЗначение(тбКонф.НомСхемы);
       Если Номер <> 0 Тогда
           Назв = "";
           спСхем.ПолучитьЗначение(Номер,Назв);
           тбКонф.НазвСхемы = Назв;
       КонецЕсли;
       
       тбКонф.КассирОсн = Конф.UserMain;
       тбКонф.ПарольОсн = Конф.PasswordMain;
       тбКонф.КассирПульт = Конф.UserUI;
       тбКонф.ПарольПульт = Конф.PasswordUI;
       Если Конф.Autorun = 0 Тогда // False
           тбКонф.Автопуск = "Нет";
       Иначе
           тбКонф.Автопуск = "Да";
       КонецЕсли;
       
       Если Конф.State = 1 Тогда
           тбКонф.Состояние = "Изм.";
       ИначеЕсли Конф.State = 2 Тогда
           тбКонф.Состояние = "Нов.";
       ИначеЕсли Конф.State = 3 Тогда
           тбКонф.Состояние = "Удал.";
       КонецЕсли;
       
       Конф.MoveNext();
   КонецЦикла;
   Если текСтр<>0 Тогда
       тбКонф.ТекущаяСтрока(текСтр);
   КонецЕсли;
   
КонецПроцедуры //Обновить

// ===============================
Процедура ПрочитатьКонф()
   Попытка
       Конф.Read();
   Исключение
       глТрассировка(ОписаниеОшибки(),0);
   КонецПопытки;
   Обновить();
КонецПроцедуры //ПрочитатьКонф

// ===============================
Процедура ЗаписатьКонф()
   Попытка
       Конф.Write();
       ПрочитатьКонф();
   Исключение
       глТрассировка(ОписаниеОшибки(),0);
   КонецПопытки;
КонецПроцедуры //ЗаписатьКонф

// ===============================
Процедура ИзмИмяУстр()
   Попытка
       Конф.DeviceName = ИмяУстр;
   Исключение
       глТрассировка("Ошибка :"+ОписаниеОшибки(),0);
       ИмяУстр = Конф.DeviceName;
   КонецПопытки;
КонецПроцедуры //

// ===============================
Процедура РедактироватьЯчейку()
   
   Кол = тбКонф.ТекущаяКолонка();
   Если (Кол = "Состояние") или (Кол = "НомКассы") Тогда
       // эти колонки не редактируются
       Возврат;
   КонецЕсли;
   Если (Кол = "НазвСхемы") Тогда
       // редактируем номер схемы
       Кол = "НомСхемы";
   КонецЕсли;
   
   Стр = тбКонф.ТекущаяСтрока();
   Если Стр = 0 Тогда
       Возврат;
   КонецЕсли;
   
   Конф.Find(тбКонф.НомКассы);
   Если Конф.EOF=-1 Тогда
       глТрассировка("Не найдена редактируемая касса  (серийный номер "+тбКонф.НомКассы+")!!!",0);
       Возврат;
   КонецЕсли;
   
   Зн = тбКонф.ПолучитьЗначение(Стр,Кол);
   Дл = 0;
   Заг = 0;
   Тип = "";
   тбКонф.ПолучитьПараметрыКолонки(Кол,Тип,Дл,,Заг);
   
   Если Кол = "НомСхемы" Тогда
       // выберем из списка
       Поз = 0;
       спСхем.ВыбратьЗначение(Зн,"Выберите тип ЭККА:",Поз,,2);
   ИначеЕсли Кол = "Автопуск" Тогда
       // выберем из списка
       Зн = ?(СокрЛП(Зн)="Да",-1,0);
       Поз = 0;
       спДаНет.ВыбратьЗначение(Зн,"Осуществлять ли автозапуск ?",Поз,,2);
   Иначе
       Если Тип = "Строка" Тогда
           Если ВвестиСтроку(Зн,"Введите " + нРег(Заг), Дл) = 0 Тогда
               Возврат;
           КонецЕсли;
       ИначеЕсли Тип = "Число" Тогда
           Если ВвестиЧисло(Зн,"Введите " + нРег(Заг), Дл,0) = 0 Тогда
               Возврат;
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;

   // запишем изменения
   Попытка
       Если Кол = "НомСхемы" Тогда
           Конф.SchemaNo = Зн;
       ИначеЕсли Кол = "КассирОсн" Тогда
           Конф.UserMain = Зн;
       ИначеЕсли Кол = "ПарольОсн" Тогда
           Конф.PasswordMain = Зн;
       ИначеЕсли Кол = "КассирПульт" Тогда
           Конф.UserUI = Зн;
       ИначеЕсли Кол = "ПарольПульт" Тогда
           Конф.PasswordUI = Зн;
       ИначеЕсли Кол = "Автопуск" Тогда
           Конф.Autorun = Зн;
       КонецЕсли;
       Обновить();
   Исключение
       глТрассировка("Ошибка :"+ОписаниеОшибки(),0);
   КонецПопытки;
КонецПроцедуры //РедактЯчейки

// ===============================
Процедура ДобавитьКассуПульт()
   Зн = 0;
   //Если ВвестиЧисло(Зн,"Введите заводской номер кассы", 12,0) = 0 Тогда
   //    Возврат;
   //КонецЕсли;
   спКассы = СоздатьОбъект("СписокЗначений");
   
   Кассы.MoveFirst();
   Пока Кассы.EOF = 0 Цикл
       спКассы.ДобавитьЗначение(Кассы.CashNo);
       Кассы.MoveNext();
   КонецЦикла;
   Поз = 0;
   Если спКассы.ВыбратьЗначение(Зн,"Выберите кассу", Поз,0,0) = 0 Тогда
       Возврат;
   КонецЕсли;
   Конф.CashNo = Зн;
   Обновить();
КонецПроцедуры //ДобавитьКассуПульт

// ===============================
Процедура УдалитьКассуПульт()
   Конф.Find(тбКонф.НомКассы);
   Если Конф.EOF=-1 Тогда
       глТрассировка("Не найдена редактируемая касса  (серийный номер "+тбКонф.НомКассы+")!!!",0);
       Возврат;
   КонецЕсли;
   Конф.Delete();
   Обновить();
КонецПроцедуры //УдалитьКассуПульт

// ===============================
Процедура ОбновитьКассы()
   
   тбКассы.УдалитьСтроки();
   
   // прочитаем информацию в таблицу
   Кассы.MoveFirst();
   Пока Кассы.EOF = 0 Цикл
       
       тбКассы.НоваяСтрока();
       тбКассы.НомКассы = Кассы.CashNo;
       
       Если Кассы.Updated = 1 Тогда
           тбКассы.Состояние = "Обновлены отчеты";
       ИначеЕсли Кассы.Updated = 2 Тогда
           тбКассы.Состояние = "Обновлены товары";
       ИначеЕсли Кассы.Updated = 3 Тогда
           тбКассы.Состояние = "Обновлены отчеты и товары";
       КонецЕсли;
       
       Кассы.MoveNext();
   КонецЦикла;
   
КонецПроцедуры //ОбновитьКассы

// ===============================
Процедура ДобавитьКассу()
   Зн = "";
   Если ВвестиЧисло(Зн,"Введите заводской номер кассы", 12,0) = 0 Тогда
       Возврат;
   КонецЕсли;
   Кассы.CashNo = Зн;
   ОбновитьКассы();
КонецПроцедуры //ДобавитьКассу

// ===============================
Процедура УдалитьКассу()
   
   Кассы.Find(тбКассы.НомКассы);
   Если Кассы.EOF = -1 Тогда
       ОбновитьКассы();
       Возврат;
   КонецЕсли;
   Кассы.Delete();
   ОбновитьКассы();
КонецПроцедуры //УдалитьКассуПульт


// ===============================
Процедура ВызватьТрансфер()
   Попытка        
       Кассы = СоздатьОбъект("Slavich.Cashes");
   Исключение
       глТрассировка("Не удалось создать объект для доступа к ЭККА!",0);
       глТрассировка("Возможно драйвер не установлен!",0);
       Возврат;
   КонецПопытки;
   Кассы.Transfer();
   Обновить();
КонецПроцедуры //ВызватьТрансфер

// ===============================
Процедура ИзмВидимостьНомСхемы()
   тбКонф.ВидимостьКолонки("НомСхемы",фВидимостьНомСхемы);    
КонецПроцедуры //


//===========================================            
Процедура ИнициализацияДрайвера()                      
   
КонецПроцедуры                

//===========================================            
Процедура Инициализация()
   
   // Инициализации нет
   
КонецПроцедуры

//===========================================
Процедура ПечатьЧека()

   глТрассировка("Печать чеков не поддерживается !");

КонецПроцедуры

//===========================================
Процедура Отчет()
   
   Док = глРасшифровка.Получить("Документ"); // Отчет КА
   
   Если ПустоеЗначение(Док)=1 Тогда
       Возврат;
   КонецЕсли;
   
   ЭККА = Док.ЭККА;
   
   Если ПустоеЗначение(ЭККА)=1 Тогда
       глТрассировка("При вызове драйвера ЭККА не указана касса",0);
       Возврат;
   КонецЕсли;
   
   // читаем отчет ЭККА
   Состояние(" Загрузка отчета ЭККА "+ЭККА);
   
   Попытка        
       Кассы = СоздатьОбъект("Slavich.Cashes");
   Исключение
       глТрассировка("Не удалось создать объект для доступа к ЭККА!",0);
       глТрассировка("Возможно драйвер не установлен!",0);
       Возврат;
   КонецПопытки;
   
   спПараметры = СоздатьОбъект("СписокЗначений");
   глПарсить(ЭККА.ПараметрыИнициализации,спПараметры,РазделительСтрок);
   
   СерийныйНомер = Число(спПараметры.Получить("СерийныйНомер"));
   
   Кассы.Find(СерийныйНомер);
   Если Кассы.EOF = -1 Тогда
       глТрассировка("Касса с серийным номером "+ СерийныйНомер+" не найдена!",0);
       Возврат;
   КонецЕсли;
   
   спрТовары = СоздатьОбъект("Справочник.Номенклатура");
   спУдалить = СоздатьОбъект("СписокЗначений"); // список обработанных отчетов
   
   фЕстьОтчет = 0;
   Отчеты = Кассы.Reports;
   Отчеты.MoveFirst();
   Пока Отчеты.EOF = 0 Цикл
       Отчет = Отчеты.PLURep;
       глТрассировка("Обрабатывается отчет № "+Отчеты.Zno,2);
       // Прйдем по строчкам отчета
       фОшибка = 0;
       Отчет.MoveFirst();
       Пока Отчет.EOF = 0 Цикл
           Код = Отчет.Code;
           Количество = Отчет.Amount;
           Сумма = Отчет.Sum;
           
           // найдем товар
           Если спрТовары.НайтиПоКоду(Код)=1 Тогда
               Док.НоваяСтрока();
               Док.Товар = спрТовары.ТекущийЭлемент();
               Док.Единица = спрТовары.ЕдиницаПоУмолчанию;
               Док.Коэффициент = спрТовары.ЕдиницаПоУмолчанию.Коэффициент;
               Док.Количество = Количество;
               Док.СуммаСНДС = Сумма;
           Иначе
               глТрассировка("Не найден товар с кодом "+Код,0);
               фОшибка = 1;
           КонецЕсли;
           Отчет.MoveNext();
           фЕстьОтчет = 1;
       КонецЦикла;
       Если фОшибка = 0 Тогда
           // если не было ошибок - удалим отчет
           спУдалить.ДобавитьЗначение(Отчеты.Zno);
       КонецЕсли;
       Отчеты.MoveNext();
   КонецЦикла;
   Если фЕстьОтчет = 0 Тогда
       глТрассировка("Не найдено ни одного отчета!",1);
   КонецЕсли;
   
   Для Инд = 1 по спУдалить.РазмерСписка() Цикл
       НомОтч = спУдалить.ПолучитьЗначение(Инд);
       Отчеты.Zno = НомОтч;
       Если Отчеты.EOF = 0 Тогда
           Отчеты.Delete();
           глТрассировка("Удален обработанный отчет № "+НомОтч,2);
       КонецЕсли;
   КонецЦикла;

КонецПроцедуры                  

//===========================================            
Процедура ВыгрузитьАртикулы()
   
   ЭККА = глРасшифровка.Получить("ЭККА");
   СписокТоваров = глРасшифровка.Получить("СписокТоваров");

   Попытка        
       Кассы = СоздатьОбъект("Slavich.Cashes");
   Исключение
       глТрассировка("Не удалось создать объект для доступа к ЭККА!",0);
       глТрассировка("Возможно драйвер не установлен!",0);
       Возврат;
   КонецПопытки;
   
   спПараметры = СоздатьОбъект("СписокЗначений");
   глПарсить(ЭККА.ПараметрыИнициализации,спПараметры,РазделительСтрок);
   
   СерийныйНомер = Число(спПараметры.Получить("СерийныйНомер"));
   
   Кассы.Find(СерийныйНомер);
   Если Кассы.EOF = -1 Тогда
       глТрассировка("Касса с серийным номером"+ СерийныйНомер+" не найдена!",0);
       Возврат;
   КонецЕсли;
       
   ТабТовары = Кассы.PLU;
   
   Для Инд=1 по СписокТоваров.РазмерСписка() Цикл
   
       Товар =СписокТоваров.ПолучитьЗначение(Инд);
       
       Цена = 0;Валюта = 0;
       Ошибка = "";
       Если глПолучитьЦенуТовара(Константа.РозничнаяКатегорияЦен,Товар,Товар.ЕдиницаПоУмолчанию,,Цена,Валюта,Ошибка) =0 Тогда
           глТрассировка(Ошибка,0);
           Продолжить;
       КонецЕсли;
       Цена = глПересчет(Цена,Валюта,ТекущаяДата(),Гривня,ТекущаяДата());
       Если Окр(Цена,2) = 0 Тогда
           глТрассировка("Для товара "+Товар+" задана нулевая розничная цена!" ,0);
           Продолжить;
       КонецЕсли;
       
       ТабТовары.Find(Товар.Код);
       Если ТабТовары.EOF = -1 Тогда
           ТабТовары.Code = Товар.Код;
       КонецЕсли;
       // заполним данные
       ТабТовары.Name = СокрЛП(Товар.Наименование);
       ТабТовары.Cen = Цена;
       ТабТовары.Dep = 1;
       ТабТовары.Grp = 1;
       ТабТовары.Tax = глНалоговаяГруппа(Товар.СтавкаНДС.Получить(РабочаяДата()));
       ТабТовары.Kol = 0;
       ТабТовары.FreeCen = 1;
       Если Товар.ТипТовара = Перечисление.ТипыТоваров.Штучный Тогда
           ТабТовары.FracKol = 1;
       Иначе
           ТабТовары.FracKol = 0;
       КонецЕсли;
       ТабТовары.WatchKol = 0;
       глТрассировка("Измены данные о товаре "+Товар,3);
   КонецЦикла;
   ТабТовары.Write();    
   глТрассировка("Таблица товаров записана",2);
   
   Если Вопрос("Передать информацию в пульт ? (пульт должен находится на связи с компьютером)","Да+Нет",15) = "Да" Тогда
       Кассы.Transfer();
   КонецЕсли;
       
КонецПроцедуры


//===========================================            
Процедура ПриОткрытии()
   Если ПустоеЗначение(глРасшифровка)=0 Тогда
       Параметр = глРасшифровка.Получить("Парам");
       // вызвали, как обработку - драйвер
       Если Параметр = "Инициализация" Тогда
           Инициализация();
       ИначеЕсли Параметр = "ПодключитьДрайвер" Тогда
           ИнициализацияДрайвера();
       ИначеЕсли Параметр = "ВыгрузитьАртикулы" Тогда
           ВыгрузитьАртикулы();
       ИначеЕсли Параметр = "ПечатьЧека" Тогда
           ПечатьЧека();
       ИначеЕсли Параметр = "Отчет" Тогда
           Отчет();
       КонецЕсли;
       СтатусВозврата(0);
   Иначе
       Форма.ИспользоватьЗакладки(1);
       Форма.Закладки.ДобавитьЗначение("Кассы", "Список касс");
       Форма.Закладки.ДобавитьЗначение("Пульт", "Конфигурирование пульта");
       ПриВыбореЗакладки(1,"Кассы");
       
       // открыли обработку интерактивно
       тбКонф.НоваяКолонка("Состояние","Стр",5,0,"Сост.",7);
       тбКонф.НоваяКолонка("НомКассы","Число",12,0,"Номер",15,,1);
       тбКонф.НоваяКолонка("НазвСхемы","Строка",30,0,"Тип ЭККА",25);
       тбКонф.НоваяКолонка("НомСхемы","Число",15,0,"Схема",18,,1);
       тбКонф.НоваяКолонка("КассирОсн","Число",5,0,"Кассир",10,,1);
       тбКонф.НоваяКолонка("ПарольОсн","Число",5,0,"Пароль",10,,1);
       тбКонф.НоваяКолонка("КассирПульт","Число",5,0,"Кассир",10,,1);
       тбКонф.НоваяКолонка("ПарольПульт","Число",5,0,"Пароль",10,,1);
       тбКонф.НоваяКолонка("Автопуск","Строка",3,0,"Авто",5);
       
       тбКонф.ВидимостьКолонки("НомСхемы",фВидимостьНомСхемы);
       Попытка        
           Конф = СоздатьОбъект("Slavich.Config");
       Исключение
           глТрассировка("Не удалось создать объект для доступа к конфигурации пульта!",0);
           глТрассировка("Возможно, драйвер не установлен!",0);
           СтатусВозврата(0);
           Возврат;
       КонецПопытки;
       
       спСхем = СоздатьОбъект("СписокЗначений");
       Попытка
           Состояние("Инициализация списка схем ЭККА");
           Схемы = СоздатьОбъект("Slavich.Schemas");
       Исключение
           глТрассировка("Не удалось создать объект для доступа к списку схем ЭККА!",0);
           глТрассировка("Возможно, драйвер не установлен!",0);
           СтатусВозврата(0);
           Возврат;
       КонецПопытки;
       Схемы.MoveFirst();
       Пока Схемы.EOF=0 Цикл
           спСхем.ДобавитьЗначение(Схемы.Number,Схемы.Name);
           Схемы.MoveNext();
       КонецЦикла;
       спДаНет = СоздатьОбъект("СписокЗначений");
       спДаНет.ДобавитьЗначение(-1,"Да");
       спДаНет.ДобавитьЗначение(0,"Нет");
       
       тбКассы.НоваяКолонка("НомКассы","Число",12,0,"Номер",15,,1);
       тбКассы.НоваяКолонка("Состояние","Стр",5,0,"Состояние",15);
       
       Попытка        
           Кассы = СоздатьОбъект("Slavich.Cashes");
       Исключение
           глТрассировка("Не удалось создать объект для доступа к списку касс!",0);
           глТрассировка("Возможно драйвер не установлен!",0);
           Возврат;
       КонецПопытки;
       ОбновитьКассы();
   КонецЕсли;
КонецПроцедуры    

НазваниеДрайвера = "СлавИЧ";
11 Очень добрая
 
10.06.05
14:19
тётя украинка.
Какие дрова? Если для Винды, то там и так все понятно и (8) тебе может помочь. Если ДОС-овые, то только из командной строки. Чтобы потрениоваться на ККМ, неси его в ЦТО чтобы они его "якобы взяли в ремонт" и тебе можно было на нём поработать-потренироваться.
12 Убитая С Тазом
 
10.06.05
14:20
еще разновсякого бреда из ТиСдУ насовать в ветку?
13 Суй
 
10.06.05
14:27
пока не опустили.
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.