ToppeaDop
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
День добрый.
Платформа 7.7
Есть самописная обработка, переносящая накладные из бухгалтерии в торговлю.
Она вываливает документы в .dbf файл, в который пишутся, в частности - код контрагента в бухгалтерии и его наименование оттуда же.
В торговле заведен справочник соответствий контрагентов Бух и Торг (в торге контрагентов больше  ).
Обработка загрузки парсит файл, и если по каждому контрагенту делает следующее:
Код:
Функция НайтиКонтраг(КодПоиска, ИмяПоиска)
спр = СоздатьОбъект("Справочник.СопостКонтраг");
Если (Спр.НайтиПоРеквизиту("КодВБух",КодПоиска,1)=0) тогда
Сообщить("Не найден соответствуюший контрагент в Торговле для кода "+КодПоиска+" ("+ИмяПоиска+")");
кодВТорг = СоздатьОбъект("Справочник.Контрагенты");
кодВТорг.ВыборГруппы(0);
Зн = КодвТорг.Выбрать("Введите контрагента "+ИмяПоиска, "");
Если Зн = 0 Тогда
Сообщить("Контрагент-то не введен!");
возврат 0;
Иначе
спр.новый();
спр.Наименование = ИмяПоиска;
Спр.КодВБух = Кодпоиска;
Сообщить(КодВТорг.Наименование + " истинный код в торговле "+Строка(КодвТорг.Код));
Спр.КодВТорг = КодВТорг.ТекущийЭлемент();
спр.Записать();
КонецЕсли;
КонецЕсли;
Если (Спр.НайтиПоРеквизиту("КодВБух",КодПоиска,1)=1) тогда
//Сообщить("Контрагент найден");
Спр.ВыбратьЭлементыПоРеквизиту("КодВБух", КодПоиска,0,0);
Сообщить("Нашел контрагента "+ИмяПоиска);
возврат Спр.ТекущийЭлемент();
Иначе Возврат 0;
конецЕсли;
КонецФункции
|
Эта фигня открывает мне справочник контрагентов, в случаях, когда сопоставление не найдено. Но открывает только для выбора (кнопок "новый", "копировать", "редактировать" нет), что неудобно. А когда в документах реквизиты заполняешь - можно ведь и нового ввести.
Как это обеспечить - выбор с возможностью ввода нового элемента справочника? |
Всего записей: 466 | Зарегистр. 24-08-2003 | Отправлено: 13:50 30-08-2007 | Исправлено: ToppeaDop, 15:18 30-08-2007 |
|
