8.х номера талонов-расшифровка

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем maxx04, 2 мар 2008.

  1. TopicStarter Overlay
    maxx04
    Offline

    maxx04

    Регистрация:
    2 мар 2008
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    Задача такая: на АЗС талоны имеют серийные номера где в нем зашифрованы след. параметры- порядковый номер контрагента (например 22), литров по талону (напр.20), марка нефтепродукта (например А-95-1), уникальный номер(напр. 1564) таким образом серийный номер это 222011564 можно ли в 1С как нибудь сделать следующее- при вводе номера в текстовое поле происх интерпритация номера т.е. в поле контрагент подтягивался из справочника под номером 22, в поле "Литры"- 20 и т.д.
  2. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Код:
    Строка = "222011564";
    КодКонтрагента = Сред(Строка,1,2);	    
    Литров = Сред(Строка,3,2);
    МракаБензина = Сред(Строка,5,1);
    ИдТалона = Сред(Строка,6);
    
    
  3. TopicStarter Overlay
    maxx04
    Offline

    maxx04

    Регистрация:
    2 мар 2008
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    я так понимаю что вбил в текст.поле например 8 - ищем в справочнике контрагента с кодом 8 и его наименование пишем в соответсвующее поле и т.д. по порядку. я делаю вот так

    Код:
    Перем КонтИД,Идент;
    СтрокаТабличнойЧасти = ЭлементыФормы.ТЧ.ТекущиеДанные; 
    Идент=СтрокаТабличнойЧасти.ИдентификаторТалона;
    КонтИД=Справочники.Контрагенты;
    СсылкаКонтИД=КонтИД.НайтиПоКоду("Идент");
    ЕСЛИ НЕ СсылкаКонтИД.Пустая() Тогда
    ОбъектКонтИД=СсылкаКонтИД.Наименование.ПолучитьОбъект();
    СтрокаТабличнойЧасти.Контрагент=ОбъектКонтИД;
    КонецЕсли;
    
    нифига не работает, что не так?
  4. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Не надо получать объект - в строке храниться ссылка.
    Код:
    СтрокаТабличнойЧасти.Контрагент = СсылкаКонтИД;
    

Поделиться этой страницей