Ошибка при вызове метода контекста add excel

   nadysaan

18.04.18 — 09:54

Всем доброго дня!

Валится ошибка, моя не понимать. Помогите!

{Обработка.Доработка_ЗаказНоменклатуры.Форма.Форма.Форма(1452)}: Ошибка при вызове метода контекста (Add)

        Книга = Excel.Workbooks.Add();

по причине:

Произошла исключительная ситуация (Microsoft Excel): Невозможно получить свойство Add класса Workbooks

Кусок кода:

    НаименованиеФайла = «Заказ » + СокрЛП(ПоставщикДляОтбора.Наименование);

    ИмяФайла = КаталогВременныхФайлов()+НаименованиеФайла+».xls»;

    ФайлДанных = ИмяФайла;

        //подключаемся к MS Excel

    Попытка

        Excel = Новый COMОбъект(«Excel.Application»);

        
    Исключение

        Сообщить(ОписаниеОшибки());

    КонецПопытки;

    Попытка                          

        Книга = Excel.Workbooks.Open(ФайлДанных);

    Исключение

        Книга = Excel.Workbooks.Add();

        Книга.SaveAs(ФайлДанных);

    КонецПопытки;

   Остап Сулейманович

1 — 18.04.18 — 10:01

(0) Я бы сделал так. Убрал бы из попытки

Книга = Excel.Workbooks.Open(ФайлДанных);

и посмотрел какая при этом возникает ошибка. Возможно (и даже скорее всего) она и не дает создать рабочую книгу.

   mistеr

2 — 18.04.18 — 10:01

(0) Проверь на ЗначениеЗаполнено(Excel)

   Масянька

3 — 18.04.18 — 10:10

(0) А зачем Add?

   Остап Сулейманович

4 — 18.04.18 — 10:13

(3) Если не удалось открыть из папки временных файлов — тогда просто добавим пустой. А вот зачем… — тут интрига.

   Масянька

5 — 18.04.18 — 10:13

(4) А просто записать не вариант?

   Остап Сулейманович

6 — 18.04.18 — 10:17

(5) Ну так потом и делается Книга.SaveAs(ФайлДанных);

Тут больше вопрос зачем пытаться открыть файл, которого может и не быть. И почему бы не проверить существование до момента открытия? Опять же… Интрига.

   Масянька

7 — 18.04.18 — 10:20

(6) По кругу — зачем Add? :))))))

Сразу нельзя впихнуть?

кстати, речь же о печ. форме?

   mistеr

8 — 18.04.18 — 10:22

(7) Как создать книгу без Add()?

   Остап Сулейманович

9 — 18.04.18 — 10:23

(7) «Сразу нельзя впихнуть?» Не понятен вопрос. Кому именно впихнуть? И почему именно сразу? )))

«речь же о печ. форме?» — не факт. Исходя из

«НаименованиеФайла = «Заказ » + СокрЛП(ПоставщикДляОтбора.Наименование);»

возможно такой себе файл обмена с контрагентом.

   Масянька

10 — 18.04.18 — 10:25

(8) Это семерка:

        КаталогДляЗаписи = СокрЛП(КаталогДляЗаписи + «xls»);

        
        ТабДокумент = СоздатьОбъект («ТабличныйДокумент»);

        ТабДокумент.ЗагрузитьИзТаблицы (АктивныйКонтекст);

        ТабДокумент.ПараметрыПечати.Ориентация = 1;

        
        ТабДокумент.Записать(КаталогДляЗаписи, 1);

        
        // удаляем картинки (печать + подписи)

        Excel    = СоздатьОбъект(«Excel.Application»);

        Книга     = Excel.Application.Workbooks.Open(КаталогДляЗаписи);

        Лист     = Книга.WorkSheets(1);

        Лист.Shapes.SelectAll();

        Excel.Selection.Delete();

        Книга.Save();

        Excel.ActiveWorkBook.Close(0);

Восьмерка настолько сырая?

   Масянька

11 — 18.04.18 — 10:25

(9) Мужчина… Однозначно… :))))))))

   mistеr

12 — 18.04.18 — 10:29

(10) Можно так, но… некрасиво. :)

   Остап Сулейманович

13 — 18.04.18 — 10:31

(12) Самый простой путь — скорее всего самый правильный.

   nadysaan

14 — 18.04.18 — 11:05

изначально было

Книга = Excel.Workbooks.Add();

это потом уже эксперементы пошли с попыткой открыть файл

   nadysaan

15 — 18.04.18 — 11:08

Речь не про печ форму. Создаю ексель документ чтобы отправить поставщику

   Vovik

16 — 18.04.18 — 11:10

Это ж эксель. Воркбукс, воркщитс. Примеров масса в нете. Помоему кстати по разному отрабатывает в зависимости от того в какой версии сохранишь (ексель 97, лист ексель, xls?xlsx).

   nadysaan

17 — 18.04.18 — 11:11

при проверке на ЗначениеЗаполнено(Excel) пишет

Обработка.Доработка_ЗаказНоменклатуры.Форма.Форма.Форма(1448)}: Ошибка при вызове метода контекста (ЗначениеЗаполнено)

    Если ЗначениеЗаполнено(Excel) Тогда

по причине:

Проверка мутабельных значений на заполненность не поддерживается

   nadysaan

18 — 18.04.18 — 11:12

ИмяФайла = КаталогВременныхФайлов()+НаименованиеФайла+».xls»

Excel2013

   mistеr

19 — 18.04.18 — 11:15

(17) Тогда так

   Если Excel <> Неопределено Тогда

   Масянька

20 — 18.04.18 — 11:17

(15) И что?

Выгрузить во врем. таблицу и её пихануть в Excel.

   nadysaan

21 — 18.04.18 — 11:18

Excel <> Неопределено Истина

   nadysaan

22 — 18.04.18 — 11:19

Попытка

Книга = Excel.WorkBooks.Add();

Именно здесь вылетает

   mistеr

23 — 18.04.18 — 11:26

Что-то с Экселем не так, похоже.

Если подумать, то на этой строке

  Книга = Excel.Workbooks.Open(ФайлДанных);

тоже вылетает, а ошибку не видно, она съедается. Добавь Сообщить(ОписаниеОшибки()) перед

  Книга = Excel.Workbooks.Add();

   Масянька

24 — 18.04.18 — 11:28

(12) Насчет «красиво»: ИМХО, красиво — это когда одна строка кода.

   nadysaan

25 — 18.04.18 — 11:33

Никакого сообщения нет, просто спокойно проходит строку        Сообщить(ОписаниеОшибки());

а на этой

Книга = Excel.WorkBooks.Add();

в исключение идет сразу

   Spirtus

26 — 18.04.18 — 11:36

А нафига козе баян, когда 1С само умеет в Excel?

http://catalog.mista.ru/public/341855/

   Happy Bear

27 — 18.04.18 — 11:37

регистр важен — пиши WorkBooks

   mistеr

28 — 18.04.18 — 11:50

(27) Да ладно

   mistеr

29 — 18.04.18 — 11:52

(26) По ссылке — «ИЗ» Excel. А тут как раз «В» нужно/

   nadysaan

30 — 18.04.18 — 11:53

«регистр важен — пиши WorkBooks» -Ctrl + C Ctrl + v не помогло

   aka AMIGO

31 — 18.04.18 — 11:54

Ну почему все забывают про макросы?!?!

Проще всего подсмотреть, что делает сам Excel, а не изобретать ненужные ему функции..

   Spirtus

32 — 18.04.18 — 11:55

(29) А синтакс-помощник отменили уже?

   aka AMIGO

33 — 18.04.18 — 11:57

(32) Сменили название на «Миста» :)

   nadysaan

34 — 18.04.18 — 11:58

(29) А синтакс-помощник отменили уже? Весь уже пересмотрела, нет про ADD ничего. Найдешь скажу спасибо

   aka AMIGO

35 — 18.04.18 — 11:59

(34) Поменяй пол в личке.

   PiotrLoginov

36 — 18.04.18 — 12:00

(15) «Создаю ексель документ чтобы отправить поставщику»  имхо, ошибка здесь.   Следовало формировать данные силами платформы, после чего просто сохранить таблицу в формате, удобном поставщику — excel, pdf или еще каком-то.

   Масянька

37 — 18.04.18 — 12:00

(36) Они ищут «красиво»… :)

   PiotrLoginov

38 — 18.04.18 — 12:02

+ (35)  и фото тогда не забудь

   Масянька

39 — 18.04.18 — 12:03

+ (37)

— Лёлик! Это же не эстетично!

— Зато — дешево, надежно и практично!

(тут — клюшкой по голове)

(С)

:))))))))))))

   nadysaan

40 — 18.04.18 — 12:03

(34) Поменяй пол в личке. Поменяла :)

   Масянька

41 — 18.04.18 — 12:04

(35) Валера! Как ники вставлять?

   Spirtus

42 — 18.04.18 — 12:05

(34) Общие объекты — Табличный документ — Методы — Записать

   nadysaan

43 — 18.04.18 — 12:05

(15) «Создаю ексель документ чтобы отправить поставщику»  имхо, ошибка здесь.   Следовало формировать данные силами платформы, после чего просто сохранить таблицу в формате, удобном поставщику — excel, pdf или еще каком-то.

Данные с помощью обработки формируются для манагеров, потом после проверки манагер должен нажать «Волшебную кнопку» и то что он (манагер) навоял должно улететь поставщику

   aka AMIGO

44 — 18.04.18 — 12:06

»    Масянька

45 — 18.04.18 — 12:06

»    Масянька

46 — 18.04.18 — 12:07

»    aka AMIGO

47 — 18.04.18 — 12:08

»    nadysaan

48 — 18.04.18 — 12:08

вопрос не в том, как надо, а как не надо, не понятки именно с ADD. Много ваяла таких обработок и для этого клиента тоже есть несколько. а сейчас споткнулась и не знаю куда ковырять. или сервак или… не знаю. на другом серваке у этого же клиента даже ошибку не выдает, просто уходит в нирвану

   aka AMIGO

49 — 18.04.18 — 12:09

»    nadysaan

50 — 18.04.18 — 12:09

если предложений нет, буду по другому пробовать.

   mistеr

51 — 18.04.18 — 12:10

(36) Вот у меня есть один «поставщик», которому нужно в формате .xls, причем два таблицы на двух листах, в одном файле. И никак иначе.

   Victor111

52 — 18.04.18 — 12:10

(0) Проверьте настройку DCOM компоненты «Excel.Application»

http://catalog.mista.ru/public/325873/

   Остап Сулейманович

53 — 18.04.18 — 12:14

(50) Тебе уже предложили. Вынеси Книга = Excel.Workbooks.Open(ФайлДанных); за Попытку и прочитай ошибку. Наверняка Эксель пытается тебе сказать, что файл типа «разрушен». И спрашивает что делать.

Поскольку вот это вот :

НаименованиеФайла = «Заказ » + СокрЛП(ПоставщикДляОтбора.Наименование);

ИмяФайла = КаталогВременныхФайлов()+НаименованиеФайла+».xls»;

    ФайлДанных = ИмяФайла;



Книга = Excel.Workbooks.Open(ФайлДанных);

Скорее всего приводит к тому, что эксель пытается открыть несуществующий файл. И обработка ошибки методами 1С ничего не дает.

   Остап Сулейманович

54 — 18.04.18 — 12:16

+ (53) Если коротко — то ПЕРЕД Excel.Workbooks.Open(ФайлДанных) нужно что бы когда-нибудь было Excel.Workbooks.Save(ФайлДанных). У тебя этого нет. Поэтому Ексель не понимает что от него хотят.

ЗЫ. Я бы точно не понял.

   Остап Сулейманович

55 — 18.04.18 — 12:17

+ (54) Ну или хотя бы проверь средствами 1С наличие файла прежде, чем пытаешься его открыть.

   nadysaan

56 — 18.04.18 — 12:44

{Обработка.Доработка_ЗаказНоменклатуры.Форма.Форма.Форма(1448)}: Метод объекта не обнаружен (Save)

    Excel.WorkBooks.Save(ФайлДанных);    

Попытка

        Excel = Новый COMОбъект(«Excel.Application»);

        
    Исключение

        Сообщить(ОписаниеОшибки());

    КонецПопытки;

    Excel.WorkBooks.SaveAs(ФайлДанных);    

    Книга = Excel.WorkBooks.Open(ФайлДанных);

    Книга = Excel.WorkBooks.Add();

   Victor111

57 — 18.04.18 — 12:50

(56) пример: Excel.ActiveWorkbook.SaveAs(«C:TempФайл.xls»)

1) проверьте Полное имя файла или нет под переменной «ФайлДанных»

   nadysaan

58 — 18.04.18 — 12:55

{Обработка.Доработка_ЗаказНоменклатуры.Форма.Форма.Форма(1448)}: Метод объекта не обнаружен (SaveAs)

    Excel.WorkBooks.SaveAs(«C:TempПроба.xls»);

   dezss

59 — 18.04.18 — 13:05

а там точно есть эксель?

   nadysaan

60 — 18.04.18 — 13:09

:) Точно

   catena

61 — 18.04.18 — 13:31

А если все-таки поставить возврат в исключение?

    Попытка

        Excel = Новый COMОбъект(«Excel.Application»);

    Исключение

        Сообщить(ОписаниеОшибки());

    КонецПопытки;

   nadysaan

62 — 18.04.18 — 13:35

Может я Вас не понимаю, но у меня изначально как было

    Попытка

        Excel = Новый COMОбъект(«Excel.Application»);

    Исключение

        Сообщить(ОписаниеОшибки());

    КонецПопытки;

так и осталось

   catena

63 — 18.04.18 — 13:46

(62)Где возврат в исключении? Зачем дальше работать, если подключения не произошло?

    Попытка

        Excel = Новый COMОбъект(«Excel.Application»);

    Исключение

        Сообщить(ОписаниеОшибки());

        ВОЗВРАТ;

    КонецПопытки;

   nadysaan

64 — 18.04.18 — 13:58

в том то и дело что подключение срабатывает

Excel <> Неопределено = Истина, проверила, зачем возврат?

   1Садовник

65 — 18.04.18 — 14:06

в (0) если файл существует то он открывается и … ВСЕ (ошибок никаких не будет).

Если файла нет — он должен создаваться и записываться. У пользователя есть права на запись файла?

   nadysaan

66 — 18.04.18 — 14:29

я уже даже создала этот файл и через Excel он открывается спокойно, а из 1с нет. Захожу под пользователем с полными правами

   1Садовник

67 — 18.04.18 — 14:33

(66) не могу воспроизвести ошибку. Этот кусок работает без ошибок:

Ексель   = Новый COMОбъект(«Excel.Application»);

Попытка                          

   Книга = Ексель.Workbooks.Open(«D:Книга4.xlsx»);

Исключение

   Книга = Ексель.Workbooks.Add();

   Книга.SaveAs(«D:Книга9.xlsx»);

КонецПопытки;

   mistеr

68 — 18.04.18 — 14:39

Я же говорю, что-то с Экселем не так.

(66) На локальном компе работает?

   Сияющий в темноте

69 — 18.04.18 — 19:55

Во первых,у адд могут быть параметры,во-вторых,когда вы создали ексель,он не инициализирован,и именно это может ему мешать работать

потом не забываем ставить Visible,иначе в диспетчере задач множатся процессы ексель со страшной силой

   Сияющий в темноте

70 — 19.04.18 — 09:27

Кстати,для работы ексель на сервере нужно,чтобы у серверного пользователя было хранилище настроек и рабочий стол,тогда при открытии или создании файла ексель не будет падать из за невозможности что то записать в аппдата

удачи

  

nadysaan

71 — 19.04.18 — 11:02

Разобрались, кому интересно, проблема в том, что 1с 64 разрядная, а office 32 разрядный

Имеется: Windows Server 2012 х64 На нем Office 2013 x64 На нем 1С Сервер х64 Пытаюсь выгружать в файл Ексель. Excel = Новый COMОбъект(«Excel.Application»); И вот на этой строке вылезает сообщение: Ошибка при вызове метода контекста (Add) по причине: Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается открыть или сохранить документы из-за нехватки памяти или места на диске. • Чтобы освободить память, закройте ненужные книги или программы. • Чтобы освободить место на диске, удалите с этого диска ненужные файлы. Для эксперимента попробовал открыть существующий файл: Открывает… Подозреваю что при попытке создания нового файла, Excel обращается куда то, куда доступа у юзера USR1CV8 (под которым работает 1С) нет. Подскажите что делать?

Второй день бьюсь, весь инет перерыл …

на msdn — проверь есть ли параметры у Workbooks.Add, может нужен параметр, что создаём?

В файловой базе этот код полностью работает. Так что проблема именно с доступами из 1С:Сервер в Ексель.

скорее в TEMP, проверь права доступа на ту папку, которая прописана в общей системной переменной

4+ или залогинься в винду с USR1CV8

В «Настройка DCOM» в свойствах Excel прописал «Разрешения на запуск и активацию» пользователя USR1CV8. А вот на вкладке «Удостоверение» прописать этого пользователя не дает. Ругается «код ошибки 80070569 выбранный режим входа для для данного пользователя не предусмотрен». Какие еще права надо дать USR1CV8? В какую группу его засунуть?

Пробовал. Дал ему «Пользователи удаленного рабочего стола» и зашел удаленно под USR1CV8. Вручную запустил Ексель, создал книгу, нормально создалось. Запустил 1С, попробовал выгрузить в Ексель, результат тот же.

Интерактивный вход в систему в групповых политиках вроде

Ну и проверить, что служба сервера 1С работает не из-под «локал систем»

Попробовал так. Дал USR1CV8 еще и права Администратор. Зашел под ним. В «Настройка DCOM» в свойствах Excel на вкладке «Удостоверение» поставил «Текущий пользователь». И заработало … Получается, надо в «Удостоверение» прописать USR1CV8.

Забрал у USR1CV8 права Администратор. Зашел в «Локальная политика безопасности — Локальные политики — Назначение прав пользователя». Правильно? В списке нашел «Запретить локальный вход» и там был USR1CV8. Убрал. Все равно не дает прописать его в «Удостоверение». Что еще нехватает?

служба сервера 1С работает под USR1CV8

Какую именно tmp надо проверить?

Под пользователем USR1CV8 создай новую книгу в excel руками, скорее всего тебе предложит какой нибудь диалог типа создавать конкретно под этим пользователем.

Пробовал. Зашел под USR1CV8, создал книгу, сохранил. Закрыл Ексель. Снова открыл. Никаких вопросов не задает. Открыл книгу, изменил, сохранил. Все нормально. Спасибо! Я уже нарыл в инете эту информацию, только по частям. Теперь заново, пошагово все проделал. В результате COMОбъект(«Excel.Application») создается. Но потом, при создании книги Книга = Excel.WorkBooks.Add; выдает: Ошибка при вызове метода контекста (Add) Книга=Excel.WorkBooks.Add; по причине: Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается открыть или сохранить документы из-за нехватки памяти или места на диске. • Чтобы освободить память, закройте ненужные книги или программы. • Чтобы освободить место на диске, удалите с этого диска ненужные файлы.

Попробуй создать каталоги, может поможет, но не факт Папки C:WindowsSysWOW64configsystemprofileDesktop C:WindowsSystem32configsystemprofileDesktop

Documents and Settings — смотрел?

Может квоты установлены для пользователя ОС службы агента

В общем, так и не победил эту проблему. Отказался от формирования Ексель файла на сервере (по рекомендации микрософта :) ). Теперь на сервере собираю данные, складываю в несколько массивов и передаю на клиента. И файл Ексель создаю на клиенте.

Тэги: 1С 8

Комментарии доступны только авторизированным пользователям

  

livingstone

08.07.15 — 15:36

Добрый день.

Платформа 8.3. Конфигурация — Документооборот. База серверная.

Проблема следующая:

При выполнении команды «Док = WordApp.Documents.Add(ПутьКФайлуНаДиске);» выводится сообщение «Ошибка при вызове метода контекста (Add), Произошла исключительная ситуация (Microsoft Word): Ошибка в Word.»

Если этот кусок кода будет выполнятся на клиенте, то все отрабатывается нормально. Ошибка только на сервере.

ПутьКФайлуНаДиске = локальный С:Юсерзс…., сетевой не пробовал, думаю проблема не в этом.

Сервер 1с установлен там же.

Подскажите пожалуйста, в чем может быть проблема.

  

Лефмихалыч

1 — 08.07.15 — 15:50

на сервер ворд установи

  

livingstone

2 — 08.07.15 — 15:53

Ворд установлен.

  

Мыш

3 — 08.07.15 — 15:55

На сервере с юзерсами проблема. Есть ли у пользователя, от имени которого работает сервер приложений права на тот конкретный каталог?

  

Лефмихалыч

4 — 08.07.15 — 15:55

значит обеспечь, чтобы файл лежал на сервере вот тут «С:Юсерзс….» до вызова Add

  

livingstone

5 — 08.07.15 — 15:58

Файл там точно есть. Не думаю, что проблема с правами, так как с клиента ведь все срабатывает.

  

Fish

6 — 08.07.15 — 15:59

(5) С клиента ты обращаешься к файлу под другим пользователем.

  

Лефмихалыч

7 — 08.07.15 — 15:59

(5) отладчик не предлагать?

  

Мыш

8 — 08.07.15 — 15:59

(6) Товарищ «не думает». Так шта не мешайте.

  

livingstone

9 — 08.07.15 — 16:03

Процедура

1. Копирую некий файл вордовский в С:Юзерс. (т.е. права явно есть)

2. WordApp = Новый COMОбъект(«Word.Application»)

   Док = WordApp.Documents.Add(ПутьКФайлуНаДиске);

КонецПроцедуры

(7) отладчиком уже все по несколько раз проходил.

  

Лефмихалыч

10 — 08.07.15 — 16:05

(9) ты на клиентской машине в С:Юзерс копируешь?

  

Fish

11 — 08.07.15 — 16:05

(8) Типа: «а что тут думать, прыгать надо»? :))

  

livingstone

12 — 08.07.15 — 16:07

(10) нет, на сервере.

т.е. С:Юзерс — это каталог сервера.

  

Fish

13 — 08.07.15 — 16:12

(12) Читай (3) и (6) ещё раз.

  

hhhh

14 — 08.07.15 — 16:21

(12) там users…

  

yukon

15 — 08.07.15 — 16:47

Вопросы серверной автоматизации Office

https://support.microsoft.com/kb/257757

Корпорация Microsoft на сегодняшний день не рекомендует производить и не поддерживает автоматизацию программ из пакета Microsoft Office с помощью автоматических, неинтерактивных клиентских приложений или компонентов (включая ASP, DCOM и службы NT), поскольку при запуске в этом окружении программы пакета Office могут работать нестабильно или зависать.

  

livingstone

16 — 09.07.15 — 07:50

(13) Проблема не в правах, права на каталог назначены. К тому же, если были бы проблемы с правами, серверный метод не смог бы даже скопировать файл в каталог. В (9) я описал суть метода. Ошибка возникает с «Док = WordApp.Documents.Add(ПутьКФайлуНаДиске);». Видимо проблема с самим вордом. Но тогда непонятно, почему с клиента проблемы не возникает.

  

Dmitri888

17 — 09.07.15 — 09:03

А word х32 или х64?

  

Krolik Bezobraznik

18 — 09.07.15 — 09:09

Если 1С обращается к диску из серверного модуля, то обращение происходит под тем пользователем, под которым у вас запущен сервер 1С. Посмотрите в запущенных сервисах, под каким пользователем у вас запущен сервер. Нужно настроить права доступа к этой папке для пользователя, под которым запущен сервер.

Сам недавно столкнулся, у меня фоновое задание обращается в файлу на диске, процедура в серверном модуле. После того как дал доступ, все заработало.

  

Dmitri888

19 — 09.07.15 — 09:14

17+ И какой сервер установлен 32 или 64?

  

Krolik Bezobraznik

20 — 09.07.15 — 09:18

(0) Проверьте доступ к папке. В вашем серверном модуле сделайте функцию с кодом

Функция ПроверитьДоступКПапке(Путь)

    
    КаталогНаДиске = Новый Файл(Путь);

    
    Возврат КаталогНаДиске.Существует();

    
КонецФункции

Посмотрите, что она вам вернет, если ЛОЖЬ, а пака есть, то делайте как я написал в (18)

  

drcrasher

21 — 09.07.15 — 09:36

Копипаста:

При работе с Excel на сервере ОБЯЗАТЕЛЬНО!!! создать папку C:WindowsSysWOW64configsystemprofileDesktop или C:WindowsSystem32configsystemprofileDesktop (в зависимости от разрядности вашей системы).

  

livingstone

22 — 10.07.15 — 12:25

Вобщем сделал как в (21). Теперь все работает. Всем большое спасибо.

0 / 0 / 0

Регистрация: 21.12.2017

Сообщений: 15

1

Ошибка при вызове метода контекста(Добавить)

20.05.2021, 01:00. Показов 3469. Ответов 1


Здравствуйте. Необходимо было изобразить игру Сапёр в 1С, по заданию из задачника Чистова. Код ниже.

По итогу столкнулся с проблемой: {Обработка.сапер.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (Добавить)
Группа = ЭтаФорма.Элементы.Добавить(«Ряд «+Х,Тип(«ГруппаФормы»),Элементы.ИгровоеПоле);
по причине:
Недопустимое значение параметра (параметр номер ‘1’)
Недопустимое значение параметра (параметр номер ‘1’)

как решить?

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
&НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)     МиныВсего = 10;     КолВоСтрок = 10;     КолВоСтолбцов = 10;     МиныОстаток = 10;     Флаги = 0; КонецПроцедуры   &НаКлиенте Процедура НачатьИгру(Команда)        НачатьИгруНаСервере();        ЭтаФорма.ОбновитьОтображениеДанных(Элементы["ИгровоеПоле"]); КонецПроцедуры     &НаСервере Процедура НачатьИгруНаСервере()             ИгровоеПоле = Элементы.Найти("ИгровоеПоле");         Если ИгровоеПоле <> Неопределено Тогда             ЭтаФорма.Элементы.Удалить(ИгровоеПоле);             КонецЕсли;               ИгровоеПоле = ЭтаФорма.Элементы.Добавить("ИгровоеПоле",Тип("ГруппаФормы"),ЭтаФорма);           ИгровоеПоле.Вид = ВидГруппыФормы.ОбычнаяГруппа;           ИгровоеПоле.Отображение = ОтображениеОбычнойГруппы.Нет;           ИгровоеПоле.ОтображатьЗаголовок = Ложь;           ИгровоеПоле.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;           ИгровоеПоле.РазрешитьИзменениеСостава = Истина;           ИгровоеПоле.Видимость = Истина;                   Для Х = 1 По КолВоСтолбцов Цикл               Группа = ЭтаФорма.Элементы.Добавить("Ряд "+Х,Тип("ГруппаФормы"),Элементы.ИгровоеПоле);               Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;               Группа.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеПодчиненных;               Группа.Видимость = Истина;                   Для У = 1  по КолВоСтрок Цикл                   НоваяКнопка = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х,Тип("ДекорацияФормы"),Группа);                   НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;                   НоваяКнопка.Высота = 1;                   НоваяКнопка.Ширина = 2;                   НоваяКнопка.Видимость = Истина;                   НоваяКнопка.КонтекстноеМеню.Видимость = Истина;                   НоваяКнопка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Выпуклая,3);                   НоваяКнопка.Гиперссылка = Истина;                   НоваяКнопка.УстановитьДействие("Нажатие","КнопкаНажатие");                                     КомандаВопрос = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюВопрос",                   Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);                   КомандаВопрос.ИмяКоманды = "Вопрос1";                   КомандаВопрос.Картинка = БиблиотекаКартинок.Справка;                                                       КомандаМина = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюМина",                   Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);                   КомандаМина.ИмяКоманды = "ЭтоМина";                   КомандаМина.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;                                     НастройкаПоля = НастройкиПоля.Добавить();                   НастройкаПоля.ИмяПоля = "Клетка_У"+У+"_Х "+Х;                   НастройкаПоля.Строка = У;                   НастройкаПоля.Столбец = Х;                   НастройкаПоля.МинаВЯчейке = Ложь;                                 КонецЦикла;           КонецЦикла;                     ГенСлучЧис = Новый ГенераторСлучайныхЧисел();           Для СлучЧис = 1 По МиныВсего Цикл               МинаЕсть = Ложь;               Пока Не МинаЕсть Цикл                   ГдеМина = ГенСлучЧис.СлучайноеЧисло(0,НастройкиПоля.Количество()-1);                   Строка = НастройкиПоля[ГдеМина];                   Если Строка.Мина = Истина Тогда                       Продолжить                   КонецЕсли;                    Строка.Мина = истина;                    Элементы[Строка.ИмяПоля].Заголовок = "Х";                    МинаЕсть = Истина;                КонецЦикла;            КонецЦикла;                        Для Х = 1 по КолВоСтолбцов Цикл                Для У = 1 По КолВоСтрок Цикл                    ИмяТекущегоЭлемента = "Клетка_У "+У+"_Х "+Х;                    Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда                        Продолжить;                    КонецЕсли;                    МиныРядом =0;                                        ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х-1);                    Если (У-1>0 и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                         ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х);                    Если (У-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                        ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х+1);                    Если (У-1>0 и Х+1<=КолВоСтолбцов) И Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                                            ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х-1);                    Если (Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                                            ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х+1);                    Если (Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                                            ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х-1);                    Если (У+1<=КолВоСтрок и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                                            ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х);                    Если (У+1<=КолВоСтрок) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                                            ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х+1);                    Если (У+1<=КолВоСтрок и Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда                        МиныРядом = МиныРядом+1;                    КонецЕсли;                                        Если МиныРядом > 0 Тогда                        Элементы[ИмяТекущегоЭлемента].Заголовок = МиныРядом;                                            КонецЕсли;                КонецЦикла;                КОнецЦикла;                                                                     КонецПроцедуры     &НаКлиенте     Процедура Вопрос1(Команда)         ТекущийЭлемент.Картинка = БиблиотекаКартинок.Справка;     КонецПроцедуры   &НаКлиенте     Процедура ЭтоМина(Команда)         ТекущийЭлемент.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;     КонецПроцедуры         &НаКлиенте Процедура КнопкаНажатие(Элемент)     Элемент.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);     Если Элемент.Заголовок = "Х" Тогда         Элемент.Картинка = библиотекаКартинок.Удалить;         ОткрытьВсеМины();         Предупреждение("Неудачно");     Иначе         Элемент.Картинка = Новый Картинка;         Элемент.ТекстНеВыбраннойКартинки = Элемент.Заголовок;     КонецЕсли;     КонецПРоцедуры       &НаСервере Процедура ОткрытьВсеМины()     Для Х = 1 По КолВоСтолбцов Цикл         Для У = 1 по КолВоСтрок Цикл             ИмяТекущегоЭлемента = "Клетка_У"+У+"_ Х"+Х;             Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда                 Элементы[ИмяТекущегоЭлемента].Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);                 Элементы[ИмяТекущегоЭлемента].Картинка = БиблиотекаКартинок.Удалить;             КонецЕсли;         КОнецЦикла;     КонецЦикла;     КонецПроцедуры

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

0

В платформе 1С сообщения об ошибках бывают достаточно запутаны, и без должных навыков разобраться в причинах достаточно сложно. Вот и сообщение об ошибке при вызове контекста может ввести в ступор начинающего разработчика. Однако в подавляющем большинстве случаев мы видим подобное сообщение, если разработчик допустил ошибку в своем коде. Причем речь зачастую идет не об орфографических ошибках, а о логических.

Исправляем ситуацию

Чтобы избавиться от этого неприятного сообщения об ошибке при вызове метода контекста, следует понимать, что контекстом называют методы платформы 1С. Значит в определенной строке кода воспользовались методом с неверными параметрами или вызвали его не от того владельца. Всегда внимательно и полностью читайте сообщения об ошибках – часто в них содержится указание на строку и метод, вызвавший ошибку. Это поможет сэкономить время на отладку и поиск проблемного места в коде.

Рассмотрим действия разработчика на примере со специально допущенной ошибкой. Мы запускаем на исполнение нижеприведенный кусок кода с запросом, в котором забыли дописать условие отбора. Компилятор 1С пропускает такую процедуру, так как орфографических ошибок в написании команд мы не допустили. Однако в режиме предприятия нас ждет такое сообщение об ошибке:


Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|        Номенклатура.Ссылка КАК Ссылка,
|        Номенклатура.ВерсияДанных КАК ВерсияДанных,
|        Номенклатура.ПометкаУдаления КАК ПометкаУдаления,
|        Номенклатура.Родитель КАК Родитель,
|        Номенклатура.ЭтоГруппа КАК ЭтоГруппа,
|        Номенклатура.Код КАК Код,
|        Номенклатура.Наименование КАК Наименование,
|        Номенклатура.Артикул КАК Артикул,
|        Номенклатура.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
|        Номенклатура.ТипНоменклатуры КАК ТипНоменклатуры,
|        Номенклатура.Предопределенный КАК Предопределенный,
|        Номенклатура.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных
|ИЗ
|        Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|         ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
КонецЦикла;

Рис.1 Запускаем на исполнение нижеприведенный кусок кода с запросом, в котором забыли дописать условие отбора

Рис.1 Запускаем на исполнение нижеприведенный кусок кода с запросом, в котором забыли дописать условие отбора

Приведенный текст ошибки программисту 1С скажет, что в модуле формы обработки «ЧтениеЗаписьXML на 152 строчке кода не может выполниться запрос. Причина в том, что на 17 строчке запроса нет чего-то, что ждал компилятор. Таким образом, чтобы убрать подобное сообщение, необходимо выяснить, что там должно быть и написать недостающий код.

Увидев вышеприведенный кусок кода, разработчик заметит, что в запросе есть служебное слово «ГДЕ», дающее сигнал 1С, что дальше будет условие. Но мы забыли дописать его и, естественно, система с помощью сообщения об ошибке спрашивает нас – «а где условие?». Чтобы исправить эту ситуацию необходимо либо убрать оператор «ГДЕ» из запроса, либо добавить условие.

Но ошибки могут быть не только в текстах запросов. Допустим, мы хотим выбрать всю номенклатуру и узнать, входит ли она в определенную группу. Проверка происходит с помощью метода «ПринадлежитЭлементу» и его параметра, который должен быть типа СправочникСсылка. Мы опять допускаем ошибку и вместо ссылки в параметр метода помещаем строку, содержащую имя переменной.


Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|          Номенклатура.Ссылка КАК Ссылка,
|          Номенклатура.ВерсияДанных КАК ВерсияДанных,
|          Номенклатура.ПометкаУдаления КАК ПометкаУдаления,
|          Номенклатура.Родитель КАК Родитель,
|          Номенклатура.ЭтоГруппа КАК ЭтоГруппа,
|          Номенклатура.Код КАК Код,
|          Номенклатура.Наименование КАК Наименование,
|          Номенклатура.Артикул КАК Артикул,
|          Номенклатура.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
|          Номенклатура.ТипНоменклатуры КАК ТипНоменклатуры,
|          Номенклатура.Предопределенный КАК Предопределенный,
|          Номенклатура.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных
|ИЗ
|          Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|          НЕ Номенклатура.ЭтоГруппа ";
НужнаяГруппаЭлементов = Справочники.Номенклатура.НайтиПоНаименованию("Мебель");
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Сообщить(ВыборкаДетальныеЗаписи.Ссылка.ПринадлежитЭлементу("НужнаяГруппаЭлементов"));
КонецЦикла;

Рис.2 Мы опять допускаем ошибку и вместо ссылки в параметр метода помещаем строку, содержащую имя переменной

Рис.2 Мы опять допускаем ошибку и вместо ссылки в параметр метода помещаем строку, содержащую имя переменной

1С выдает настолько же информативное сообщение, из которого мы понимаем, что на 158 строке у 1 параметра неправильный тип. Но что же делать, если мы не знаем, какой тип должен быть? В этом нам поможет Синтакс-помощник, встроенный в платформу 1С.

Рис.3 Синтакс-помощник

Рис.3 Синтакс-помощник

В конфигураторе находим строку и метод, на который указывало сообщение об ошибке, и нажимаем на него правой кнопкой мыши. Выбираем пункт «Поиск в синтакс-помощнике» и платформа самостоятельно ищет справочную информацию по выделенному методу. В справке мы видим не только подробное описание параметров и самого метода, но и пример. Сверив пример с нашим кодом, приходит понимание, что кавычки не нужны и без них все работает.

Рис.4 Сверив пример с нашим кодом, приходит понимание, что кавычки не нужны и без них все работает

Рис.4 Сверив пример с нашим кодом, приходит понимание, что кавычки не нужны и без них все работает

Чаще всего причиной подобных ошибок выступают следующие факторы:

  1. Невнимательность;
  2. Отсутствие опыта или знаний;
  3. Несогласованность действий разработчиков друг с другом;
  4. Изменения в методах контекста в новых версиях платформы.

Но ошибки при разработке ПО случаются постоянно, поскольку иногда ошибаются даже специалисты с многолетним опытом. Самое главное – уметь исправлять их и учиться на них. Постепенно вы будете видеть сообщения об ошибках все реже и научитесь замечать подобные «опечатки» еще до запуска 1С.

Сразу скажу — на файловой базе в Windows 7 этот код работает корректно. Итак, есть: W2016Server + сервер приложений 8.3.10.2580 + самописный документ, в котором есть строчка ДокументВорд = ОбъектВорд.Documents.Add(ИмяФайлаПаспортаЗаявки); Сразу говорю — файл я проверял вот так: Тест = Новый Файл(«c: emp_pm est.docx»); Если Тест.Существует Тогда — он существует, и сервер его может прочитать. С правами доступа к папкам всё ОК. На сервере установлен Office 2013 (причем я ставил и 32-битный, и 64-битный), COM-компонент ручками зарегистрировал, поэтому строчка ОбъектВорд = Новый COMОбъект(«Word.Application»); теперь выполняется без ошибок. В отладчике объект виден. Так вот, спотыкаемся на строчке ДокументВорд = ОбъектВорд.Documents.Add(ИмяФайлаПаспортаЗаявки); Если файл имеет расширение DOC — ошибка такая: {Документ.дкЗаявкаНаПроект.МодульОбъекта}: Ошибка при вызове метода контекста (Add): Произошла исключительная ситуация (Microsoft Word): Ошибка в Word. Если файл имеет расширение DOCХ — ошибка чуть другая: {Документ.дкЗаявкаНаПроект.МодульОбъекта}: Ошибка при вызове метода контекста (Add): Произошла исключительная ситуация (Microsoft Word): Приложению Word не удалось прочитать документ. Возможно, он поврежден. Попробуйте выполнить следующие действия: * Откройте файл с помощью команды »Открыть и восстановить». * Откройте файл с помощью конвертера резервных копий. Я уже в отчаянии, целый день мучаюсь. Сборки Офиса 2013 — от Кролика, с самыми последними обновлениями, сами понимаете, это бренд, здесь всё пучком. (На Win7 с файловой базой, где всё работает — такая же). Майкрософту я доверяю меньше, но завтра-таки попробую поставить c оригинального образа RTM. Интуиция подсказывает, что не взлетит. Подскажите, что ещё можно попробовать проверить?

А если попробовать зайти на сервер и вручную открыть данный файл? Открывается нормально и содержимое отображает?

[Сборки Офиса 2013 — от Кролика, с самыми последними обновлениями, сами понимаете, это бренд, здесь всё пучком. (На Win7 с файловой базой, где всё работает — такая же). Майкрософту я доверяю меньше, но завтра-таки попробую поставить c оригинального образа RTM] Достаточно спорное утверждение. Я бы больше доверял оригинальному дистрибутиву, чем какой-то сборке, из которой вполне могли повыкидывать «ненужные» вещи.

попробуйте другую папку. c: emp_pm  — очень сомнительное место, вряд ли там откроет файл ворд.

конечно, открывает и отображает :) Я же не первый день замужем. И даже ЗапуститьПриложение(ИмяФайла), я уверен, будет работать. и папка эта — не первая, до неё я использовал подкаталог во временной папке (пробовал разные). Разумеется, права доступа — всем на всё. Ещё раз повторю, что на локальном компьютере с W7 при такой же структуре папок и том же дистрибутиве Офиса (только без сервера приложений) всё работает. Мне кажется, подвох в Windows 2016. Другой вариант — в сервере приложений. Третьего не дано.

Подвох возможно кроется в битности офиса, 1С. Допустим офис 64x, а 1С 32x и наоборот.

нафиг вам этот офис вообще уперся. распаковал, засунул в xml чо хочешь, запаковал и все дела. быстро, дешево и сердито.

Курить «профиль безопасности» в программе «Администрирование серверов 1С Предприятия». По умолчанию использование COM на сервере 1С запрещено. Не советую работать с вордом екселем и тд. на сервере. Зависнет ворд вместе с ним 1с сеанс, что будете делать?

попробуйте написать сценарий и из него управлять вордлм,а уже этот сценарий запустите из 1ц,если что-то пойдет не так можно убить сценарий и ворд из самой 1с а сервер,кстати,обычно 64-битный

Зачем такой изврат, можно просто фоновым заданием, мне кажется.

Подвохов там масса. Начиная от того под кем выполняется. Если ушло на сервер значит выполняется под серверным userV8 значит у него должен быть доступ к dcom объекту. Лезешь в dcom офиса и выдаешь ему там все права. Но лучше сделать по другому. docx это упакованные в zip xml. на просторах интернета есть уже готовый код. Также реализацию и можно посмотреть в 1С Договорчики. Фактически docx распаковывается, в нужном xml правится, пакуется обратно. Сам понимаешь никаких проблем с COM и офис не нужен.

#11
by Dmitriy_Kolesnikov

изначально офис был 32-битный и была ошибка при создании ком-объекта: ОбъектВорд = Новый COMОбъект(«Word.Application»); Но я вручную создал коннектор (по инструкции), и ошибка исчезла. Более того, как сказано в , я снес 32-битный Офис и поставил 64-битный — это ничего не изменило. а ссылку? У меня 15 файлов, часть в DOCX, часть в HTML, надо все их упихать в один. Я делаю это с помощью метода InsertFile. Благодарю, сейчас почитаю про эти профили. Похоже, собака зарыта именно здесь. пользователю usr1cv8 уже выданы везде все права, в том числе в COM+. Насчет XML и ZIP — это интересно, но на будущее. Я уже написал код, который быстро работает на файловой базе. Теперь задача — заставить его выполняться на сервере.

«а ссылку?» я писал про XML и ZIP

В самом объекте dcom дал права? Администрирование ? Службы компонентов ? *** ? Настройка DCOM ? Документ Microsoft Word 97–2003 ? безопасность.

Сборки Офиса 2013 — от Кролика, с самыми последними обновлениями, сами понимаете, это бренд Кто все эти люди?

#16
by Dmitriy_Kolesnikov

конечно весьма уважаемые люди. Робин Гуды наших дней. руководствуясь вашей логикой, уголовниками можно обозвать 99,9% граждан России, пользующихся компьютерами.

показывай что у тебя между: ОбъектВорд = Новый COMОбъект(«Word.Application»); ДокументВорд = ОбъектВорд.Documents.Add(ИмяФайлаПаспортаЗаявки);

Тэги: Админ

Комментарии доступны только авторизированным пользователям

Довольно часто начинающие 1С разработчики сталкиваются с ошибками, которых достаточно легко избежать. Ниже мы рассмотрим топ 11 ошибок и способы их исправления. Также доступна видеоверсия статьи

Содержание

Поле объекта не обнаружено

1С ошибка Поле объекта не обнаружено

Существует множество статей, которые описывают возможные причины возникновения в 1С ошибки “Поле объекта не обнаружено”. Порой это связывают с обновлением платформы, обновлением типового релиза, или с какими-то другими причинами.

Мы же будем оперировать фактами. В конце статьи прилагается внешняя обработка, в которой воспроизведена данная ошибка.

Такое сообщение платформа выдает, когда пытается обратиться к свойству объекта языка, которого у данного объекта нет. Не важно, что это за объект – документ, справочник, таблица значений , или сообщение пользователю.

  • Удалили табличную часть, к которой обращаемся в коде?
  • Переименовали реквизит, а в коде не исправили?
  • Заменили значение со ссылки на неопределено?

Вуаля – платформа выдаст ошибку “Поле объекта не обнаружено”!

Как исправить? Исходя из природы ошибки – переименовать реквизит на нужное имя, отредактировать код, или использовать правильные обращения к стандартным свойствам объекта.

Например, у объекта “СообщениеПользователю” нет свойства “Таблица”, и следующий код приведет к ошибке:

Сообщение = Новый СообщениеПользователю;
Сообщение.Таблица = “Ошибка”;

Индекс находится за границами массива

1С ошибка Индекс находится за пределами массива

Что означает такое сообщение системы? Как правило, с данной ошибкой разработчик сталкивается при некорректной работе с коллекциями. Самые частые случаи появления ошибки “Индекс находится за границами массива”.

  • Использование при обходе коллекции количества элементов вместо индекса. Индексы начинаются с нуля, а количество элементов – с единицы. Поэтому следующий код гарантированно приведет к ошибке: Массив[Массив.Количество()]
  • Последствия удаления элементов из коллекции, очистки коллекции или замены коллекции на пустую
  • Ошибочное увеличение счетчика в цикле “Для”

 Как исправить? Для удаления элементов из коллекции по условию – использовать обратный цикл. Добавлять условие на соответствие счетчика цикла и индекса массива. Не увеличивать счетчик внутри кода цикла Для … Цикл … КонецЦикла

Обращение к процедуре как к функции

ОШибка

Суть этой ошибки в том, что процедура не может возвращать значение. И если мы в коде используем вызов процедуры справа от знака присваивания, это приведет к ошибке.

Данная ошибка имеет две вариации – если используется стандартная процедура из методов какого-нибудь объекта, то фраза будет звучать “Обращение к процедуре объекта как к функции”. Если же использовать процедуру, объявленную в коде, то текст ошибки будет “Обращение к процедуре как к функции”.
При этом ошибка использования процедуры объекта является ошибкой времени выполнения – т.е. на этапе сохранения и проверки конфигурации платформа эту ошибку не обнаружит.

А вот неправильное использование процедуры синтаксическая проверка (Ctrl + F7) успешно обнаруживает, и не даст сохранить конфигурацию или внешнюю обработку/отчет, пока ошибка не будет устранена.

Рассмотрим два примера:

1. Воспроизведем ошибку “Обращение к процедуре как к функции”. При этом платформа не даст сохранить изменения, т.к. не проходит синтакс-контроль.

2. Воспроизведем ошибку “Обращение к процедуре объекта как к функции”. Здесь мы неверно используем метод объекта массива “Добавить”, который является процедурой.

Как исправить? Ошибка тривиальная, и исправление тоже. Чаще всего, достаточно внимательно прочитать описание методов объекта во встроенной справке или синтакс-помощнике. Если метод является процедурой, то значений он возвращать не может. Следовательно, нужно модифицировать код так, чтобы такого ошибочного вызова не было.
Если же используется процедура, объявленная в коде, возможно, есть необходимость изменить ее на функцию, либо также скорректировать код, который эту процедуру использует.

Процедура не может возвращать значение

Родственная предыдущей ошибка. Для того, чтобы код возвращал какое-то значение, следует этот код размещать в функции, а не в процедуре.

В процедуре можно написать ключевое слово “Возврат” без параметров. Это будет означать выход из процедуры.

Следующий код является ошибочным, т.к. в теле процедуры Возврат используется с параметром:

Процедура ПроцедураНеМожетВозвращатьЗначение(Команда) Возврат "Ошибка"; КонецПроцедуры

Как исправить? Платформа сама подсказывает, в каком месте кода ошибка. Нужно изменить текст модуля – либо удалить параметр у ключевого слова Возврат, либо убрать его вовсе, либо изменить процедуру на функцию – зависит от того, какая логика у вашей процедуры, и как вы предполагаете ее использовать.

Переменная не определена

Такой текст ошибки платформа 1С выдает на этапе синтаксического контроля, при сохранении конфигурации, внешнего отчета или обработки.
Причин у этой ошибки может быть несколько.

  • Опечатка в имени переменной
  • Обращение к переменной, которая нигде в области видимости не объявлена (неявной инициализацией с присвоением значения, явным образом с использованием ключевого слова “Перем”, или передана в качестве параметра)
  • Написание на клиенте серверного кода. Например, обращение к менеджеру справочников “Справочники”, и т.п. Клиентская часть приложения “не видит ” серверные объекты языка
  • Также ошибка может появиться, если ранее код использовался в режиме толстого клиента, но после был запущен в тонком клиенте.

Как исправить?

Внимательно следить за правильностью набранного кода, своевременно объявлять переменные или передавать их в качестве параметров. Писать серверный код только в серверных модулях, а также использовать соответствующие инструкции препроцессора, например “&НаСервере”.

Значение не является значением объектного типа

Ошибка “Значение не является значением объектного типа” может возникнуть при неверном обращении к объекту языка. Объектный тип – это такие объекты языка, которые содержат в себе другие объекты – свойства, реквизиты и т.п. Эти свойства доступны через точку, например “Объект.СвойствоЭтогоОбъекта”

Но если через точку попытаться использовать какое-то значение, которое внутри себя свойств не имеет – например, любое значение примитивного типа – это и приведет к ошибке.

Разберем более сложный пример:

&НаСервере Процедура ЗначениеНеЯвляетсяЗначениемОбъектногоТипаНаСервере(Справочники = Ложь) Сообщить(Справочники.Сотрудники.ПустаяСсылка()); КонецПроцедуры

Ошибка может быть “плавающей”. Если вместо параметра по умолчанию “Справочники = Ложь” будет передан менеджер справочников, то ошибки возникать не будет. А если вызвать процедуру без параметров, то будет использоваться параметр по умолчанию с типом Булево, что и приведет к ошибке.

Чаще всего чтобы исправить ошибку, нужно в отладчике посмотреть, какой тип значения используется. Можно внести изменения в код, чтобы обеспечить корректное поведение (например, в запросе вместо наименования товара выбрать ссылку, и в коде через точку уже обращаться к свойствам ссылки, а не текстового наименования). А можно добавить проверку на нужный тип значения. Т.е. – если значение того типа, который мы ожидаем – выполняем код. Иначе – не выполняем.

Ошибка при вызове метода контекста

Ошибка при вызове метода контекста

Обнаружены ошибки в 1С Синтаксическая ошибка

В языке 1С у разных объектов (запросов, справочников, табличных документов и др.) есть предопределенные методы, предусмотренные платформой. Обращение к этим методам требует соблюдения порядка и параметров, правильного синтаксиса и соблюдения условий использования. Например, при чтении табличного документа из файла он не должен быть открыт в другой программе, при подключении к http-соединению оно должно быть доступно, и т.п.

Если эти условия не соблюдать, платформа в зависимости от версии может выдавать сообщения вида “Ошибка при вызове метода контекста”, и далее будут следовать более подробные сведения об ошибке – стек вызовов, приведших к ошибке, номер строки и позиции в строке, где произошла ошибка.

Чаще всего ошибка при вызове метода контекста встречается в следующих методах:

  1. Записать
  2. Прочитать
  3. Выполнить
  4. Создать
  5. ПроверитьВывод

Разберем эту ошибку на примере метода Выполнить объекта Запрос:

Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 1 1 ГДЕ ИСТИНА И"); Запрос.Выполнить(); 

В тексте запроса допущена ошибка –  после первого условия “ГДЕ ИСТИНА” указан оператор И, но после него нет еще одного условия. В результате при попытке выполнения запроса, платформа вернет ошибку.

Для исправления ошибки зачастую достаточно внимательно использовать методы, при необходимости уточнять порядок, количество и тип параметров – это можно сделать в справке или синтакс-помощнике (встать курсором на имя метода в коде, и нажать сочетание клавиш Ctrl+F1). В случае запроса – нужно передавать синтаксически корректный текст запроса; в случае проверки вывода на печать – в системе должен быть установлен принтер; в случае подключения к почте – должны быть корректно указаны логин и пароль, и т.п.

Тип не может быть выбран в запросе в 1С 8.3 (8.2)

Ошибка Тип не может быть выбран в запросе

С такой ошибкой начинающие разработчики (да и не только начинающие 😉 ) сталкиваются чаще всего, при чтении запросом данных из таблиц значений, либо из регистров сведений. Все дело в том, что запросы поддерживают далеко не все типы значений. Так, например, нельзя запросом выбрать тип Картинка, ХранилищеЗначений, Шрифт, и многие другие типы, которые не относятся к примитивным или ссылочным типам значений.

Так, если ресурс регистра сведений имеет тип ХранилищеЗначений, выбрать его запросом будет нельзя. Также, если в таблицу значений поместить значения не подходящих типов, а после передать эту таблицу в качестве параметра-источника данных, выполнение запроса также приведет к ошибке “Тип не может быть выбран в запросе”.

Еще одна ситуация, когда запрос будет выдавать ошибку – если таблица значений, которая передается в качестве параметра, имеет не типизированные колонки.

Неверно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент");

Верно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент", Новый ОписаниеТипов("СправочникСсылка.Контрагенты"));

Для исправления ошибки нужно правильным образом инициализировать колонки таблицы значений, а также не обращаться в запросе к полям, типы которых запросами не поддерживаются.

Использование в 1С модальных окон в данном режиме запрещено

Ошибка Использование в 1С модальных окон в данном режиме запрещено​

Платформа будет выдавать такое сообщение, если в коде используются методы, приводящие к открытию модальных окон. Модальные окна – это окна, которые при открытии блокируют весь остальной интерфейс. В 1С есть несколько модальных методов – например – “Вопрос”, “ОткрытьЗначение”, “Предупреждение”. Кроме того, в коде может использоваться модальный синтаксис открытия форм: “ОткрытьМодально()”

Если в свойствах конфигурации выбран режим использования модальности “Не использовать”, то выполнение модальных методов будет приводить к этой ошибке “Использование в 1С модальных окон в данном режиме запрещено”.

Для устранения ошибки можно пойти несколькими путями. Как водится, один – быстрый, другой – правильный 🙂

Быстрый способ – переключить режим использования модальности в положение “Использовать”.

Более правильный способ – использовать в коде немодальные вызовы методов. Например, у метода “Вопрос” есть немодальный аналог  – “ПоказатьВопрос”, у метода “Предупреждение” – “ПоказатьПредупреждение”, и т.п. Чаще всего об этих методах дополнительно указано в синтакс-помощнике и справке.

Кроме того, в последних версиях платформы появились асинхронные методы – “ВопросАсинх”, “ПредупреждениеАсинх” и др. Появление этих методов позволяет писать более простой и понятный асинхронный код, и направлено в первую очередь, на более полноценную поддержку браузерами и работу в веб-клиенте.

1С 8.3 и 8.2: Запись с такими ключевыми полями существует!

Данная ошибка появляется при некорректной записи в регистр сведений. Чаще всего с этой ошибкой сталкиваются начинающие разработчики, не до конца понимающие механизмы работы с ключевыми полями (измерениями).

Суть ошибки следующая – регистр сведений позволяет записать запись (строку таблицы) с уникальным набором ключевых полей – а для периодических регистров также и поля Период. Если следующая запись полностью повторяет значение ключевых полей, но осуществляется методом Записать с параметром Замещать = Истина, то запись в таблице регистра просто заменится на идентичную.

Однако если поместить две абсолютно одинаковые записи в набор записей, и попытаться его записать – платформа выдаст ошибку. Еще один распространенный случай, когда 1С сообщает “Запись с такими ключевыми полями существует” – это запись в периодический регистр сведений с периодичностью от “День” и выше, подчиненный регистратору.

В типовых конфигурациях часто эту ошибку можно воспроизвести, если в пользовательском режиме создать два документа “Установка цен номенклатуры” с одной и той же номенклатурой и за один и тот же день. Попытка провести второй документ приведет к ошибке.

В случае, когда ошибка возникает не в результате действий пользователя, а при выполнении кода, чтобы устранить ее, чаще всего необходимо проанализировать алгоритм записи в регистр. Если запись осуществляется одним набором данных, его предварительно нужно свернуть до уникальных записей. Например, выгрузить в таблицу значений, свернуть, и загрузить в набор записей.

Поле объекта недоступно для записи в 1С

Ошибка Поле объекта недоступно для записи в 1С​

Чаще всего начинающие программисты 1С сталкиваются с этой ошибкой в двух ситуациях.

Первый случай – это попытка редактирования системных полей, недоступных для записи. Например, в модуле формы сама форма будет содержаться в объекте ЭтаФорма. И попытка присвоить этому реквизиту любое значение приведет к ошибке “Поле объекта недоступно для записи”.

Второй случай – и с ним новички как раз допускают больше всего ошибок – это попытка редактирования полей ссылки, а не самого объекта. Чаще всего код выглядит примерно так:

Элемент = Справочники.Сотрудники.НайтиПоКоду("12345"); Элемент.Наименование = "Новое наименование";

Исполнение данного кода приведет к ошибке, т.к. поля ссылки доступны только для чтения, а метод НайтиПоКоду вернет именно ссылку. Чтобы можно было внести изменения, следует из ссылки получить сам объект – используя соответствующий метод ПолучитьОбъект().

Для исправления ошибки зачастую достаточно получить объект из ссылки. В случае же попытки редактирования свойств, доступных только на чтение самый правильный подход – анализировать имеющуюся документацию по этим свойствам, и не пытаться присваивать им значения, если платформа этого не предусматривает.

Ссылка на обработку

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

Заключение

Как видите, зачастую ошибки тривиальны, и достаточно просто исправляются. Общие рекомендации – внимательно читать документацию и справку, корректно использовать методы, активно пользоваться отладчиком. Если вы новичок, и хотите освоить программирование в 1С с нуля – могу предложить приобрести мой базовый курс для начинающих. Более подробная информация – по ссылке.

  1. Обнаружены ошибки:
    {Документ.РеализацияТоваровУслуг.МодульОбъекта (1155)}: Ошибка при вызове метода контекста (ПроверитьВывод)
    Если Ном <> 1 И НЕ ТабДокумент.ПроверитьВывод(МассивВыводимыхОбластей) Тогда
    по причине:

    Такая ошибка возникает у одного из пользователей удаленного рабочего стола.

    Если я со своей машины захожу таким же образом под тем же самым пользователем (и системным и пользователем 1С) у меня такая ошибка не возникает.

    что может быть?

  2. Offline

    Наташа
    Опытный в 1С

    Регистрация:
    14 авг 2010
    Сообщения:
    1.442
    Симпатии:
    2
    Баллы:
    29
  3. это все что есть на экране, более ничего сказать не могу.
    это же 1с!!!

  4. Offline

    Requin
    Опытный в 1С

    Регистрация:
    10 май 2010
    Сообщения:
    1.911
    Симпатии:
    2
    Баллы:
    29
  5. для того, чтобы сохранить документ в MXL, человеку нужно купить принтер?

  6. Offline

    Requin
    Опытный в 1С

    Регистрация:
    10 май 2010
    Сообщения:
    1.911
    Симпатии:
    2
    Баллы:
    29

    P.S. Принтер можете не покупать, просто установите какой-нибудь (файловый).

  7. спасибо, передам ваш совет.
    хотя уважающий себя программист осуществляет проверку на конкретное действие — в данном случае это вывод отчета: КУДА — если на экран — одна ветка, если на принтер — другая.
    я так думаю, что программистам 1с надо пройти начальные курсы по основам построения логики программы, а лучше начать с базовых курсов по информатике.

  8. Offline

    x_under
    Модераторы
    Команда форума
    Модератор

    Регистрация:
    25 апр 2007
    Сообщения:
    2.576
    Симпатии:
    16
    Баллы:
    29

    :angry: Ну какой вы агрессивный. Тут же все по принципу: не нравится не ешь.

    Эта функция используется для определения помещается на экран форма или нет. А без принтера, хотя бы виртуального этого не определить. Вдруг вы на А3 или А5 печатаете (ну или на рулоне бумаги)… Так что всем не угодишь.

  9. Online

    nomad_irk
    Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.724
    Симпатии:
    1.014
    Баллы:
    204

    кхм, ну можно было бы возвращать неопределено, в случае, если принтера нет в системе, а не вываливаться в ошибку :)

  10. Offline

    kallugin

    Регистрация:
    22 ноя 2011
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1

    UP

    Та же самая ошибка, один в один, но есть нюансы:

    — переустановили Винду на терминальном сервере, был 2008 х86, стал 2008 64, соответственно, драйвера принтеров уже другие

    — документ, в котором всего одна строка, печатается нормально, больше одной — та самая ошибка

    — с одних компьютеров выдаёт такую ошибку, с других — нет, нормально печатает. Сегодня с утра заходил на тот же сервер и печатал те самые документы для бухгалтеров, я могу печатать, они — нет. Среда одинаковая, сервер один и тот же, принтеры одни и те же (их там два сетевых), конфигурацию не меняли.

    Может это быть из-за того, что система запомнила какие-то настройки «с прошлого раза» (у бухгалтеров, которые этот документ печатали)? И как бы их обнулить?

  11. Offline

    x_under
    Модераторы
    Команда форума
    Модератор

    Регистрация:
    25 апр 2007
    Сообщения:
    2.576
    Симпатии:
    16
    Баллы:
    29

    Попробуйте базу переподключить.

  12. Offline

    Настя

    Регистрация:
    3 июл 2012
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1

    {Form.ФормаОтчета.Form(4)}: Ошибка при вызове метода контекста (Add)
    ТабЗН.Колонки.Добавить(«ТипНомера»,»Строка»,»Тип номера»);
    что за ошибка? подскажите пожалуйста

  13. Offline

    1cUserAndrew
    Профессионал в 1С
    Команда форума

    Регистрация:
    27 май 2010
    Сообщения:
    5.125
    Симпатии:
    212
    Баллы:
    104

    Второй параметр имеет тип данных «ОписаниеТипов».

    ТабЗН.Колонки.Добавить("ТипНомера", Новый ОписаниеТипов("Строка"), "Тип номера");
  14. Offline

    qweqweqwe123777
    Новичок в 1С

    Регистрация:
    30 янв 2015
    Сообщения:
    1
    Симпатии:
    1
    Баллы:
    4

    у меня ошибка получения информации о принтере
    решилась установкой прав на принтер.
    В свойствах принтера на вкладке Безопасность добавил группу пользователей Domain users полные права

Detroid042

0 / 0 / 0

Регистрация: 21.12.2017

Сообщений: 15

1

Ошибка при вызове метода контекста(Добавить)

20.05.2021, 01:00. Показов 4285. Ответов 1

Метки 1с, формы (Все метки)


Студворк — интернет-сервис помощи студентам

Здравствуйте. Необходимо было изобразить игру Сапёр в 1С, по заданию из задачника Чистова. Код ниже.

По итогу столкнулся с проблемой: {Обработка.сапер.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (Добавить)
Группа = ЭтаФорма.Элементы.Добавить(«Ряд «+Х,Тип(«ГруппаФормы»),Элементы.ИгровоеПоле);
по причине:
Недопустимое значение параметра (параметр номер ‘1’)
Недопустимое значение параметра (параметр номер ‘1’)

как решить?

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    МиныВсего = 10;
    КолВоСтрок = 10;
    КолВоСтолбцов = 10;
    МиныОстаток = 10;
    Флаги = 0;
КонецПроцедуры
 
&НаКлиенте
Процедура НачатьИгру(Команда)
       НачатьИгруНаСервере();
       ЭтаФорма.ОбновитьОтображениеДанных(Элементы["ИгровоеПоле"]);
КонецПроцедуры
 
 
&НаСервере
Процедура НачатьИгруНаСервере()
    
        ИгровоеПоле = Элементы.Найти("ИгровоеПоле");
        Если ИгровоеПоле <> Неопределено Тогда
            ЭтаФорма.Элементы.Удалить(ИгровоеПоле);
            КонецЕсли;
    
          ИгровоеПоле = ЭтаФорма.Элементы.Добавить("ИгровоеПоле",Тип("ГруппаФормы"),ЭтаФорма);
          ИгровоеПоле.Вид = ВидГруппыФормы.ОбычнаяГруппа;
          ИгровоеПоле.Отображение = ОтображениеОбычнойГруппы.Нет;
          ИгровоеПоле.ОтображатьЗаголовок = Ложь;
          ИгровоеПоле.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
          ИгровоеПоле.РазрешитьИзменениеСостава = Истина;
          ИгровоеПоле.Видимость = Истина;
        
          Для Х = 1 По КолВоСтолбцов Цикл
              Группа = ЭтаФорма.Элементы.Добавить("Ряд "+Х,Тип("ГруппаФормы"),Элементы.ИгровоеПоле);
              Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
              Группа.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеПодчиненных;
              Группа.Видимость = Истина;
                  Для У = 1  по КолВоСтрок Цикл
                  НоваяКнопка = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х,Тип("ДекорацияФормы"),Группа);
                  НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;
                  НоваяКнопка.Высота = 1;
                  НоваяКнопка.Ширина = 2;
                  НоваяКнопка.Видимость = Истина;
                  НоваяКнопка.КонтекстноеМеню.Видимость = Истина;
                  НоваяКнопка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Выпуклая,3);
                  НоваяКнопка.Гиперссылка = Истина;
                  НоваяКнопка.УстановитьДействие("Нажатие","КнопкаНажатие");
                  
                  КомандаВопрос = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюВопрос",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаВопрос.ИмяКоманды = "Вопрос1";
                  КомандаВопрос.Картинка = БиблиотекаКартинок.Справка;
                  
                  
                  КомандаМина = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюМина",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаМина.ИмяКоманды = "ЭтоМина";
                  КомандаМина.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
                  
                  НастройкаПоля = НастройкиПоля.Добавить();
                  НастройкаПоля.ИмяПоля = "Клетка_У"+У+"_Х "+Х;
                  НастройкаПоля.Строка = У;
                  НастройкаПоля.Столбец = Х;
                  НастройкаПоля.МинаВЯчейке = Ложь;
                  
              КонецЦикла;
          КонецЦикла;
          
          ГенСлучЧис = Новый ГенераторСлучайныхЧисел();
          Для СлучЧис = 1 По МиныВсего Цикл
              МинаЕсть = Ложь;
              Пока Не МинаЕсть Цикл
                  ГдеМина = ГенСлучЧис.СлучайноеЧисло(0,НастройкиПоля.Количество()-1);
                  Строка = НастройкиПоля[ГдеМина];
                  Если Строка.Мина = Истина Тогда
                      Продолжить
                  КонецЕсли;
                   Строка.Мина = истина;
                   Элементы[Строка.ИмяПоля].Заголовок = "Х";
                   МинаЕсть = Истина;
               КонецЦикла;
           КонецЦикла;
           
           Для Х = 1 по КолВоСтолбцов Цикл
               Для У = 1 По КолВоСтрок Цикл
                   ИмяТекущегоЭлемента = "Клетка_У "+У+"_Х "+Х;
                   Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                       Продолжить;
                   КонецЕсли;
                   МиныРядом =0;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х-1);
                   Если (У-1>0 и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                    ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х);
                   Если (У-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х+1);
                   Если (У-1>0 и Х+1<=КолВоСтолбцов) И Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х-1);
                   Если (Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х+1);
                   Если (Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х-1);
                   Если (У+1<=КолВоСтрок и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х);
                   Если (У+1<=КолВоСтрок) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х+1);
                   Если (У+1<=КолВоСтрок и Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   Если МиныРядом > 0 Тогда
                       Элементы[ИмяТекущегоЭлемента].Заголовок = МиныРядом;
                       
                   КонецЕсли;
               КонецЦикла;
               КОнецЦикла;
 
                   
                   
          
            
    КонецПроцедуры
 
 
&НаКлиенте
    Процедура Вопрос1(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.Справка;
    КонецПроцедуры
 
&НаКлиенте
    Процедура ЭтоМина(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
    КонецПроцедуры
    
    
&НаКлиенте
Процедура КнопкаНажатие(Элемент)
    Элемент.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
    Если Элемент.Заголовок = "Х" Тогда
        Элемент.Картинка = библиотекаКартинок.Удалить;
        ОткрытьВсеМины();
        Предупреждение("Неудачно");
    Иначе
        Элемент.Картинка = Новый Картинка;
        Элемент.ТекстНеВыбраннойКартинки = Элемент.Заголовок;
    КонецЕсли;
    КонецПРоцедуры
 
    
&НаСервере
Процедура ОткрытьВсеМины()
    Для Х = 1 По КолВоСтолбцов Цикл
        Для У = 1 по КолВоСтрок Цикл
            ИмяТекущегоЭлемента = "Клетка_У"+У+"_ Х"+Х;
            Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                Элементы[ИмяТекущегоЭлемента].Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
                Элементы[ИмяТекущегоЭлемента].Картинка = БиблиотекаКартинок.Удалить;
            КонецЕсли;
        КОнецЦикла;
    КонецЦикла;
    КонецПроцедуры



0



Модератор

Эксперт 1С

3711 / 2907 / 573

Регистрация: 10.03.2011

Сообщений: 11,447

Записей в блоге: 1

20.05.2021, 03:58

2

Лучший ответ Сообщение было отмечено Detroid042 как решение

Решение

Цитата
Сообщение от Detroid042
Посмотреть сообщение

«Ряд «+Х

пробел убери!

Добавлено через 1 минуту

Цитата
Сообщение от Detroid042
Посмотреть сообщение

КомандаВопрос = ЭтаФорма.Элементы.Добавить(«Клетка_У «+У+

и тут.

И везде, идентификатор не может содержать пробелов



0



Автор Sweety Bell, 24 ноя 2015, 12:44

0 Пользователей и 1 гость просматривают эту тему.

Здравствуйте! Мне надо загрузить данные из excel в 8.2 обычное приложение. В цикле вывода возникает ошибка в методе Добавить. Первые 2 итерации пропускает нормально, потом выдает ошибку:
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);
по причине:
Недопустимое значение параметра (параметр номер ‘1’)

Процедура ОкрытьФайлНажатие(Элемент)
   ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ДиалогВыбора.Заголовок ="Выберите файл";
   
Если ДиалогВыбора.Выбрать()Тогда
   ИмяФайла=ДиалогВыбора.ПолноеИмяФайла;
  КонецЕсли ;

   Таблица.Очистить();
Таблица.Колонки.Очистить();

Попытка
Excel=Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Состояние("Обработка файла Excel");
ExcelЛист=Excel.Sheets(1);
Исключение
Сообщить("шибка при открытии файла");
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;


Версия =Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия="8" Тогда
ФайлСтрок =Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок =Макс(Excel.Cells.CurrentRegion.Columns.Count,13);
Иначе
ФайлСтрок =Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок =Excel.Cells(1,1).SpecialCells(11).Column;
КонецЕсли;

Счетчик=1;
Пока ЗначениеЗаполнено(Excel.Cells(1,Счетчик).Text)Цикл
ИмяКолонки=Excel.Cells(1,Счетчик).Text;
ИмяБезПробелов=СтрЗаменить(ИмяКолонки," ","");
//Таблица.Колонки.Добавить(ИмяБезПробелов,,ИмяКолонки);
Таблица.Колонки.Добавить(ИмяКолонки);
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);
НоваяКолонка.Данные=ИмяБезПробелов;
Счетчик=Счетчик+1;
КонецЦикла;

Для нс=2 по Файлстрок Цикл
НоваяСтрока=Таблица.Добавить();
Для НомерКолонки=1 По Таблица.Колонки.Количество()Цикл
ТекущееЗначение=Excel.Cells(нс.НомерКолонки).Text;
  ИмяКолонки=Таблица.Колонких[НомерКолонки-1].Имя;
  НоваяСтрока[ИмяКолонки]=ТекущееЗначение;



  КонецЦикла;
   КонецЦикла;

КонецПроцедуры


Смело запускайте отладчик. Он вам покажет название колонки.


показал колонку Наименование.
После этого на форме появляются 3 пустые колонки.
Помогите, пожалуйста, вывести на экран. Начальство убивает:fdbsdfbsd:


Вы слово «отладчик» сознательно не видите?


Вижу. Он показывает на эту строку
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяКолонки);


Цитата: Sweety Bell от 24 ноя 2015, 13:12
Вижу. Он показывает на эту строку
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяКолонки);

В приведенном вами коде нет такой строки. Есть такая:

НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);


Скажите, а что такое отладчик вы вообще знаете? Вывод строки с ошибкой и отладчик — это знаете ли, очень разные вещи.


Цитата: vitasw от 24 ноя 2015, 13:25
Скажите, а что такое отладчик вы вообще знаете? Вывод строки с ошибкой и отладчик — это знаете ли, очень разные вещи.

инструмент для пошаговой отладки. Я им и пользуюсь. Значение смотрю на табло

Добавлено: 24 ноя 2015, 13:47


Оно зависает на этом месте кода

ИмяКолонки=Excel.Cells(1,Счетчик).Text;


ИмяКолонки=СокрЛП(Excel.Cells(1,Счетчик).Value);


исправила. Теперь другая ошибка: Ошибка при вызове метода контекста (Cells)
      Пока ЗначениеЗаполнено(Excel.Cells(1,Счетчик).Value)Цикл
по причине:
Произошла исключительная ситуация (0x800a03ec)


  • Форум 1С

  • Форум 1С — ПРЕДПРИЯТИЕ 8.0 8.1 8.2 8.3 8.4

  • Конфигурирование, программирование в 1С Предприятие 8

  • загрузка данных из excel в 8.2

Похожие темы (5)

Рейтинг@Mail.ru

Rambler's Top100

Поиск

Like this post? Please share to your friends:
  • Ошибка при выделении памяти excel
  • Ошибка при выгрузке в excel
  • Ошибка при вставке текста word
  • Ошибка при вставке строки в excel
  • Ошибка при вводе формулы в excel