|
v7: Запись txt в одну строку | ☑ | ||
---|---|---|---|---|
0
work92
16.09.15
✎
14:04
|
Сори что пишу тему повторно так как подсказки привели к зацикливанию. может кто подскажет как решить эту проблему
|
|||
1
work92
16.09.15
✎
14:05
|
Теперь так
^_Table= Npp1=1~Name1=Завадский Виталий Александрович~Nch1=3114005049015~Sum1= 1845000.00~ Npp1=2~Name1=Русакевич Игорь Михайлович~Nch1=3114005063886~Sum1= 33333.00~ ^Date=16.09.2015^ А нужно ^_Table=Npp1=1~Name1=Куст И.А ~Nch1=5655784678~Sum1= 1845.00~Npp1=2~Name1=Рум Д.А~Nch1=57467657~Sum1= 33333.00~^Date=16.09.2015^ |
|||
2
work92
16.09.15
✎
14:05
|
Строчка="^_Table=";
Т.ДобавитьСтроку(Строчка); КИ = СоздатьОбъект("Справочник.КадровыеДанные"); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Список"); Жрн.ВыбратьЗаписиПоДокументу(ТекущийДокумент()); СуммаИтого=0; Номер=0; СтрокНаЛисте=1000; Стр=0; СуммаПоЛисту=0; НомерЛиста=1; Таб.ВывестиСекцию("Шапка"); Пока Жрн.ПолучитьЗапись()=1 Цикл Если Жрн.Результат=0 Тогда Продолжить; КонецЕсли; л_Таблица.НоваяСтрока(); л_Таблица.Табельный=Жрн.Объект.Код; л_Таблица.ФИО=Жрн.Объект.Наименование; л_Таблица.Сумма=Жрн.Результат; КИ.ИспользоватьВладельца(Жрн.Объект); КИ.ВыбратьЭлементы(); л_Таблица.Лицевой=СокрЛП(КИ.СчетВбанке); КонецЦикла; Если (ТипПлатежа = Перечисление.ТипПлатежа.ВыплатыНаДетей) или (ТипПлатежа = Перечисление.ТипПлатежа.ЕдиновременныеПособия) Тогда Жрн = ЖрнКомпенсации; Жрн.ВыбратьЗаписиПоДокументу(ТекущийДокумент()); Пока Жрн.ПолучитьЗапись()=1 Цикл Если Жрн.Результат=0 Тогда Продолжить; КонецЕсли; л_Таблица.НоваяСтрока(); КИ.ИспользоватьВладельца(Жрн.Объект); КИ.ВыбратьЭлементы(); л_Таблица.Сумма=Жрн.Результат; л_Таблица.ФИО=Жрн.Объект.Наименование; л_Таблица.Табельный=Жрн.Объект.Код; СуммаИтого=СуммаИтого+л_Таблица.Сумма; СтатусСтрока("Обрабатыватся "+Жрн.Объект.Наименование); л_Таблица.Лицевой=СокрЛП(КИ.СчетВбанке); КонецЦикла; КонецЕсли; л_Таблица.Сортировать("Лицевой"); л_Таблица.ВыбратьСтроки(); Пока (л_Таблица.ПолучитьСтроку()=1) Цикл Номер=Номер+1; Если Стр>СтрокНаЛисте Тогда Таб.ВывестиСекцию("ПодвалЛиста"); Таб.ВывестиСекцию("Подписи"); Стр=0; Таб.НоваяСтраница(); СуммаПоЛисту=0; НомерЛиста=НомерЛиста+1; Таб.ВывестиСекцию("Шапка"); КонецЕсли; СуммаИтого=СуммаИтого+л_Таблица.Сумма; СуммаПоЛисту=СуммаПоЛисту+л_Таблица.Сумма; Таб.ВывестиСекцию("Тело"); Стр=Стр+1; Строчка="Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~"; Т.ДобавитьСтроку(Строчка); Конеццикла; Строчка2="^Date="+Формат(ДатаПП,"ДДДММГГГГ")+"^"; Т.ДобавитьСтроку(Строчка2); |
|||
3
work92
16.09.15
✎
14:11
|
Может есть идеи как решить эту вопрос
|
|||
4
ДенисЧ
16.09.15
✎
14:12
|
Вот это Т.ДобавитьСтроку(Строчка); даёт тебе новую строку
|
|||
5
fishb1
16.09.15
✎
14:13
|
Да фиг его знает как оно у вас там в 7-ке. :)
Попробуй наканкатенируй все в одну строку, а потом в самом конце сделай: Т.ДобавитьСтроку(ТекстОднойСтрокой); |
|||
6
fishb1
16.09.15
✎
14:14
|
(5) Т.е. везде по тексту вместо Т.ДобавитьСтроку(Строчка) сделать ТекстОднойСтрокой = ТекстОднойСтрокой + Строчка;
|
|||
7
work92
16.09.15
✎
14:17
|
ТекстОднойСтрокой—ее нету в коде 7.7 эта типа перем
|
|||
8
work92
16.09.15
✎
14:26
|
Не работает этот код
|
|||
9
Builder
16.09.15
✎
14:31
|
ТекстОднойСтрокой="";
Т.ДобавитьСтроку(Строчка) заменить на ТекстОднойСтрокой = ТекстОднойСтрокой+Строчка; Т.ДобавитьСтроку(Строчка2); так же заменить в конце Т.ДобавитьСтроку(ТекстОднойСтрокой) |
|||
10
Лалым
16.09.15
✎
20:45
|
А почему не писать сразу
Строчка="Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~^Date="+Формат(ДатаПП,"ДДДММГГГГ")+"^"; Т.ДобавитьСтроку(Строчка); |
|||
11
G-Re
16.09.15
✎
21:51
|
Строчка=Строчка+"Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~";
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |