![]() |
![]() |
|
Извините , что пишу тему повторно , но очень нужна помощь . Ø (Волшебник 20.02.2017 14:38) |
☑ | ||
---|---|---|---|---|
0
Enot1
20.02.17
✎
14:14
|
(Данные в списке не настоящие)Нужно что бы строка
^_Table= Npp1=1~Name1=Иванов Иван Иванович~Nch1=~Nch2=720000159~Sum1=150,000.00~ Npp1=2~Name1=Петров Петр Петрович~Nch1=~Nch2=720000147~Sum1=540,000.00~^ выводилась одной строчкой , то есть вот так ^_Table=Npp1=1~Name1=Иванов Иван Иванович~Nch1=~Nch2=720000159~Sum1=150,000.00~Npp1=2~Name1=Петров Петр Петрович~Nch1=~Nch2=720000147~Sum1=540,000.00~^ Вот код Процедура ПриОткрытии() ПриЗаписиПерепроводить(1); КонецПроцедуры Процедура Печать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица1"); Таб.Опции(0,0,5,0); Таб.ВывестиСекцию("Шапка"); ВыбратьСтроки(); Ном = 0; Итоги = 0; Пока ПолучитьСтроку() = 1 Цикл Ном = Ном+1; Сотр = Сотрудник; Начислено = Сумма; Итоги = Итоги+Число(Сумма); Таб.ВывестиСекцию("Строка"); КонецЦикла; Таб.ВывестиСекцию("Подвал"); Таб.Показать("Список начисленной з/п"); КонецПроцедуры Процедура Сформировать() Т = СоздатьОбъект("Текст"); ТЗ = СоздатьОбъект("ТаблицаЗначений"); Т.КодоваяСтраница(1); ВыбратьСтроки(); Т.ДобавитьСтроку("***** ^Type=61^ ^Acc=0000000000000" + "^ - Список для зачисления денежных средств на картсчета "); Т.ДобавитьСтроку ("[IN_PARAM]"); Т.ДобавитьСтроку("^_Table="); // Т.ДобавитьСтроку(Строчка); Пока ПолучитьСтроку() = 1 Цикл // Строчка="Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма)+"~^"); // Т.ДобавитьСтроку(Строчка); Т.ДобавитьСтроку("Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма))+"~"+"^"); КонецЦикла; Т.ДобавитьСтроку("^AccountCUR=" + СокрЛП(Формат(Итог("Сумма"),"Ч016.2. ")) + "^"); Т.ДобавитьСтроку ("^AccountCURByWords=^"); Т.ДобавитьСтроку("^Date=" + Формат(ДатаЧисло(ДатаДок),"Ч2.0")+ "." + Формат(ДатаМесяц(ДатаДок),"Ч(0)2.0") + "." + ДатаГод(ДатаДок)+ "^"); Т.ДобавитьСтроку("^DatePP=" + Формат(ДатаЧисло(ДатаПлПоручения),"Ч2.0")+ "." + Формат(ДатаМесяц(ДатаПлПоручения),"Ч(0)2.0") + "." + ДатаГод(ДатаПлПоручения)+ "^"); // Т.ДобавитьСтроку("^ItogByWord=" + СокрЛП(Формат(Итог("Сумма"),"ЧПДС")) + "^"); Т.ДобавитьСтроку("^N_poruch=" + СокрЛП(ПлПоручение) + "^"); Т.ДобавитьСтроку("^N_sp= "+ СокрЛП(НомерСписка) + "^"); Т.ДобавитьСтроку("^Val_N=933^"); Т.ДобавитьСтроку("^Period=" + Формат(ДатаДок,"ДММММ")+" "+ДатаГод(ДатаДок)+ "^"); Т.ДобавитьСтроку("^PeriodMonth=" + Формат(ДатаМесяц(ДатаДок),"Ч(0)2.0") + "^"); Т.ДобавитьСтроку("^PeriodYear=" + ДатаГод(ДатаДок) + "^"); Т.ДобавитьСтроку("^Vid_dohoda=" + СокрЛП(ЗаЧто) + "^"); Т.ДобавитьСтроку("^AccCount=" + СокрЛП(НомерСтроки) + "^"); Т.ДобавитьСтроку("^RefPltID2=71^"); Т.ДобавитьСтроку("^IsRefID1Manual=1^"); Т.ДобавитьСтроку("^ContractID=415^"); Т.ДобавитьСтроку("^ContractNum=333-Z/D600^"); Т.ДобавитьСтроку("^ContractDate=31.05.2010^"); Т.ДобавитьСтроку("^PartnerFace=0^"); Т.ДобавитьСтроку("^CommisPPPerc=^"); Т.ДобавитьСтроку("^CommisPPDate=^"); Т.ДобавитьСтроку("^CommisPPNum=^"); Т.ДобавитьСтроку("^MainPPDebetAcc=3012340690012^"); Т.ДобавитьСтроку("^MainPPDebetAccCurr=933^"); Т.ДобавитьСтроку("^MainPPDebetBank=108^"); Т.ДобавитьСтроку("^MainPPCreditBank=108^"); Т.ДобавитьСтроку("^MainPPCreditUNN=101165625^"); Т.ДобавитьСтроку("^MainPPCreditAcc=3812100000938^"); Т.ДобавитьСтроку("^CommisPPDebetAcc=3012340690012^"); Т.ДобавитьСтроку("^CommisPPCreditBank=108^"); Т.ДобавитьСтроку("^CommisPPDebetAccCurr=933^"); Т.ДобавитьСтроку("^CommisPPDebetBank=108^"); Т.ДобавитьСтроку("^CommisPPCreditUNN=101165625^"); Т.ДобавитьСтроку("^CommisPPCreditAcc=8101101000164^"); Т.ДобавитьСтроку("^ListSignedFacePos=Главный бухгалтер^"); Т.ДобавитьСтроку("^ListSignedFaceName=Демидик Г.Н.^"); Т.ДобавитьСтроку("^_Address=БЕЛАРУСЬ, Гомельская, р-н Гомельский, Ереминский с/с, Деревня Еремино, Улица Сурганова, д.20^"); Т.ДобавитьСтроку("^_Face1=Зубков Виктор Алексеевич^"); Т.ДобавитьСтроку("^_Face2=Демидик Галина Николаевна^"); Т.ДобавитьСтроку("^_AppFace1=Директор^"); Т.ДобавитьСтроку("^_AppFace2=Главный бухгалтер^"); Т.ДобавитьСтроку("^_AccSettl=0000000000000^"); Т.ДобавитьСтроку("^_City=д.Еремино^"); Т.ДобавитьСтроку("^Name=ОАО Гомельхимагро^"); Т.ДобавитьСтроку("^UNN=490493134^"); Т.ДобавитьСтроку("^Version=1^"); Т.ДобавитьСтроку("^_IsAutoImport=0^"); Т.ДобавитьСтроку("[OUT_PARAM]"); Т.ДобавитьСтроку("###################################################"); Т.Записать("E:\query.txt"); Сообщить("Выгрузка з/п завершена!"); КонецПроцедуры |
|||
2
Asmody
20.02.17
✎
14:16
|
"А мы придумаем свой JSON, в лото и матрёшками"
|
|||
3
aka AMIGO
20.02.17
✎
14:16
|
А, понятно..
Отбой моему посту. |
|||
4
Ёпрст
гуру
20.02.17
✎
14:17
|
(0) Добавляйте, разрешаю.
|
|||
5
1Снеговик
гуру
20.02.17
✎
14:17
|
(0) я думал денег попросишь
|
|||
6
Asmody
20.02.17
✎
14:18
|
Ведь кто-то потом эту херню в обратную парсить будет…
|
|||
7
1Снеговик
гуру
20.02.17
✎
14:21
|
(0) первый раз вижу, чтобы два разных разделителя чередовались
|
|||
8
LienXo
20.02.17
✎
14:22
|
Злыдни, все ведь когда то начинали :)
Строчка=""; Пока ПолучитьСтроку() = 1 Цикл Строчка=Строчка + "Npp1..."; КонецЦикла; Т.ДобавитьСтроку(Строчка); примерно так чтоли? |
|||
9
Доминошник
20.02.17
✎
14:27
|
(8) почти так
СтрочкаВывода = "^_Table="; //Т.ДобавитьСтроку("^_Table="); Пока ПолучитьСтроку() = 1 Цикл СтрочкаВывода = СтрочкаВывода + Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма))+"~"; //Т.ДобавитьСтроку("Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма))+"~"+"^"); КонецЦикла; Т.ДобавитьСтроку(СтрочкаВывода + "^"); |
|||
10
Доминошник
20.02.17
✎
14:29
|
(9) Кавычку забыл
СтрочкаВывода = "^_Table="; //Т.ДобавитьСтроку("^_Table="); Пока ПолучитьСтроку() = 1 Цикл СтрочкаВывода = СтрочкаВывода + "Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма))+"~"; //Т.ДобавитьСтроку("Npp1="+СокрЛП(НомерСтроки)+"~Name1="+СокрЛП(Сотрудник)+"~Nch1="+"~Nch2="+СокрЛП(Сотрудник.ЛицевойСчет)+"~Sum1="+СокрЛП(Число(Сумма))+"~"+"^"); КонецЦикла; Т.ДобавитьСтроку(СтрочкаВывода + "^"); |
|||
11
Enot1
20.02.17
✎
14:37
|
Спасибо Вам огромное, очень-очень помогли (8) (10)
|
|||
12
Волшебник
модератор
20.02.17
✎
14:38
|
Тема не отражает суть сообщения.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |