стр.Комментарий = СокрЛП(стр.Комментарий)+ " " + СокрЛП(Строка(стр.АД)) + ", " + СокрЛП(Строка(стр.ТФ)) + ", " + СокрЛП(Строка(стр.ТФ2)) + ", " + СтрокаДоставки + ", " + МО + ", " + СокрЛП(Строка(стр.ИН));

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

?(стр.ТФ = "","",",")

и тд

СтрЗаменить(стр.Комментарий,",,",",");

Ну или

Пока Найти(стр.Комментарий,",,")>0 цикл
  СтрЗаменить(стр.Комментарий,",,",",");
КонецЦикла;

т.е.
стр.Комментарий = СтрЗаменить(стр.Комментарий,",,",",");

Только у тебя еще пробелы  будут между запятыми

(3)  это ты смело как-то

Запихнуть (1) и выводить с ее использованием.

(6) + запихнуть в функцию

Мне кажется нужно, что то типа ЗначениеЗаполнено

(8)

нафига

тебе и этого хватит:

стр.Комментарий = СтрЗаменить(стр.Комментарий,",,",",");

как выше подсказали

тогда вот так даже:
стр.Комментарий = СтрЗаменить(стр.Комментарий,", , ",", ");

ну или да:

добавление запятой очередного поля оформлять как
+  ?(СокрЛП(стр.ОчередноеПоле) = "","",", ")

СтрЗаменить - это как-то по франчевски. В (1) правильнее

(12) +1. Данные пользователя портить нельзя.

(11) +1 Нужна голосовалка ))

Сделал так

стр.Комментарий = СокрЛП(стр.Комментарий) +?(ЗначениеЗаполнено(СокрЛП(стр.Комментарий)), " " +СокрЛП(Строка(стр.АД)),"" ) + ?(ЗначениеЗаполнено(СокрЛП(стр.Комментарий)) или ЗначениеЗаполнено(СокрЛП(стр.АД)),", "+СокрЛП(стр.Тф),"")+ ?(ЗначениеЗаполнено(СокрЛП(стр.АД))или ЗначениеЗаполнено(СокрЛП(стр.ТФ)),", "+СокрЛП(стр.Тф2),"") + ?(ЗначениеЗаполнено(СокрЛП(стр.ТФ))или ЗначениеЗаполнено(СокрЛП(стр.ТФ2)),", " + СтрокаДоставки,"") +?(ЗначениеЗаполнено(СокрЛП(стр.ТФ))или ЗначениеЗаполнено (СтрокаДоставки),"" + МО,", ") ;

для строк смело мог бы и ?(Условие,ПриУсловииДа,ПриУсловииНет)

(16) Это был мой второй вариант. Спасибо!

(\,\s+)+

(0) Надо поправить источник возникновения лишних запятых...
(15) Вроде да.

(15) А потом приходят люди смотрят на это и кровоточат глазами

Есть хорошая встроенная функция СтрШаблон. Либо ее заменитель в БСП - ПодставитьПараметрыВСтроку() для старых версий платформы.

Как минимум вот так:

стр.Комментарий = СтрШаблон(
    "%1 %2 %3 %4 %5 %6",
    СокрЛП(стр.Комментарий),
    ?(ЗначениеЗаполнено(СокрЛП(стр.Комментарий)), " " + СокрЛП(Строка(стр.АД)),""),
    ?(ЗначениеЗаполнено(СокрЛП(стр.Комментарий)) или ЗначениеЗаполнено(СокрЛП(стр.АД)),", " + СокрЛП(стр.Тф),""),
    ?(ЗначениеЗаполнено(СокрЛП(стр.АД))или ЗначениеЗаполнено(СокрЛП(стр.ТФ)),", "+СокрЛП(стр.Тф2),""),
    ?(ЗначениеЗаполнено(СокрЛП(стр.ТФ))или ЗначениеЗаполнено(СокрЛП(стр.ТФ2)),", " + СтрокаДоставки,""),
        ?(ЗначениеЗаполнено(СокрЛП(стр.ТФ))или ЗначениеЗаполнено(СтрокаДоставки),"" + МО,", ")
);

В разы читабельней.

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

(21) да тот-же х, только вид сбоку

(15) это аццкий ад какой то
вынеси в функцию

Функция СтрокаСЗапятой(СтрВходящая)
СтрВходящая = СокрЛП(СтрВходящая);
СтрВходящая = ?(ЗначениеЗаполнено(СтрВходящая), СтрВходящая+","," ");
КонецФункции

и собирай с использованием функции

СтруктураДанных = Новый Структура("Комментарий,Тф,ТФ2,СтрокаДоставки,МО,ИН", СокрЛП(стр.Комментарий)+ " " + СокрЛП(стр.АД), СокрЛП(стр.Тф), СокрЛП(стр.ТФ2), СтрокаДоставки, МО, СокрЛП(стр.ИН));

Комментарий = "";
Для Каждого КлючИЗначение Из СтруктураДанных Цикл
   Значение =СокрЛП(КлючИЗначение.Значение);
   Если ЗначениеЗаполнено(Значение) Тогда
      Комментарий = Комментарий + Значение + ", ";
   КонецЕсли;
КонецЦикла;

Комментарий = СокрЛП(Комментарий);
стр.Комментарий = Лев(Комментарий, СтрДлина(Комментарий)-1);

Проверку лучше выполнять с помощью ПустаяСтрока()

(24) Спасибо! Как вариант!

Стрсоединить

Что то до сих пор никто через запрос не предложил.

Ну вы и упоролись тут... Правильно - (1) + (25).

пять копеек на то, что потом автору позвонят и скажут, чтоп не трогал запятые, а то они АД от МО отличить не могут

(0) "то комментарий имеет такой вид ,,,," - нет, она имеет вот такой вид: ", , , ," - забыл про пробелы.

(29) Да, мы такие :) Сто строк вместо пары СтрЗаменить() - словно авторам платят за количество строк :))

СтрокаТекста = "Пара строк с СтрЗаменить(), , , , , , уберет все лишние кавычки, , ...";
    СтрокаТекста = СтрЗаменить(СтрокаТекста, ", , ", ", ");
    СтрокаТекста = СтрЗаменить(СтрокаТекста, ", , ", "");
    Сообщить(СтрокаТекста);    // "Пара строк с СтрЗаменить(), уберет все лишние кавычки, ..."

(30) Да не))), там где значение будет заполнено...запятая то будет, а где нет , она исчезнет.

(32) доработал с Вашим вариантом

Сначала поставить ненужные пробелы а потом героически их выпиливать... за то всегда при деле -)

(35) так надо

(32) не сработает с первой и последней запятой. т.е. может быть вариант ", тут комментарий, " замена 2-х запятых с этим ничего не сделает.

А при формировании строки нельзя поставить типа такого ?(ПустаяСтрока(стр.АД),""," " + СокрЛП(Строка(стр.АД)))

+ (38)И дальше по всем параметрам

функция ДобавитьКСтроке(пСтрока,пДобавка,пРазделитель)
если пустаястрока(пДобавка)тогда Возврат
если пусьаястрока(пСтрока)тогда пСтрока=пДобавка Иначе пСтрока=пСтрока+пРазделитель+пДобавка
Конец

(37) "Позвольте, у меня все ходы записаны!"(с) - об этом в Вашем ТЗ ничего не было сказано :)
Эх, такой красивый и лаконичный (но неверный) алгоритм на корню сгубил. Придёт переквалифицироваться в управдомы, в кодеры:

    Исх = ", Этот алгоритм, , , , , кроме удаления ""лишних"" запятых, , удаляет начальные и конечные запятые, ";
    Врм = СтрЗаменить(Исх, ", ", Символы.ПС); Исх = "";
    Для х = 1 По СтрЧислоСтрок(Врм) Цикл
        Исх = Исх + ?(ПустаяСтрока(СтрПолучитьСтроку(Врм, х)), "", ?(ПустаяСтрока(Исх), "", ", ") + СтрПолучитьСтроку(Врм, х));
    КонецЦикла;
    Сообщить(Исх);    // "Этот алгоритм, кроме удаления "лишних" запятых, удаляет начальные и конечные запятые"

лучше использовать СтрСроединить

Я мог бы использовать СтрРазделить(), СтрСоединить(), а также СтрНачинаетсяС() и СтрЗаканчиваетсяНа()... но автор не озвучил платформу.

(43) УТ 11.1

я думаю на ответе (44) на вопрос (43) тему можно закрыть

Ужасный код. Видно, что юзается одно свойство стр. Скажем - стр - это структура. Создаем Новый Массив. И далее для каждого элемента коллекции
Массив.Добавить(ТвояСтрока).
И последним шагом СтроковыеФункцииКлиентСервер.ПолучитьСтрокуИзМассиваПодстрок(Массив);

Учите функции типовых библиотек, а не изобретайте велосипеды.

Функция ПолучитьСтрокуИзМассиваПодстрок игнорирует пустые строки и не лепит разделитель. Кстати, разделителем (второй параметр по умолчанию является запятая, но можно хоть Символы.ПС, хоть " ,".

(46) про бритву Оккама слышал когда нибудь?

Спасибо всем! Всё сделал. Всё работает)

(45) Да, можно закрывать. Учитывая конфигурацию автора, задача может быть решена с помощью двух функций платформы 8.3: функция СтрРазделить() разделит на строки, игнорируя "пустые", а функция СтрОбъединить() - объединит их в результат задачи.

(48) Слыхал. А про принцип DRY слышал?

(31) зато быстрее работает.