1С 7.7 и снова таблица значений

@kyr · Регистрация: 04.12.2005

Author24 — интернет-сервис помощи студентам

Есть тз со столбцами Наименование, Колво, Цена, Партия. мне нужно сделать что то типа ТЗ.Свернуть("Наименование","Колво"),но так чтобы Цена и партия не потерялись. как организовать подобную "свертку"? Как использовать к примеру "НайтиЗначение" в цикле?

@puh14 · 28.11.2010, 10:25

ТЗ.Свернуть("Наименование,Цена, Партия","Колво") - только что это поменяет? ведь по сути ты получаешь ту-же ТЗ что и до свертки, разве что "лесенку" уберешь.

А найти значение - как обычно, только не забывать обнулять переменную с номером строки перед началом нового поиска.

@kyr · 28.11.2010, 10:39

как обычно

Как это в цикл запихнуть? ведь НайтиЗначение (если есть хоть одно вхождение) - будет всегда равно 1

@umkmowm181538 · 28.11.2010, 11:08

Что-то не особо понятно, нарисовал бы пример таблицы строк из трех.

@kyr · 28.11.2010, 11:25

Наименование, Колво, Цена, Партия
Товар1, 5, 50, 1
Товар1, 10, 55, 2
Товар2, 8, 100, 3

@umkmowm181538 · 28.11.2010, 11:28

Сообщение от KiR

Наименование, Колво, Цена, Партия
Товар1, 5, 50, 1
Товар1, 10, 55, 2
Товар2, 8, 100, 3

И что из этого надо получить?

@kyr · 28.11.2010, 11:31

общее количество одинакового товара, не потеряв при этом цены и партии

@umkmowm181538 · 28.11.2010, 11:36

Товар1, 15, 50, 1
Товар1, 15, 55, 2
Товар2, 8, 100, 3
Так?

@kyr · 28.11.2010, 11:44

нет. сейчас думаю как лучше объяснить. пока сделал колонки Цена и партия многострочными и получаю на выходе
Товар1, 15, 50|55, 1|2
Товар2, 8, 100, 3

@umkmowm181538 · 28.11.2010, 11:45

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

@TymyDomtWoyt · 28.11.2010, 11:46

Код ( (Unknown Language)):
Пока ... цикл
н=0;
Если тз.найтизначение(значпоиска,н,колонкапоиска)=1 тогда
...

@kyr · 28.11.2010, 11:48

TimeDontWait, дык значений-то несколько, а он найдет первое

@TymyDomtWoyt · 28.11.2010, 11:54

Извиняюсь, тогда делаеш выборку строк, и ПолучитьЗначение()

@kyr · 28.11.2010, 12:00

Ну правильно. обнуляем строку, делаем найти значение. полученная строка равна к примеру 5. опять обнуляем и опять ищем значение - и снова получаем ту же строку №5 - вечный цикл получается

@TymyDomtWoyt · 28.11.2010, 12:09

Код ( (Unknown Language)):
ВыбратьСтроки()
Пока ПолучитьСтроку()=1 цикл
Если НужЗнач=Тз.ПолучитьЗначение(Тз.ТекущаяСтрока,НужнаяКолонка)=1 тогда
...
Как-то так

@umkmowm181538 · 28.11.2010, 12:17

Код ( (Unknown Language)):
ТЗ.Выгрузить(КопияТЗ);
КопияТЗ.Свернуть("Наименование","Количество");
ТЗ.Сортировать("Наименование");
КопияТЗ.НоваяКолонка("Партия");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Стр = "";
КопияТЗ.НайтиЗначение(ТЗ.Наименование,стр,"Наименование");
ЗначениеПартии = КопияТЗ.ПолучитьЗначение(стр,"Партия")+ТЗ.Партия; // Не знаю, как ты их сложить хочешь
КопияТЗ.УстановитьЗначение(ЗначениеПартии,стр,"Партия")

@4xtyr · 28.11.2010, 12:29

а откуда заполняется первоначальная ТЗ? Я клоню к тому, чтоб поиск и изменения значений ТЗ делать при первоначальном заполнении. Тогда ведь значения будут уникальны?

@vbs · 28.11.2010, 12:59

Если в ТЗ несколько одинаковых значений - отсортируй по этому значению, методом НайтиЗначение получи первое вхождение,
запомни номер строки и в цикле (прибавляя к номеру 1 пока значение не поменялось) получай следующие подряд методом ПолучитьСтрокуПоНомеру

@kyr · 28.11.2010, 14:16

vbs, о! это что-то новенькое! думаю это мне поможет

@puh14 · 28.11.2010, 14:24

Можно еще проще- сделай дополнительную таблицу, выгрузи в неё всё, сверни по товару и количеству и используй поиск в ней для получения общего количества, а работай в старой - с партиями и ценами.

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	28.11.2010, 11:54	13
	Извиняюсь, тогда делаеш выборку строк, и ПолучитьЗначение() 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 14:16	19
	vbs, о! это что-то новенькое! думаю это мне поможет 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
		1
	1С 7.7 и снова таблица значений 28.11.2010, 09:53. Показов 86154. Ответов 31 Метки нет (Все метки) Есть тз со столбцами Наименование, Колво, Цена, Партия. мне нужно сделать что то типа ТЗ.Свернуть("Наименование","Колво"),но так чтобы Цена и партия не потерялись. как организовать подобную "свертку"? Как использовать к примеру "НайтиЗначение" в цикле? 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	28.11.2010, 10:25	2
	ТЗ.Свернуть("Наименование,Цена, Партия","Колво") - только что это поменяет? ведь по сути ты получаешь ту-же ТЗ что и до свертки, разве что "лесенку" уберешь. А найти значение - как обычно, только не забывать обнулять переменную с номером строки перед началом нового поиска. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 10:39	3
	как обычно Как это в цикл запихнуть? ведь НайтиЗначение (если есть хоть одно вхождение) - будет всегда равно 1 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	28.11.2010, 11:08	4
	Что-то не особо понятно, нарисовал бы пример таблицы строк из трех. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 11:25	5
	Наименование, Колво, Цена, Партия Товар1, 5, 50, 1 Товар1, 10, 55, 2 Товар2, 8, 100, 3 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	28.11.2010, 11:28	6
	Сообщение от KiR Наименование, Колво, Цена, Партия Товар1, 5, 50, 1 Товар1, 10, 55, 2 Товар2, 8, 100, 3 И что из этого надо получить? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 11:31	7
	общее количество одинакового товара, не потеряв при этом цены и партии 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	28.11.2010, 11:36	8
	Товар1, 15, 50, 1 Товар1, 15, 55, 2 Товар2, 8, 100, 3 Так? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 11:44	9
	нет. сейчас думаю как лучше объяснить. пока сделал колонки Цена и партия многострочными и получаю на выходе Товар1, 15, 50\|55, 1\|2 Товар2, 8, 100, 3 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	28.11.2010, 11:45	10
	Ага... тогда вопрос, в каком виде должны храниться в одной колонке две партии? СписокЗначений? В любом случае решение - обойти строки отсортированной таблицы, и в процессе обхода, заполнять новую, суммируя то, что нужно. 0

	28.11.2010, 14:24

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	28.11.2010, 11:46	11
	Код ( (Unknown Language)): Пока ... цикл н=0; Если тз.найтизначение(значпоиска,н,колонкапоиска)=1 тогда ... 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 11:48	12
	TimeDontWait, дык значений-то несколько, а он найдет первое 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	28.11.2010, 12:00	14
	Ну правильно. обнуляем строку, делаем найти значение. полученная строка равна к примеру 5. опять обнуляем и опять ищем значение - и снова получаем ту же строку №5 - вечный цикл получается 0

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	28.11.2010, 12:09	15
	Код ( (Unknown Language)): ВыбратьСтроки() Пока ПолучитьСтроку()=1 цикл Если НужЗнач=Тз.ПолучитьЗначение(Тз.ТекущаяСтрока,НужнаяКолонка)=1 тогда ... Как-то так 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	28.11.2010, 12:17	16
	Код ( (Unknown Language)): ТЗ.Выгрузить(КопияТЗ); КопияТЗ.Свернуть("Наименование","Количество"); ТЗ.Сортировать("Наименование"); КопияТЗ.НоваяКолонка("Партия"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 Цикл Стр = ""; КопияТЗ.НайтиЗначение(ТЗ.Наименование,стр,"Наименование"); ЗначениеПартии = КопияТЗ.ПолучитьЗначение(стр,"Партия")+ТЗ.Партия; // Не знаю, как ты их сложить хочешь КопияТЗ.УстановитьЗначение(ЗначениеПартии,стр,"Партия") 0

@4xtyr 0 / 0 / 0 Регистрация: 30.10.2009 Сообщений: 20
	28.11.2010, 12:29	17
	а откуда заполняется первоначальная ТЗ? Я клоню к тому, чтоб поиск и изменения значений ТЗ делать при первоначальном заполнении. Тогда ведь значения будут уникальны? 0

@vbs 0 / 0 / 1 Регистрация: 22.06.2013 Сообщений: 9
	28.11.2010, 12:59	18
	Если в ТЗ несколько одинаковых значений - отсортируй по этому значению, методом НайтиЗначение получи первое вхождение, запомни номер строки и в цикле (прибавляя к номеру 1 пока значение не поменялось) получай следующие подряд методом ПолучитьСтрокуПоНомеру 0