{Обработка.РМ.Форма.ФормаРМ.Форма(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 @ Сегодня, 0:05 ,
Как его создать? подскажите пожалуйста
С первым Вопрос решился теперь вторая ошибка и последняя )
{Обработка.РМ.Форма.ФормаРМ.Форма(2435)}: Поле объекта не обнаружено (Посылка)
ДанныеПосылки = РегистрыСведений.WMS_Посылки.ПолучитьДанныеПоПосылке(ВыбраннаяСтрока.Посылка);
Процедура РегистрПосылокВыбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДанныеПосылки = РегистрыСведений.WMS_Посылки.ПолучитьДанныеПоПосылке(ВыбраннаяСтрока.Посылка);
Если Колонка.Имя = "Мест" Тогда
Мест = ДанныеПосылки.Мест;
Если не ВвестиЗначение(Мест,"Корректировка мест") Тогда
Возврат;
Иначе
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,Мест);
КонецЕсли;
ИначеЕсли Колонка.Имя = "Вес" Тогда
Вес = ДанныеПосылки.Вес;
Если не ВвестиЗначение(Вес,"Корректировка веса") Тогда
Возврат;
Иначе
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,Вес);
КонецЕсли;
ИначеЕсли Колонка.Имя = "СпособДоставки" и (РольДоступна("ПолныеПрава") или РольДоступна("NEW_Старший_Бухгалтер")) Тогда
ФормаВыбора = Справочники.WMS_СпособДоставкиОплатыКонтрагента.ПолучитьФормуВыбора();
Если ТипЗнч(ВыбраннаяСтрока.Посылка) = Тип ("ДокументСсылка.РеализацияТоваровУслуг") Тогда
ФормаВыбора.Отбор.Владелец.Значение = ВыбраннаяСтрока.Посылка.Контрагент;
ФормаВыбора.Отбор.Владелец.Использование = Истина;
Иначе
ФормаВыбора.Отбор.АдресОтправителя.Значение = ВыбраннаяСтрока.Посылка.ДокументПередачи.СкладОтправитель;
ФормаВыбора.Отбор.АдресОтправителя.Использование = Истина;
ФормаВыбора.Отбор.АдресПолучателя.Значение = ВыбраннаяСтрока.Посылка.ДокументПередачи.СкладПолучатель;
ФормаВыбора.Отбор.АдресПолучателя.Использование = Истина;
КонецЕсли;
ФормаВыбора.Заголовок = "Корректировка способа доставки";
НовыйСпособДоставкиКонтрагента = ФормаВыбора.ОткрытьМодально();
Если Не ЗначениеЗаполнено(НовыйСпособДоставкиКонтрагента) Тогда
Возврат;
КонецЕсли;
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,НовыйСпособДоставкиКонтрагента);
Сообщить("ВАЖНО: Свяжитесь со складом и уведомите чтобы переклеили стикеры!", СтатусСообщения.Важное);
ИначеЕсли Колонка.Имя = "МестоХранения" Тогда
ФормаМеста = Справочники.МестаХранения.ПолучитьФорму("ФормаВводаМестаХранения");
Результат = ФормаМеста.ОткрытьМодально();
Если Результат <> Неопределено Тогда
НовоеМестоХранения = Справочники.МестаХранения.НайтиПоНаименованию(ФормаМеста.МестоХранения,Истина,,ццц);
ФормаМеста = "";
Если НовоеМестоХранения = Справочники.МестаХранения.ПустаяСсылка() Тогда
Предупреждение ("Выбранное место хранения еще не созданно!");
Возврат;
Иначе
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,НовоеМестоХранения);
КонецЕсли;
КонецЕсли;
ИначеЕсли Колонка.Имя = "ТТН" Тогда
ТТН = ДанныеПосылки.ТТН;
Если не ВвестиЗначение(ТТН,"Корректировка ТТН") Тогда
Возврат;
Иначе
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,ТТН);
КонецЕсли;
ИначеЕсли Колонка.Имя = "ЗаметкаДляСкладов" Тогда
ЗаметкаДляСкладов = ДанныеПосылки.ЗаметкаДляСкладов;
Если не ВвестиЗначение(ЗаметкаДляСкладов,"Заметка для складов") Тогда
Возврат;
Иначе
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,,,,,,,ЗаметкаДляСкладов);
КонецЕсли;
ИначеЕсли Колонка.Имя = "Локация" Тогда
ФормаВыбораСклада = Справочники.Склады.ПолучитьФормуВыбора();
ВыбранныйСклад = ФормаВыбораСклада.ОткрытьМодально();
Если ВыбранныйСклад = НЕОПРЕДЕЛЕНО Тогда
Возврат;
КонецЕсли;
ФормаВыбораСклада = "";
РегистрыСведений.WMS_Посылки.ОбновитьХарактеристикиПосылки(ВыбраннаяСтрока.Посылка,,,,,,,,ВыбранныйСклад,,,);
Иначе
Возврат;
КонецЕсли;
КоманднаяПанельРегистрПосылокОбновить();
РегистрПосылок.Обновить();
ЭлементыФормы.РегистрПосылок.ТекущаяСтрока = ВыбраннаяСтрока;
КонецПроцедуры
Petre @ Сегодня, 9:38 ,
Как нет если есть)
Объясни или напишите как сделать
Колонка посылки есть
"ВыбраннаяСтрока" - это что? В ней нет нужного поля, об этом говорит ошибка.
ПОМОГИТЕ ПОЖАЛУСТА
В ДОКУМЕНТЕ НАЧИСЛЕНИЕ ПО ПАЯХ КОГДА НАЖАТЬ РАСЧИТАТЬ НДФЛ ВЫКИДЫВАЕТ ОШИБКУ
{ОбщийМодуль.ИНАГРО_ПроцедурыИФункции.Модуль(680)}: Метод об`єкту не виявлено (РассчитатьНДФЛДляТаблицы)
что делать
anyta2911, как минимум создать новую тему, в которой нормально описать проблему. Правила, пункт 6.
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua