Имя: Пароль:
1C
1С v8
помощь по полученю ФИО физлица
0 nserg
 
19.03.14
12:57
Функция ПолучитьФамилиюИнициалыФизЛица(Физлицо,Период)
    
    Запрос = новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    ФИОФизЛицСрезПоследних.Фамилия,
                   |    ФИОФизЛицСрезПоследних.Имя,
                   |    ФИОФизЛицСрезПоследних.Отчество
                   |ИЗ
                   |    РегистрСведений.ФИОФизЛиц.СрезПоследних(&Период, ФизЛицо = &ФизЛицо) КАК ФИОФизЛицСрезПоследних";
                  
    Запрос.УстановитьПараметр("Физлицо",Физлицо);
    Запрос.УстановитьПараметр("Период",Период);
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    СтрокаРезультат = ""
    Если Выборка.Следующий() Тогда
        
        Если ЗначениеЗаполнено(Выборка.Фамилия) Тогда
            СтрокаРезультат =  СтрокаРезультат + Выборка.Фамилия;
        КонецЕсли;
        
        Если ЗначениеЗаполнено(Выборка.Имя) Тогда
            СтрокаРезультат = СтрокаРезультат + " " + Лев(Выборка.Имя,1) + ".";
        КонецЕсли;
        Если ЗначениеЗаполнено(Выборка.Отчество) Тогда
            СтрокаРезультат = СтрокаРезультат + Лев(Выборка.Отчество,1) + ".";
        КонецЕсли;
        
    КонецЕсли;
    
    Возврат СтрокаРезультат;
    
КонецФункции

ВЫЗОВ =
ФИОКтоВыписалНалоговуюНакладную  = ПолучитьФамилиюИнициалыФизЛица(КтоВыписалНалоговуюНакладную,Дата)
1 Господин ПЖ
 
19.03.14
13:00
возьми из типовой
2 Господин ПЖ
 
19.03.14
13:00
Если ЗначениеЗаполнено(Выборка.Фамилия) Тогда
            СтрокаРезультат =  СтрокаРезультат + Выборка.Фамилия;
        КонецЕсли;
        
        Если ЗначениеЗаполнено(Выборка.Имя) Тогда
            СтрокаРезультат = СтрокаРезультат + " " + Лев(Выборка.Имя,1) + ".";
        КонецЕсли;
        Если ЗначениеЗаполнено(Выборка.Отчество) Тогда
            СтрокаРезультат = СтрокаРезультат + Лев(Выборка.Отчество,1) + ".";
        КонецЕсли;

вся эта требуха давно делается непосредственно в запросе...
3 vmv
 
19.03.14
13:03
поиск в УПП, БУХ в модулях "ФИО"
4 nserg
 
19.03.14
13:17
Ребята, это запрос работающий для человека, другого способа передать не нашёл :) Извиняюсь за трэш
5 PR
 
19.03.14
13:19
Хе, МиСту попользовали как обменник :))
6 Glavnyuk
 
19.03.14
13:38
Ребята, прошу прощения, но моя конфигурация самописная на базе стьарой редакции и вызвать инициалы и фамилию стандартными средствами не получалось.

nserg
Спасибо за эту функцию, работает как надо.
7 Господин ПЖ
 
19.03.14
13:40
а теперь быстренько занесли ВР по штуке оба...
8 nserg
 
19.03.14
14:04
Господин ПЖ, что сделать?
9 Кир Пластелинин
 
19.03.14
14:32
блин) а как же почта?) как же файлообменники?) txt запилить) sms-кой прислать)))
10 bolobol
 
19.03.14
15:01
(9) А так можно и коммент в виде (2) получить, оптимизировать в пути, так сказать, отзывы почитать о полученном коде. Мысль интересная!, однака...
11 hhhh
 
19.03.14
15:13
(8) штука - это тысяча. Можно рублей, но Волшебнику, конечно, больше баксы подойдут.
12 Torquader
 
19.03.14
15:16
(10) То есть ты предлагаешь весь свой код сюда выкладывать, чтобы его, так сказать, оценили ?
13 Ненавижу 1С
 
гуру
19.03.14
15:18
новая файлообменная сеть? не ну а что, мысль
14 bolobol
 
19.03.14
15:41
(12) Это не я предложил. Но, где-то в глубине предложения, некие фантазии правильно приложив, данный посыл можно было тоже углядеть;)
15 nserg
 
19.03.14
15:41
)))))))))))
16 Glavnyuk
 
20.03.14
19:34
Вот так и зародился github :)
Ошибка? Это не ошибка, это системная функция.