как программно получить номер лицевого счета сотрудника Иванова??

лиц. счет скорее всего у ФизЛица, поэтому определить что за ФизЛицо у Сотра Иванова, а по нему уже получить лиц. счет... или в чем вопрос?

да, у физ лица..а как обратиться к нему программно??

по сути например в УПП
ЛС = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.Получить(Новый Структура("ФизЛицо", СотрудникИванов.ФизЛицо)).НомерЛицевогоСчета;

Физлицо.
сообщить(Физлицо. ??????);

хотя правильнее запросом это делать

(4) - ?

здоров, по выходным пашешь?)

привет!)

(8)а ты знаешь кто я?)

Леха Др,это ты??

ага, приходится)

хехе, как догадался?

Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
Сообщить("vpizdu!!!!");    
Попытка
//Эксель = СоздатьОбъект("Excel.Application");
//Эксель = СоздатьОбъект("Excel.Application");    
Эксель = Новый COMОбъект("Excel.Application");    
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;
Книга = Эксель.WorkBooks.Add();
Лист = Книга.Sheets.Add();
Попытка
Книга.SaveAs("D:\maket_nerezedent.xls");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки;
Лист.Cells(1, 1).Value = 1;
Лист.Cells(1, 2).Value = 2;
Лист.Cells(1, 3).Value = 3;
Лист.Cells(1, 4).Value = 4;
Лист.Cells(1, 5).Value = 5;
Лист.Cells(1, 6).Value = 6;
Лист.Cells(1, 7).Value = 7;


Лист.Cells(2, 1).Value = "Порядковый номер по списку";
Лист.Cells(2, 2).Value = "номер организации";
Лист.Cells(2, 3).Value = "№ счета";
Лист.Cells(2, 4).Value = "Фамилия сотрудника Организации (русская транскрипция)";
Лист.Cells(2, 5).Value = "Имя сотрудника Организации (русская транскрипция)";
Лист.Cells(2, 6).Value = "Отчество сотрудника Организации (русская транскрипция)";
Лист.Cells(2, 7).Value = "Сумма, руб.РФ";

Лист.Cells(3, 1).Value = 1;
Лист.Cells(4, 1).Value = 2;
Лист.Cells(5, 1).Value = 3;

Лист.Cells(3, 2).Value = 117;
Лист.Cells(4, 2).Value = 117;
Лист.Cells(5, 2).Value = 117;
//Лист.Cells(7, 7).Value = ТекущаяДата();
//Эксель.Application.Quit();
А = ЭлементыФормы.Зарплата1.Значение;
//Если Значение заполнено
Если ЗначениеЗаполнено(А) Тогда
Предупреждение("Значение  заполнено" + А.Ссылка);
//ЭлементыФормы.Зарплата.
Н=0;
Для Каждого стр из А.Зарплата Цикл
   
   //Сообщить(стр.Сумма);
   

   
   
   
   
   Если ЗначениеЗаполнено(стр.Физлицо) Тогда
       
   НомСтр=Н+3;
   Лист.Cells(НомСтр,7).Value = стр.Сумма;
   Лист.Cells(НомСтр,1).Value = Н+1;
   Лист.Cells(НомСтр,2).Value = 117;
//    K = стр.Физлицо.ПолноеНаименование());
   Лист.Cells(НомСтр,4).Value = стр.Физлицо.Наименование;
   Лист.Cells(НомСтр,3).Value = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.Получить(Новый Структура("ФизЛицо", стр.Физлицо)).НомерЛицевогоСчета;
   // Лев(СтрПолучитьСтроку(Сотрудник,2),1)
           
   КонецЕсли;
Н=Н+1;
   КонецЦикла;
КонецЕсли;    
Эксель.Application.Quit();    
КонецПроцедуры

Сообщить("vpizdu!!!!");  норм

выгрузка в excel:?все выгружается, кроме лиц счетов

))))kosyak))

зуп?

так а в стр - ФЛ или Сотры?

potomu chto malo kto menya po niku znaet) u menya v as'ke odin Alex)

ЗУП...

ладно, не пали контору

ФЛ..

oke

и рег истр заполнен?

в отладке сморел?

ага, заполнен..не знаю, как смотреть в отладке)

на строчке F9 а потом смотреть

kap-v-kstu вы друзья с Alex S D ?

aga

ну тогда не буду мешаться)

(30) ээ

)))pomogite.,..kto-nibud')

pozhalujsta!

ну он вроде хорошо шарит, я думаю поможет... не?

так то мне не трудно

Alex S D??)

(31) никаких задних мыслей именно хотел сказать то что сказал, или что то не так?

ща, зуп надо глянуть..

(36) не ссы)

pomozhesh',Alex???tak-to sharit on xorosho

(36) да...

че транслитом ? в китай переехал?

ВЫБРАТЬ
   ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета
ИЗ
   РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
ГДЕ
   ЛицевыеСчетаРаботниковОрганизации.ФизЛицо.Ссылка = &Ссылка

Запрос.УстановитьПараметр("Ссылка", Сотрудник.ФизЛицо);

{Форма.Форма.Форма(70)}: Ошибка при вызове метода контекста (Получить)
   Лист.Cells(НомСтр,3).Value = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.Получить(Новый Структура("ФизЛицо", стр.Физлицо)).НомерЛицевогоСчета;
по причине:
Недопустимое значение параметра (параметр номер '1')

клава такая

без русских букввв

а щас откуда буквы взял?)

(44) я ж уточнил - это в УПП, ЗУПа под рукой нет, а так не знаю как там устроено хранение ЛицСчетов

(44) сделай лучше как в (43) так надежнее, да и правильнее

наклеек просто нет, так дольше набирать. я же Соло так и не прошеллю

ща porpobuu, spasibo

Лист.Cells(НомСтр,3).Value =
а что сюда вписать после запроса??

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Лист.Cells(НомСтр,3).Value = Выборка.НомерЛицевогоСчета;
КонецЕсли;

{Форма.Форма.Форма(72,5)}: Неопознанный оператор
   <<?>>ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета (Проверка: Толстый клиент (обычное приложение))

(52)
Лист.Cells(НомСтр,3).Value = ПолучитьНомерЛС(Стр.ФизЛицо);


Функция ПолучитьНомерЛС(ФизЛицо)
ВЫБРАТЬ
   ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета
ИЗ
   РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
ГДЕ
   ЛицевыеСчетаРаботниковОрганизации.ФизЛицо.Ссылка = &Ссылка

Запрос.УстановитьПараметр("Ссылка", ФизЛицо);
   
Результат = Запрос.Выполнить().Выбрать();

Результат.Следующий();
Если Результат.НомерЛицевогоСчета <> Неопределенно Тогда
   Возврат Результат.НомерЛицевогоСчета;
Иначе
   Стр = "Лицевой счет не заполнен!";
   Возврат Стр;
КонецЕсли;


КонецФункции

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета
|ИЗ
|    РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
|ГДЕ
|    ЛицевыеСчетаРаботниковОрганизации.ФизЛицо = &ФизЛицо";
Запрос.УстановитьПараметр("ФизЛицо", стр.ФизЛицо);

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Лист.Cells(НомСтр,3).Value = Выборка.НомерЛицевогоСчета;
КонецЕсли;

так. я тока зуп поставил)

))

obrabotku skinut'???

(59) попробуй (56)

молодцы спасибо, помогли.

Хотя человек даже запрос сбацать не в состоянии :)
и нах вам надо ?

счас посмотрим помогли ли? )

(61) намекнули про регистр, запрос и ладно.
Дальше чужие в общем то проблемы.

подожди)

(63) спугнул человека, терь даже спс не скажет)

сделал запрос, спасибо)конструкторомсмммммм

блин, я тока разобрался.. ну ладно)

u menya vse ravno ne vyvoditsya v excel)

могу скинуть обработку.. для примера..

Если Выборка.Следующий() Тогда
Лист.Cells(НомСтр,3).Value = Выборка.НомерЛицевогоСчета;
//добавь здесь!!!
Сообщить(Выборка.НомерЛицевогоСчета);
КонецЕсли;

Alex,[email protected] )

ушло

spasibo vsem bol'shoe)budu razbirat'sya

(70) трудно было проверить? )

prosto-nik, proveril))vse ok1!!ogromnoe s[pasibo!!!!ochen' blagodaren!!!!

(2) гы-гы-гы... Обратиться к вышестоящему руководителю таким образом: "Товарищ руководитель, разрешите обратиться к сотруднику Иванов программно!".

ИМХО.В общем модуле должны быть функция. Ссылку можно найти в документе Зарплата к выплате через банк.