Попытка СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+""""; Открыта=База.Initialize(База.RMTrade,СтрокаПодключения,"NO_SPLASH_SHOW");
Если Открыта Тогда ЕстьПодключение = Истина; Иначе Предупреждение("Ошибка при подключении!"); ЕстьПодключение = Ложь; КонецЕсли; Исключение Предупреждение("Ошибка при подключении!"); ЕстьПодключение = Ложь; КонецПопытки;
УправлениеДоступностью();
КонецПроцедуры
Процедура ПутьКБазеНачалоВыбора(Элемент, СтандартнаяОбработка) Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); Диалог.Заголовок = "Укажите путь к базе ...";
Если Не Диалог.Выбрать() Тогда Возврат; КонецЕсли;
Если ЕстьПодключение Тогда ЭлементыФормы.НадписьПодключения.Заголовок = "База успешно подключена"; ЭлементыФормы.НадписьПодключения.ЦветТекста = WebЦвета.Зеленый; Иначе ЭлементыФормы.НадписьПодключения.Заголовок = "База не подключена"; ЭлементыФормы.НадписьПодключения.ЦветТекста = WebЦвета.Красный;
КонецЕсли; КонецПроцедуры;
Но теперь возник следующий вопрос: как из этого соединения взять данные, как к ним обращаться?
Самая нелюбимая пословица сапёров: одна нога здесь, другая там...
Живет на форуме
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0
Функция ОткрытьФирму(Путь,Пользователь,Пароль="") Бух=0; Бух = новый COMОбъект("v77.application"); //СоздатьОбъект("V77.Application"); Открыта = Бух.Initialize(Бух.RMTrade, "/d"+Путь+" /N"+Пользователь+?(Пароль="",""," /P"+Пароль),"NO_SPLASH_SHOW"); //Открыта = Бух.Initialize(Бух.RMTrade, "","NO_SPLASH_SHOW");
Если Открыта = 0 Тогда Предупреждение("Ошибка открытия информационной базы "+Путь); Возврат 0; КонецЕсли; Возврат 1; КонецФункции
Процедура КнопкаВыполнитьНажатие(Кнопка) ВидНоменклатурыТовар=Справочники.ВидыНоменклатуры.НайтиПоКоду("000000001"); едИзмеренияШтука=Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796"); Если ОткрытьФирму(ПутьКБазе,"Админов","")=0 Тогда Возврат; КонецЕсли; спр=Бух.CreateObject("Справочник.Номенклатура"); спр.ВыбратьЭлементы(); Пока спр.ПолучитьЭлемент()=1 цикл НайденнаяСсылка=Справочники.Номенклатура.НайтиПоКоду(спр.код); если НайденнаяСсылка = Справочники.Номенклатура.ПустаяСсылка() Тогда Если спр.ЭтоГруппа()=1 Тогда нов= Справочники.Номенклатура.СоздатьГруппу(); Иначе нов= Справочники.Номенклатура.СоздатьЭлемент(); КонецЕсли; иначе нов=НайденнаяСсылка.ПолучитьОбъект(); КонецЕсли;
Если спр.ЭтоГруппа()=1 Тогда нов.Код=спр.код; нов.Наименование=спр.Наименование; нов.ВидНоменклатуры = ВидНоменклатурыТовар; Иначе нов.Код=спр.код; нов.Наименование=спр.Наименование; нов.НаименованиеПолное=спр.Наименование; нов.ВидНоменклатуры = ВидНоменклатурыТовар; нов.БазоваяЕдиницаИзмерения =едИзмеренияШтука; нов.СтавкаНДС=СтавкаНДС(спр); КонецЕсли; нов.Родитель=Родитель(спр.Родитель.Код);
нов.записать(); если спр.пометкаУдаления()=1 Тогда нов.УстановитьПометкуУдаления(); КонецЕсли; тп=ТабличноеПоле1.Добавить(); тп.ссылка=нов.Ссылка; сообщить(спр.ЭтоГруппа()); Если спр.ЭтоГруппа()=0 Тогда нов.ЕдиницаХраненияОстатков=ДопЕдИзм(нов.Ссылка); нов.ЕдиницаДляОтчетов=нов.ЕдиницаХраненияОстатков; нов.Записать(); КонецЕсли; //сообщить(спр.Наименование); //сообщить(спр.Код); //сообщить(спр.БазоваяЕдиница.наименование); Конеццикла; //Док=СоздатьОбъект("Документ.БанковскаяВыписка"); //Док.ВыбратьДокументы(НачДата,КонДата); //Пока Док.ПолучитьДокумент()=1 Цикл // Состояние(""+Док.ТекущийДокумент()); // Если Док.ТекущийДокумент().КоличествоСтрок()=0 Тогда // Продолжить; // КонецЕсли; // ОбработатьБВ(Док); // //Возврат; //КонецЦикла;
Пока спр77.ПолучитьЭлемент()=1 Цикл ... Оклад77= База.CreateObject("Справочник.Должности"); Должность = Оклад77.НайтиЭлемент(Спр77.Должность); Оклад = Должность.Оклад; ... КонецЦикла
Пишет: Значение не является значением объектного типа (Оклад) ?????
Самая нелюбимая пословица сапёров: одна нога здесь, другая там...
Завсегдатай
Группа: Местный
Сообщений: 124
Из: Полтавская обл.
Спасибо сказали: 72 раз
Рейтинг: 0
Цитата(meverikxp @ 10.01.12, 13:41)
Пишет: Значение не является значением объектного типа (Оклад)
В этом случае, оклад уже явно периодический реквизит. Можно попробовать дописать метод Получить(Дата). Или лучше добавить строку Оклад77.ИспользоватьДату(<дата>). И вынесете создание комобъекта на уровень выше относительно цикла обхода справочника сотрудники. Кстати, строку тоже можно вписать до цикла.
В этом случае, оклад уже явно периодический реквизит. Можно попробовать дописать метод Получить(Дата). Или лучше добавить строку Оклад77.ИспользоватьДату(<дата>). И вынесете создание комобъекта на уровень выше относительно цикла обхода справочника сотрудники. Кстати, строку тоже можно вписать до цикла.
Завсегдатай
Группа: Местный
Сообщений: 124
Из: Полтавская обл.
Спасибо сказали: 72 раз
Рейтинг: 0
Цитата(meverikxp @ 10.01.12, 14:34)
Но ошибка та же
Если Вас не затруднит, полный текст ошибки, предварительно переименовав переменную Оклад на Оклад8, например. Кстати, в методе ИспользоватьДату(), дату лучше указать в виде '31.12.11'
попробуйте всі методи і системні властивості бази до якої звертаєтесь (7.7) замінити на англ. відповідники - можливо, тут собака зарита ЗІ. мені помогло коли я із бази 7.7 підключався до іншої бази 7.7 для переносу даних по OLE
попробуйте всі методи і системні властивості бази до якої звертаєтесь (7.7) замінити на англ. відповідники - можливо, тут собака зарита ЗІ. мені помогло коли я із бази 7.7 підключався до іншої бази 7.7 для переносу даних по OLE
Я точно не знаю как они будут по англ.
Цитата(shurik_shurik @ 10.01.12, 13:45)
Если Вас не затруднит, полный текст ошибки, предварительно переименовав переменную Оклад на Оклад8, например. Кстати, в методе ИспользоватьДату(), дату лучше указать в виде '31.12.11'
Теперь ошибка выглядит так:
Значение не является значением объектного типа (Оклад) Оклад8 = Должность.Оклад;
И как по другому написать дату формат в виде '31.12.11' - не определяет пишет " Неправильная константа типа Дата"
Самая нелюбимая пословица сапёров: одна нога здесь, другая там...
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Перенос данных с 1с Бухгалтерия 7.7 в Комплексный учет 8.2 
04.01.12, 13:39
