Версия для печати темы (https://pro1c.org.ua/index.php?s=c803db35c6de0bb7f1701528bca93548&showtopic=30969)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Ошибка Поле объекта не обнаружено

Автор: MOTOPARTNER 21.07.16, 22:48

{Обработка.РМ.Форма.ФормаРМ.Форма(2523)}: Поле объекта не обнаружено (НоваяПочта)
    Если (ДанныеСтроки.СпособДоставки = Справочники.КлассификаторСпособовДоставки.НоваяПочта


Вот код в конфигурации что не так? и что доделать нужно?

Процедура РегистрПосылокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
    
    Если НЕ ЗначениеЗаполнено(ДанныеСтроки.Мест) Тогда
        ОформлениеСтроки.Ячейки.Мест.ЦветФона = WEBЦвета.Розовый;
    КонецЕсли;
    
    Если (ДанныеСтроки.СпособДоставки = Справочники.КлассификаторСпособовДоставки.НоваяПочта
           ИЛИ ДанныеСтроки.СпособДоставки = Справочники.КлассификаторСпособовДоставки.Автолюкс) И НЕ ЗначениеЗаполнено(ДанныеСтроки.Вес) Тогда
        ОформлениеСтроки.Ячейки.Вес.ЦветФона = WEBЦвета.Розовый;
    КонецЕсли;
    
    Попытка
        Если НЕ ЗначениеЗаполнено(ДанныеСтроки.Контроль) Тогда
            ОформлениеСтроки.Ячейки.Контроль.ЦветФона = WEBЦвета.Розовый;        
        КонецЕсли;
    Исключение
    КонецПопытки;    
    
    Если ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Ожидание Тогда      //Нельзя отправлять
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.УтвердитьНеПолностью;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Разрешено Тогда //Можно отправлять
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.Утвердить;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Пауза Тогда //Pause    
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.Отклонить;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Отменено Тогда
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.offline;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Отправлено Тогда //Отправили     
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.Logistic;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Доставлено Тогда //Доставлено     
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.online;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    ИначеЕсли ДанныеСтроки.Отгрузка = Перечисления.WMS_СтатусыПосылок.Консолидация Тогда //Консолидация     
        ОформлениеСтроки.Ячейки.Отгрузка.Картинка = БиблиотекаКартинок.ВходящееСобытие;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьКартинку = Истина;
        ОформлениеСтроки.Ячейки.Отгрузка.Выравнивание = ГоризонтальноеПоложение.Центр;
        ОформлениеСтроки.Ячейки.Отгрузка.ОтображатьТекст = Ложь;
    КонецЕсли;
    
КонецПроцедуры


 ! 

http://pro1c.org.ua/index.php?act=announce&id=2: 3,4
 

Автор: logist 21.07.16, 23:05

В справочнике КлассификаторСпособовДоставки нет предопределенного элемента НоваяПочта

Автор: MOTOPARTNER 22.07.16, 0:00

logist @ Сегодня, 0:05 *,
Как его создать? подскажите пожалуйста

С первым Вопрос решился теперь вторая ошибка и последняя )

{Обработка.РМ.Форма.ФормаРМ.Форма(2435)}: Поле объекта не обнаружено (Посылка)
    ДанныеПосылки = РегистрыСведений.WMS_Посылки.ПолучитьДанныеПоПосылке(ВыбраннаяСтрока.Посылка);


Вот код в конфигурации что не так?

Процедура РегистрПосылокВыбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    ДанныеПосылки = РегистрыСведений.WMS_Посылки.ПолучитьДанныеПоПосылке(ВыбраннаяСтрока.Посылка);
    
    Если Колонка.Имя = "Мест" Тогда
        Мест = ДанныеПосылки.Мест;
        Если не ВвестиЗначение(Мест,"Корректировка мест") Тогда
            Возврат;
        Иначе
            РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,Мест);
        КонецЕсли;
    ИначеЕсли Колонка.Имя = "Вес" Тогда
        Вес = ДанныеПосылки.Вес;
        Если не ВвестиЗначение(Вес,"Корректировка веса") Тогда
            Возврат;
        Иначе
            РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,Вес);
        КонецЕсли;
    ИначеЕсли Колонка.Имя = "СпособДоставки" и (РольДоступна("ПолныеПрава") или РольДоступна("NEW_Старший_Бухгалтер")) Тогда
        ФормаВыбора = Справочники.WMS_СпособДоставкиОплатыКонтрагента.ПолучитьФормуВыбора();
        Если ТипЗнч(ВыбраннаяСтрока.Посылка) = Тип ("ДокументСсылка.РеализацияТоваровУслуг") Тогда
            ФормаВыбора.Отбор.Владелец.Значение = ВыбраннаяСтрока.Посылка.Контрагент;
            ФормаВыбора.Отбор.Владелец.Использование = Истина;
        Иначе
            ФормаВыбора.Отбор.АдресОтправителя.Значение = ВыбраннаяСтрока.Посылка.ДокументПередачи.СкладОтправитель;
            ФормаВыбора.Отбор.АдресОтправителя.Использование = Истина;
            
            ФормаВыбора.Отбор.АдресПолучателя.Значение = ВыбраннаяСтрока.Посылка.ДокументПередачи.СкладПолучатель;
            ФормаВыбора.Отбор.АдресПолучателя.Использование = Истина;
        КонецЕсли;
            
        ФормаВыбора.Заголовок = "Корректировка способа доставки";
        НовыйСпособДоставкиКонтрагента = ФормаВыбора.ОткрытьМодально();
        Если Не ЗначениеЗаполнено(НовыйСпособДоставкиКонтрагента) Тогда
            Возврат;
        КонецЕсли;
        РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,НовыйСпособДоставкиКонтрагента);
        Сообщить("ВАЖНО: Свяжитесь со складом и уведомите чтобы переклеили стикеры!", СтатусСообщения.Важное);
    ИначеЕсли Колонка.Имя = "МестоХранения" Тогда
        ФормаМеста = Справочники.МестаХранения.ПолучитьФорму("ФормаВводаМестаХранения");
        Результат = ФормаМеста.ОткрытьМодально();
        Если Результат <> Неопределено Тогда
            НовоеМестоХранения = Справочники.МестаХранения.НайтиПоНаименованию(ФормаМеста.МестоХранения,Истина,,ццц);
            ФормаМеста = "";
            Если НовоеМестоХранения = Справочники.МестаХранения.ПустаяСсылка() Тогда
                Предупреждение ("Выбранное место хранения еще не созданно!");
                Возврат;
            Иначе
                РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,НовоеМестоХранения);
            КонецЕсли;
        КонецЕсли;    
    ИначеЕсли Колонка.Имя = "ТТН" Тогда
        ТТН = ДанныеПосылки.ТТН;
        Если не ВвестиЗначение(ТТН,"Корректировка ТТН") Тогда
            Возврат;
        Иначе
            РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,ТТН);
        КонецЕсли;
    ИначеЕсли Колонка.Имя = "ЗаметкаДляСкладов" Тогда
        ЗаметкаДляСкладов = ДанныеПосылки.ЗаметкаДляСкладов;
        Если не ВвестиЗначение(ЗаметкаДляСкладов,"Заметка для складов") Тогда
            Возврат;
        Иначе
            РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,,,,,,,ЗаметкаДляСкладов);
        КонецЕсли;
    ИначеЕсли Колонка.Имя = "Локация" Тогда     
        ФормаВыбораСклада = Справочники.Склады.ПолучитьФормуВыбора();
        ВыбранныйСклад = ФормаВыбораСклада.ОткрытьМодально();
        Если ВыбранныйСклад = НЕОПРЕДЕЛЕНО Тогда
            Возврат;
        КонецЕсли;
        ФормаВыбораСклада = "";
        РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,,,,ВыбранныйСклад,,,);
    Иначе
        Возврат;
    КонецЕсли;
    
    КоманднаяПанельРегистрПосылокОбновить();
    РегистрПосылок.Обновить();
    
    ЭлементыФормы.РегистрПосылок.ТекущаяСтрока = ВыбраннаяСтрока;
    
КонецПроцедуры

Автор: Petre 22.07.16, 8:38

MOTOPARTNER @ Сегодня, 1:00 *,
В таблице нет поля "Посылка".

Автор: logist 22.07.16, 10:02

Цитата(Petre @ 22.07.16, 9:38) *
Как его создать? подскажите пожалуйста

Позовите специалиста посмотреть, а то похоже может быть куча косяков, что бы посмотреть на всё в комплексе, а то в итоге будет тысяча ошибок, потому что кто-то что-то коряво пытается впилить.

Автор: MOTOPARTNER 22.07.16, 23:02

Petre @ Сегодня, 9:38 *,
Как нет если есть)
Объясни или напишите как сделать
Колонка посылки есть

Автор: logist 24.07.16, 16:30

"ВыбраннаяСтрока" - это что? В ней нет нужного поля, об этом говорит ошибка.

Автор: anyta2911 18.03.18, 21:38

ПОМОГИТЕ ПОЖАЛУСТА
В ДОКУМЕНТЕ НАЧИСЛЕНИЕ ПО ПАЯХ КОГДА НАЖАТЬ РАСЧИТАТЬ НДФЛ ВЫКИДЫВАЕТ ОШИБКУ
{ОбщийМодуль.ИНАГРО_ПроцедурыИФункции.Модуль(680)}: Метод об`єкту не виявлено (РассчитатьНДФЛДляТаблицы)

что делать

Автор: Vofka 19.03.18, 9:16

anyta2911, как минимум создать новую тему, в которой нормально описать проблему. Правила, пункт 6.

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua