/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 303
от 20.09.2006, 09:05

Вопрос № 55.481

Добрый день! Может быть кто-то пробовал настроить фискальный регистратор ШТРИХ-ФР-К в сетевом режиме? Суть проблемы: необходимо организовать работу с одним ФР с двух компьтеров. Конфигурация ТиС.

Отправлен: 14.09.2006, 20:57 Вопрос задал: Краюшкин Игорь Валерьевич (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Ovr1970 Здравствуйте, Краюшкин Игорь Валерьевич! Именно этот регистратор не пробовал, но решение должно подойти. На компьютере с кассой работает специальная конфа, которая каждые 30 секунд проверяет локальный каталог (доступный по сети) и если находит в нем файлы, то загружает в себя чеки (из файлов). Печать чека в ТИС переделывается в экспорт чека в файл, который записывается в тот самый каталог. В результате клиент подходит к любому продавцу, оформляет покупку, а конце идет платить деньги в кассу. В кассе он показывает накладную, по которой находится чек, показывает деньги после чего чек печатается. Последовательность именно такая, т.к. полностью автоматическая печать чеков часто приводила к возвратам, т.к. у клиента неоказывалось нужной суммы.

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 15.09.2006, 15:01 Оценка за ответ: 5 Комментарий оценки: Не подойдет, т.к. у нас конфа заточена под нас. Есть вариант работать через Guardant, который стоит 9 тыс. руб. Вот найти бы его эмулятор....

Вопрос № 55.489

V7. Может кто-нибудь толково разъяснить функции ПрисоединитьСекцию(), ВывестиСекцию(). Конкретно интересует не пересечение секций. Например: Есть две секции "Горизонтальная" и "Вертикальная". Метод кореектно работает только в случае: ВывестиСекцию("Горизонтальная|Вертикальная"). Если начиная юзать ">" или "<" выдает ошибку: "Не найдена секция Горизонтальная<". и т.д. В общем непонятки...

Отправлен: 14.09.2006, 22:16 Вопрос задал: svsrus (статус: 2-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Elric Здравствуйте, svsrus! Метод "ВывестиСекцию" выводит в таблицу НОВУЮ горизонтальную секцию, т.е. как перевод корретки и вывод секции. Метод "ПрисоединитьСекцию" присоединяет секцию справа от предыдущей секции (т.е. без перевода корретки). Что касается пересечения или непересечения вертикальной и горизонтальной секций, то: а) при использовании вертикальной черты | будет выведено пересечение двух секций (любым из методов, от выбора метода зависит только куда именно будет выведено это пересечение секций) б) если указать только имя горизонтальной секции, то будет выведена вся эта секция независимо от количества пересекающих ее вертикальных секций в) символы "<" и ">" работают в том случае, когда в одну вертикальную секцию вложена другая вертикальная (или в одну горизонтальную другая горизонтальная), подробнее см. описание. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 14.09.2006, 23:45 Оценка за ответ: 4

Отвечает: Karanskiy Arkadiy Здравствуйте, svsrus! ПрисоединитьСекцию("СледСекция"); означает, что 1С присоединит еще одну секцию, которая называется "СледСекция" к Исходной таблице. Если хочешь посмотреть на примере, то лучше посмотри в ТиС ОбработкаПечатиПрайсЛиста, там как раз используется этот метод, для того, чтобы сбоку присоединять новые секции с различными ценами. Ну а метод ВывестиСекцию(); означает, что программа выведет секцию, которая указанна в нутри в результирующую таблицу. По сути, после вызова метода Показать все секции которые ты выводил появятся на экране. Здесь примеров много. Практически никакая нечатная форма не обходится без этого метода.

Ответ отправил: Karanskiy Arkadiy (статус: 3-ий класс) Ответ отправлен: 15.09.2006, 00:00 Оценка за ответ: 4 Комментарий оценки: Спасибо но не то... С методами ВывестиСекчию() и ПрисоеденитьСекцию() у меня проблем не возникает. Тут все ясно. У меня проблемы с конструкциями типа ВывестиСекцию("Горизонтальная<|Вертикальная") или ПрисоеденитьСекцию("Горизонтальная|Вертикальная<"). Почему они выдают ошибку? Хотя если взять в пример отчет Свод Проводок в ЗиК 7.7 там сплошь и рядом применяются такие конструкции как ВыходнаяТаблица.ВывестиСекцию("Начислено<|Начало"); Иначе ВыходнаяТаблица.ПрисоединитьСекцию("Начислено<|ОТвЦентре");

Отвечает: Гребиников Павел Генадьевич Здравствуйте, svsrus! Что-то я не понял при чем тут < и >. Методы достаточно просты для понимания. "Вывести секцию" выводит секцию(Имя секции таблицы) с новой строки в таблице, если использовать только горизонтальную секцию, то она выведется вся полностью, а если на пересечении с вертикальной то выведется только этот участок пересечения. Метод "присоединитьсекцию" присоединяет секцию(имясекции) к таблице. Если у Вас есть две секции "Горизонтальная" и "Вертикальная" то вы никак не можете использовать другие имена секций, поэтому вам и дается ошибка. --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 2-ой класс) Ответ отправлен: 15.09.2006, 08:09 Оценка за ответ: 3 Комментарий оценки: С пересечением секций то как-раз все ясно. Читай вопрос внимательно!!! Что такое < > смотри в синтакс-помошнике. В моем понимании "<" это выводится секция до пересечения, а ">" после пересечения.

Вопрос № 55.508

Вопрос №54852 У меня не вопрос, а дополнение к ответам. Цитирую: --------- 1с: Предприятие 8.0 Вопрос такой: Я пишу выгрузку произвольного документа в txt - файл (чтобы его можно было, при необходимости, потом загрузить). Допустим, СсылкаНаДокумент - это ссылка на выгружаемый документ. Как мне сохранить в файл какой-нибудь реквизит документа, например Дата, Комментарий? Какие операции для этого нужно использовать ? Спасибо. ----------- Приложение: Вопрос №54852 Текстовый файл ~~~~~~~~~~~ i Как выгрузить данные из справочника в текстовый файл? ---------------------------------------------------- Текст = Новый ТекстовыйДокумент; Выборка = Справочники.Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%"); Код = Строка(Выборка.Код) + Символ(34); Текст.ДобавитьСтроку(Код + Стр); КонецЦикла; Текст.Записать("c: emp ext.txt"); =============================== i Как загрузить данные из текстового файла? -------------------------------- Текст = Новый ТекстовыйДокумент; Текст.Прочитать("c: emp ext.txt"); Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл Стр = Текст.ПолучитьСтроку(НомерСтроки); Позиция = Найти(Стр, Символ(34; Код = Сред(Стр, 1, Позиция-1); прНаименование = Сред(Стр, Позиция + 1); Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34; Сообщить(Код + "-" + Наименование); КонецЦикла; Работа с текстом. Модель последовательного доступа Путь = "c: emp ext.txt"; Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8); Выборка = Справочники.Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Текст.ЗаписатьСтроку(Выборка.Наименование); КонецЦикла; Текст.Закрыть(); Путь = "c: emp ext.txt"; Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); Стр = Текст.ПрочитатьСтроку(); Пока Стр <> Неопределено Цикл Стр = Текст.ПрочитатьСтроку(); Сообщить(Стр); КонецЦикла; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ XML i Как из одной базы перенести документ в другую базу? ------------------------------------- // Выгрузить в файл xml. ЗаписьXML=Новый ЗаписьXML(); ЗаписьXML.ОткрытьФайл("c:doc.xml"); ЗаписьXML.ЗаписатьНачалоЭлемента("Root"); // Получить объект по ссылке. ВыгружаемыйОбъект=Документ.ПолучитьОбъект(); // С помощью средств сериализации записать объект в файл. ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект); ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.Закрыть(); ЧтениеXML=Новый ЧтениеXML(); ЧтениеXML.ОткрытьФайл("c:doc.xml"); // Текущим становится элемент Root. ЧтениеXML.Прочитать(); // Текущим становится элемент с документом. ЧтениеXML.Прочитать(); // Проверить сможет ли с данным значением "справиться" // система сериализации в данной базе. Если ВозможностьЧтенияXML(ЧтениеXML) Тогда // Получить ДокументОбъект.РеализацияТоваровУслуг ЗагружаемыйОбъект=ПрочитатьXML(ЧтениеXML); ЗагружаемыйОбъект.Записать(); КонецЕсли; ЧтениеXML.Закрыть(); ================================ Как можно сформировать XML-документ произвольной структуры? ------------------------------------------------ Запись = Новый ЗаписьXML; Запись.ОткрытьФайл(ПутьКФайлу); Запись.ЗаписатьОбъявлениеXML(); Запись.ЗаписатьНачалоЭлемента("Корневой"); Запись.ЗаписатьАтрибут("Справочник", "Номенклатура"); Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре"); Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа Тогда Продолжить; КонецЕсли; Запись.ЗаписатьНачалоЭлемента("Элемент"); Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код; Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул; Запись.ЗаписатьТекст(Выборка.Наименование); Запись.ЗаписатьКонецЭлемента(); КонецЦикла; Запись.ЗаписатьКонецЭлемента(); Запись.Закрыть(); ================================ Как сформировать XML-документ в строку? --------------------------------------- Запись = Новый ЗаписьXML(); Запись.УстановитьСтроку(); Запись.ЗаписатьОбъявлениеXML(); Запись.ЗаписатьНачалоЭлемента("Корневой"); Запись.ЗаписатьАтрибут("Справочник", "Номенклатура"); Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре"); Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа Тогда Продолжить; КонецЕсли; Запись.ЗаписатьНачалоЭлемента("Элемент"); Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код; Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул; Запись.ЗаписатьТекст(Выборка.Наименование); Запись.ЗаписатьКонецЭлемента(); КонецЦикла; Запись.ЗаписатьКонецЭлемента(); Стр = Запись.Закрыть(); Сообщить(Стр); ========================================= Как можно обмениваться данными, используя XML-сериализацию через файлы других форматов? ---------------------------------------- ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.УстановитьСтроку(); Данные = СсылкаНаДокумент.ПолучитьОбъект(); ЗаписатьXML(ЗаписьXML, Данные); ТекстСообщения = ЗаписьXML.Закрыть(); Текст = Новый ТекстовыйДокумент; Текст.УстановитьТекст(ТекстСообщения); Текст.Записать(ПутьКФайлу); Текст = Новый ТекстовыйДокумент; Текст.Прочитать(ПутьКФайлу); ЧтениеXML = Новый ЧтениеXML(); ЧтениеXML.УстановитьСтроку(Текст.ПолучитьТекст(; Если ВозможностьЧтенияXML(ЧтениеXML) Тогда Данные = ПрочитатьXML(ЧтениеXML); Данные.Записать(); КонецЕсли; Как можно загрузить XML документ произвольной структуры? Чтение = Новый ЧтениеXML; Чтение.ОткрытьФайл(ПутьКФайлу); Пока Чтение.Прочитать() Цикл // Прочитать "структурные части" элементов. // Проверить, какая часть элемента - текущая. Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда ИмяУзла = Чтение.Имя; Сообщить("--" + ИмяУзла); // Атрибуты элементов можно читать только если текущая часть - // начало элемента Пока Чтение.ПрочитатьАтрибут() Цикл // Прочитать данные узла атрибута. ТипУзла = Чтение.ТипУзла; Имя = Чтение.Имя; Значение = Чтение.Значение; // Обработать полученные значения. КонецЦикла; ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда // В примере просто выводим текст в окно сообщений. Сообщить("Текст:" + Чтение.Значение); ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда // В примере просто выводим признак конца элемента // в окно сообщений Сообщить("--Конец:" + Чтение.Имя); КонецЕсли; КонецЦикла; DBF-файлы i Как можно построить выгрузку-загрузку посредством файлов DBF? БД = Новый XBase; БД.Поля.Добавить("CODE", "S", 5); БД.Поля.Добавить("NAME", "S", 40); БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.Индексы.Добавить("IDXCODE", "CODE"); ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx"); БД.АвтоСохранение = Истина; Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл БД.Добавить(); БД.CODE = Выборка.Код; БД.NAME = Выборка.Наименование; КонецЦикла; БД.ЗакрытьФайл(); БД = Новый XBase; БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.ТекущийИндекс = БД.Индексы.IDXCODE; Пока БД.Следующая() Цикл Сообщить(БД.CODE); Сообщить(БД.NAME); КонецЦикла; БД.ЗакрытьФайл();

Отправлен: 15.09.2006, 07:31 Вопрос задал: Лазурко Владимир (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Лазурко Владимир! Спасибо за вопрос:)) --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 2-ой класс) Ответ отправлен: 15.09.2006, 08:12

Отвечает: Elric Здравствуйте, Лазурко Владимир! В следующий раз, пожалуйста, оставляйте дополнение в мини-форуме вопроса (когда достигнете 5-го класса) либо отправляйте его лично автору вопроса. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 15.09.2006, 08:35

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.36 от 06.09.2006