1C-PRO - Форум по 1С > Нумерация!

Помощь - Поиск - Пользователи - Календарь

1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Конфигурирование на платформе "1С:Предприятие 8.x"

Ромик

21.11.2008, 10:04

Подскажи как сделать нумерация в файлике?
Вывожу данные в xls файл....и нужно запонить колонку цифрами до количества строк

Начало
1
2
3
4
5
и тд
Конец

BabySG

21.11.2008, 13:26

Первое: правильно выбираете подфорум
Второе: при выводе выводи и номер - в чем проблема-то?

Ромик

21.11.2008, 13:48

Цитата(BabySG @ 21.11.2008, 15:26)

Первое: правильно выбираете подфорум
Второе: при выводе выводи и номер - в чем проблема-то?

Сори
проблема решена!

Ромик

21.11.2008, 14:17

Цитата(Ромик @ 21.11.2008, 15:48)

Сори
проблема решена!

Сори эта проблема ещё не решена,перепутал с другой:)
При выводе выводить номер строки?
Покаж пример..

x_under

21.11.2008, 16:19

Покажи как ты выводишь, какие данные. Так тебе не ответят

Ромик

24.11.2008, 7:23

Цитата(x_under @ 21.11.2008, 18:19)

Покажи как ты выводишь, какие данные. Так тебе не ответят

Обычная нумерация..xls как в столбце 2,чтоб нумировалась до конца списка!
(для примера смотри прикреплённый файл)

Cтолбец1 Столбец2 Столбец 3
Имя 1
- 2
- 3
- 4
- 5

BabySG

24.11.2008, 8:55

Так как ты выводишь-то? Покажи код, наконец, некто телепатировать тут не будет

Ромик

24.11.2008, 9:14

Цитата(Ромик @ 24.11.2008, 9:23)

Дак обычно,файлик ведь прикрепил!

Код

 Область                              = Макет.ПолучитьОбласть("Строка");
	Область.Параметры.НомерРН            = Док.Номер;
	Область.Параметры.ИдБазы             = "***";
	Область.Параметры.ДатаНаклданой      = ПреобразованиеДатыВСтроку(Строка(Док.Дата));
	Область.Параметры.СуммаНакладной     = Док.СуммаДокумента;
	Область.Параметры.Контрагент         = Док.Контрагент;
	Область.Параметры.НомерНедели        = (НеделяГода(НачДата));

Область.Параметры.НемерПП = ??? пронумировать

LxS

24.11.2008, 9:40

Перед циклом:

Код

Н = 0;

В цикле:

Код

Н = Н + 1;
Область.Параметры.НемерПП = Н;

Если быть еще более точным:

Код

Область                              = Макет.ПолучитьОбласть("Строка");
Н = 0;
Для ... Цикл //Тут перебираешь строки таблицы, данные из которой надо вывести
Н = Н + 1;
Область.Параметры.НемерПП = Н;
...
ТабДок.Вывести(Область);
КонецЦикла;

Ромик

25.11.2008, 11:39

Цитата(LxS @ 24.11.2008, 11:40)

Перед циклом:

Код

Н = 0;

В цикле:

Код

Н = Н + 1;
Область.Параметры.НемерПП = Н;

Если быть еще более точным:

Код

Область                              = Макет.ПолучитьОбласть(\"Строка\");
Н = 0;
Для ... Цикл //Тут перебираешь строки таблицы, данные из которой надо вывести
Н = Н + 1;
Область.Параметры.НемерПП = Н;
...
ТабДок.Вывести(Область);
КонецЦикла;

Так до конца и не понял..что мне нужно в цикле перебирать....
Для Каждого ИЗ... Цикл

LxS

25.11.2008, 11:49

Задай вопрос корректно. Где прикрепленный файл?

Я понял, что тебе надо пронумеровать строки в таблице.

Ромик

25.11.2008, 12:42

Цитата(LxS @ 25.11.2008, 13:49)

Задай вопрос корректно. Где прикрепленный файл?

Я понял, что тебе надо пронумеровать строки в таблице.

Да мне нужно пронумировать строки в таблице...
Файл не прикрепляется:(
В общем структура таблицы простая....
ИДБазя НомерПП
*** 1
2
3

Нужно столбец с параметром НомерПП пронумировать до конца данных..то есть до конца списка!

Код

Область                              = Макет.ПолучитьОбласть("Строка");
    Н = 0;
    Для  Цикл
    Н = Н + 1;
    Область.Параметры.НомерПП            = Н; 

    Область.Параметры.НомерРН            = Док.Номер;
    Область.Параметры.ДатаНаклданой      = ПреобразованиеДатыВСтроку(Строка(Док.Дата));
    Область.Параметры.СуммаНакладной     = Док.СуммаДокумента;
    Область.Параметры.Контрагент            = Док.Контрагент;
    Область.Параметры.НомерНедели        = (НеделяГода(НачДата));

LxS

25.11.2008, 15:14

Выложи кусок процедуры от инициализации табличного документа до его отображения(то есть от ТабДок = Новый ТабличныйДокумент до ТабДок.Показать()).

Ромик

25.11.2008, 15:20

Цитата(LxS @ 25.11.2008, 17:14)

Код

	ТабДок = Новый ТабличныйДокумент;		
	Макет = ПолучитьМакет("Макет");
	Область = Макет.ПолучитьОбласть("Шапка");
	ТабДок.Вывести(Область);
	Запрос=Новый Запрос;
	Штука = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("32");
	Запрос.УстановитьПараметр("НачДата",НачалоДня(НачДата));
	Запрос.УстановитьПараметр("КонДата",КонецДня(КонДата));
	Запрос.УстановитьПараметр("Штука",Штука);
	ТекстЗапроса=("ВЫБРАТЬ
	              |	РеализацияТоваровУслугТовары.Ссылка КАК Док
	              |ИЗ
	              |	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
	              |ГДЕ
	              |	РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &НачДата И &КонДата");
	
	ТекстЗапроса = ТекстЗапроса + " СГРУППИРОВАТЬ ПО Ссылка УПОРЯДОЧИТЬ ПО Ссылка.Дата";
	Запрос.Текст=ТекстЗапроса;
	РезультатЗапроса=Запрос.Выполнить();
	ТЗ = РезультатЗапроса.Выгрузить();
	Максимум = ТЗ.Количество();
	//ТЗ.ВыбратьСтроку();
	Выборка=РезультатЗапроса.Выбрать();
	Пока Выборка.Следующий() Цикл
		ОбработкаПрерыванияПользователя();
		Док = Выборка.Док;
		
		ЗаписатьСтрокуВРеестрРН(ТабДок,Макет,Док,счНакладных);
		СписокВыгруженныхРН.Добавить(СокрЛП(Док.Номер));
		
				
	КонецЦикла;
	//сохранение в файл xls
	Путь = "C:\RN_w"+(НеделяГода(НачДата))+".xls";
	ТабДок.Записать(Путь,ТипФайлаТабличногоДокумента.XLS);


Процедура ЗаписатьСтрокуВРеестрРН(ТабДок,Макет,Док,счРН)	
	
	Область                                          = Макет.ПолучитьОбласть("Строка");
	Область.Параметры.НомерРН            = Док.Номер;
	Область.Параметры.ИдБазы             = "***";
	Область.Параметры.ДатаНаклданой      = ПреобразованиеДатыВСтроку(Строка(Док.Дата));
	Область.Параметры.СуммаНакладной     = Док.СуммаДокумента;
	Область.Параметры.Контрагент         = Док.Контрагент;
	Область.Параметры.НомерНедели        = (НеделяГода(НачДата));
	
	ТабДок.Вывести(Область);

КонецПроцедуры

LxS

25.11.2008, 15:40

Код

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

ТекстЗапроса = ТекстЗапроса + " СГРУППИРОВАТЬ ПО Ссылка УПОРЯДОЧИТЬ ПО Ссылка.Дата";
Запрос.Текст=ТекстЗапроса;
РезультатЗапроса=Запрос.Выполнить();
ТЗ = РезультатЗапроса.Выгрузить();
Максимум = ТЗ.Количество();
//ТЗ.ВыбратьСтроку();

Выборка=РезультатЗапроса.Выбрать();
Область  = Макет.ПолучитьОбласть("Строка");
Н = 0;
Пока Выборка.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Док = Выборка.Док;
Н = Н +1;
Область.Параметры.НомерПП = Н;
Область.Параметры.НомерРН            = Док.Номер;
Область.Параметры.ИдБазы             = "***";
Область.Параметры.ДатаНаклданой      = ПреобразованиеДатыВСтроку(Строка(Док.Дата));
Область.Параметры.СуммаНакладной     = Док.СуммаДокумента;
Область.Параметры.Контрагент         = Док.Контрагент;
Область.Параметры.НомерНедели        = (НеделяГода(НачДата));
	
ТабДок.Вывести(Область);
ЗаписатьСтрокуВРеестрРН(ТабДок,Макет,Док,счНакладных);
СписокВыгруженныхРН.Добавить(СокрЛП(Док.Номер));
	
			
КонецЦикла;
//сохранение в файл xls
Путь = "C:\RN_w"+(НеделяГода(НачДата))+".xls";
ТабДок.Записать(Путь,ТипФайлаТабличногоДокумента.XLS);

Нафига тебе лишняя процедура?? Или ты ее используешь еще откуда-то?

Ромик

25.11.2008, 15:53

Уже не нужна,раньше использовал,так как в обработке осуществляю много разных реестров!
Спасибо,сейчас испытаю:)

Ромик

25.11.2008, 15:59

Цитата(Ромик @ 25.11.2008, 17:53)

Всё гут чувак:)
А ещё можешь подсказать как в запросе поставить уловие?
Сейчас выводится все накладные,а мне нужно чтобы выходили накладные только лишь с определённым товаром....

LxS

25.11.2008, 16:25

ГДЕ Номенклатура = &НужнаяНоменклатура - в запросе установи

Ромик

25.11.2008, 17:04

Цитата(LxS @ 25.11.2008, 18:25)

ГДЕ Номенклатура = &НужнаяНоменклатура - в запросе установи

Хм...такое непрокатит...мне же нужно несколько групп товаров,нужно наверное сначала найти список групп и потом установить условие?

LxS

25.11.2008, 17:08

ГДЕ Номенклатура В ИЕРАРХИИ(&СписокГрупп)

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.