powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / найти всё где фигурирует контрагент.
6 сообщений из 6, страница 1 из 1
найти всё где фигурирует контрагент.
    #39053902
andron81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
добрый день всем.

Собственно вопрос в теме.
Есть контрагент .
то есть как мне найти документы , справочники где фигурирует данный контрагент (шапка , табличная часть) А исходя из полученной информации будем думать дальше, что с ним делать дальше.
...
Рейтинг: 0 / 0
найти всё где фигурирует контрагент.
    #39053914
andron81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
andron81,

УПП 8.2
...
Рейтинг: 0 / 0
найти всё где фигурирует контрагент.
    #39053940
javapecker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
andron81,
НайтиПоСсылкам
...
Рейтинг: 0 / 0
найти всё где фигурирует контрагент.
    #39053954
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
шапки
Если ЕстьТабЧастьДокумента(_ИмяТЧ, МетаданныеДокумента) Тогда //проверяем есть нет такая ТЧ в доке

табличные части

Для каждого _Стр Из _ТЗПоТЧ Цикл

_НовСтрока = _ТЧ.Добавить();
Для каждого _Реквизит Из МетаданныеДокумента.ТабличныеЧасти[_ИмяТЧ].Реквизиты Цикл

_НовСтрока[_Реквизит.Имя] = _Стр[_Реквизит.Имя];

КонецЦикла;

КонецЦикла;


Функция ЕстьТабЧастьДокумента(ИмяТабЧасти, МетаданныеДокумента) Экспорт

Если МетаданныеДокумента.ТабличныеЧасти.Найти(ИмяТабЧасти) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;

КонецФункции // ЕстьТабЧастьДокумента()
...
Рейтинг: 0 / 0
найти всё где фигурирует контрагент.
    #39053963
andron81
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zerroшапки
Если ЕстьТабЧастьДокумента(_ИмяТЧ, МетаданныеДокумента) Тогда //проверяем есть нет такая ТЧ в доке

табличные части

Для каждого _Стр Из _ТЗПоТЧ Цикл

_НовСтрока = _ТЧ.Добавить();
Для каждого _Реквизит Из МетаданныеДокумента.ТабличныеЧасти[_ИмяТЧ].Реквизиты Цикл

_НовСтрока[_Реквизит.Имя] = _Стр[_Реквизит.Имя];

КонецЦикла;

КонецЦикла;


Функция ЕстьТабЧастьДокумента(ИмяТабЧасти, МетаданныеДокумента) Экспорт

Если МетаданныеДокумента.ТабличныеЧасти.Найти(ИмяТабЧасти) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;

КонецФункции // ЕстьТабЧастьДокумента()

а почему не проще как у javapecker ?
...
Рейтинг: 0 / 0
найти всё где фигурирует контрагент.
    #39053972
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
andron81Zerroшапки
Если ЕстьТабЧастьДокумента(_ИмяТЧ, МетаданныеДокумента) Тогда //проверяем есть нет такая ТЧ в доке

табличные части

Для каждого _Стр Из _ТЗПоТЧ Цикл

_НовСтрока = _ТЧ.Добавить();
Для каждого _Реквизит Из МетаданныеДокумента.ТабличныеЧасти[_ИмяТЧ].Реквизиты Цикл

_НовСтрока[_Реквизит.Имя] = _Стр[_Реквизит.Имя];

КонецЦикла;

КонецЦикла;


Функция ЕстьТабЧастьДокумента(ИмяТабЧасти, МетаданныеДокумента) Экспорт

Если МетаданныеДокумента.ТабличныеЧасти.Найти(ИмяТабЧасти) = Неопределено Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;

КонецФункции // ЕстьТабЧастьДокумента()

а почему не проще как у javapecker ?
не знаю..не мой код. переписывал немного вот и вспомнил.
1с ещё делает так вроде - запрос ко всем полям - и проверка есть или нет..не помню точно
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / найти всё где фигурирует контрагент.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]