Программирование в 1С
- Автор темы Aliens
- Дата начала
нет опыта программирования 1) вообще, или 2) на платформе 1С?
Если 1), то изучать основы программирования на примере 1С не рекомендую.
Если 2): Учебник по 1С
Если будут конкретные вопросы - в Л.С.
Если 1), то изучать основы программирования на примере 1С не рекомендую.
Если 2): Учебник по 1С
Если будут конкретные вопросы - в Л.С.
За ссылку пасибо ...
Нет опыта программирования в 1С ... а так было но давно ... вспоминая только что-то вторые сутки мозги кипят ... спал всего 3 часа ... но прогресс на лицо (хоть и помятое ...)
Просто мне на примерах проще понять как решить мою задачку ...
Будут конткретные вопросы напишу в ЛС ... большое спасибо !
Нет опыта программирования в 1С ... а так было но давно ... вспоминая только что-то вторые сутки мозги кипят ... спал всего 3 часа ... но прогресс на лицо (хоть и помятое ...)
Просто мне на примерах проще понять как решить мою задачку ...
Будут конткретные вопросы напишу в ЛС ... большое спасибо !
А как обновлять с геморроем, ты уже понял?
Используй 1С в качестве OLE-клиента для доступа к данным Excel'а..., например:
МойExcel = СоздатьОбъект( "Excel.Application" );
Дальше, методы и свойства Excel становятся доступны из 1С через объект МойExcel... в конце не забывай очищать объект...
Для более продробного объяснения нужно знать структуру полей Номенклатуры и файла с обновлением.
Используй 1С в качестве OLE-клиента для доступа к данным Excel'а..., например:
МойExcel = СоздатьОбъект( "Excel.Application" );
Дальше, методы и свойства Excel становятся доступны из 1С через объект МойExcel... в конце не забывай очищать объект...
Для более продробного объяснения нужно знать структуру полей Номенклатуры и файла с обновлением.
Поможите кто шарит в VB ...
Это код макроса который должон передавать документ Excel в 1С и там уже можно работать с ним как со справочником ...
Тока он говорит Run-Time Error [2] ... и писец ... кто знает помогите ... Башня уже кипит и мозг потихоньку плавится ... ?(
Sub Excel_to_trade()
Dim trade As Object
Dim Товар As Object
Set trade = CreateObject("V77.Application")
result = trade.Initialize(trade.RMTrade, "/D:Yellow's_1C /M", "")
Set Товар = trade.EvalExpr("CreateObject(""Справочник.Товары"")")
Товар.НоваяГруппа
Товар.Наименование = "*********** Экспорт из Excel ***********"
Товар.Записать
Товар.ИспользоватьРодителя Товар.ТекущийЭлемент
N = 6000 'Колличество строк в документе
For Count = 1 To N
Товар.Новый
Товар.Наименование = Application.Cells(Count, 4).Value
Товар.Розн_Цена = Application.Cells(Count, 5).Value
Товар.Мелк_Опт_Цена = Application.Cells(Count, 6).Value
Товар.Опт_Цена = Application.Cells(Count, 7).Value
Товар.Записать
Next Count
End Sub
Это код макроса который должон передавать документ Excel в 1С и там уже можно работать с ним как со справочником ...
Тока он говорит Run-Time Error [2] ... и писец ... кто знает помогите ... Башня уже кипит и мозг потихоньку плавится ... ?(
Sub Excel_to_trade()
Dim trade As Object
Dim Товар As Object
Set trade = CreateObject("V77.Application")
result = trade.Initialize(trade.RMTrade, "/D:Yellow's_1C /M", "")
Set Товар = trade.EvalExpr("CreateObject(""Справочник.Товары"")")
Товар.НоваяГруппа
Товар.Наименование = "*********** Экспорт из Excel ***********"
Товар.Записать
Товар.ИспользоватьРодителя Товар.ТекущийЭлемент
N = 6000 'Колличество строк в документе
For Count = 1 To N
Товар.Новый
Товар.Наименование = Application.Cells(Count, 4).Value
Товар.Розн_Цена = Application.Cells(Count, 5).Value
Товар.Мелк_Опт_Цена = Application.Cells(Count, 6).Value
Товар.Опт_Цена = Application.Cells(Count, 7).Value
Товар.Записать
Next Count
End Sub
Синтаксическая ошибка в строке:
result = trade.Initialize(trade.RMTrade, "/D:Yellow's_1C /M", "")
путь правильно указан? параметр /D, а вслед за ним путь... Если вход без имени пользователя и пароля, должно выглядеть так:
result = trade.Initialize(trade.RMTrade, "/DD:Yellow's_1C /M", "")
А дальше вопрос по логике работы.... При каждом запуске этого кода у тебя будет создаваться НОВАЯ группа с наименованием "*********** Экспорт из Excel ***********", имхо, это не то, что нужно...
В остальном, текст рабочий...
PS
Еще орфографическая ошибка в строке:
N = 6000 'Колличество строк в документе
правильно:
N = 6000 'Количество строк в документе
result = trade.Initialize(trade.RMTrade, "/D:Yellow's_1C /M", "")
путь правильно указан? параметр /D, а вслед за ним путь... Если вход без имени пользователя и пароля, должно выглядеть так:
result = trade.Initialize(trade.RMTrade, "/DD:Yellow's_1C /M", "")
А дальше вопрос по логике работы.... При каждом запуске этого кода у тебя будет создаваться НОВАЯ группа с наименованием "*********** Экспорт из Excel ***********", имхо, это не то, что нужно...
В остальном, текст рабочий...
PS
Еще орфографическая ошибка в строке:
N = 6000 'Колличество строк в документе
правильно:
N = 6000 'Количество строк в документе
yellow_iq, я надеюсь, ты отлаживаешь макрос при закрытой базе 1С, т.к. в макросе идет запуск в монопольном режиме... И еще, если макрос отработал не до конца, то может остаться запущенный процесс 1CV7.exe (без окон) - он тоже может быть причиной последующей ошибки... Кроме того, цены у тебя - периодический реквизит? Если "нет" - работать должно, если "да" - пользуйся методами периодических реквизитов...
С этими оговорками у меня твой текст работал...
С этими оговорками у меня твой текст работал...
http://nowa.ru/ - зарегистрируйтесь и получите доступ к морю информации... в. т. и литературы в электронном виде море.
Сейчас сайт пока временно закрыт, ведутся ремонтные работы.
Сейчас сайт пока временно закрыт, ведутся ремонтные работы.