Имя: Пароль:
1C
1С v8
Модули...
,
0 radonn17
 
18.03.12
14:13
Здравствуйте!!Помогите пожалуйста, мне нужно выгружать из табл частей  документов выгр информацию..Значит я делаю так:создаю процедуру для кнопки в форме списка в ней делаю ссылку на процедуру которую буду вызывать из модуля объекта  и косяк.. ни че не выгружается..

&НаКлиенте
Процедура Команда1(Команда)
     ДляКоманда();  
КонецПроцедуры


мод объекта

Процедура ДляКоманда1() Экспорт
Возврат  

  // Вставить содержимое обработчика.
  Попытка
Эксель = Новый COMОбъект("Excel.Application")
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");
Возврат;
КонецПопытки;
Книга = Эксель.WorkBooks.Add();
Лист = Книга.WorkSheets(1);
Лист = Книга.Sheets.Add();
//Ведомость=<<?>>ТекущийДокумент.Ведомость;
НомерСтроки=0;
Для каждого Строка Из Объект.Ведомость Цикл  
//Для Каждого Строка из Объект.Ведомость цикл
НомерСтроки=НомерСтроки+1;

Лист.Cells(НомерСтроки, 1).Value = Строка.Студент;
Лист.Cells(НомерСтроки, 2).Value = Строка.Понедельник;
Лист.Cells(НомерСтроки, 3).Value = Строка.Вторник;
Лист.Cells(НомерСтроки, 4).Value = Строка.Среда;
Лист.Cells(НомерСтроки, 5).Value = Строка.Четверг;
Лист.Cells(НомерСтроки, 6).Value = Строка.Пятница;
Лист.Cells(НомерСтроки, 7).Value = Строка.Суббота;
Лист.Cells(НомерСтроки, 8).Value = Строка.Воскресенье;
// и так далее, по всем нужным колонкам таб.части
КонецЦикла;

Попытка
Книга.SaveAs("C:\Users\Администратор\Downloads\1с");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
Возврат;
КонецПопытки;

КонецПроцедуры
1 zak555
 
18.03.12
14:14
выведи в табличный документ и сохрани его в экселе
2 GROOVY
 
модератор
18.03.12
14:15
Название темы должно отражать ее суть.
3 radonn17
 
18.03.12
14:18
zak555, нет мне надо как у меня только я не знаю как правильно, добавить эту процедуру..
4 radonn17
 
18.03.12
14:19
GROOVY понял.а как поменять его?
5 zak555
 
18.03.12
14:19
(3) почему так ?
6 БибиГон
 
18.03.12
14:25
(0) и что значит не выгружается?
7 GROOVY
 
модератор
18.03.12
14:27
Процедуру модуля объекта из управляемой формы так не вызвать. Надо получить объект - РеквизитФОрмыВЗначение() и обращаясь к нему произвести вызов экспортной процедуры.
8 radonn17
 
18.03.12
14:27
ну просто тут вроде как се готово тока поправить не много.
ну не создается файл ексель и туда не заносится информация.
9 zak555
 
18.03.12
14:29
а что у же в 18 1с дают потрогать ?
10 DexterMorgan
 
18.03.12
14:31
(0) Процедуру модуля объекта из формы вызывают так:

&НаКлиенте
Процедура Команда1(Команда)
 ИдиНаСервер();  
КонецПроцедуры

Процедура ИдиНаСервер()
ТвойОбъект = РеквизитФормыВЗначение("КакТамОнНазываецца");    
ТвойОбъект.ДляКоманда();
КонецПроцедуры
11 GROOVY
 
18.03.12
14:31
Опа, это еще и форма списка... Может сделать по взрослому и заюзать команды?
12 radonn17
 
18.03.12
14:33
мне 19))))знаний мало объектно ориентированного почти нет а требуют много......
да форма списка....
скажите можно ли сюда прирепить картинку там я покажу что хотел бы...)
13 DexterMorgan
 
18.03.12
14:35
(7) Меня опередил пока код печатал=))
14 zak555
 
18.03.12
14:36
(12) иди лучше девка голову кружи
15 Jofa
 
18.03.12
14:37
Модуль менеджера не подойдёт?
16 radonn17
 
18.03.12
14:37
получается (10) не правильно?

(14)мне сдавать завтра, какие девки)
17 GROOVY
 
18.03.12
14:38
(16) Ирис_яркая поспрашивай :)
18 radonn17
 
18.03.12
14:38
(17) о чём?)
19 radonn17
 
18.03.12
15:37
странно все обсуждения мгновенно прекратились..)
20 radonn17
 
18.03.12
16:16
(10) твойобъект это откуда я буду выгружать данные?
21 experimentator76
 
18.03.12
17:04
(9) бесполезно - после армии все забудет напрочь - вернее выбьют эту дурь
22 experimentator76
 
18.03.12
17:06
(0) в теме есть правильный ответ но не поможет - надо было учиться книжки читать
23 МастерВопросов
 
18.03.12
17:22
(0) так у тебя вначале процедуры "возврат" стоит:

Процедура ДляКоманда1() Экспорт
Возврат
24 radonn17
 
18.03.12
18:08
(21)(22) я вот поражаюсь таким людям они на всех форумах есть, любят хр*нь писать всякую...
(23) ой туплю я потом убрал это....
25 zak555
 
18.03.12
19:01
(21) есть специальный контингент именно по выбиванию 1с ? о_О
26 ILM
 
гуру
18.03.12
19:09
Ник говорящий, как раз тогда стронций и цезий почти распались, а радон остался.
27 radonn17
 
20.03.12
17:35
Всем спасибо вопрос решен.
28 zak555
 
20.03.12
17:35
(27) совет GROOVY помог :?