Имя: Пароль:
1C
1С v8
Как вывести сообщение по нормальному
0 Karinochka
 
31.08.12
12:01
Вот написанный мной код
   МояТЗ = Новый ТаблицаЗначений;    
МояТЗ.Колонки.Добавить("ПодразделениеДт");
МояТЗ.Колонки.Добавить("СчетДт");
МояТЗ.Колонки.Добавить("СубконтоДт");
МояТЗ.Колонки.Добавить("Субконто1Дт");
МояТЗ.Колонки.Добавить("Субконто2Дт");
МояТЗ.Колонки.Добавить("Субконто3Дт");
МояТЗ.Колонки.Добавить("КоличествоДт");
МояТЗ.Колонки.Добавить("ПодразделениеКт");
МояТЗ.Колонки.Добавить("СчетКт");
МояТЗ.Колонки.Добавить("СубконтоКт");
МояТЗ.Колонки.Добавить("Субконто1Кт");
МояТЗ.Колонки.Добавить("Субконто2Кт");
МояТЗ.Колонки.Добавить("Субконто3Кт");
МояТЗ.Колонки.Добавить("КоличествоКт");
МояТЗ.Колонки.Добавить("Сумма");



// заполняем таблицу значений

// добавляем первую строку в нашу таблицу значений
НоваяСтрока = МояТЗ.Добавить();
НоваяСтрока.ПодразделениеДт = "ООО Ария";
НоваяСтрока.СчетДт     = "52";

НоваяСтрока.СубконтоДт = "11";
НоваяСтрока.Субконто1Дт     = "12";

НоваяСтрока.Субконто2Дт = "13";
НоваяСтрока.Субконто3Дт     = "14";

НоваяСтрока.КоличествоДт = "15";
НоваяСтрока.ПодразделениеКт     = "ООО ДДТ";

НоваяСтрока.СчетКт = "52";
НоваяСтрока.СубконтоКт     = "21";

НоваяСтрока.Субконто1Кт = "22";
НоваяСтрока.Субконто2Кт     = "23";

НоваяСтрока.Субконто3Кт = "24";
НоваяСтрока.КоличествоКт     = "25";

НоваяСтрока.Сумма = "260";



// добавляем вторую строку в нашу таблицу значений
НоваяСтрока = МояТЗ.Добавить();
НоваяСтрока.ПодразделениеДт = "ООО Битлз";
НоваяСтрока.СчетДт     = "40";

НоваяСтрока.СубконтоДт = "41";
НоваяСтрока.Субконто1Дт     = "42";

НоваяСтрока.Субконто2Дт = "43";
НоваяСтрока.Субконто3Дт     = "44";

НоваяСтрока.КоличествоДт = "45";
НоваяСтрока.ПодразделениеКт     = "ООО ПинкФлойд";

НоваяСтрока.СчетКт = "40";
НоваяСтрока.СубконтоКт     = "51";

НоваяСтрока.Субконто1Кт = "52";
НоваяСтрока.Субконто2Кт     = "53";

НоваяСтрока.Субконто3Кт = "54";
НоваяСтрока.КоличествоКт     = "55";

НоваяСтрока.Сумма = "540";


 // добавляем третию строку в нашу таблицу значений
 
 НоваяСтрока = МояТЗ.Добавить();
НоваяСтрока.ПодразделениеДт = "ООО Металлика";
НоваяСтрока.СчетДт     = "80";

НоваяСтрока.СубконтоДт = "84";
НоваяСтрока.Субконто1Дт     = "85";

НоваяСтрока.Субконто2Дт = "86";
НоваяСтрока.Субконто3Дт     = "87";

НоваяСтрока.КоличествоДт = "88";
НоваяСтрока.ПодразделениеКт     = "ООО Форенер";

НоваяСтрока.СчетКт = "80";
НоваяСтрока.СубконтоКт     = "94";

НоваяСтрока.Субконто1Кт = "95";
НоваяСтрока.Субконто2Кт     = "96";

НоваяСтрока.Субконто3Кт = "97";
НоваяСтрока.КоличествоКт     = "98";

НоваяСтрока.Сумма = "980";








НашаНулеваяСтрока = МояТЗ[0];
 
 Для НомерСтроки = 0 По МояТЗ.Количество() - 1 Цикл
   Сообщить(МояТЗ[НомерСтроки].ПодразделениеДт);
   Сообщить(МояТЗ[НомерСтроки].СчетДт);
   Сообщить(МояТЗ[НомерСтроки].СубконтоДт);
   Сообщить(МояТЗ[НомерСтроки].Субконто1Дт);  
   Сообщить(МояТЗ[НомерСтроки].Субконто2Дт);
   Сообщить(МояТЗ[НомерСтроки].Субконто3Дт);  
   Сообщить(МояТЗ[НомерСтроки].КоличествоДт);
   Сообщить(МояТЗ[НомерСтроки].ПодразделениеКт);  
   Сообщить(МояТЗ[НомерСтроки].СчетКт);
   Сообщить(МояТЗ[НомерСтроки].СубконтоКт);  
   Сообщить(МояТЗ[НомерСтроки].Субконто1Кт);
   Сообщить(МояТЗ[НомерСтроки].Субконто2Кт);  
   Сообщить(МояТЗ[НомерСтроки].Субконто3Кт);
   Сообщить(МояТЗ[НомерСтроки].КоличествоКт);  
   Сообщить(МояТЗ[НомерСтроки].Сумма);
   
КонецЦикла;


ВОПРОС - Как мне сделать так, чтобы сообщение выводилась не одной строкой типа:
1
2
3
4
5
6
7
8
А именно вот так
1 2 3 4
5 6 7 8
9 10 11 12
1 Cube
 
31.08.12
12:03
Сообщить("1 " + "2 " + "3 " + "4");
Сообщить("5 " + "6 " + "7 " + "8");
Сообщить("9 " + "10 " + "11 " + "12");
2 IronDemon
 
31.08.12
12:04
О, пятница :)
3 rutony
 
31.08.12
12:04
(0) Ты не поверишь:
   Сообщить(МояТЗ[НомерСтроки].ПодразделениеДт + " " +
           МояТЗ[НомерСтроки].СчетДт + " " +
           МояТЗ[НомерСтроки].СубконтоДт + " " +
           МояТЗ[НомерСтроки].Субконто1Дт);
4 Karinochka
 
31.08.12
12:05
спасибо
5 Cube
 
31.08.12
12:05
(0) Да, и на этом форуме девушкам принято сначала фотку в карточку вставить, а потом уже спрашивать :)
Так что, фотку в студию!)
6 pessok
 
31.08.12
12:05
едрить. не только письмо счастья пришло, еще и прелестный пятничный пост! :)
7 Vladal
 
31.08.12
12:07
(5) Really???