Имя: Пароль:
1C
 
Извините , что пишу тему повторно , но очень нужна помощь .
Ø (Волшебник 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
Тема не отражает суть сообщения.