Добрый день. Вот никак не могу разобраться.
Есть две базы с одинаковыми конфами, между которыми должен быть обмен данными по клиентам с помощью обработок... Выгрузить/Загрузить. Вот с этим Загрузить и проблема. Нормально сделать функцию НайтиПоРеквизиту не выходит хоть тресни. Код обработки
Процедура ВыборФайла()
   Папка = КаталогИБ()+"Текст";
   сФайл = "";
       Если ФС.ВыбратьФайл(1,сФайл,Папка,"Выберите файл DBF (*.dbf)","Файл Базы данных DBF (*.dbf)|*.dbf",,) = 1 Тогда
           ПутьКФайлу = СтрЗаменить(Папка,КаталогИБ(),"")+сФайл;
   КонецЕсли;
КонецПроцедуры


Процедура ДобавлениеСуммыПокупки(Идентификатор, СуммаЧека, Файл)
   Перем НовыйНомерКарты; ///изменяется только при изменении процента скидки в большую сторону
                               
   СпрКли=СоздатьОбъект("Справочник.Клиенты");  
   СпрКли.ИспользоватьДату(ТекущаяДата());
   
   Если СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 0) = 1 Тогда
       
       Если СпрКли.СуммаНакопленийЗагруженная <> СуммаЧека Тогда
           СпрКли.СуммаНакопленийЗагруженная = СуммаЧека;
           НовыйПроцентСкидки=глОпределениеПроцентаСкидки(СпрКли.ОбщаяСумма+СуммаЧека);
       
           Если СпрКли.ПроцентСкидки<>НовыйПроцентСкидки Тогда
               СпрКли.ПроцентСкидки=НовыйПроцентСкидки;
           КонецЕсли;
           СпрКли.Записать();
       КонецЕсли;    
   Иначе
       Сообщить("Клиент с идентификатором " + Идентификатор + " не найден и будет добавлен.");
       СпрКли.Новый();      
       СпрКли.Идентификатор = Идентификатор;
       СпрКли.Код = Файл.NOM;
       СпрКли.Наименование = Файл.NAM;    
       СпрКли.Адрес = Файл.ADR;
       СпрКли.Телефон = Файл.TEL;
       СпрКли.ДатаРождения = Файл.DAT;
       СпрКли.ОбщаяСумма = 0;
       СпрКли.НакопительнаяСумма = Файл.NAK;
       СпрКли.ПроцентСкидки = Файл.PRO;
       СпрКли.ДатаПервойПокупки = Файл.POK;
       СпрКли.НомерКарты = Файл.NOM;
       СпрКли.ТелефонСот = Файл.SOT;
       СпрКли.СуммаНакопленийЗагруженная = СуммаЧека;
       СпрКли.Записать();
   КонецЕсли;

что не работает?

+1 наверное индекса по полю нет?

чтобы искать по реквизиту, таблица должна быть упорядочена по реквизиту - так кажется.

либо идентификатор кривой, например не хватает пробелов

Ну пример, есть клиент с кодом карты 01626. Идентификатор в обоих базах один и тот же. Но, прога пишет что данный клиент не найден и пробует его записать в базу. Но клиент есть, код неуникальный, поэтому стопориться. Данный клиент с таким кодом идет первым в списке. То есть чтобы решить проблему я должен просто упорядочить по коду, или по реквизиту поиска?

(5) см (2) в конфигураторе галка стоять должна напротив реквзита "индексировать"

(5). Признак Сортировка стоит у реквизита Идентификатор? И 3-й параметр в НайтиПоРеквизиту попробуй поставить 1.

Признак Сортировка стоит.

(8) чудес не бывает

Могу выложить Базы и обработки)

За решение проблемы положу деньги на телефон)

(11) а так работает?
Если СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 1) = 1 Тогда

Нет, проверял)

А так не пробовал?

Если СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 0) = 1 Тогда
ТекКл =СпрКли.ТекущийЭлемент();

Тип реквизита "Идентификатор" число?

Как точно должен выглядеть код процедуры?
Если СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 0) = 1 Тогда
ТекКл = СпрКли.ТекущийЭлемент();        
       Если СпрКли.СуммаНакопленийЗагруженная <> СуммаЧека Тогда
           СпрКли.СуммаНакопленийЗагруженная = СуммаЧека;
           НовыйПроцентСкидки=глОпределениеПроцентаСкидки(СпрКли.ОбщаяСумма+СуммаЧека);
?

(10) выложи мд и обработку

Строка.

(16) Если ТекКл.СуммаНакопленийЗагруженная <> СуммаЧека Тогда
и дальше работаешь с ТекКл

попробуй

(19) у него в условие не заходит, см.(5)

(18) а в НайтиПоРеквизиту( для поиска тоже строку подставляешь или число?

http://file.karelia.ru/9dtvzf/

(16) и поиск во всем справочнике
НайтиПоРеквизиту("Идентификатор", Идентификатор, 1)
вместо
НайтиПоРеквизиту("Идентификатор", Идентификатор, 0)

У баз задан префикс. К префиксу плюсуется автонумератор. выходит что-то вроде D1, d2 и т.д. Первый обмен делается с копированием индетификаторов, он проходит нормально, а вот второй, стопориться.

(23) Было. Нифига.

(25) начнем с простого:
   СпрКли=СоздатьОбъект("Справочник.Клиенты");  
   СпрКли.ИспользоватьДату(ТекущаяДата());
   
   Если СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 1) = 1 Тогда
       Сообщить(СпрКли.Идентификатор);
       Сообщить(СпрКли);
   КонецЕсли;

получаем:
D103                
А..... Е..... М.......
все работает

Значит проблема была не в поиске? А какого черта тогда загрузка не работает?

(27) в обработке поставь после
Идентификатор = Файл.ID
Сообщить(ТипЗначения(Идентификатор));
что кажет?

пишет
2
Клиент с идентификатором 0     не найден и будет добавлен.
СпрКли.Записать();
{D:\1С\ЗАГРУЗКА 2.ERT(43)}: Код не уникальный!

(29) файло загрузки выложи

(29) читай документацию...

(31) на какой странице?

(32) как уголовный кодекс...
"Я, например, на свете лучшей книгой
Считаю кодекс уголовный наш.

И если мне неймется и не спится,
Или с похмелья нет на мне лица,
Открою кодекс на любой странице,
И не могу, читаю до конца."©ВСВ

http://file.karelia.ru/t5n58n/
А Можно просто через выгрузку сформировать.

(33) проблема походу не в коде, а в
"Клиент с идентификатором 0"

Это не идентификатор 0. Это его номер карты

(36) а, понятно косяк здесь:
ДобавлениеСуммыПокупки(НомерКарты,СуммаЧека,Файл);
а нужно
ДобавлениеСуммыПокупки(Идентификатор,СуммаЧека,Файл);

(37)+ стр.89

Ищи по Коду, а не по Идентификатору. Тем более, ты там в тексте Код элемента насильно присваиваешь.

(39) по-барабану как искать

(40). Ну ошибка "Код не уникальный" у него не просто так возникла. Два элемента с одинаковым реквизитом Идентификатором могут быть, а вот с одинаковым Кодом - нет (Контроль уникальности у него ведь не отключен).

2
Клиент с идентификатором D1           не найден и будет добавлен.
СпрКли.Записать();
{D:\1С\ЗАГРУЗКА 2.ERT(43)}: Код не уникальный!
)) Не, изменение на Индитификатор с Номера карты ничего не дало.

(42) сделай так
Идентификатор =  Формат(Файл.ID,"С20");

проходит, ну и (37)

(42) >>Клиент с идентификатором D1           не найден и будет добавлен.

Пробелы после D1?

(42) я чупею, тык если у тебя в файло колонка NOM пустая, то чего ты хочешь от СпрКли.Код = Файл.NOM;

(45) а в справочнике элемент с пустым кодом присутствует ид D1517

(42) проблема в том что при выгрузке у ТС есть такая строка
Файл.ДобавитьПоле("ID", "S", 12, 0);

а длина Идентификатора 20

(47) мимо

(46) Присутвует.

(49) я знаю, что присутствует

Если вопрос был приписан ли емуц ИД то Да.

(48) может и мимо но у меня получилось

(52) чего получилось?
(51) у тебя в файле колока NOM ПУСТАЯ, поэтому и не работает обработка

(47) + 1. СтрДлина(Идентификатор) должна быть как у реквизита

Кароче, правильны ответ в (43)

(54) пробовал или опять клюшек нет под рукой?
(55) неа

(56) причем тут код, скажи мне? там код никоим боком

(53) обработка прочитала файл без ошибок, нашла всех клиентов по Идентификатору

(58) безо всяких изменений
Идентификатор = "D1          "
СпрКли.НайтиПоРеквизиту("Идентификатор", Идентификатор, 1) = 1

(59)+ СтрДлина(Идентификатор) = 12

(57) код это для (42)

(51) я не понял, где бабло?

Ну во первых нет вашего телефона, во-вторых, у меня попрежнему не работает загрузка. Или я чего-то не сделал?

(63) давай почту

(63) я уже устал объяснять: поиск у тебя работает см.(59) не заботает запись новых элементов см.(42). Для того чтобы заработало нужно проблему решить с СпрКли.Код = Файл.NOM, т.к. Файл.NOM у тебя всегда пустой

(65)+ заботает -> работает

почта - [email protected]

(64) Согласен, Файл.NOM это номер карты, зачем его в Код пихать непонятно

(67) Код клиента в одной базе это номер карты в другой?

(68) тык у него конфе Номер карты = Код, только он в дбф этот номер не пишет

(69) нет

(70) в дбф пишет (пытается), но не учитывает что НомерКарты периодический реквизит

(72) Код переодический? О_о

(73) нет))) вот фрагмент
Спр = СоздатьОбъект("Справочник.Клиенты");
       Спр.ВыбратьЭлементы();
       Пока Спр.ПолучитьЭлемент()=1 Цикл
           //Спр.ИспользоватьДату(ТекущаяДата());
           Файл.Добавить();
           Файл.ID = Спр.Идентификатор;
           Файл.KOD = Спр.Код;  
           Файл.PRI = Спр.ОбщаяСумма.Получить(ТекущаяДата()); //так тоже можно;
           Файл.NAM = Спр.Наименование;
           Файл.ADR = Спр.Адрес;
           Файл.TEL = Спр.Телефон;
           Файл.DAT = Спр.ДатаРождения;
           Файл.NAK = Спр.НакопительнаяСумма;
           Файл.PRO = Спр.ПроцентСкидки;
           Файл.POK = Спр.ДатаПервойПокупки;
           Файл.NOM = Спр.НомерКарты;
           Файл.SOT = Спр.ТелефонСот;
           Если Спр.ОбщаяСумма.Получить(ТекущаяДата())=0 тогда
               Сообщить(Спр.Наименование);
           КонецЕсли;
           Файл.Записать();
       КонецЦикла;
   
       Файл.ЗакрытьФайл();

(74) ты не понял. У него в элементе
Процедура ИзмененКод()
   ///сработает при вводе данных в поле код
   НомерКарты=Код;
КонецПроцедуры

вывод: в дбф НомерКарты нах ненужен

(75) понятно