|   |   | 
| 
 | нужно по наименованию найти номенклатуру и присвоить ей код | ☑ | ||
|---|---|---|---|---|
| 0
    
        sovsemnovichek 17.07.13✎ 09:34 | 
        Процедура КнопкаВыполнитьНажатие(Кнопка)
  Файл = Новый XBASE; Файл.ОткрытьФайл("D:\Base\SprVino.dbf"); Если Файл.Открыта() Тогда Сообщить("Работает"); Файл.Первая(); Пока НЕ Файл.ВКонце() Цикл Номер = Файл.CODE; Номенклатура = Файл.NAME; ШтрихКод = Файл.SCODE; Файл.Следующая(); ТекСправочник = Справочники.Номенклатура; Поиск = ТекСправочник.НайтиПоНаименованию(Номенклатура); Сообщить(Поиск); Номер = Поиск.Код; КонецЦикла; КонецЕсли; Файл.ЗакрытьФайл(); КонецПроцедуры | |||
| 1
    
        Maxus43 17.07.13✎ 09:35 | 
        где вопрос?     | |||
| 2
    
        Нуф-Нуф 17.07.13✎ 09:35 | 
        Запиши элемент! Будь мужиком, блеать!     | |||
| 3
    
        sovsemnovichek 17.07.13✎ 09:35 | 
        знаю, что надо сделать какую-то простую вещь, но какую не могу понять и все     | |||
| 4
    
        sovsemnovichek 17.07.13✎ 09:36 | 
        по наименованию найти номенклатуру и присвоить ей код     | |||
| 5
    
        Нуф-Нуф 17.07.13✎ 09:37 | 
        А еще получи объект! Будь мужиком, блеать!     | |||
| 6
    
        sovsemnovichek 17.07.13✎ 09:37 | 
        номенклатуру я нашел, теперь мне надо конкретной записи присвоить код     | |||
| 7
    
        sovsemnovichek 17.07.13✎ 09:38 | 
        дак как получить то, мужик, я только начинаю, многих даже простых вещей не знаю, но стараюсь, поэтому прошу помощи у вас     | |||
| 8
    
        Cube 17.07.13✎ 09:38 | 
        (0) Вместо:
  ТекСправочник = Справочники.Номенклатура; Поиск = ТекСправочник.НайтиПоНаименованию(Номенклатура); Сообщить(Поиск); Номер = Поиск.Код; Пиши: ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура); Сообщить(ТекНоменклатура); ТекНоменклатура.Код = "Мой номер"; ТекНоменклатура.Записать(); | |||
| 9
    
        ptiz 17.07.13✎ 09:38 | 
        (8) Тогда уж
  ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура).ПолучитьОбъект(); | |||
| 10
    
        Cube 17.07.13✎ 09:39 | 
        (8) Упс... поправочка:
  ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура); Сообщить(ТекНоменклатура); ТекНоменклатураОбъект = ТекНоменклатура.ПолучитьОбъект(); ТекНоменклатураОбъект.Код = "Мой номер"; ТекНоменклатураОбъект.Записать(); | |||
| 11
    
        Cube 17.07.13✎ 09:39 | 
        (9) Очепятался)     | |||
| 12
    
        sovsemnovichek 17.07.13✎ 09:41 | 
        ошибка
  {Форма.Форма.Форма(19)}: Ошибка при вызове метода контекста (Записать) ТекНоменклатураОбъект.Записать(); по причине: Значение поля "Код" не уникально | |||
| 13
    
        Cube 17.07.13✎ 09:42 | 
        (12) Тупо скопипастил? Ну а подумать?     | |||
| 14
    
        sovsemnovichek 17.07.13✎ 09:44 | 
        все все) нашел косяк) большое спасибо)     | |||
| 15
    
        sovsemnovichek 17.07.13✎ 10:04 | 
        погодите, это мне нужно к каждому коду добавить префикс, чтобы поле "Код" стало уникальным, а потом уже получать Номенклатуру  по наименованию? а как?     | |||
| 16
    
        Maxus43 17.07.13✎ 10:25 | 
        Ты подумай хоть немного.
  В справочнике уже есть номенклатурины со своими кодами, щас ты из файла им присваиваешь, и естественно они могут быть уже заняты | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |