Автор |
Сообщение |
GirlProgram
Новичок
Зарегистрирован: Пн мар 02, 2009 2:11 pm Сообщения: 17
|
Печать на ПД для Штрих-Комбо-ФР-К
Здравствуйте! Поделитесь пожалуйста обработкой для Штрих-Комбо-ФР-К (на подобие ShtrihMFiscalPrinters_2), в которой бы предусматривалась печать на подкладном документе.
|
Пн мар 02, 2009 2:15 pm |
|
|
Selihov Dmitry
Постоянный участник
Зарегистрирован: Пт май 19, 2006 6:26 pm Сообщения: 10424 Откуда: Штрих-М
|
Выслал простой пример для Delphi.
_________________ С уважением, Селихов Дмитрий Юрьевич Инженер технической поддержки ЗАО "Штрих-М" mailto: support@shtrih-m.ru тел. (495) 787-60-96 ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М Shels-m.ru
|
Пн мар 02, 2009 5:22 pm |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 02, 2009 2:11 pm Сообщения: 17
|
Спасибо конечно за простой пример, я бы может даже его посмотрела и приспособила для себя, если бы у меня хотя бы на рабочем компе стоял делфи, а ставить его лишь для того, чтобы просмотреть нет смысла. Мне бы хотелось бы такой же простой пример для 1С:Предприятие 8. В данный момент я, пользуясь мануалом для программистов пытаюсь все это описать самостоятельно, но подозреваю, что у меня это не получится, так что если у вас нет данной обработки, поможете мне хотя бы разобраться в моих ошибках?
|
Вт мар 03, 2009 7:59 am |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 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 |
|
|
Timofey Gontar
Постоянный участник
Зарегистрирован: Чт мар 10, 2005 6:41 pm Сообщения: 9908 Откуда: ЗАО "ШТРИХ-М", г. Москва
|
В данном случае порядок вызова методов для формирования и печати ПД должен быть примерно следующим:
Объект.Драйвер.OpenFiscalSlipDocument();
Объект.Драйвер.RegistrationOnSlipDocument();
Объект.Драйвер.CloseCheckOnSlipDocument();
Объект.Драйвер.PrintSlipDocument();
Скорее всего это происходит по той причине, что Вы после вызова и выполнения каждого метода не анализируете возвращаемые драйвером ошибки.
К сожалению, примеров для 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 |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 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 |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 02, 2009 2:11 pm Сообщения: 17
|
Да и еще. Обязательно ли принудительно заполнять все эти параметры? Или достаточно заполнить какие-нибудь основные? Или они все являются основными?
|
Вт мар 03, 2009 3:24 pm |
|
|
Selihov Dmitry
Постоянный участник
Зарегистрирован: Пт май 19, 2006 6:26 pm Сообщения: 10424 Откуда: Штрих-М
|
Выслал Вам на почту типовые настройки для печати ПД при которых ошибок не выдается. При конфигурирования Вашего ПД отталкивайтесь от них.
_________________ С уважением, Селихов Дмитрий Юрьевич Инженер технической поддержки ЗАО "Штрих-М" mailto: support@shtrih-m.ru тел. (495) 787-60-96 ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М Shels-m.ru
|
Вт мар 03, 2009 5:54 pm |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 02, 2009 2:11 pm Сообщения: 17
|
Спасибо огромнейшее!!! У меня все получилось!!!
|
Ср мар 04, 2009 7:24 am |
|
|
Timofey Gontar
Постоянный участник
Зарегистрирован: Чт мар 10, 2005 6:41 pm Сообщения: 9908 Откуда: ЗАО "ШТРИХ-М", г. Москва
|
Были рады Вам помочь.
_________________ С уважением, Гонтарь Тимофей Владимирович Инженер технической поддержки ЗАО "Штрих-М" mailto: support@shtrih-m.ru тел. (495) 787-60-96 ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М www.shels-m.ru
|
Ср мар 04, 2009 10:41 am |
|
|
GirlProgram
Новичок
Зарегистрирован: Пн мар 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 |
|
|
Selihov Dmitry
Постоянный участник
Зарегистрирован: Пт май 19, 2006 6:26 pm Сообщения: 10424 Откуда: Штрих-М
|
Это настройки таблиц ФР, их надо загрузить в ФР с помощью Теста драйвера \ свойства \ таблицы.
_________________ С уважением, Селихов Дмитрий Юрьевич Инженер технической поддержки ЗАО "Штрих-М" mailto: support@shtrih-m.ru тел. (495) 787-60-96 ВНИМАНИЕ: Работает Официальный Интернет-Магазин от компании Штрих-М Shels-m.ru
|
Ср мар 11, 2009 2:15 pm |
|
|
nndev
Новичок
Зарегистрирован: Чт ноя 15, 2012 9:16 am Сообщения: 11
|
Re: Печать на ПД для Штрих-Комбо-ФР-К
Здравствуйте. Можно пример для работы с ПД получить? Раньше работали с Штрих-950 - и писалось все под него, проблем не было. А Купили Комбо и при печати ПД выдает ошибку - "некорректные параметр" при вызове CloseCheckOnSlipDocument".
|
Чт дек 27, 2012 3:14 pm |
|
|
Selihov Dmitry
Постоянный участник
Зарегистрирован: Пт май 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 |
|
|
nndev
Новичок
Зарегистрирован: Чт ноя 15, 2012 9:16 am Сообщения: 11
|
Re: Печать на ПД для Штрих-Комбо-ФР-К
|
Чт дек 27, 2012 4:38 pm |
|
|