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

Выпуск № 232
от 25.06.2006, 13:35

Вопрос № 46.692

Здравствуйте Эксперты! У меня следующая проблема. Написал внешнюю обработку где используются несколько слоев На каждом слое есть своя отдельная таблица значений Запускаю обработку. Таблица значений на первом по порядку слое ведет себя корректно, т.е. при изменении размеров окна размеры таблицы значений изменяются соответствующим образом. Однако на втором и последующих слоях таблицы значений при изменении размеров окна сохраняют те же размеры которые были им заданы в конфигураторе а не подстраиваются под размер окна как необходимо. В результате с такой обработкой очень неудобно работать. Подскажите есть ли способ решить эту проблему?

Отправлен: 19.06.2006, 13:16 Вопрос задал: Slava1976 (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

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

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 19.06.2006, 13:35

Отвечает: Gorus Здравствуйте, Slava1976! Можно использовать одну таблицу, и при выборе закладки создавать структуру и заполнять ее данными из буферных таблиц в памяти. Недостаток - медленно работает, особенно на слабых машинах.

Ответ отправил: Gorus (статус: 2-ой класс) Ответ отправлен: 19.06.2006, 15:32

Отвечает: Ovr1970 Здравствуйте, Slava1976! Достаточно просто. Нужно всегда показывать таблицу, которую ты положил на форму первой, а данные в нее загружать при выборе закладки. (Метод ТЗ "Загрузить"). Работает быстро, но требует достаточно памяти на машине. (Под WindowsXP хотя бы 256Мб). Главное следовать правилу, что таблица заполняется не построчно, а сразу. Если есть необходимость загрузить таблицу построчно, то нужно создать временную таблицу, которую заполнить построчно, а результат загрузить в отображаемую таблицу. P.S. Если не невидимом слое хранить другие таблицы значений (или какие-либо переменные), то их данные смогут запоминаться при сохранении настроек

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 19.06.2006, 18:15

Отвечает: Лазурко Владимир Здравствуйте, Slava1976! А что, если таблицу сделать на одном общем слое, только в зависимости от выбранной закладки (либо нажатия кнопки, смторя как у Вас реализовано), программно загружать туда другие таблицы и выводить их по очереди? --------- Доброе отношение к людям может изменить твою жизнь

Ответ отправил: Лазурко Владимир (статус: 2-ой класс) Ответ отправлен: 20.06.2006, 07:34

Вопрос № 46.714

Здравствуйте уважаемые эксперты. Хотелось бы получить ваше мнения по данному вопросу. У нас на фирме встал вопрос о необходимости вести складской учет(фирма занимается производством алюминиевых окон и конструкций). Есть некая программка под DOS, которая может выводить лимитно-заборную карту(т.е. состав материалов по конкретному заказу) в любом формате. Я пока остановился на Excele. Так вот, как этот файлик загрузить в 1С "Торговля и склад"?

Отправлен: 19.06.2006, 15:34 Вопрос задал: Dusha (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Warior Здравствуйте, Dusha! Пишется обработка которая и будет подгружать это дело Приложение: что то типа ExcelApp = СоздатьОбъект("Excel.Application"); Исключение Предупреждение(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!"); СтатусВозврата(0); КонецПопытки; спр= СоздатьОбъект("Справочник.Номенклатура"); спрЦ= СоздатьОбъект("Справочник.Цены"); НовыеРабочиеКниги = ExcelApp.WorkBooks; РабочаяКнига = НовыеРабочиеКниги.Open(ФайлЗаказа); Страница = РабочаяКнига.Worksheets(1); стр = 1; Пока ПустоеЗначение(Страница.Cells(Стр,1).Value) =0 Цикл Если спр.НайтиПоКоду(Страница.Cells(Стр,1).Value) = 1 Тогда спрЦ.ИспользоватьДату(ДатаДок); спрЦ.ИспользоватьВладельца(спр.ТекущийЭлемент()); //Если спрЦ.НайтиПоРеквизиту("КатегорияЦены",КатегорияЦен,0) = 1 Тогда глДобавитьТоварВДокумент(Контекст,спр.ТекущийЭлемент(),Страница.Cells(Стр,2).Value,); ИзмТовар(); //КонецЕсли; КонецЕсли; стр = стр +1; КонецЦикла;

Ответ отправил: Warior (статус: 1-ый класс) Ответ отправлен: 19.06.2006, 15:51 Оценка за ответ: 5

Отвечает: Besker Здравствуйте, Dusha! Можно еще перенести черех XBase из DBF файлов. Для начала вам нужно конвертировать файл из формата excel *.xls в *.dbf. Современное программное обеспечение поддерживает экспорт в dbf формат, а старое вообще использует его для хранения данных (в вашем случая, раз программка поддерживает все форматы, то можно сразу экспорт в dbf, если поддерживает). Для преобразования в формат можно использовать access – dbf. Вот примерный код: Процедура Выполнить() ДБФ=СоздатьОбъект("XBase"); ДБФ.ОткрытьФайл("C:Limit.dbf");//название вашего файла ДБФ.Первая(); Спр=СоздатьОбъект("Справочник.Материалы"); Пока ДБФ.ВКонце()=0 Цикл Спр.Новый(); Спр.Наименование=ДБФ.Name;// имя полей в файле Спр.Количество=ДБФ.KOL; // и так далеее ... Спр.Записать(); ДБФ.Следующая(); КонецЦикла; ДБФ.ЗакрытьФайл(); КонецПроцедуры Если же в конфу, в которую переносите данные есть типизированные реквизиты, то необходимо установить связи, для этого можно воспользоваться функцией НайтиПоНаименованию. --------- Жизнь игра, а настоящая игра - МАНИЯ.

Ответ отправил: Besker (статус: 9-ый класс) Ответ отправлен: 20.06.2006, 06:47 Оценка за ответ: 5

Отвечает: Фисько Здравствуйте, Dusha! Возими диск ИТС там есть обработки для заноса справочников из ExceL и есть обработки для заноса остатков из Excel

Ответ отправил: Фисько (статус: 1-ый класс) Ответ отправлен: 22.06.2006, 13:53 Оценка за ответ: 5

Вопрос № 46.777

Здравствуйте, увыжаемые эксперты. У меня такой вопрос: мне необхожимо из одной базы 1С в другую перенсти только справочник сотрудников. Я знаю что это делаеться с помощью объедения конфигураций, ну я там запутался и не могу этого сделать. Если можно раскажите подробнее как это осуществить. Мне неохото заново забивать всю информацию о сотрудниках их у меня 500 человек. Заренее спасибо большое, Денис

Отправлен: 20.06.2006, 09:19 Вопрос задал: Dmd (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, Dmd! При помощи объединения конфигураций Вы это не сделаете никак. Это инструмент для переноса "настроек", а никак не данных. Для переноса справочника сотружников можно написать специальную обработку, либо воспользоваться уже существующей (для этого сообщите по внутренней почте Ваш электронный адрес, я вышлю). --------- Мирный атом в КАЖДЫЙ дом

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 20.06.2006, 10:27

Отвечает: Warior Здравствуйте, Dmd! Делается двумя путями либо пишем 2 обработки одну на выгрузку справочника в файл из первой базы, вторую на загрузку из файла во вторую базу,либо одна обработка которая будет подключатся к указанной базе и импортировать из неё нужные данные.

Ответ отправил: Warior (статус: 1-ый класс) Ответ отправлен: 20.06.2006, 11:16

Отвечает: Ovr1970 Здравствуйте, Dmd! При помощи объединения это сделать нельзя, но если у Вас одинаковые конфигурации ( с точностью до внутреннего названия полей), то можно просто скопировать файл справочника. Название файла можно посмотреть в файле 1CV7.DD Правда при этом не скопируются реквизиты, которые имеют тип периодический или строка неограниченной длины. PS Теоретически возможно скопировать файл, даже в другую конфигурацию, если привести в соответствие название файла и название полей в файле. PPS Копирование файла заменяет, а не дополняет справочник.

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 20.06.2006, 13:08

Отвечает: Лазурко Владимир Здравствуйте, Денис! Подытожу. Если я всех правильно понял. Чтобы перенести структуру метаданых - достаточно со всех элементов снять птички и поставить только напротив интересующего справочника, и объединить. Если у справочника есть подчинённый и его нужно переносить, если есть аналог подчинёного в новой базе, нужно внимательно пересмотреть все реквизиты и их типы. ПО опыту знаю (экспериментировал) - копирование файлов справочников/документов не есть хорошее решение. Т.к. есть еще такая таблица констант, про которую иногда забывают, а для документов еще файлы ссылок документов и длинных строк. Если просто тупо скопировать, может не повезти. Хотя есть вариант тестирования и исправленгия даных. Но суть вопроса не в этом. На мой взгляд лучший способ переноса справочников - через OLE. В приложении код модуля. На форму модуля прилепи поле типа Дата и названием "ВыбДата". Успехов. Приложение: Перем ЗаголовокОтчета; Перем НазваниеОтчета; Перем РежимОтладки; Перем V7; // База 1С откуда делается перегрузка Перем ДатаЗаписи; // ******************************* // Процедуры и функции вызываемые // из элементов диалога // ******************************* // =============================== // Описание: Устанавливает доступность элементов диалога в зависимости от выбранных значений Функция УстДоступность() Возврат ""; КонецФункции // УстДоступность() // ******************************* // Перегрузка // ******************************* // =============================== // Описание: Поиск элемента справочника Функция НайтиЭлемент(ВидСправочника, Наименование = "", Код = 0, ТекЭлемент, ВыбРодитель = 0, ВыбВладелец = 0) Спр = СоздатьОбъект("Справочник." + ВидСправочника); Если ПустоеЗначение(ВыбВладелец) = 0 Тогда Спр.ИспользоватьВладельца(ВыбВладелец); КонецЕсли; Если ПустоеЗначение(ВыбРодитель) = 0 Тогда Спр.ИспользоватьРодителя(ВыбРодитель); КонецЕсли; Если ПустаяСтрока(Наименование) = 1 Тогда текСтатусВозврата = Спр.НайтиПоКоду(Код, 0); ИначеЕсли Код = 0 Тогда текСтатусВозврата = Спр.НайтиПоНаименованию(Наименование, 0); КонецЕсли; ТекЭлемент = ?(текСтатусВозврата = 1, Спр.ТекущийЭлемент(), ПолучитьПустоеЗначение("Справочник." + ВидСправочника)); Возврат текСтатусВозврата; КонецФункции // НайтиЭлемент() //***************************************************************************************** // КОНТРАГЕНТЫ // =============================== Процедура ПереносСправочникаКонтрагенты() Перем ТекРодитель, ТекЭлемент; Состояние("Заполнение справочника Контрагенты"); НачатьТранзакцию(); СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); Спр = V7.CreateObject("Справочник.Контрагенты"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл Состояние("Обработка контрагента " + Спр.Наименование); Если Спр.ПометкаУдаления() = 1 Тогда Продолжить; КонецЕсли; Спр.ИспользоватьДату(ВыбДата); СпрКонтрагенты.ИспользоватьРодителя(ПолучитьПустоеЗначение("Справочник.Контрагенты")); Если ПустаяСтрока(Спр.Родитель.Код) = 0 Тогда Если НайтиЭлемент("Контрагенты",, Спр.Родитель.Код, ТекРодитель) = 1 Тогда СпрКонтрагенты.ИспользоватьРодителя(ТекРодитель); КонецЕсли; КонецЕсли; // Если НайтиЭлемент("Контрагенты",, Спр.Код, ТекЭлемент) = 1 Тогда СпрКонтрагенты.НайтиЭлемент(ТекЭлемент); Иначе Если Спр.ЭтоГруппа() = 1 Тогда СпрКонтрагенты.НоваяГруппа(); Иначе СпрКонтрагенты.Новый(); КонецЕсли; КонецЕсли; СпрКонтрагенты.ИспользоватьДату(ДатаЗаписи); Если Спр.ЭтоГруппа() = 1 Тогда СпрКонтрагенты.Код = Спр.Код; СпрКонтрагенты.Наименование = Спр.Наименование; СпрКонтрагенты.Записать(); Иначе СпрКонтрагенты.Код = Спр.Код; СпрКонтрагенты.Наименование = Спр.Наименование; // СпрКонтрагенты.ПолнНаименование = Спр.ПолнНаименование; СпрКонтрагенты.ВалютаВзаиморасчетов = Константа.ВалютаВзаиморасчетов; СпрКонтрагенты.ВалютаКредита = Константа.ОсновнаяВалютаПродажи; СпрКонтрагенты.ВалютаКредитаПоставщика = Константа.ОсновнаяВалютаЗакупки; // СпрКонтрагенты.ВидКонтрагента = ?(НРег(Спр.ВидКонтрагента.Идентификатор()) = "организация", Перечисление.ВидыКонтрагентов.Организация, Перечисление.ВидыКонтрагентов.ЧастноеЛицо); СпрКонтрагенты.Глубина = Спр.Глубина; СпрКонтрагенты.ГлубинаКредитаПоставщика = Спр.ГлубинаКредитаПоставщика; //СпрКонтрагенты.ДокументДатаВыдачи = Дата(Спр.ДокументДатаВыдачи); //СпрКонтрагенты.ДокументКемВыдан = Спр.ДокументКемВыдан; //СпрКонтрагенты.ДокументНомер = Спр.ДокументНомер; //СпрКонтрагенты.ДокументСерия = Спр.ДокументСерия; СпрКонтрагенты.ЕГРПОУ = Спр.ЕГРПОУ; СпрКонтрагенты.ИНН = Спр.ИНН; // Категории цен текКатегорияЦен = ""; Если ПустоеЗначение(Спр.КатегорияЦен) = 0 Тогда Если НайтиЭлемент("КатегорииЦен", Спр.КатегорияЦен.Наименование,, текКатегорияЦен) = 1 Тогда СпрКонтрагенты.КатегорияЦен = текКатегорияЦен; КонецЕсли; КонецЕсли; // Категория цен поставщика текКатегорияЦен = ""; Если ПустоеЗначение(Спр.КатегорияЦенПоставщика) = 0 Тогда Если НайтиЭлемент("КатегорииЦен", Спр.КатегорияЦенПоставщика.Наименование,, текКатегорияЦен) = 1 Тогда СпрКонтрагенты.КатегорияЦенПоставщика = текКатегорияЦен; КонецЕсли; КонецЕсли; СпрКонтрагенты.Комментарий = Спр.Комментарий; // СпрКонтрагенты.НомерСвидетельства = Спр.НомерСвидетельства; СпрКонтрагенты.ОсновнойДоговорТорг = ПолучитьПустоеЗначение("Документ.Договор"); СпрКонтрагенты.СлужебныйДоговорТорг = ПолучитьПустоеЗначение("Документ.Договор"); СпрКонтрагенты.ПочтовыйАдрес = Спр.ПочтовыйАдрес; // СпрКонтрагенты.СуммаКредита = Спр.СуммаКредита; СпрКонтрагенты.СуммаКредитаПоставщика = Спр.СуммаКредитаПоставщика; // СпрКонтрагенты.Фильтр = Спр.Фильтр; СпрКонтрагенты.Касса = Спр.Касса; СпрКонтрагенты.Надбавка = Спр.Надбавка; // СпрКонтрагенты.Телефоны = Спр.Телефоны; СпрКонтрагенты.ЮридическийАдрес = Спр.ЮридическийАдрес; СпрКонтрагенты.Записать(); КонецЕсли; КонецЦикла; ЗафиксироватьТранзакцию(); КонецПроцедуры // ПереносСправочникаКонтрагенты() // =============================== Процедура Сформировать() ПереносСправочникаКонтрагенты(); КонецПроцедуры // ******************************* // Вспомогательные процедуры // ******************************* // =============================== Функция Запустить1С() Попытка V7 = СоздатьОбъект("V77.Application"); Исключение Попытка V7 = СоздатьОбъект("V77s.Application"); Исключение Попытка V7 = СоздатьОбъект("V77m.Application"); Исключение V7 = СоздатьОбъект("V77l.Application"); КонецПопытки; КонецПопытки; КонецПопытки; Открыта = V7.Initialize(V7.RMTrade,,""); Если Открыта = 0 Тогда Предупреждение ("Ошибка открытия информационной базы"); Возврат 1; КонецЕсли; Возврат 0; КонецФункции //Запустить1С // ******************************* // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ // ******************************* // =============================== Процедура ПриОткрытии(фЧтенияНастройки) Если Запустить1С() = 1 Тогда СтатусВозврата(0); Возврат; КонецЕсли; // Заголовок отчета, так как он отображается // во всех названиях доступных пользователю ЗаголовокОтчета = "Перегрузка справочников"; НазваниеОтчета = "ПерегрузкаСправочников"; Форма.Заголовок(ЗаголовокОтчета, 0); // Отладка РежимОтладки = 1; Форма.кОтладка.Видимость(РежимОтладки); Если фЧтенияНастройки = 0 Тогда ВыбДата = глВосстановитьЗначение(НазваниеОтчета, "ВыбДата", РабочаяДата()); КонецЕсли; ДатаЗаписи = Дата(1980,1,1); КонецПроцедуры // ПриОткрытии() // =============================== Процедура ПриЗакрытии() глТрассировка("", 3); V7 = 0; глСохранитьЗначение(НазваниеОтчета, "ВыбДата", ВыбДата); КонецПроцедуры// ПриЗакрытии() --------- Доброе отношение к людям может изменить твою жизнь

Ответ отправил: Лазурко Владимир (статус: 2-ой класс) Ответ отправлен: 20.06.2006, 22:46

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