Добрый день как убрать пробелы между цифрами при заполнении значений
Вот строка кода
Строка.НомерМаршрута = Формат(Лист.Cells(ПоСтрокам,20).Value,"ЧГ=");
Если в администрировании в региональных настройках в группировка поставить 0 то пробелы исчезают, но клиент не хочет так как боится сбить настройки. Поле в форме куда загружается строка имеет строковый тип

Строка.НомерМаршрута = Лист.Cells(ПоСтрокам,20).Text;

пробелы все равно остались между цифрами получается так 1 002 004

пардон был не прав все получилось, в обработке в реквизите номер маршрута стоял тип число вместо строка

ЧГ=0 - единственный вариант для форматной строки.
а СтрЗаменить(Лист.Cells(ПоСтрокам,20).Text, " ", "") не помогает?

Получилось вот так
Строка.НомерМаршрута = Лист.Cells(ПоСтрокам,20).Text;
спасибо (1)

346467567567563 жертва неразрывного пробела...

еще вопрос по теме при загрузке данных в пустой справочник идет дублирование наименований по коду Спр.Наименование = Строка.ShopName; в контрагентах создаются 2 наименования но с разными кодами,хотя в тестовой базе такого не было

(7) на то она и тестовая

рабочая база тоже пустая и не содержит никаких контрагентов

просто интересно как такое возможно, клиент начал делать мозги

(7) для начала необходимо искать контрагентов по наименованию, а потом создавать новых

+ у вас в третьей строке кода ошибка

(12) какая ошибка у меня только Спр.Наименование = Строка.ShopName,
я сейчас сделал так
//////////////////////////////////////////////////
Спр = Справочники.Контрагенты.СоздатьЭлемент();
    
    Если Справочники.Контрагенты.НайтиПоНаименованию(Строка.ShopName).Пустая() тогда
    Спр.Наименование = Строка.ShopName;
    Спр.НаименованиеПолное=Строка.ShopName;
    Спр.Покупатель = Истина;
    Спр.ИНН =Строка.НомерМаршрута;
    Спр.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
    Спр.Подразделение=Справочники.Подразделения.НайтиПоНаименованию(Строка.Filial, Истина);
    Спр.Родитель =Группа.Ссылка;
    Спр.Комментарий = Строка.ContactPerson + ";";
     Иначе Сообщить("Найден элемент справочника с указанным наименованием!");
    КонецЕсли;
///////////////////////////////////////////////////////

может наименование обрезается?

код УГ.

код - мега УГ.
зачем создавать, а потом искать?

если я должен вынести в начало кода, а потом создать элемент так?

алгоритм:

Ищем по наименованию.
   если не находим - создаем новый
   если находим - ничего не делаем, либо получаем объект и изменяем

я немного подправил код
///////////////////////////////////
Если Справочники.Контрагенты.НайтиПоНаименованию(Строка.ShopName).Пустая() тогда

    Спр = Справочники.Контрагенты.СоздатьЭлемент();
    //Спр.Код=Строка.Код;
        Спр.Наименование = Строка.ShopName;
    Спр.НаименованиеПолное=Строка.ShopName;
    Спр.Покупатель = Истина;
    Спр.ИНН =Строка.НомерМаршрута;
    Спр.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
    Спр.Подразделение=Справочники.Подразделения.НайтиПоНаименованию(Строка.Filial, Истина);
    Спр.Родитель =Группа.Ссылка;
    Спр.Комментарий = Строка.ContactPerson + ";";
     Иначе Сообщить("Найден элемент справочника с указанным наименованием!");
    КонецЕсли;
///////////////////////////////////////////////////

не используйте в качестве имени переменной "строка"
это зарезервированное слово, лучше вместо него использовать, например, "СтрокаФайла"
И обрезайте пробелы в строковых реквизитах:

Спр.Наименование = СокрЛП(СтрокаФайла.ShopName);

(20) "не используйте в качестве имени переменной "строка"
это зарезервированное слово"

это миф (для 8.х)

(0)стрзаменить(Лист.Cells(ПоСтрокам,20).Value, символы.нпп,"")

(21) это не миф, а правила хорошего кода.

(22) это вместо Строка.НомерМаршрута = Формат(Лист.Cells(ПоСтрокам,20).Value,"ЧГ=");

+оно к ошибке может и не приведет, но лучше этим не злоупотреБЛЯТЬ и называть переменные соответственно их предназначениям

(24) вместо

(26) понятно, интересно пока не убирал пробелы между цифрами все садилось нормально без дублей, сейчас ни ИНН не заполняется и наименования дублируются

насчет ИНН разобрался в форме были поставлены 0000 у реквизита,теперь основной менеджер покупателя вставляется 2 менеджера

можно как-то избавиться от двойной записи наименований в справочник?

Строка.ShopName = СокрЛП(Лист.Cells(ПоСтрокам,21).Value);
дает 2 записи одного наименования

добрый день извините что снова обращаюсь к вчерашней теме, не могли бы подсказать по коду должны заполниться контрагенты находящиеся в разных группах. У меня сейчас если закомментировать код относящийся к другой группе не происходит дублирование элементов вот код
//////////////////////////////////////////////////////
КодГруппы = "000001169";
ПоискПоПолномуКоду = Ложь; // значение по умолчанию
Группа = Справочники.Контрагенты.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду);

Если Группа.Пустая() Тогда
    Группа = Справочники.Контрагенты.СоздатьГруппу();
    Группа.Код = КодГруппы;
    Группа.Наименование = Справочники.Контрагенты.НайтиПоНаименованию("2-Bakmil Filial?");
    Группа.ЭтоГруппа = Истина;
    Группа.Записать();
ИначеЕсли Не Группа.ЭтоГруппа Тогда
    Сообщить("Найден элемент справочника с указанным кодом!");
    
    // Предусмотреть прерывание алгоритма.
КонецЕсли;


Для Каждого Строка Из Таб Цикл
    ПоСтрокам = ПоСтрокам + 1;
    Если  Не Строка.Пометка Тогда
        Продолжить;
    КонецЕсли;
    

    //Если Справочники.Контрагенты.НайтиПоНаименованию(Строка.ShopName).Пустая() тогда

    Спр = Справочники.Контрагенты.СоздатьЭлемент();
    Спр.Наименование = Строка.ShopName;    
    Спр.НаименованиеПолное=Строка.ShopName;
    Спр.Покупатель = Истина;
    Спр.ИНН =Строка.НомерМаршрута;
    Спр.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
    Спр.Подразделение=Справочники.Подразделения.НайтиПоНаименованию(Строка.Filial, Истина);
    Спр.Родитель =Группа.Ссылка;
    Спр.Комментарий = Строка.ContactPerson + ";";
    // Иначе Сообщить("Найден элемент справочника с указанным наименованием!");
    //КонецЕсли;

    
    НазначатьМенеджера = Ложь;

    ФЛ = Справочники.ФизическиеЛица.НайтиПоНаименованию(Строка.Salesman, Истина);

    Если ФЛ = Неопределено Тогда

       Сообщить("Не задано имя менеджера!");
    ИначеЕсли ФЛ.Пустая() Тогда
       Сообщить("Не найден менеджер «" + Строка.Salesman + "»");
    Иначе
           НазначатьМенеджера = Истина;
    КонецЕсли;

    Если НазначатьМенеджера Тогда
           ПЛ = Справочники.Пользователи.НайтиПоРеквизиту("ФизЛицо", ФЛ);
        НазначатьМенеджера = НЕ ПЛ.Пустая();
    КонецЕсли;

    Если НазначатьМенеджера Тогда

           НовМенеджер = Спр.МенеджерыПокупателя.Добавить();
           НовМенеджер.МенеджерПокупателя = ПЛ;

           Спр.ОсновнойМенеджерПокупателя = ПЛ;
    КонецЕсли;
    Спр.Записать();
      

    Договор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
    Договор.ТипЦен =Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Standart Qiym?t");
    Договор.Владелец =Спр.Ссылка;
    Договор.Организация = Справочники.Организации.НайтиПоНаименованию("Crocus");
    Договор.Наименование = "?sas M?qavil?";
    Договор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
    Договор.ВидУсловийДоговора = Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;
    Договор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
    Договор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду(944);
    Договор.КонтролироватьСуммуЗадолженности = Истина;
    Договор.КонтролироватьЧислоДнейЗадолженности = Истина;
    Договор.ВестиПоДокументамРасчетовСКонтрагентом = Истина;
    Договор.ДопустимаяСуммаЗадолженности = 0;
    Договор.ДопустимоеЧислоДнейЗадолженности = 0;
    Договор.Дата = ТекущаяДата();
    Договор.Записать();
    
    
        
    РегистрАдрес = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
    РегистрАдрес.Объект = Спр.Ссылка;
    РегистрАдрес.Представление = Строка.Address;
    РегистрАдрес.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;
    РегистрАдрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
    РегистрАдрес.Записать();
    
    РегистрТелефон = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
    РегистрТелефон.Объект = Спр.Ссылка;
    РегистрТелефон.Поле3 = Строка.Mob;
    
    РегистрТелефон.Представление =Строка.Mob;
    РегистрТелефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
    РегистрТелефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
    РегистрТелефон.Записать();
    

    Спр.ОсновнойДоговорКонтрагента = Договор.Ссылка;
  
КонецЦикла;

//КодГруппы = "000001171";
//ПоискПоПолномуКоду = Ложь; // значение по умолчанию
//Группа = Справочники.Контрагенты.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду);
//
//Если Группа.Пустая() Тогда
//    Группа = Справочники.Контрагенты.СоздатьГруппу();
//    Группа.Код = КодГруппы;
//    Группа.Наименование = Справочники.Контрагенты.НайтиПоНаименованию("1-D?rn?g?l Filial?");
//    Группа.ЭтоГруппа = Истина;
//    Группа.Записать();
//ИначеЕсли Не Группа.ЭтоГруппа Тогда
//    Сообщить("Найден элемент справочника с указанным кодом!");
//    
//    // Предусмотреть прерывание алгоритма.
//КонецЕсли;

//Для Каждого Строка Из Таб Цикл
//    ПоСтрокам = ПоСтрокам + 1;
//    Если  Не Строка.Пометка Тогда
//        Продолжить;
//    КонецЕсли;
//    

//    //Если Справочники.Контрагенты.НайтиПоНаименованию(Строка.ShopName).Пустая() тогда

//    Спр = Справочники.Контрагенты.СоздатьЭлемент();
//    //Спр.Код=Строка.Код;
//    Спр.Наименование = Строка.ShopName;
//    Спр.НаименованиеПолное=Строка.ShopName;
//    Спр.Покупатель = Истина;
//    Спр.ИНН =Строка.НомерМаршрута;
//    Спр.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
//    Спр.Подразделение=Справочники.Подразделения.НайтиПоНаименованию(Строка.Filial, Истина);
//    Спр.Родитель =Группа.Ссылка;
//    Спр.Комментарий = Строка.ContactPerson + ";";
//    // Иначе Сообщить("Найден элемент справочника с указанным наименованием!");
//    //КонецЕсли;

//    НазначатьМенеджера = Ложь;

//    ФЛ = Справочники.ФизическиеЛица.НайтиПоНаименованию(Строка.Salesman, Истина);

//    Если ФЛ = Неопределено Тогда

//       Сообщить("Не задано имя менеджера!");
//    ИначеЕсли ФЛ.Пустая() Тогда
//       Сообщить("Не найден менеджер «" + Строка.Salesman + "»");
//    Иначе
//           НазначатьМенеджера = Истина;
//    КонецЕсли;

//    Если НазначатьМенеджера Тогда
//           ПЛ = Справочники.Пользователи.НайтиПоРеквизиту("ФизЛицо", ФЛ);
//        НазначатьМенеджера = НЕ ПЛ.Пустая();
//    КонецЕсли;

//    Если НазначатьМенеджера Тогда

//           НовМенеджер = Спр.МенеджерыПокупателя.Добавить();
//           НовМенеджер.МенеджерПокупателя = ПЛ;

//           Спр.ОсновнойМенеджерПокупателя = ПЛ;
//    КонецЕсли;
//    Спр.Записать();
//      

//    Договор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
//    Договор.ТипЦен =Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Standart Qiym?t");
//    Договор.Владелец =Спр.Ссылка;
//    Договор.Организация = Справочники.Организации.НайтиПоНаименованию("Crocus");
//    Договор.Наименование = "?sas M?qavil?";
//    Договор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
//    Договор.ВидУсловийДоговора = Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;
//    Договор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
//    Договор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду(944);
//    Договор.КонтролироватьСуммуЗадолженности = Истина;
//    Договор.КонтролироватьЧислоДнейЗадолженности = Истина;
//    Договор.ВестиПоДокументамРасчетовСКонтрагентом = Истина;
//    Договор.ДопустимаяСуммаЗадолженности = 0;
//    Договор.ДопустимоеЧислоДнейЗадолженности = 0;
//    Договор.Дата = ТекущаяДата();
//    Договор.Записать();
//    
//    
//        
//    РегистрАдрес = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
//    РегистрАдрес.Объект = Спр.Ссылка;
//    РегистрАдрес.Представление =Строка.Address;
//    РегистрАдрес.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;
//    РегистрАдрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
//    РегистрАдрес.Записать();
//    
//    РегистрТелефон = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
//    РегистрТелефон.Объект = Спр.Ссылка;
//    РегистрТелефон.Поле3 = Строка.Mob;
//    
//    РегистрТелефон.Представление = Строка.Mob;
//    РегистрТелефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
//    РегистрТелефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
//    РегистрТелефон.Записать();
//    

//    Спр.ОсновнойДоговорКонтрагента = Договор.Ссылка;
//  
//КонецЦикла;

///////////////////////////////////////////////////////////
т.е идет повторение кода для заполнения контрагентов в разных группах. Как можно сделать так чтобы остальной код заполняющий договоры, адрес не повторялся дважды?

за что ты нас так неуважаешь, выкладывая простыню закомменченного кода?((


А за
" Группа.Наименование = Справочники.Контрагенты.НайтиПоНаименованию("2-Bakmil Filial?");"

даже помогать не хочу, извини.


_______________

Позовите специалиста, прекратите насилие над базой и над здравым смыслом

(32) не хотел никого обидеть только выложил весь код для полного понимания процесса. Если я комментирую часть кода то контрагенты садятся в нужную группу без дублирования,если раскомментировать эту часть кода то уже начинается дубляж записей. Специалиста звать не получиться

нашел причину дубляжа вот исправленный код
/////////////////////////////////////////////////////
КодГруппы = "000001169";
ПоискПоПолномуКоду = Ложь; // значение по умолчанию
Группа = Справочники.Контрагенты.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду);

Если Группа.Пустая() Тогда
    Группа = Справочники.Контрагенты.СоздатьГруппу();
    Группа.Код = КодГруппы;
    //Группа.Наименование = Справочники.Контрагенты.НайтиПоНаименованию("2-Bakmil Filial?");
    Группа.Наименование = "2-Bakmil Filial?";
    Группа.ЭтоГруппа = Истина;
    Группа.Записать();
ИначеЕсли Не Группа.ЭтоГруппа Тогда
    Сообщить("Найден элемент справочника с указанным кодом!");
    
    // Предусмотреть прерывание алгоритма.
КонецЕсли;


КодГруппы = "000001171";
ПоискПоПолномуКоду = Ложь; // значение по умолчанию
Группа = Справочники.Контрагенты.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду);

Если Группа.Пустая() Тогда
    Группа = Справочники.Контрагенты.СоздатьГруппу();
    Группа.Код = КодГруппы;
    Группа.Наименование = "1-D?rn?g?l Filial?";
    Группа.ЭтоГруппа = Истина;
    Группа.Записать();
ИначеЕсли Не Группа.ЭтоГруппа Тогда
    Сообщить("Найден элемент справочника с указанным кодом!");
    
    // Предусмотреть прерывание алгоритма.
КонецЕсли;

    

    Спр = Справочники.Контрагенты.СоздатьЭлемент();
    //Спр.Код=Строка.Код;
    Спр.Наименование = Строка.ShopName;
    Спр.НаименованиеПолное=Строка.ShopName;
    Спр.Покупатель = Истина;
    Спр.ИНН =Строка.НомерМаршрута;
    Спр.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
    Спр.Подразделение=Справочники.Подразделения.НайтиПоНаименованию(Строка.Filial, Истина);
    Спр.Родитель =Группа.Ссылка;
    Спр.Комментарий = Строка.ContactPerson + ";";

    НазначатьМенеджера = Ложь;

    ФЛ = Справочники.ФизическиеЛица.НайтиПоНаименованию(Строка.Salesman, Истина);

    Если ФЛ = Неопределено Тогда

       Сообщить("Не задано имя менеджера!");
    ИначеЕсли ФЛ.Пустая() Тогда
       Сообщить("Не найден менеджер «" + Строка.Salesman + "»");
    Иначе
           НазначатьМенеджера = Истина;
    КонецЕсли;

    Если НазначатьМенеджера Тогда
           ПЛ = Справочники.Пользователи.НайтиПоРеквизиту("ФизЛицо", ФЛ);
        НазначатьМенеджера = НЕ ПЛ.Пустая();
    КонецЕсли;

    Если НазначатьМенеджера Тогда

           НовМенеджер = Спр.МенеджерыПокупателя.Добавить();
           НовМенеджер.МенеджерПокупателя = ПЛ;

           Спр.ОсновнойМенеджерПокупателя = ПЛ;
    КонецЕсли;
    Спр.Записать();
////////////////////////////////////////////////////////
и так далее по коду.