Burtsev Alexey

44
Рейтинг

alexeyburtsev



  •   Регистрация: 04.08.2010 (13 лет назад)

  •   Был(а) на сайте: вчера в 00:31

Друзья
  • Павел Пчелинцев
  • Дмитрий Малышев
  • Андрей Волин
Подписчики 3
Группы

Рейтинг 44

Перенос документов и справочников между разными конфигурациями 1С 7.7
+44 –

Инструменты и обработки Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Windows Абонемент ($m) Внешняя обработка (ert,epf) Перенос данных 1C

Этой обработке больше 10 лет, но я продолжаю ее использовать.

1 стартмани

18.10.2011    23429    257    alexeyburtsev    36       

44
Смотреть все

Комментарии

Dev › Чтение/запись текста в кодировке UTF-8 из 1c 7.7 › #27 11.03.20 16:28
Спасибо, пригодилось! (Смотрю - уже не первый раз!)
Admin › Библиотека печати на PDF принтер Bullzip для 1С 7.7 › #6 11.02.20 22:42
Спасибо, то, что надо!
Dev › Обработка для переноса документов и справочников 1с 7.7 › #4 02.01.20 3:56
Ух ты! Но можно было бы и на автора сослаться...
https://infostart.ru/public/95021/
БУ › Универсальный журнал справочников и документов, управляемые формы 8.2, 8.3 › #35 03.12.19 21:15
Все супер. Но.

1С:Комплексная автоматизация 2. Там есть такой документ "ПроизводствоБезЗаказа".
Вот при выборе его вылетает:

Недопустимое значение
{ВнешняяОбработка.УниверсальныйЖурналСправочниковДокументов.Форма.Форма.Форма(224)}: ЗаполнитьЗначенияСвойств(Элемент,ПараметрыЭлемента);
{ВнешняяОбработка.УниверсальныйЖурналСправочниковДокументов.Форма.Форма.Форма(128)}: СоздатьЭлементФормы(ПараметрыЭлемента);
{ВнешняяОбработка.УниверсальныйЖурналСправочниковДокументов.Форма.Форма.Форма(81)}:
СоздатьЭлементыФормы(ИмяОбъекта);
{ВнешняяОбработка.УниверсальныйЖурналСправочниковДокументов.Форма.Форма.Форма(548)}: СоздатьРеквизитПоВыбранномуОбъекту(Элемент.ТекущиеДанные.ИмяОбъекта);
{ВнешняяОбработка.УниверсальныйЖурналСправочниковДокументов.Форма.Форма.Форма(606)}: ЗаполнитьСписокДокументов(Элемент);

по причине:
Ошибка установки значения свойства 'ПутьКДанным'
по причине:
Недопустимое значение
БУ › Универсальный журнал справочников и документов, управляемые формы 8.2, 8.3 › #34 13.11.19 3:40
Спасибо!
ВК › Проблема регистрации драйвера Штрих › #32 26.02.19 15:33
(16)Итого, с помощью параметра, отысканного fugitiveLDN, с драйвером 4.14.749 работает:

Объект.УстановитьПараметр("CheckFontNumber", 1);
Код
Объект.УстановитьПараметр("Port", глФРPortNumber);
      Объект.УстановитьПараметр("Baudrate", глФРBaudRate);
      Объект.УстановитьПараметр("AdminPassword", глФРПарольАдминистратора);
      Объект.УстановитьПараметр("UserPassword", глФРПарольПользователя);
      Объект.УстановитьПараметр("Tax1", 20);
      Объект.УстановитьПараметр("Tax2", 10);
      Объект.УстановитьПараметр("Tax3", 0);
      Объект.УстановитьПараметр("Tax4", 0); 
      глФРИДУстройства ="";
      Объект.Подключить(глФРИДУстройства);

(не забыть в 6-й таблице заменить ставку НДС с 1800 на 2000)
ВК › Проблема регистрации драйвера Штрих › #31 26.02.19 14:28
(26)
Цитата
Объект.УстановитьПараметр("CheckFontNumber", 1)
Пригодилось - не то слово!
Поставил Ваш параметр - в моем случае подключение удалось, чеки печатаются, смена открывается и закрывается, - все проблемы на текущий момент решены!
Огромное спасибо, гора с плеч!
ВК › Проблема регистрации драйвера Штрих › #30 26.02.19 13:33
(26)
Цитата
Объект.УстановитьПараметр("CheckFontNumber", 1);
Вы добавили этот параметр и удалось подключиться, "33h, Некорректные параметры в команде" больше не возникают?
ВК › Проблема регистрации драйвера Штрих › #22 15.02.19 6:55
Есть уже и DrvFR_414_749.zip: https://exam.shtrih-m-partners.ru/assets/drivers/DrvFR_414_749.zip
ВК › Проблема регистрации драйвера Штрих › #21 15.02.19 6:35
(19)
Так выходит, что Вам удалось решить проблему с 20% используя старый драйвер?

Только сейчас заметил ошибку - я использую драйвер не DrvFR_4.14_688, как написал выше, а DrvFR_4.14_640.
Неужели на 652 работает?

Читаю history.txt в дистрибутиве драйвера:

DrvFR_4.14_722.exe
12 ноября 2018 15:00

[-] Исправлена передача налоговой ставки 20% для 1С


Прошивку поменяли в середине декабря. По крайней мере с нового года касса сама себе установила в соответствующем поле 2000.
Я так и не смог подключиться в старом драйвере, задав

Код
Объект.УстановитьПараметр("Tax1",20)


Предварительно я устанавливал в таблице 6 ставку 2000 вместо 1800.
Попытка заменить какую-нибудь не используемую ставку на 2000 тоже не увенчалась успехом, подключиться удавалось, а указать 20 при печати строки чека - нет.

Вот мой пример печати чека, тоже работающий, но только со ставкой 18% и ругающийся на 20%,.
Код
DrvFR_4.14_640
Компонента   ="SMDrvFR1CLib24.dll"; 
ПрогИд   ="SMDrvFR1C22";

   Атрибут(XMLParameters, "CashierName", Кассир);
   Атрибут(XMLParameters, "CashierVATIN", "123456789012");
      Атрибут(XMLParameters, "PaymentType", ТипРасчета);
   Атрибут(XMLParameters, "TaxVariant", СистемаНалогообложения); 
   XMLPositions   = XMLCheckPackage.СоздатьПодчиненныйЭлемент("Positions");
   СписокТоваров.ВыбратьСтроки();
   Пока СписокТоваров.ПолучитьСтроку() = 1 Цикл
      XMLFiscalString = XMLPositions.СоздатьПодчиненныйЭлемент("FiscalString");
      Атрибут(XMLFiscalString, "Name", СписокТоваров.ТовНаим);
      Атрибут(XMLFiscalString, "Quantity", СписокТоваров.Количество);
      Атрибут(XMLFiscalString, "PriceWithDiscount", СписокТоваров.Цена); 
      Атрибут(XMLFiscalString, "SumWithDiscount", СписокТоваров.Сумма);
      Атрибут(XMLFiscalString, "DiscountSum", 0);
      Атрибут(XMLFiscalString, "Tax", "18"); 
   КонецЦикла;   
   
   XMLPayments   = XMLCheckPackage.СоздатьПодчиненныйЭлемент("Payments");
   Наличные=Получено-Сдача;
   Наличные=Макс(Получено,0);
   
        Атрибут(XMLPayments, "Cash", Наличные); 
   Атрибут(XMLPayments, "ElectronicPayment", ПолученоКарта); 
   Атрибут(XMLPayments, "AdvancePayment", 0); 
   Атрибут(XMLPayments, "Credit", 0); 
   Атрибут(XMLPayments, "CashProvision", 0); 
    
   XMLДанныеЧека.Записать(КаталогПользователя() + "FRShtrih_001.xml");
   
   // Читаем файл в кодировке UTF-8 
   АдоДБСтрим = CreateObject("Adodb.Stream");
   АдоДБСтрим.Charset = "utf-8";
   АдоДБСтрим.Type = 2;
   АдоДБСтрим.Mode= 3;
   АдоДБСтрим.Open();
   
   АдоДБСтрим.LoadFromFile(КаталогПользователя() + "FRShtrih_001.xml");
   ТекстАдоДБСтрим = АдоДБСтрим.ReadText();
   АдоДБСтрим.Close();
   
        Объект.СформироватьЧек(глФРИДУстройства, Электронно, ТекстАдоДБСтрим, НомерЧека, НомерСмены, ФискальныйПризнак, АдресСайтаПроверки);



P.S. Очень приятно было получить благодарность, но мне ли она адресована? - в моем посте нет ни сертификата, ни аванс)))