Сообщения без ответов | Активные темы Текущее время: Чт мар 28, 2024 11:27 pm



Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 38 ]  На страницу 1, 2, 3  След.
Печать на ПД для Штрих-Комбо-ФР-К 
Автор Сообщение
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение Печать на ПД для Штрих-Комбо-ФР-К
Здравствуйте! Поделитесь пожалуйста обработкой для Штрих-Комбо-ФР-К (на подобие ShtrihMFiscalPrinters_2), в которой бы предусматривалась печать на подкладном документе.


Пн мар 02, 2009 2:15 pm
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение 
Выслал простой пример для Delphi.

_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Пн мар 02, 2009 5:22 pm
Профиль
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Спасибо конечно за простой пример, я бы может даже его посмотрела и приспособила для себя, если бы у меня хотя бы на рабочем компе стоял делфи, а ставить его лишь для того, чтобы просмотреть нет смысла. Мне бы хотелось бы такой же простой пример для 1С:Предприятие 8. В данный момент я, пользуясь мануалом для программистов пытаюсь все это описать самостоятельно, но подозреваю, что у меня это не получится, так что если у вас нет данной обработки, поможете мне хотя бы разобраться в моих ошибках?


Вт мар 03, 2009 7:59 am
Профиль
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Вот код, который я вношу для печати ПД (все проходит, нигде не ругается, но почему-то ничего не печатается):

Объект.Драйвер.СтандартнаяКонфигурацияПД();

Объект.Драйвер.ИспользоватьЧековуюЛенту = 0;
Объект.Драйвер.ИспользоватьПодкладнойДокумент = 1;
Объект.Драйвер.ИспользоватьОперационныйЖурнал = 1;
Объект.Драйвер.СтрокаДляПечати =Наименование;
Объект.Драйвер.Цена = Цена;
Объект.Драйвер.Количество = Количество;
Объект.Драйвер.Отдел = Отдел;
Объект.Драйвер.Налог1 = НДС;
Объект.Драйвер.ФормированиеСтандартнойОперацииНаПД();

Объект.Драйвер.OpenFiscalSlipDocument(); Объект.Драйвер.CopyType= 1;
Объект.Драйвер.NumberOfCopies= 0; Объект.Драйвер.RegistrationOnSlipDocument(); Объект.Драйвер.CloseCheckOnSlipDocument(); // закрываем ПД

Объект.Драйвер.IsClearUnfiscalInfo=1;
Объект.Драйвер.InfoType=2;
Объект.Драйвер.PrintSlipDocument();
Если Объект.Драйвер.ResultCode = 198 Тогда
Предупреждение ("Вставьте подкладной документ и нажмите 'OK'");
КонецЕсли;

Объект.Драйвер.ClearSlipDocumentBuffer();
Если Объект.Драйвер.Результат <> 0 Тогда
Объект.ОписаниеОшибки = Объект.Драйвер.ОписаниеРезультата;
Объект.Драйвер.АннулироватьЧек();
Результат = мОшибкаНеизвестно;
Возврат Результат;
КонецЕсли;

Объект.Драйвер.GetECRStatus();


Вт мар 03, 2009 9:36 am
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Чт мар 10, 2005 6:41 pm
Сообщения: 9908
Откуда: ЗАО "ШТРИХ-М", г. Москва
Сообщение 
Код:
Объект.Драйвер.СтандартнаяКонфигурацияПД();

Объект.Драйвер.ФормированиеСтандартнойОперацииНаПД();

Объект.Драйвер.OpenFiscalSlipDocument(); Объект.Драйвер.RegistrationOnSlipDocument(); Объект.Драйвер.CloseCheckOnSlipDocument(); // закрываем ПД

В данном случае порядок вызова методов для формирования и печати ПД должен быть примерно следующим:

Объект.Драйвер.OpenFiscalSlipDocument();
Объект.Драйвер.RegistrationOnSlipDocument();
Объект.Драйвер.CloseCheckOnSlipDocument();
Объект.Драйвер.PrintSlipDocument();

GirlProgram писал(а):
для печати ПД (все проходит, нигде не ругается, но почему-то ничего не печатается):

Скорее всего это происходит по той причине, что Вы после вызова и выполнения каждого метода не анализируете возвращаемые драйвером ошибки.

GirlProgram писал(а):
Мне бы хотелось бы такой же простой пример для 1С:Предприятие 8.

К сожалению, примеров для 1С 8.х у нас нет. Есть пример реализации печати на ПД для 1С7.7, который выслал Вам на e-mail из профиля.

_________________
С уважением, Гонтарь Тимофей Владимирович
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М www.shels-m.ru


Вт мар 03, 2009 10:03 am
Профиль WWW
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Спасибо большое за ответ и за обработку. У меня вот еще какой вопрос: При закрытии ПД у меня выдается ошибка, что неправильные параметры, а как определить какой именно параметр неправилен? Их же 122!
Привожу пример заполнения параметров (до закрытия, проверила все остальное с возвращением ошибок, все отладила, теперь застопорилась здесь)

ФискальныйРегистратор = Объект.Драйвер;

Объект.Драйвер.Пароль=Пароль;
ФискальныйРегистратор.StringQuantityInOperation=1;
ФискальныйРегистратор.TotalStringNumber=1;
ФискальныйРегистратор.TextStringNumber=0;
ФискальныйРегистратор.Summ1StringNumber=0;
ФискальныйРегистратор.Summ2StringNumber=0;
ФискальныйРегистратор.Summ3StringNumber=0;
ФискальныйРегистратор.Summ4StringNumber=0;
ФискальныйРегистратор.ChangeStringNumber=0;
ФискальныйРегистратор.Tax1TurnoverStringNumber=0;
ФискальныйРегистратор.Tax2TurnoverStringNumber=0;
ФискальныйРегистратор.Tax3TurnoverStringNumber=0;
ФискальныйРегистратор.Tax4TurnoverStringNumber=0;
ФискальныйРегистратор.Tax1SumStringNumber=0;
ФискальныйРегистратор.Tax2SumStringNumber=0;
ФискальныйРегистратор.Tax3SumStringNumber=0;
ФискальныйРегистратор.Tax4SumStringNumber=0;
ФискальныйРегистратор.SubTotalStringNumber=0;
ФискальныйРегистратор.DiscountOnCheckStringNumber=0;
ФискальныйРегистратор.TextFont=1;
ФискальныйРегистратор.TotalFont=2;
ФискальныйРегистратор.TotalSumFont=2;
ФискальныйРегистратор.Summ1NameFont=1;
ФискальныйРегистратор.Summ1Font=1;
ФискальныйРегистратор.Summ2NameFont=1;
ФискальныйРегистратор.Summ2Font=1;
ФискальныйРегистратор.Summ3NameFont=1;
ФискальныйРегистратор.Summ3Font=1;
ФискальныйРегистратор.Summ4NameFont=1;
ФискальныйРегистратор.Summ4Font=1;
ФискальныйРегистратор.ChangeFont=1;
ФискальныйРегистратор.ChangeSumFont=1;
ФискальныйРегистратор.Tax1NameFont=1;
ФискальныйРегистратор.Tax1TurnoverFont=1;
ФискальныйРегистратор.Tax1RateFont=1;
ФискальныйРегистратор.Tax1SumFont=1;
ФискальныйРегистратор.Tax2NameFont=1;
ФискальныйРегистратор.Tax2TurnoverFont=1;
ФискальныйРегистратор.Tax2RateFont=1;
ФискальныйРегистратор.Tax2SumFont=1;
ФискальныйРегистратор.Tax3NameFont=1;
ФискальныйРегистратор.Tax3TurnoverFont=1;
ФискальныйРегистратор.Tax3RateFont=1;
ФискальныйРегистратор.Tax3SumFont=1;
ФискальныйРегистратор.Tax4NameFont=1;
ФискальныйРегистратор.Tax4TurnoverFont=1;
ФискальныйРегистратор.Tax4RateFont=1;
ФискальныйРегистратор.Tax4SumFont=1;
ФискальныйРегистратор.SubTotalFont=1;
ФискальныйРегистратор.SubTotalSumFont=1;
ФискальныйРегистратор.DiscountOnCheckFont=1;
ФискальныйРегистратор.DiscountOnCheckSumFont=1;
ФискальныйРегистратор.TextSymbolNumber=40;
ФискальныйРегистратор.TotalSymbolNumber=30;//СтрДлина(ФормС(СуммаПД))+1;
ФискальныйРегистратор.Summ1SymbolNumber=20;
ФискальныйРегистратор.Summ2SymbolNumber=20;
ФискальныйРегистратор.Summ3SymbolNumber=20;
ФискальныйРегистратор.Summ4SymbolNumber=20;
ФискальныйРегистратор.ChangeSymbolNumber=20;
ФискальныйРегистратор.Tax1NameSymbolNumber=20;
ФискальныйРегистратор.Tax1TurnoverSymbolNumber=20;
ФискальныйРегистратор.Tax1RateSymbolNumber=20;
ФискальныйРегистратор.Tax1SumSymbolNumber=20;
ФискальныйРегистратор.Tax2NameSymbolNumber=20;
ФискальныйРегистратор.Tax2TurnoverSymbolNumber=20;
ФискальныйРегистратор.Tax2RateSymbolNumber=20;
ФискальныйРегистратор.Tax2SumSymbolNumber=20;
ФискальныйРегистратор.Tax3NameSymbolNumber=20;
ФискальныйРегистратор.Tax3TurnoverSymbolNumber=20;
ФискальныйРегистратор.Tax3RateSymbolNumber=20;
ФискальныйРегистратор.Tax3SumSymbolNumber=20;
ФискальныйРегистратор.Tax4NameSymbolNumber=20;
ФискальныйРегистратор.Tax4TurnoverSymbolNumber=20;
Объект.Драйвер.Tax4RateSymbolNumber=20;
Объект.Драйвер.Tax4SumSymbolNumber=20;
Объект.Драйвер.SubTotalSymbolNumber=20;
Объект.Драйвер.DiscountOnCheckSymbolNumber=20;
Объект.Драйвер.DiscountOnCheckSumSymbolNumber=20;
Объект.Драйвер.TextOffSet=1;
Объект.Драйвер.TotalOffSet=1;
Объект.Драйвер.TotalSumOffSet=30;//Константа.ШиринаПД-СтрДлина(ФормС(СуммаПД))-1;
Объект.Драйвер.Summ1NameOffSet=2;
Объект.Драйвер.Summ1OffSet=20;
Объект.Драйвер.Summ2NameOffSet=2;
Объект.Драйвер.Summ2OffSet=20;
Объект.Драйвер.Summ3NameOffSet=2;
Объект.Драйвер.Summ3OffSet=20;
Объект.Драйвер.Summ4NameOffSet=2;
Объект.Драйвер.Summ4OffSet=20;
Объект.Драйвер.ChangeOffSet=1;
Объект.Драйвер.ChangeSumOffSet=20;
Объект.Драйвер.Tax1NameOffSet=1;
Объект.Драйвер.Tax1TurnoverOffSet=25;
Объект.Драйвер.Tax1RateOffSet=1;
Объект.Драйвер.Tax1SumOffSet=25;
Объект.Драйвер.Tax2NameOffSet=1;
Объект.Драйвер.Tax2TurnoverOffSet=25;
Объект.Драйвер.Tax2RateOffSet=1;
Объект.Драйвер.Tax2SumOffSet=25;
Объект.Драйвер.Tax3NameOffSet=1;
Объект.Драйвер.Tax3TurnoverOffSet=25;
Объект.Драйвер.Tax3RateOffSet=1;
Объект.Драйвер.Tax3SumOffSet=25;
Объект.Драйвер.Tax4NameOffSet=1;
Объект.Драйвер.Tax4TurnoverOffSet=25;
Объект.Драйвер.Tax4RateOffSet=1;
Объект.Драйвер.Tax4SumOffSet=25;
Объект.Драйвер.SubTotalOffSet=1;
Объект.Драйвер.SubTotalSumOffSet=20;
Объект.Драйвер.DiscountOnCheckOffSet=1;
Объект.Драйвер.DiscountOnCheckSumOffSet=20;
ФискальныйРегистратор.OperationBlockFirstString=5;
ФискальныйРегистратор.Summ1=СуммаНал;//Сумма1ПД;
ФискальныйРегистратор.Summ2=СуммаБезнал;//Сумма2ПД;
ФискальныйРегистратор.Summ3=0;//Сумма3ПД;
ФискальныйРегистратор.Summ4=0;
ФискальныйРегистратор.DiscountOnCheck=0;
ФискальныйРегистратор.Tax1=0;
ФискальныйРегистратор.Tax2=0;
ФискальныйРегистратор.Tax3=0;
ФискальныйРегистратор.Tax4=0;
ФискальныйРегистратор.StringForPrinting="";

Объект.Драйвер.CloseCheckOnSlipDocument(); // закрываем ПД
Если Объект.Драйвер.Результат <> 0 Тогда
Объект.ОписаниеОшибки = Объект.Драйвер.ОписаниеРезультата;
Объект.Драйвер.АннулироватьЧек();
Результат = мОшибкаНеизвестно;
Возврат Результат;
конецесли;


Вт мар 03, 2009 3:20 pm
Профиль
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Да и еще. Обязательно ли принудительно заполнять все эти параметры? Или достаточно заполнить какие-нибудь основные? Или они все являются основными?


Вт мар 03, 2009 3:24 pm
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение 
Выслал Вам на почту типовые настройки для печати ПД при которых ошибок не выдается. При конфигурирования Вашего ПД отталкивайтесь от них.

_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Вт мар 03, 2009 5:54 pm
Профиль
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Спасибо огромнейшее!!! У меня все получилось!!!


Ср мар 04, 2009 7:24 am
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Чт мар 10, 2005 6:41 pm
Сообщения: 9908
Откуда: ЗАО "ШТРИХ-М", г. Москва
Сообщение 
Были рады Вам помочь.

_________________
С уважением, Гонтарь Тимофей Владимирович
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М www.shels-m.ru


Ср мар 04, 2009 10:41 am
Профиль WWW
Новичок

Зарегистрирован: Пн мар 02, 2009 2:11 pm
Сообщения: 17
Сообщение 
Вы выслали мне текстовый файл с типовыми настройками, а как его понимать и как с ним работать, вот например:
[10]
0001.0001=441
0001.0002=1070
0001.0003=0
0001.0004=0
0001.0005=0
[11]
0001.0001=24
0002.0001=24
0003.0001=24
0004.0001=24
0005.0001=24
0006.0001=24 ...

0199.0001=24
Что это означает? Какая процедура? Какое свойство?


Ср мар 11, 2009 2:02 pm
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение 
Это настройки таблиц ФР, их надо загрузить в ФР с помощью Теста драйвера \ свойства \ таблицы.

_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Ср мар 11, 2009 2:15 pm
Профиль
Новичок

Зарегистрирован: Чт ноя 15, 2012 9:16 am
Сообщения: 11
Сообщение Re: Печать на ПД для Штрих-Комбо-ФР-К
Здравствуйте. Можно пример для работы с ПД получить?
Раньше работали с Штрих-950 - и писалось все под него, проблем не было. А Купили Комбо и при печати ПД выдает ошибку - "некорректные параметр" при вызове CloseCheckOnSlipDocument".


Чт дек 27, 2012 3:14 pm
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение Re: Печать на ПД для Штрих-Комбо-ФР-К
Укажите e_mail.

_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Чт дек 27, 2012 4:26 pm
Профиль
Новичок

Зарегистрирован: Чт ноя 15, 2012 9:16 am
Сообщения: 11
Сообщение Re: Печать на ПД для Штрих-Комбо-ФР-К
Извините :)
nndev@ar-studio.biz


Чт дек 27, 2012 4:38 pm
Профиль
Показать сообщения за:  Поле сортировки  
Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.   [ Сообщений: 38 ]  На страницу 1, 2, 3  След.

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.
Русская поддержка phpBB