|
Струнин
3 - 06.07.2009 - 07:41
|
Давно было...
надо узнать номер регистра
затем GetCashReg();
например:
FR.Password=глФРПарольПользователя;
FR.RegisterNumber=241;
FR.GetCashReg();
ОтветДрайвера();
Если глФРРезультат = 0 Тогда
Сообщть("В кассе" + Формат(FR.ContentsOfCashRegister,"Ч15.2-"));
Иначе
Предупреждение("Ошибка соединения с кассой:" + РазделительСтрок + глФРОшибкаПараметра);
КонецЕсли;
чтобы регистр узнать можно вот попробовать...
Файл="C:\Spisok.txt";
Т = СоздатьОбъект("Текст");
НомерРег=1;
Строчка="";
Пока НомерРег<=255 Цикл
FR.Password=глФРПарольПользователя;
FR.RegisterNumber=НомерРег;
// FR.GetOperationReg();
FR.GetCashReg();
Строчка=Строчка+Строка(НомерРег)+". ";
// Строчка=Строчка+FR.NameOperationReg()+": ";
Строчка=Строчка+FR.NameCashReg()+": ";
// Строчка=Строчка+FR.ContentsOfOperationRegister();
Строчка=Строчка+FR.ContentsOfCashRegister();
ОтветДрайвера();
Т.ДобавитьСтроку(Строчка);
НомерРег=НомерРег+1;
Строчка="";
КонецЦикла;
Т.Записать(Файл);
остальное, как правильно сказано см в описании...
http://programna1c.narod.ru/FRpodk.html
|