Цитата:
Сообщение от Семен Фишман
при импорте клиентов из экселя их статус определился как все. как их статус поменять на прочие?
Количество более 1000
|
Вот такая типовуха есть, в контекстное меню можно закинуть. На предыдущее значение вида контрагента "не смотрит".
Код:
ОПЕРАЦИЯ Контрагенты: Назначить вид контрагентов списком
<---------------------------->
Выберите необходимые виды:
$выбор_гр["1"]("Покупатель")
$выбор_гр["2"]("Поставщик")
$выбор_гр["3"]("Прочая организация")
<---------------------------->
ВЫЧИСЛИТЬ
ЕСЛИ ИЗ_ЖУРНАЛА(с_клиенты) <> 1 ТО
СТОП_ВСЕ
КОНЕЦ_ЕСЛИ
ВВЕСТИ
ИСПОЛЬЗОВАТЬ("c_clients")
выбранные_клиенты[""] = ПУСТО
ЦИКЛ ИЗ_ЖУРНАЛА с_клиенты с
выбранные_клиенты!с.код = с.код
КОНЕЦ_ЦИКЛА
СТАТУС("Удаление прежних настроек клиентов")
ЦИКЛ ДЛЯ (инд ИЗ выбранные_клиенты)
с_клиенты_в_группе.ОЧИСТИТЬ!(код_клиента = выбранные_клиенты!инд)
КОНЕЦ_ЦИКЛА
ЦИКЛ ДЛЯ (инд ИЗ выбранные_клиенты)
СТАТУС("Назначение видов клиентов")
ЕСЛИ выбор_гр!"1" = ДА ТО
с_клиенты_в_группе.вид_клиента = клПокуп
с_клиенты_в_группе.код_клиента = выбранные_клиенты!инд
с_клиенты_в_группе.ДОБАВИТЬ(НЕТ)
КОНЕЦ_ЕСЛИ
ЕСЛИ выбор_гр!"2" = ДА ТО
с_клиенты_в_группе.вид_клиента = клПост
с_клиенты_в_группе.код_клиента = выбранные_клиенты!инд
с_клиенты_в_группе.ДОБАВИТЬ(НЕТ)
КОНЕЦ_ЕСЛИ
ЕСЛИ выбор_гр!"3" = ДА ТО
с_клиенты_в_группе.вид_клиента = клПрочий
с_клиенты_в_группе.код_клиента = выбранные_клиенты!инд
с_клиенты_в_группе.ДОБАВИТЬ(НЕТ)
КОНЕЦ_ЕСЛИ
ПОДТВЕРДИТЬ
с.ОбновитьВид
КОНЕЦ_ЦИКЛА
с_клиенты.ОБНОВИТЬ
КОНЕЦ