Вопрос по 1С

Могу вернуть : читать так и не научились... Да и намек не понят видимо. Знаете почему на красной площади девушку не полюбишь? Потому, что советами зае**т. Не учите человека жить, лучше материально помогите - скинте обработку исправленную, к примеру.

 

вам виднее.. предпочитаю более традиционные места...

не поможет

 

Это же анекдот. Что вы так зациклены на своей значимости? Никто вас не хочет обидеть. Я считаю что каждый человек - сам себе буратино, не надо никого учить жить. У каждого своя жизнь. И он наломает именно тех дров, которые ЕМУ нравятся. Ну накосячит он в ТИСе, в следующий раз позовет кого-нибудь. Или наоборот, справится, поймет, что ему это интересно и пойдет на курсы (купит книжку, ....). Это будет ЕГО выбор. А советы типа "траактор нужен", как минимум не в тему, а как максимум глупы, ибо человек не послушает.

 

VitShvets,скажите вы получали очное образование (школа, ВУЗ,ПТУ и т.п.)???.. готов поспорить что ДА.. вас научили читать, писать и пр...

так почему же вы считаете что самообразование - это круто и то что надо??...

 

Не считаю. Образование, образованию рознь. Если речь идет о ПРОФЕСИИ, то без правильного образования не обойтись. Когда речь идет о мелочи, которую можно и самому подправить, зачем огород городить?
Если мне понадобится дома кран на смесителе поменять, вы предлагаете мне на курсы сантехников идти? Или из ЖЭУ вызывать? Да я быстрее это сделаю, чем звонить или учиться буду. НО! С другой стороны, при сложных поломках, лучше всё таки позвонить.

добавлено через 1 минуту
Сам-по-себе, Ценники то получились?

 

повеселил.... хороший аникейщик - это круто...

так вот и поймите, что платить надо за все: ПО, обучение ....
зачем воровать вещь с которой не можешь обращаться??

 

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

скорость возгорания я замечу у вас завидная..

 

В данной процедуре переменная "столбик" только 2-х значений. И насколько я понял, эти значения чередуются - 0, 1, 0, 1, 0 ....

При значении "0" выводится первая колонка, при значении "1" вторая, и затем все снова. Кроме того, при каждом значении "0" счетчик рядов увеличивается на 1.

В конце процедуры, происходит проверка значения, если "Столбик" равен 0. То выводится столбец на новой строке. В противном случае, столбец присоединяется к предидущей строке.

Нам следует добавить еще одно значение к переменной "Столбик".

Чтобы вывести на 3 ряда, я бы сделал так:

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, ПечСтрана, Столбик, Ряд)

Если Столбик = 0 тогда
Столбик = 1;
ИначеЕсли Столбик = 1 Тогда
Столбик = 2;
Иначе
Столбик = 0;
КонецЕсли;

Ряд = ?(Столбик = 0, Ряд + 1, Ряд);

Если Ряд > 7 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;

Если Столбик = 0 Тогда
Таб.ВывестиСекцию("Товар|Ценник");
Иначе
Таб.ПрисоединитьСекцию("Товар|Ценник");
КонецЕсли;

КонецПроцедуры // ДобавитьЦенник()


З.Ы. Делал все не смотря в Конфигуратор. Так что, если не заработает, то извиняйте. Но, по идее, все должно работать.

 

Vit, я вспомнил ещё одну поговорку в тему!
Не трогай го%но, оно и вонять не будет! Ну, я надеюсь ты поймёшь...

 

хм, врядли я опущусь до этого.

 

Меня
_____терзают
______________смутные
______________________сомнения
_______________________________что
___________________________________это
_______________________________________печать
в
__таком
________стиле
______________в
__________________котором
___________________________я
______________________________напечатал
эти
_____строки

 

Тихий Боб,если это

не работает, то да

 

тогда не тыкайте мне ...

если вы в это конструкции разобраться не можете самстоятельно, то все ваши посты на темы какая я самоутвердившаяся сволочь я могу проигнорировать....

самокритично...

 

Чего и ВАМ желаю!

 

мне не за чем.. я идеален...

 

buffoon, я вам не тыкал, я вас просто послал...

 

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

вы таким родились... тут я не причем

 

+1

 

Сам-по-себе, еще вариант (надеюсь, будет работать ):

Процедура Сформировать(ТаблицаТоваров,ПечФирма)
...
Столбик = 0;
...

и вот это:

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, ПечСтрана, Столбик, Ряд)

Столбик = Столбик % 3;
Ряд = ?(Столбик = 0, Ряд + 1, Ряд);

Если Ряд > 3 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;

Если Столбик = 0 Тогда
Таб.ВывестиСекцию("Товар|Ценник");
Иначе
Таб.ПрисоединитьСекцию("Товар|Ценник");
КонецЕсли;
Столбик = Столбик + 1;

КонецПроцедуры // ДобавитьЦенник()

вот здесь:
Столбик = Столбик % 3;
вместо 3 ставь нужное количество столбцов, какое захочется.

 

VitShvets,

+1

 

buffoon, трудно быть клоуном?

 

Бесплатно на вопросы не отвечает.

 

не завидуйте.. вам до этого еще расти долго...
[off]обед был...[/off]

Сам-по-себе,цель простая указать единственно нормальный путь решения этой и других подобных задач, а не оказание "медвежьей услуги"... толку от того, что вам написали решение задачи без объяснения почему так - чуть...