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

Выпуск № 597
от 10.09.2007, 07:05

Вопрос № 100.753

Доброе время суток, уважаемые эксперты! Подскажите, как в восьмерке работать с периодическими элементами, например как создать периодическую константу, как сделать, чтоб она была периодической и как потом к ней обратиться???

Отправлен: 04.09.2007, 07:35 Вопрос задал: BigHard (статус: Студент) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Полозов Олег aka Asher Здравствуйте, BigHard! В Восмерке нет понятия периодических констант или периодических реквизитов. Для этого служат регистры сведений. Например РегистрКурсыВалют можно организовать таким образом: Имя: КурсыВалют Периодичность: в переделах деня (может быть в пределах секунды, дня, месяца, квартала, года, не периодический) Режим записи зависит от использования регистра. Если предполагается что регистр будет заполняться только документами и необходимо отслеживать регистрирующий документ, то выбираем - подчинение регистратору, иначе независимый. Далее определяем данные: Измерения: Валюта (справочник Валюты) Ресурсы: Курс (Число 10 4) Кратность (Число 10 0) Можно создать форму списа для отображения Данные будут храниться ввиде записей на определенный период указанный в периодичности. Если период - день, тогда на каждый день будет создана запись с данными по валюте. Считать данные на определенную дату можно будет используя запрос с виртуальной таблицы регистра - КурсыВалютСрезПоследних, КурсыВалютСрезПервых или реальной таблицы КурсыВалют

Ответ отправил: Полозов Олег aka Asher (статус: 9-ый класс) Ответ отправлен: 04.09.2007, 08:10 Оценка за ответ: 5 Комментарий оценки: спасибо!

Отвечает: Владимир (1С) Здравствуйте, BigHard! Чтобы создать периодический реквизит, в восьмерке используется объект конфигурации Регистр сведений. Он может иметь периодичность с точностью в пределах секунды, дня, месяца, квартала, года и в пределах регистратора, если установлен режим записи Подчинение регистратору. В восьмерке к нему привязывают все периодические значения, например, реквизиты справочников, периодические константы. При записи данных в регистр система всегда приводит значение даты к началу того периода, в который он попадает. Это цитата из учебника. Как создать, я пока не знаю, сам еще учусь, как и Вы. Приложение: Как добавить запись в периодический независимый регистр сведений: НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Валюта.Установить(ТекущаяВалюта); НаборЗаписей.Отбор.Период.Установить(ТекущаяДата); НовЗапись = НаборЗаписей.Добавить(); НовЗапись.Валюта = ТекущаяВалюта; НовЗапись.Период = ТекущаяДата; НовЗапись.Курс = ТекущийКурс; НовЗапись.Кратность = ТекущаяКратность; НаборЗаписей.Записать(Истина); Как прочитать (изменить) записи в периодическом независимом регистре сведений? НаборЗаписей = РегистрыСведений.Валюты.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Период.Установить(ДатаЗаписи); НаборЗаписей.Прочитать(); Для Каждого Запись Из НаборЗаписей Цикл // Чтение и сообщение данных полей записи. Сообщить(Строка(Запись.Период) + " " + Строка(Запись.Валюта) + " " + Строка(Запись.Курс)); // Изменение данных полей записи. Запись.Курс = 0; КонецЦикла; НаборЗаписей.Записать(); Как прочитать данные, актуальные на определенную дату, из регистра сведений "Курсы валют" с отбором по нескольким валютам (отбор по измерениям)? Запрос = Новый Запрос; МассивВалют = Новый Массив; МассивВалют.Добавить(Валюта1); МассивВалют.Добавить(Валюта2); Запрос.УстановитьПараметр("МассивВалют", МассивВалют); Запрос.УстановитьПараметр("ДатаПолучения", ДатаПолучения); Запрос.Текст = " |ВЫБРАТЬ | ВалютыСрезПоследних.Валюта, | ВалютыСрезПоследних.Курс |ИЗ | РегистрСведений.КурсыВалют.СрезПоследних(&ДатаПолучения, Валюта В (&МассивВалют)) КАК ВалютыСрезПоследних"; ТаблицаКурсов = Запрос.Выполнить().Выгрузить();

Ответ отправил: Владимир (1С) (статус: 2-ой класс) Ответ отправлен: 04.09.2007, 08:20 Оценка за ответ: 5 Комментарий оценки: Спасибо, будем учиться вместе :)

Отвечает: Никифоров Иван Петрович Здравствуйте, BigHard! В восьмерке не периодических констант, для этого используется РегистрСведений

Ответ отправил: Никифоров Иван Петрович (статус: 1-ый класс) Ответ отправлен: 04.09.2007, 09:58 Оценка за ответ: 2 Комментарий оценки: Вы хоть другие ответы просматривали??? Ваш таааакой полный..............

Вопрос № 100.771

У меня есть 1с зик, как мне перенести сотрудников( а может и еще что то можно) в 1с автотранспорт

Отправлен: 04.09.2007, 10:32 Вопрос задал: Федоров Вячеслав Викторович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Федоров Вячеслав Викторович! попробывать обработки переноса данных с инета качнуть

Ответ отправил: Ромашов Евгений Николаевич (статус: 4-ый класс) Ответ отправлен: 04.09.2007, 11:57 Оценка за ответ: 3

Отвечает: Townsman Здравствуйте, Федоров Вячеслав Викторович! Для этого есть стандартная обработка Tranref.ert - выгрузка и загрузка справочников. В ней есть все необходимые настройки для корректной работы. Распространяется она на дисках ИТС, а также ее можно найти в Интернете и у знакомых ;-)

Ответ отправил: Townsman (статус: 8-ой класс) Ответ отправлен: 04.09.2007, 12:44 Оценка за ответ: 5

Отвечает: Владимир (1С) Здравствуйте, Федоров Вячеслав Викторович! Справочник сотрудники? 1. Если в Автотранспорте есть компонента бухгалтерского учета и есть обработка Импорт данных (Импорт проводок), то можно сделать выгрузку из ЗиК обработкой Экспорт проводок, там в мастере указать конфигурацию-приёмник (Бухгалтерия или Комплексная) и сделать выгрузку. В Автотранспорте сделать загрузку данных и в справочнике сотрудников создадутся отсутствующие надписи. 2. Если первое условие не выполнилось, тогда можно использовать обработку переноса справочников с диска ИТС (на любом есть, раздел Методическая поддержка - Дополнительные отчеты и обработки - Выгрузка-загрузка справочников), или воспользоваться другой аналогичной.

Ответ отправил: Владимир (1С) (статус: 2-ой класс) Ответ отправлен: 04.09.2007, 21:27 Оценка за ответ: 5

Вопрос № 100.796

Здравствуйте уважаемые эксперты! У меня такая проблема. Сразу оговорюсь что програмированием занимаюсь не много, около полугода. Предприятие 7.7 dbf сетевая версия. 4 пользователя, база стоит на Win XP Prof, клиенты на Win 98. При работе в сети примерно 1-2 в день выскакивает ошибка -1000, ошибка доступа к файлу ......., каждый раз файл разный. В чем хотя бы примерно причина этой ошибки. Заранее спасибо.

Отправлен: 04.09.2007, 13:15 Вопрос задал: Юрий Р. (статус: Посетитель) Всего ответов: 7 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: DERL.KG Здравствуйте, Юрий Р.! Как вариант поверьте хватает ли свободного места на диске где лежит база.

Ответ отправил: DERL.KG (статус: 5-ый класс) Ответ отправлен: 04.09.2007, 13:27

Отвечает: Андрей Тимофеев Здравствуйте, Юрий Р.! Все дело в том, что в WinXP есть ограничение на количество открываемых файлов из сети. Рекомендую Вас перевести компьютер на Win server. Удачи.

Ответ отправил: Андрей Тимофеев (статус: 6-ой класс) Ответ отправлен: 04.09.2007, 13:27

Отвечает: Маргарита Здравствуйте, Юрий Р.! Скорее всего дело в антивируснике. Если стоит Касперский, то на 90% он виноват, надо поменять настройки.

Ответ отправила: Маргарита (статус: 1-ый класс) Ответ отправлен: 04.09.2007, 14:10

Отвечает: Elric Здравствуйте, Юрий Р.! Следует проверить: 1. Наличие свободного места на диске. 2. Ограничения доступа по сети к каталогу базы данных. Это и качество работы самой сети, и наличие полного доступа к каталогу (включая права конкретных пользователей и квоты), и влияние антивируса. Предположение Андрея Тимофеева про ограничение количества открываемых файлов по сети в WinXP -- чистой воды дезинформация :) Ограничение есть только у Win98, многопользовательскую базу на машине с Win98 держать нельзя. --------- В творчестве рождается истина

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 04.09.2007, 14:46

Отвечает: BigHard Здравствуйте, Юрий Р.! Прислушиваясь к предыдущим советам, я бы прежде всего проверил сетевые кабеля и переобжал их. У меня было такое, проблема была решена заменой кабеля. --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: Студент) Ответ отправлен: 04.09.2007, 15:39

Отвечает: Полозов Олег aka Asher Здравствуйте, Юрий Р.! Решал эту проблему не далее как вчера! Гемор в одновременно открытых файлах. и кривой ХРюше. Вышел из положения редактированием реестра: HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServiceslanmanserverparameters Параметр Size (Dword) = 3 HKLMSystemCurentControlSetControlSession ManagerMemory Menegment Параметр LargeSystemCache (Dword) = 1 Следующий ключ создал. В нем как раз и указывется максимальное количество открытых файлов HKLMSystemCurrentControlSetControlSession ManagerMemory Management. Параметр IoPageLockLimit (REG_DWORD) = 65536 decimal /10000 Hex Взял с форума: http://forum.windowsfaq.ru/printthread.php?s=b98c6b5bdec5e667b6ecb245fd41726e&t=67555

Ответ отправил: Полозов Олег aka Asher (статус: 9-ый класс) Ответ отправлен: 05.09.2007, 02:19

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Юрий Р.! может в том что если мне память не изменяет на обычных операционных системах стоит ограничение количества открытых файлов, соответственно надо либо поискать как это ограничение максимально увеличить, либо сократить количество открываемых файлов, через удаление не нужных документов и справочников, либо ,что правельнее, установка серверной операционной системы, которая позволяет подключаться в терминальном режиме.

Ответ отправил: Ромашов Евгений Николаевич (статус: 4-ый класс) Ответ отправлен: 05.09.2007, 05:24

Вопрос № 100.813

Встала задача использовать сканер штрих-кода в 1С:Предприятие, конфигурация ПУБ. Мне нужно шифровать в кодировке EAN-13 или EAN-39 дату, номер и вид документа, а потом, при сканировании сканером штрих кода на документе открывать его. Кто может подсказать, что можно сделать?

Отправлен: 04.09.2007, 16:09 Вопрос задал: Плесовских Александр Владимирович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Владимир (1С) Здравствуйте, Плесовских Александр Владимирович! В приложении я привёл код из ПУБ (из элемента справочника ТМЦ и глобального модуля). Там переменная ШтрихКод - реквизит справочника ТМЦ, а Префикс = "20" наверное, используется для товаров. Для документов должен быть другой префикс. Внутренний штрихкод может использоваться только в пределах одного предприятия, его наносят на упаковку штучного или весового товара. Первый символ штрихкода должен быть цифрой 2, а второй символ - цифрой в диапазоне от 0 до 9. Предприятие может выбрать определенное значение второго символа для обозначения штучных товаров, а оставшиеся использовать для обозначения весовых товаров. Штучный штрихкод содержит только код товара, а весовой штрихкод содержит и код товара, и его вес. Цитата с сайта http://www.bar-kod.ru/shtrih_kodirovanie.html Приложение: // =============================== //Дополняет передаваемую строку Стр символами Чем до строки длиной Длина //справа или слева в зависимости от значения переменной Режим (1-слева, 2-справа) Функция глДополнитьСтроку(Стр,Чем,Длина,Режим=1) Экспорт Добавить=Длина-СтрДлина(Стр); Если Добавить>0 Тогда Добавок=""; Для Сч = 1 По Добавить Цикл Добавок=Добавок+Чем КонецЦикла; Возврат ?(Режим=1,Добавок+Стр,Стр+Добавок); Иначе Возврат Стр; КонецЕсли; КонецФункции // =============================== // Формирует штрих код товара Функция глСформироватьEAN13(ШтрКод) Экспорт // Функция вычисляет контрольный символ кода EAN13 // дополняет им переданный параметр и возвращает сформированный EAN13 ШтрКод=СокрЛП(ШтрКод); ШтрКод=Лев(ШтрКод,12); ШтрКод=глДополнитьСтроку(ШтрКод,"0",12,1); ШтрКод=Число(ШтрКод); Четн = 0; Нечетн = 0; Для Индекс=1 По 6 Цикл Четн=Четн+Сред(ШтрКод,2*Индекс,1); КонецЦикла; Четн=Четн*3; Для Индекс=1 По 6 Цикл Нечетн=Нечетн+Сред(ШтрКод,2*Индекс-1,1); КонецЦикла; КонтЦифра=(Четн+Нечетн)/10-Цел((Четн+Нечетн)/10); КонтЦифра=10-Цел(КонтЦифра*10); Если КонтЦифра=10 Тогда КонтЦифра=0; КонецЕсли; Возврат Число(Строка(ШтрКод)+Строка(КонтЦифра)); КонецФункции // =============================== Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные) // Эта процедура в глобальном модуле отлавливает данные от сканера штрих кода, // когда не открыта ни одна из форм, использующих сканер в своей работе. // Пришедшие данные в данном случае пропускаются, чтобы не заполнять буфер сканера Если РаботаСоСканеромШтрихКода=2 Тогда Если Событие="BarCodeValue" Тогда СканерШтрихКода.ПосылкаДанных = 1; КонецЕсли; КонецЕсли; КонецПроцедуры // =============================== Процедура глУстановкаШтрихКода(Конт,Данные) Экспорт // Разбор строки данных от сканера штрих кода - определение формата штрих-кода Если ШтрихКодИмеетПрефикс=1 Тогда Если Найти("MPJS",Лев(Данные,1))=0 Тогда Предупреждение("Формат считанного штрих-кода не предназначен для товаров."); Возврат; Иначе Данные=Сред(Данные,2,СтрДлина(Данные)-1); КонецЕсли; КонецЕсли; // Запись полученного штрих-кода Если ПустоеЗначение(Конт.ШтрихКод)=1 Тогда Конт.ШтрихКод=Число(Данные); Иначе Если Вопрос("Штрих-код уже задан. Переписать?", 4 )=6 Тогда Конт.ШтрихКод=Число(Данные); КонецЕсли; КонецЕсли; КонецПроцедуры // =============================== // Название: СформироватьШтрихКод() // Параметры: // НЕТ // Возвращаемое значение: // НЕТ // Вызывается из формул элементов диалога: // кнопка "Сформирвать свой штрихкод". // Описание: // процедура предназначена для формирования штрихкода // в формате EAN 13. Сформированный штрихкод записывается в реквизит "ШтрихКод" Процедура СформироватьШтрихКод() //Формирование внутреннего шрих кода Перем Префикс; Если ПустоеЗначение(ШтрихКод)=0 Тогда // если штрихкод уже задан, то сначала нужно уточнить, // а действительно ли нужно формировать Если Вопрос("Штирх-код задан. Сформировать новый?",4)<>6 Тогда Возврат; КонецЕсли; КонецЕсли; Префикс = "20"; ШтрихКод=глСформироватьEAN13(Строка(Префикс)+глДополнитьСтроку(Строка(Код),"0",8,1) + глДополнитьСтроку(Строка(1),"0",2,1)); КонецПроцедуры // СформироватьШтрихКод

Ответ отправил: Владимир (1С) (статус: 2-ой класс) Ответ отправлен: 04.09.2007, 19:03

Отвечает: svsrus Здравствуйте, Плесовских Александр Владимирович! Во-первых, если вы хотите кодировать номер, дату и вид документа, то Вам врядли помогут EAN-13 и EAN-39. Поскольку данные штрих-коды не поддерживают кодирование символов. EAN-13 вообще представляет собой набор из 13 цифр, так что думаю сами понимаете, что вряд-ли у вас что то получится. Самый лучший вариант EAN128(или Code 128), поскольку он кодирует и символы и числа, что нам и надо. Я так понимаю, что штрих-кодирование Вам надо исключительно для личного(фирмы) пользования. У меня так сделано на работе. Выписываются счета, со штрих-кодом, которые отдаются арендаторам. Арендатор приходит оплачивать в кассу с этим счетом. Кассир проводит сканером - вылазит расходник и чек с фискальника...Если и вам надо нечто подобное, то рекомендую прочитать статью с Книги знаний Мисты. Там уже есть готовое решение. Будут вопросы спрашивайте. Вот ссылка на статю "Штрихкодирование объектов ИБ" http://www.kb.mista.ru/article.php?id=442. Удачи!

Ответ отправил: svsrus (статус: 7-ой класс) Ответ отправлен: 04.09.2007, 21:34

Отвечает: Ромашов Евгений Николаевич Здравствуйте, Плесовских Александр Владимирович! надо стандартную торговлю посмотреть как там устроено подключение оборудования, если пуб не поддерживает. В торговле есть функция которая штрихкод составляет, надо только подготовить первичный код, который можно составить на мой взгляд следующим образом код вида документа + код документа. код вида документа - можно в глобальном модуле таблицу сделать с 2 столбцами первый вид документа второй число - его код. а на печатных формах этот код выводить в шапке. процедура открытия документа обратна составлению штрихкода.

Ответ отправил: Ромашов Евгений Николаевич (статус: 4-ый класс) Ответ отправлен: 05.09.2007, 05:20

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.58 от 30.08.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru