Подскажите как вывести название фирмы, чтобы каждая буква была в отдельной клетке, всего клеток 40 в строке, если наименование не входит,то должно перенестись на другую строчку??

Для н=1   По 40  Цикл
Наименование = Выборка.НаименованиеФирмы +" ";    
Область.Параметры.Буква  = Прав(Лев(Наименование,н),1);
ТабДокумент.Присоединить(Область);
КонецЦикла;

открой для себя функцию Сред()

Это откуда такое? Прав(Лев(Наименование,н),1) ?

Без фото не взлетит

(0) Тем не менее, эта конструкция должна работать. В чём трудность-то, оно ж работает

(0) Или вся проблема в переносе на новую строку?

Нужно, чтобы огромное наименование переносило на другую сточку, и чтоб целыми словами переносило.

(0) Для 41 по 80...

(6) целые слова уже сложнее

(7) а дальше?

Как вариант, можно разбить строку с наименованием на массив отдельных слов. Потом цикл по словам с
проверкой, влезет ли в оставшиееся место в текущей строке, если не влезет, то вывод новой секции, если влезет, то цикл по символам слова с присоединением.

(10) а как эту мысль кодом выразить? :)

че-то проблем не видно — один бесконечный цикл, а внутри цикл от 1 до 40, ну и прервать когда строка кончится

(12)надо ещё,чтобы слово целое было, если не входит слово,то пробелы вместо него вставить!

(11) Давай по-порядку, сначала сделай из своей длинной строки массив с отдельными словами.

(13) ну тады как в (10), делается при помощи СтрЗаменить(ТвояСтрока,Символы.ПС)

(13) это ТЗ? :)

PS еще забыла в конце: "Фигово понял что-ли??!!!" ;)

Хотя, можно и без массива, но с массивом как-то красивее, по-моему

(15) А это чтобы заменить пробелы на ПС и потом бежать по строкам многострочной строки?

Без ФОтки не взлетит!!

(13) Никто не хочет работать забесплатно. Подсказать, направить в нужном направлении это пожалуйста, но не делать всю работу за тебя.

"строка многострочной строки" жесть

(15)(18) можно сразу с пробелами. Если не считать что надпись типа ООО "Вектор" должна быть в одну строку.

(19) я большой бородатый мужик. Помогай мне, не глядя на меня.

(22) Ну, в принципе, для кажной новой 40-символьной строки можно искать последний пробел и выводить нужное количество символов

(23) А где волшебное слово?

Кстати, ещё нужно, чтобы 4 строки вывелись, даже если пустые. Нужно 4 области делать или как-то одной можно обойтись?

Все проще.
Нужно просто позвать программиста...

строка = Организация
сч = 0
Пока стрДлинна(строка) > 0  Цикл
сч = сч+1;
Область.Параметры.Буква  = Лев(строка,1);
строка = Прав(строка, стрДлинна(строка)-1);
Если сч < 40 Тогда
ТабДокумент.Присоединить(Область);
Иначе
ТабДокумент.Вывести(Область);
конецесли
конеццикла

/// Типа того

Когда ж вы уже перестанете переменные зарезервированными словами обзывать

(23)Ты фотку выложь тебе помогут ..) Без фотки Не взлетит!

не важно это, главное концепция

строка на "строчка" переименвать

(28) ты не в теме, да и весь твой код в топку

(0)Наверное необоходимо печатать текст на чековой ленте?

(28) свой напиши

(35) Ну код же и правда ужасный. Сам алгоритм нерабочий. Хотя суть, конечно, в этом

(35) так он ведь и написал.

(0) Белочка, вероятно, у тебя уже есть какие-нибудь более продвинутые, чем в (0) наработки?

(36)это была суть, а не мега рабочий код, конечно надо добавить еще условий.
(37)хде???

(39) ну (28) написал код, а вы его обругали.

(40) У (28) и (35) автор один и тот же )

(41) ну так с умным то человеком всегда приятно

А подскажите,плиз, про моё (26)-ое сообщение..

(43) да, можно одной

(44)доставточно одной

(43) ну скопируйте из типовой, там ведь миллион примеров, в каждом регламентированном отчете, чего вы нас грузите?

4 раза повторить , или область из 4 строчек состоять будет

(46) При неумении написать код в (0) разораться в механизмах регл.отчетов будет, мне кажется, непросто

(48) и чего, если не умеет, сейчас другие блоки начнет мастерить, она значит БП 4.0 сваяет к Новому году?

А учитывая (26), можно сделать 1 цикл с 1 до 160 и получение выводимого символа выбросить в функцию )

(49) А вдруг ) Незамутненный разум способен на многое )

(23) Не похожа ты на бородатого толстого мужика: в базе мисты есть твоё фото http://www.forum.mista.ru/users_photo/thumb/63749_thumb.jpg ;)

(52)Теперь тебе придётся написать хотя бы схематично цикл как сказали в (10) :)

(53) На, держи:


Функция вПолучитьБукву(стрНаименование, счКолонки, чВсегоКолонок)
   
   //строка закончилась
   Если СтрДлина(стрНаименование) = 0 Тогда
       Возврат "";
   КонецЕсли;
   
   Если счКолонки = 1 Тогда
       //первый пробел обрежем
       стрНаименование = СокрЛП(стрНаименование);
   КонецЕсли;
   
   чОсталосьСвободныхПолейНаСтроке = чВсегоКолонок - (счКолонки - 1);
   Если СтрДлина(стрНаименование) > чОсталосьСвободныхПолейНаСтроке Тогда
       флНужноДобавитьПробел = ИСТИНА;
       
       Для сч = 1 по чОсталосьСвободныхПолейНаСтроке + 1 Цикл
           Если Сред(стрНаименование, сч, 1) = " " Тогда
               флНужноДобавитьПробел = ЛОЖЬ;
               Прервать;
           КонецЕсли;
       КонецЦикла;
       
       Если флНужноДобавитьПробел Тогда
           Возврат "";
       КонецЕсли;
       
   КонецЕсли;
   
   //вернем первую букву
   стрБуква = Лев(стрНаименование, 1);
   
   //обрежем строку
   стрНаименование = Сред(стрНаименование, 2);
   
   Возврат стрБуква;
   
КонецФункции //вПолучитьБукву

Процедура КнопкаСформироватьНажатие(Кнопка)
   
   стрНаименование = ПолеВвода1;
   
   ТабДокумент = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("Макет");
   Область = Макет.ПолучитьОбласть("Строка|Колонка");
   
   стрНаименование = стрЗаменить(стрНаименование, "  ", " ");
   
   чВсегоСтрок = 4;
   чВсегоКолонок = 40;
   
   Для счСтроки = 1 по чВсегоСтрок Цикл
       
       Для счКолонки = 1 по чВсегоКолонок Цикл
           
           Область.Параметры.Буква = вПолучитьБукву(стрНаименование, счКолонки, чВсегоКолонок);
           
           Если счКолонки = 1 Тогда
               ТабДокумент.Вывести(Область);
           Иначе
               ТабДокумент.Присоединить(Область);
           КонецЕсли;
           
       КонецЦикла;
       
   КонецЦикла;
   
   ТабДокумент.Показать();
   
КонецПроцедуры


(54)Спасибоньки, ща погляжу :)

Фокусник - настоящий мужик.
Сам нашел фотку, сам всё сделал.
Уважаю

(54) О ДААААААААААА!! именно так!!!!!!! божешки!! как я радо!! :)

(57) Так у тебя борода никогда не вырастет. Пора уже самой разбираться )

(56) Фигли ее искать, она сразу скриптом отображается :)

(59) Ну это ж думать надо... Слово неведомое 1С-нику - "скрипт"...

(60) Сто лет назад прицепил (Asmody вроде его выкладывал) удобно, рядом с ником сразу фотки :)

(61) Поделишься?

http://www.forum.mista.ru/users_js/2466.js

(58) я разложила строку на слова и они у меня в одну строчку без пробелов пока выводились.. медленно конечно думается, в отличие от бородатых суровых людей :)

(63) А куда его теперь подпихнуть?

(64) Ну все равно, уже молодец

(65) +1

(65) хочешь бородатые фотографии разглядывать??

(68) На тебя любоваться буду

(65), (67) в личной карточке: Персональный JavaScript

(70) круто! огромный сенкс

(69) О, спасибо )

72 к 70

(71), (73) Asmody пошутил: у кого фото нет - http://www.forum.mista.ru/users_photo/thumb/79214_thumb.jpg :)

Вы главное потом в пятничные ветки при посторонних глазах не заходите ;)

Я так вижу там ещё много всякого хитрого функционала

аааа, белочка пришла!!!!
зы: сорри, испужался )))

(74) у нас за это не ругают :))

+76 ничо так белочка

(76) Ты про (52) или про (74)?

(78) Поддерживаю

(70) Класс!!! Спасибо

http://im2-tub-ru.yandex.net/i?id=324104488-10-72&n=21