Имя: Пароль:
IT
 
Сворачивание данных?
🠗 (PR 11.10.2011 15:03)
0 Blakangelos
 
11.10.11
14:17
ПОчему когда я сворачиваю таблицу то у меня данные других колонок исчезают?
1 Jstunner
 
11.10.11
14:17
а что там по твоему может быть в итоге?
2 vicof
 
11.10.11
14:17
читай СП
3 Blakangelos
 
11.10.11
14:19
я свернул данные по ндс 0, 10, 18 и указал столбец сложить , тоесть расчитывал получить данные 1 столбец сумма каждого ндс 2 столбец само ндс
4 mzelensky
 
11.10.11
14:19
(3) читай СП, сказали же!
5 Blakangelos
 
11.10.11
14:19
ТаблицаДокумента.Свернуть("СуммаТовара","НДС");
6 vicof
 
11.10.11
14:20
Напиши, что у тебя в СВернуть()
7 Blakangelos
 
11.10.11
14:20
Свернуть(<Колонки группировок>, <Колонки суммирования>)
8 Blakangelos
 
11.10.11
14:20
Есть Сумма и НДС
   100р  -18%
    80р  -10%
    50р  -18%
    60р  - 0%
   100р  -10%
    60р  - 0%
И нужно сгрупировать по НДС и сложить сумму Пример:
150р-18%
180р-10%
120р- 0%
9 Blakangelos
 
11.10.11
14:21
а у меня получается вот так
-18%
-10%
- 0%
10 Blakangelos
 
11.10.11
14:21
почему то он все остальные колонки обнуляет
11 vicof
 
11.10.11
14:21
а если подумать?
12 Blakangelos
 
11.10.11
14:21
хоть я указал сумировать Сумму товара
13 Злобный монстр
 
11.10.11
14:22
(8) Возьми калькулятор и попробуй суммировать "18%" + "10%" + "0%"
14 mzelensky
 
11.10.11
14:22
(0) теперь еще раз внимательно посмотри на (7), (8) и на (9)
15 Живой Ископаемый
 
11.10.11
14:22
показывай код
16 Salvador Limones
 
11.10.11
14:22
<Колонки группировок> - СуммаТовара, а в <Колонки суммирования> - НДС.
И не работает? Странно!
17 Wobland
 
11.10.11
14:22
Blakangelos, уже перестать загаживать секцию
18 mzelensky
 
11.10.11
14:22
Это классический пример поговорки - "смотрю в СП, а вижу..."
19 Salvador Limones
 
11.10.11
14:23
+(16) Это глюк платформы, нужно переустановить сервер.
20 Wobland
 
11.10.11
14:23
(18) п....?
21 Jstunner
 
11.10.11
14:23
(12) палишься
22 Blakangelos
 
11.10.11
14:23
у меня так и указано <Колонки группировок> - НДС, а в <Колонки суммирования> - СуммаТовара.

просто я эксперементировал
23 Живой Ископаемый
 
11.10.11
14:23
2(16) с чего вы взяли? только потому что он написал их названия в таком порядке?
24 Живой Ископаемый
 
11.10.11
14:24
2(22) показывай код
25 Blakangelos
 
11.10.11
14:24
и все а сумировать не хочет
26 vicof
 
11.10.11
14:24
(24) см 5
27 Живой Ископаемый
 
11.10.11
14:25
тогда все, вопрос снимается
28 Blakangelos
 
11.10.11
14:25
ТаблицаДокумента.Свернуть("DocVATRate","TotalPrice");
29 Salvador Limones
 
11.10.11
14:25
(23) Как в (5) написано, с того и взял.
30 Живой Ископаемый
 
11.10.11
14:26
2(28) и что получается в результате?
31 Blakangelos
 
11.10.11
14:26
а у меня получается вот так так
-18%
-10%
- 0%
32 Blakangelos
 
11.10.11
14:27
а все остальные данные с таблицы включая что я указал сумировать исчезло!
33 Blakangelos
 
11.10.11
14:27
только сгрупированное НДС осталось :(
34 vasilii85
 
11.10.11
14:29
Он опять издевается, было уже... ))
35 Salvador Limones
 
11.10.11
14:29
Грузишь что-то из dbf?
36 Злобный монстр
 
11.10.11
14:29
(33) Колонка "TotalPrice" числовая? Остальные у тебя полюбому исчезнут - такова селяви
37 Blakangelos
 
11.10.11
14:29
Народ что не знаеете почему он не хочет сумировать?
38 mzelensky
 
11.10.11
14:29
(30) забей, он не догоняет!
39 Blakangelos
 
11.10.11
14:30
Да
40 Рэйв
 
11.10.11
14:30
Суммировать цены - это както....
41 Blakangelos
 
11.10.11
14:30
там суммы товаров
42 vasilii85
 
11.10.11
14:30
43 Рэйв
 
11.10.11
14:31
(41)Ты или иди читай СП или скажи конкретно и не косноязычно - что значит "исчезают"?
44 vasilii85
 
11.10.11
14:31
(42)+ это за последние три дня..
45 Blakangelos
 
11.10.11
14:31
Там значение числовое почему он их не слаживает?
46 Рэйв
 
11.10.11
14:31
+(43)Тоже мне трах-тибидох...
47 Живой Ископаемый
 
11.10.11
14:31
48 Рэйв
 
11.10.11
14:32
(45)Слаживает- это пять...:-)
49 Salvador Limones
 
11.10.11
14:32
(41) Там не суммы, там текст, потому и не суммируются. Убирай букву "р". Про то что остальное исчезает, смотри в СП.
50 Blakangelos
 
11.10.11
14:32
но числовое же значение!
51 Живой Ископаемый
 
11.10.11
14:33
2(50) с чего взял?
52 vasilii85
 
11.10.11
14:33
все, я пошел,он сейчас часа три будет мозг выносить.
53 Salvador Limones
 
11.10.11
14:33
(50) Точку останова в отладчике и проверь.
54 Blakangelos
 
11.10.11
14:34
Ископаемый не задавай глупых вопросов
55 Blakangelos
 
11.10.11
14:34
щас гляну точку
56 Wobland
 
11.10.11
14:35
(54) с чего взял, что глупые?
57 Живой Ископаемый
 
11.10.11
14:35
Вот у меня точно числовое:
http://screencast.com/t/mhKdq1UgylWi
58 Живой Ископаемый
 
11.10.11
14:36
2(54) какой поциент такие вопросы...
59 Blakangelos
 
11.10.11
14:39
ТЫ понимаешь я не могу писать как ты у меня 9500 строк
60 vicof
 
11.10.11
14:39
(0) "Пол: Женский"
палишься
61 Wobland
 
11.10.11
14:39
(59) чорт, он только до 9000 строк обрабатывать умеет. не повезло тебе
62 Blakangelos
 
11.10.11
14:39
Если в колонке установлен тип и он единственный, то при суммировании будет предприниматься попытка преобразования значения к типу Число.
63 Живой Ископаемый
 
11.10.11
14:40
2(59) разве это мои проблемы?
мы все утверждаем что у вас там нету чисел. Теперь доказываете что это не так.
Не докажете, мы останемся правы.
64 Wobland
 
11.10.11
14:40
(62) преобразуй "60р" в число
65 Salvador Limones
 
11.10.11
14:40
(62) И как попытка? Происходит преобразование?
66 Salvador Limones
 
11.10.11
14:41
(60) Блинннн! Так это тётка? О_О
67 Живой Ископаемый
 
11.10.11
14:41
2(62) с чего взял что он установлен? с чего вязл что будет предприниматься? с чего взял что она будет успешна в твоем случае?
68 Blakangelos
 
11.10.11
14:41
Сам Блин недожареный
69 Wobland
 
11.10.11
14:42
(67) ты поаккуратней. с трёх вопросов сразу его может перемкнуть
70 Blakangelos
 
11.10.11
14:42
Так говорит учебник! или ты теперь диктуешь правила в 1с?
71 Живой Ископаемый
 
11.10.11
14:42
возьми меньшую порцию данных...
72 Живой Ископаемый
 
11.10.11
14:42
2(70) конечно.
73 Blakangelos
 
11.10.11
14:42
как мне данную строчку сделать числовой?
74 Живой Ископаемый
 
11.10.11
14:43
какую строку?
75 Blakangelos
 
11.10.11
14:43
TotalPrice
76 Wobland
 
11.10.11
14:43
(73) дошло? откуда она берётся?
77 Blakangelos
 
11.10.11
14:43
из файла
78 Живой Ископаемый
 
11.10.11
14:44
строку "TotalPrice" никак в число не преобразовать... максимум что получится - 0, и минимум тоже 0...
79 Blakangelos
 
11.10.11
14:44
:) потом в массив строк
80 Живой Ископаемый
 
11.10.11
14:44
как она берется из файла?
81 Wobland
 
11.10.11
14:44
(77) вот и отрезай "р" и делай из оставшегося Число()
82 Blakangelos
 
11.10.11
14:45
там нету Р
83 Wobland
 
11.10.11
14:45
(82) ну, значит, не отрезай
84 Blakangelos
 
11.10.11
14:45
Вот вам --------Перем МассивСтрок;
Процедура ИмяФайлаНачалоВыбора(Элемент, СтандартнаяОбработка)
        // Отключение стандартной обработки
    СтандартнаяОбработка = Ложь;
   
    // Выбор файла Microsoft Excel
    ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ВыборФайла.Фильтр = "Документ Excel (*.txt)|*.txt";
    ВыборФайла.ПроверятьСуществованиеФайла = Истина;
    ВыборФайла.ПолноеИмяФайла = ИмяФайла;
    Выбор = ВыборФайла.Выбрать();
    Если НЕ Выбор Тогда
       
        Возврат;
       
    КонецЕсли;
   
    ИмяФайла = ВыборФайла.ВыбранныеФайлы[0];

КонецПроцедуры

Функция ВыделитьСлово(ИсходнаяСтрока)
   
   Буфер = СокрЛ(ИсходнаяСтрока);
   ПозицияПослПробела = Найти(Буфер, " ");

   Если ПозицияПослПробела = 0 Тогда
       ИсходнаяСтрока = "";
       Возврат Буфер;
   КонецЕсли;
   
   ВыделенноеСлово = СокрЛП(Лев(Буфер, ПозицияПослПробела));
   ИсходнаяСтрока = Сред(ИсходнаяСтрока, ПозицияПослПробела + 1);
   
   Возврат ВыделенноеСлово;
   
КонецФункции

//Процедура ЧтениеТХТФайла()
//    
//    // Проверка на наличие имени файла
//    Если ПустаяСтрока(ИмяФайла) Тогда
//        Предупреждение("Для запуска обработки необходимо предварительно выбрать файл данных.");
//        Возврат;
//    КонецЕсли;
//    
//    // Открыть файл, создать текстовый документ, прочитать
//    ПотокСтрок = ПолучитьПотокЧтенияСтрок(ИмяФайла);
//    
//    // Очистить предыдущие значения
//    ТаблицаДокумента.Очистить();
//    ТаблицаДокумента.Колонки.Очистить();
//    
//    // Создать колонки табличного документа
//    ТаблицаДокумента.Колонки.Добавить("Номер",,"Номер",25);
//    ТаблицаДокумента.Колонки.Добавить("ID",,"ID",25);
//    ТаблицаДокумента.Колонки.Добавить("BankAddress",,"BankAddress",25);
//    ТаблицаДокумента.Колонки.Добавить("BIC",,"BIC",25);
//    ТаблицаДокумента.Колонки.Добавить("Ident",,"Ident",25);
//    ТаблицаДокумента.Колонки.Добавить("INN",,"INN",25);
//    ТаблицаДокумента.Колонки.Добавить("RecipClassId0",,"RecipClassId0",25);
//    ТаблицаДокумента.Колонки.Добавить("RecipClassId1",,"RecipClassId1",25);
//    ТаблицаДокумента.Колонки.Добавить("RecipClassId2",,"RecipClassId2",25);
//    ТаблицаДокумента.Колонки.Добавить("KS",,"KS",25);
//    ТаблицаДокумента.Колонки.Добавить("Title",,"Title",25);
//    ТаблицаДокумента.Колонки.Добавить("Bank",,"Bank",25);
//    ТаблицаДокумента.Колонки.Добавить("OKONH",,"OKONH",25);
//    ТаблицаДокумента.Колонки.Добавить("OKPO",,"OKPO",25);
//    ТаблицаДокумента.Колонки.Добавить("SupplClassId0",,"SupplClassId0",25);
//    ТаблицаДокумента.Колонки.Добавить("SupplClassId1",,"SupplClassId1",25);
//    ТаблицаДокумента.Колонки.Добавить("SupplClassId2",,"SupplClassId2",25);
//    ТаблицаДокумента.Колонки.Добавить("RS",,"RS",25);
//    ТаблицаДокумента.Колонки.Добавить("Passport",,"Passport",25);
//    ТаблицаДокумента.Колонки.Добавить("Tel",,"Tel",25);
//    ТаблицаДокумента.Колонки.Добавить("Fax",,"Fax",25);
//    ТаблицаДокумента.Колонки.Добавить("FAddress",,"FAddress",40);
//    ТаблицаДокумента.Колонки.Добавить("Address",,"Address",70);
//    
//    // Последовательное чтение строк текстового файла
//    КоличествоСтрок = ПотокСтрок.КоличествоСтрок();
//    Для Строка = 1 По КоличествоСтрок Цикл
//                
//        // Обработка нажатия Ctrl + Break
//        ОбработкаПрерыванияПользователя();
//        
//        // Чтение строки из файла тхт / csv
//        СтрокаИзФайла = ПотокСтрок.ПолучитьСтроку(Строка);
//        
//        // Разбор строки в массив, используя в качествен символа-разделителя "|"
//        МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаИзФайла,";");
//        
//        // Добавить данные в табличную часть экранной формы
//        Стр=ТаблицаДокумента.Добавить();
//        Стр.Номер                = Строка;
//        Стр.ID                    = МассивСтрок[0];
//        Стр.BankAddress            = МассивСтрок[1];
//        СТр.BIC                    = МассивСтрок[2];
//        Стр.Ident                = МассивСтрок[3];
//        СТр.INN                    = МассивСтрок[4];
//        СТр.RecipClassId0        = МассивСтрок[5];
//        СТр.RecipClassId1        = МассивСтрок[6];
//        СТр.RecipClassId2        = МассивСтрок[7];
//        СТр.KS                    = МассивСтрок[8];
//        СТр.Title                = МассивСтрок[9];
//        СТр.Bank                = МассивСтрок[10];
//        СТр.OKONH                = МассивСтрок[11];
//        СТр.OKPO                = МассивСтрок[12];
//        СТр.SupplClassId0        = МассивСтрок[13];
//        СТр.SupplClassId1        = МассивСтрок[14];
//        СТр.SupplClassId2        = МассивСтрок[15];
//        СТр.RS                    = МассивСтрок[16];
//        СТр.Passport            = МассивСтрок[17];
//        СТр.Tel                    = МассивСтрок[18];
//        СТр.Fax                    = МассивСтрок[19];
//        СТр.FAddress            = МассивСтрок[20];
//        СТр.Address                = МассивСтрок[21];
//                        
//        // Отобразить информацию о ходе выполнения обработки
//        Состояние("Обработка строки файла : "
//         + "строка " + Строка + " из " + КоличествоСтрок);
//        
//     КонецЦикла;
//    
//     // Отобразить результаты загрузки в форме элемента
//     ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;
//     ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();
//    
// КонецПроцедуры // ЧтениеTXTФайла(Элемент)

Процедура ЧтениеТХТФайла()
   //  Загрузка магазинов
   // Проверка на наличие имени файла
   Если ПустаяСтрока(ИмяФайла) Тогда
       Предупреждение("Для запуска обработки необходимо предварительно выбрать файл данных.");
       Возврат;
   КонецЕсли;
   
   // Открыть файл, создать текстовый документ, прочитать
   ПотокСтрок = ПолучитьПотокЧтенияСтрок(ИмяФайла);
   
   // Очистить предыдущие значения
   ТаблицаДокумента.Очистить();
   ТаблицаДокумента.Колонки.Очистить();
   
   // Создать колонки табличного документа
   ТаблицаДокумента.Колонки.Добавить("Номер",,"Номер",25);
   ТаблицаДокумента.Колонки.Добавить("DocDate",,"DocDate",25);
   ТаблицаДокумента.Колонки.Добавить("OrderDate",,"OrderDate",25);
   ТаблицаДокумента.Колонки.Добавить("CreTime",,"CreTime",25);
   ТаблицаДокумента.Колонки.Добавить("ClientIndex",,"ClientIndex",3);
   ТаблицаДокумента.Колонки.Добавить("CliClassId0",,"CliClassId0",3);
   ТаблицаДокумента.Колонки.Добавить("CliClassId1",,"CliClassId1",3);
   ТаблицаДокумента.Колонки.Добавить("CliClassId2",,"CliClassId2",3);
   ТаблицаДокумента.Колонки.Добавить("CliClassId3",,"CliClassId3",3);
   ТаблицаДокумента.Колонки.Добавить("Shop",,"Shop",3);
   ТаблицаДокумента.Колонки.Добавить("ShopClassId0",,"ShopClassId0",25);
   ТаблицаДокумента.Колонки.Добавить("ShopClassId1",,"ShopClassId1",25);
   ТаблицаДокумента.Колонки.Добавить("ShopClassId2",,"ShopClassId2",25);
   ТаблицаДокумента.Колонки.Добавить("ShopClassId3",,"ShopClassId3",25);
   ТаблицаДокумента.Колонки.Добавить("DocID",,"DocID",25);
   ТаблицаДокумента.Колонки.Добавить("OpCode",,"OpCode",25);
   ТаблицаДокумента.Колонки.Добавить("TotalPrice",,"TotalPrice",25);
   ТаблицаДокумента.Колонки.Добавить("TotalPriceNoTax",,"TotalPriceNoTax",25);
   ТаблицаДокумента.Колонки.Добавить("SupplDocDate",,"SupplDocDate",25);
   ТаблицаДокумента.Колонки.Добавить("IDSupplier",,"IDSupplier",25);
   ТаблицаДокумента.Колонки.Добавить("SupplClassId0",,"SupplClassId0",40);
   ТаблицаДокумента.Колонки.Добавить("SupplClassId1",,"SupplClassId1",70);
   ТаблицаДокумента.Колонки.Добавить("SupplClassId2",,"SupplClassId2",70);
   ТаблицаДокумента.Колонки.Добавить("SupplClassId3",,"SupplClassId3",70);
   ТаблицаДокумента.Колонки.Добавить("SupplDocID",,"SupplDocID",25);
   ТаблицаДокумента.Колонки.Добавить("SupplOpCode",,"ЫЫSupplOpCode",25);
   ТаблицаДокумента.Колонки.Добавить("SupplUserOp",,"SupplUserOp",25);
   ТаблицаДокумента.Колонки.Добавить("SupplVATPayer",,"SupplVATPayer",25);
   ТаблицаДокумента.Колонки.Добавить("SupplDocType",,"SupplDocType",25);
   ТаблицаДокумента.Колонки.Добавить("DiffReason",,"DiffReason",25);
   ТаблицаДокумента.Колонки.Добавить("DocVATRate",,"DocVATRate",25);
   ТаблицаДокумента.Колонки.Добавить("TotalSumVAT",,"TotalSumVAT",25);
   ТаблицаДокумента.Колонки.Добавить("SumWithVAT",,"SumWithVAT",25);
   ТаблицаДокумента.Колонки.Добавить("DocType",,"DocType",25);
   ТаблицаДокумента.Колонки.Добавить("PayCash",,"PayCash ",25);
       
   
   

   // Последовательное чтение строк текстового файла
   КоличествоСтрок = ПотокСтрок.КоличествоСтрок();
   Для Строка = 1 По КоличествоСтрок Цикл
               
       // Обработка нажатия Ctrl + Break
       ОбработкаПрерыванияПользователя();
       
       // Чтение строки из файла тхт / csv
       СтрокаИзФайла = ПотокСтрок.ПолучитьСтроку(Строка);
       
       // Разбор строки в массив, используя в качествен символа-разделителя "|"
       МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаИзФайла,";");
       
       // Добавить данные в табличную часть экранной формы
       Стр=ТаблицаДокумента.Добавить();
       Стр.Номер                    = Строка;
       Стр.DocDate                    = МассивСтрок[0];
       Стр.OrderDate                = МассивСтрок[1];
       СТр.CreTime                    = МассивСтрок[2];
       Стр.ClientIndex                = МассивСтрок[3];
       СТр.CliClassId0                = МассивСтрок[4];
       СТр.CliClassId1                = МассивСтрок[5];
       СТр.CliClassId2                = МассивСтрок[6];
       СТр.CliClassId3                = МассивСтрок[7];
       СТр.Shop                    = МассивСтрок[8];
       СТр.ShopClassId0              = МассивСтрок[9];
       СТр.ShopClassId1            = МассивСтрок[10];
       СТр.ShopClassId2            = МассивСтрок[11];
       СТр.ShopClassId3            = МассивСтрок[12];
       СТр.DocID                    = МассивСтрок[13];
       СТр.OpCode                    = МассивСтрок[14];
       СТр.TotalPrice                = МассивСтрок[15];
       СТр.TotalPriceNoTax            = МассивСтрок[16];
       СТр.SupplDocDate            = МассивСтрок[17];
       СТр.IDSupplier                = МассивСтрок[18];
       СТр.SupplClassId0            = МассивСтрок[19];
       СТр.SupplClassId1            = МассивСтрок[20];
       СТр.SupplClassId2            = МассивСтрок[21];
       СТр.SupplClassId3            = МассивСтрок[22];
       СТр.SupplDocID                = МассивСтрок[23];
       СТр.SupplOpCode                = МассивСтрок[24];
       СТр.SupplUserOp                = МассивСтрок[25];
       СТр.SupplVATPayer            = МассивСтрок[26];
       СТр.SupplDocType            = МассивСтрок[27];
       СТр.DiffReason                = МассивСтрок[28];
       СТр.DocVATRate                = МассивСтрок[29];
       СТр.TotalSumVAT                = МассивСтрок[30];
       СТр.SumWithVAT                = МассивСтрок[31];
       СТр.DocType                    = МассивСтрок[32];
       СТр.PayCash                = МассивСтрок[33];
       
               
       // Отобразить информацию о ходе выполнения обработки
       Состояние("Обработка строки файла : "
        + "строка " + Строка + " из " + КоличествоСтрок);
       
    КонецЦикла;
   
    // Отобразить результаты загрузки в форме элемента
    ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;
    ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();
   
КонецПроцедуры // ЧтениеTXTФайла2(Элемент)

// Функция "расщепляет" строку на подстроки, используя заданный
//        разделитель. Разделитель может иметь любую длину.
//        Если в качестве разделителя задан пробел, рядом стоящие пробелы
//        считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр
//        игнорируются.
//        Например,
//        РазложитьСтрокуВМассивПодстрок(",ку,,,му", ",") возвратит массив значений из пяти элементов,
//        три из которых - пустые строки, а
//        РазложитьСтрокуВМассивПодстрок(" ку   му", " ") возвратит массив значений из двух элементов
//
//    Параметры:
//        Стр -            строка, которую необходимо разложить на подстроки.
//                        Параметр передается по значению.
//        Разделитель -    строка-разделитель, по умолчанию - запятая.
//
//
//    Возвращаемое значение:
//        массив значений, элементы которого - подстроки
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
   
   МассивСтрок = Новый Массив();
   Если Разделитель = " " Тогда
       Стр = СокрЛП(Стр);
       Пока Истина Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = СокрЛ(Сред(Стр,Поз));
       КонецЦикла;
   Иначе
       ДлинаРазделителя = СтрДлина(Разделитель);
       Пока Истина Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = Сред(Стр,Поз+ДлинаРазделителя);
       КонецЦикла;
   КонецЕсли;
   
КонецФункции // глРазложить

Функция ПолучитьПотокЧтенияСтрок(Файл)
   Попытка
       // Используется для доступа к параметрам файлов или каталогов.
       ТекстовыйФайл = Новый Файл(Файл);
       Если ТекстовыйФайл.Существует() = Ложь Тогда
           Сообщить("Файла "+Файл+" не существует!");
           Возврат Неопределено;
       КонецЕсли;
       // Текстовый документ предназначен для работы с текстами.
       // Объект позволяет получать и сохранять текст в файле,
       // работать со строками
       ПотокЧтенияСтрок = Новый ТекстовыйДокумент();
       ПотокЧтенияСтрок.Прочитать(Файл);
   Исключение
       Сообщить("Файл не прочитан.", СтатусСообщения.Внимание);
       Сообщить(ОписаниеОшибки());
       Возврат Неопределено;
   КонецПопытки;
   // Возвращает текст, извлеченный из файла
   Возврат ПотокЧтенияСтрок;
КонецФункции // ПолучитьПотокЧтенияСтрок
///////////////////////////
Функция КнопкаВыполнитьНажатие(Кнопка,МассивСтрок,Стр)
  // НовыйЭлемент=Справочники.ФизическиеЛица;
  // имяфайла="G:\5 Хлебов\_ЭКСПОРТ В\20110922151403_Clients.csv";
  // ЧтениеТХТФайла();
  // мНаборЗаписейФИО  = РегистрыСведений.ФИОФизЛиц.СоздатьНаборЗаписей();
  // Для Title=1 по ТаблицаДокумента.Количество() Цикл
  //   СпрФЛ=НовыйЭлемент.СоздатьЭлемент();
  //   ФИО=ТаблицаДокумента.Получить(Title).Получить(10);
  //   СпрФЛ.Наименование=ФИО;
  //      Фамилия  = ВыделитьСлово(ФИО);
  //    Имя      = ВыделитьСлово(ФИО);
  //    Отчество = ВыделитьСлово(ФИО);
  // СпрФЛ.Записать();
  //      
  //
  // строкафио=мНаборЗаписейФИО.Добавить();
  // строкафио.ФизЛицо= СпрФЛ.Ссылка;
  // строкафио.Фамилия= Фамилия;
  // строкафио.Имя= Имя;
  // строкафио.Отчество= Отчество;
  // строкафио.период=ТекущаяДата();
  //    
  // Если  Title=10540 тогда прервать;
  // КонецЕсли;
  // КонецЦикла;
  //мНаборЗаписейФИО.Записать();

   имяфайла="G:\5 Хлебов\_ЭКСПОРТ В\20110922151403_DocsOLAP.csv";
   ЧтениеТХТФайла();
   
   ТаблицаДокумента.Свернуть("DocVATRate","TotalPrice");
   //Сообщить();
//    Для Title=0 по МассивСтрок.Количество()-1 Цикл
//      Стр[ТаблицаДокумента.Колонки[Title].Имя]=МассивСтрок[Title];
//      НовыйЭлемент.Наименование=МассивСтрок[Title];
//      НовыйЭлемент.Записать();
//  КонецЦикла;
 
КонецФункции
85 Живой Ископаемый
 
11.10.11
14:46
это конечно все объясняет.
86 Blakangelos
 
11.10.11
14:46
все что штриховано это другая программа
87 Wobland
 
11.10.11
14:47
дайте мне кикебану на полминуты...
по делу я всё сказал
88 vicof
 
11.10.11
14:47
(86) что за 5 хлебов?
89 Живой Ископаемый
 
11.10.11
14:47
Врака номер раз:

  ТаблицаДокумента.Колонки.Добавить("DiffReason",,"DiffReason",25);
  ТаблицаДокумента.Колонки.Добавить("DocVATRate",,"DocVATRate",25);
  ТаблицаДокумента.Колонки.Добавить("TotalSumVAT",,"TotalSumVAT",25);
  ТаблицаДокумента.Колонки.Добавить("SumWithVAT",,"SumWithVAT",25);


Тип колонки не установлен.

http://lurkmore.ru/Файл:Vrusha_lolifox.jpg
90 Живой Ископаемый
 
11.10.11
14:48
СТр.DocVATRate                = МассивСтрок[29];

Нет преобразования к числу. У тебя там строки, тетка...
http://lurkmore.ru/Файл:Vrusha_lolifox.jpg
91 Blakangelos
 
11.10.11
14:49
как его поставить?
92 Живой Ископаемый
 
11.10.11
14:49
в СП написано как.
93 Blakangelos
 
11.10.11
14:49
подсказать сложно? там 4000 стр
94 Blakangelos
 
11.10.11
14:50
я все не успела прочитать
95 vasilii85
 
11.10.11
14:50
(94)ой, ла ла..
96 Blakangelos
 
11.10.11
14:51
писать только по делу
97 Живой Ископаемый
 
11.10.11
14:52
2(93) боже, где 4000 страниц?
http://screencast.com/t/27btHWv25gbT

2(96) а не то что? расплачешься и убежишь?
98 Salvador Limones
 
11.10.11
14:52
(96) Простите, тётенька, я больше не буду.
99 Blakangelos
 
11.10.11
14:53
Тип поставить число? можно же только у одной колонки поставить тип?
100 Живой Ископаемый
 
11.10.11
14:54
2(99) Уже нет... нужно ставить во всех.
101 Beduin
 
11.10.11
14:54
ТаблицаДокумента.Свернуть("НДС","СуммаТовара");
102 Живой Ископаемый
 
11.10.11
14:54
такое вот наказание.
103 Beduin
 
11.10.11
14:54
(100) Блин не успел на 100
104 Живой Ископаемый
 
11.10.11
14:55
2(101) ничего не выходит:
http://screencast.com/t/kuKCxIkR
все равно нули!
105 Blakangelos
 
11.10.11
14:56
почему???
106 Salvador Limones
 
11.10.11
14:56
(105) Пиши, пожалуйста, пост, к кому ты обращаешься. Просто номер в скобках.
107 Beduin
 
11.10.11
14:56
(104) Кавычки у сумм убери.
108 Blakangelos
 
11.10.11
14:57
а когда я ставлю тип мне пишет несоответствие параметров!ТИП
109 Живой Ископаемый
 
11.10.11
14:57
(105) потому что (72)
110 Beduin
 
11.10.11
14:57
(105) Ник напоминает Bolgenos
111 Живой Ископаемый
 
11.10.11
14:57
2(108) а какой ты ставишь тип?
112 vasilii85
 
11.10.11
14:58
(104) а у тебя что не выходит?
113 Blakangelos
 
11.10.11
14:58
(110) Иди у себя напоминай  а в моей темке не мусори
114 Vladal
 
11.10.11
14:58
(47) А только один я увидел в списке запросов волшебное слово BolgenOS в кирилической транскрипции?
115 Ненавижу 1С
 
гуру
11.10.11
14:58
да привиди ты эту колонку к числовому типу уже!
116 Живой Ископаемый
 
11.10.11
14:58
2(113) а не то что случится? проклянешь?
117 Blakangelos
 
11.10.11
14:58
(111)"Число"
118 Beduin
 
11.10.11
14:59
(113) тут по моему LIFE ветка
119 Живой Ископаемый
 
11.10.11
14:59
2(117) лох, так нельзя
120 Ненавижу 1С
 
гуру
11.10.11
14:59
(0) Автор, давай лучше встретимся и поговорим про Неопределено и NULL.
Все равно эти бестолочи только глумиться могут.
121 Рэйв
 
11.10.11
15:00
(119)*лохушка
:-))
122 Blakangelos
 
11.10.11
15:00
(119) От лоха слышу! почему нельзя?
123 Дикообразко
 
11.10.11
15:01
ну все?
данные уже скатали?
124 Живой Ископаемый
 
11.10.11
15:01
потому что (72) я сказал нельзя, значит все.
125 Живой Ископаемый
 
11.10.11
15:02
не нравится мне так потому что... что за "число" почему не "цифра"?
126 Живой Ископаемый
 
11.10.11
15:04
мне нравится когда так:
http://screencast.com/t/EWRpygtwt0TU
127 Blakangelos
 
11.10.11
15:04
Я посмотрел какие типы бывают и там есть "число"!
128 Живой Ископаемый
 
11.10.11
15:05
(127) где посмотрел?
129 Blakangelos
 
11.10.11
15:05
на твоём скриншоте http://screencast.com/t/27btHWv25gbT
130 Blakangelos
 
11.10.11
15:07
Сосредоточенность и простота — вот моя мантра. Тяжелее добиться простоты, чем усложненности. Нужно работать изо всех сил, чтобы начать мыслить ясно и сделать какую-нибудь простую вещь. И когда у вас это получается — вы становитесь всесильным.
131 Blakangelos
 
11.10.11
15:07
(128) на твоём скриншоте http://screencast.com/t/27btHWv25gbT
132 Живой Ископаемый
 
11.10.11
15:07
2(129) тетка, к окулисту... у тебя строчки скачут. на моем скриншоте написано что параметр "Тип" может принимать значение типа "ОписаниеТипов" а про число написано по поводу Ширины
133 Blakangelos
 
11.10.11
15:08
как тогда его сделать числом?
134 Blakangelos
 
11.10.11
15:09
лёгкая задачка а никто не может дагадаться
135 Живой Ископаемый
 
11.10.11
15:09
На моем скриншоте из (126)
136 Blakangelos
 
11.10.11
15:13
написать Массив.добавить(тип (чило)); ?
137 stix2010
 
11.10.11
15:13
(0) тупая ветка, ставка Ндс в группировке  должна быть
...Свернуть("Товар,СтавкаНДС", "СуммаТовара")
138 Blakangelos
 
11.10.11
15:14
(135)написать Массив.добавить(тип ("число")); ?
139 Blakangelos
 
11.10.11
15:14
(137) ПРичем товар? откуда ты его взял?
140 Живой Ископаемый
 
11.10.11
15:15
2(138) только если хочется еще на форуме сто постов писать
если хочется все-таки свернуть таблицу, то нужно написать еще две строчки. Одну выше, другую ниже...
и исправить строку, которой добавляешь колонку
141 stix2010
 
11.10.11
15:15
(5) .Свернуть("СтавкаНДС", "СуммаТовара") 1 параметр -группировка, второй суммируемые колонки
142 Злобный монстр
 
11.10.11
15:17
(141) Ты просто всю широту проблемы не вкурил еще...
143 Blakangelos
 
11.10.11
15:17
БудьЛаска подскажи мммм
144 stix2010
 
11.10.11
15:17
(139) для примера, для сворачивания, желательно описывать типы колонок в конструкторе
145 Blakangelos
 
11.10.11
15:17
я работаю без конструктора
146 Blakangelos
 
11.10.11
15:17
(140) БудьЛаска подскажи мммм
147 Живой Ископаемый
 
11.10.11
15:18
Я не могу, я слово дал.
148 Blakangelos
 
11.10.11
15:19
(147) Ну не тяни быка за хвост подскажи
149 stix2010
 
11.10.11
15:20
ТаблицаДокумента.Колонки.Добавить("TotalSumVAT",,"TotalSumVAT",25);

Это че? таблица значений?
150 stix2010
 
11.10.11
15:22
не суммируются колонки, если в столбце есть значение нечислового типа
151 Blakangelos
 
11.10.11
15:22
(149)это я вывожу в окошко загруженные значения
152 Blakangelos
 
11.10.11
15:23
Как мне сделать чиловым типом колнку TotalPrice ?
153 Blakangelos
 
11.10.11
15:25
Люди Добрые не обесудте помогите , сделать колонкуууу числовым Типом
154 stix2010
 
11.10.11
15:26
ctrl+F1 Колонки.Добавить
155 Blakangelos
 
11.10.11
15:27
АААА люди за что вы меня оставили с   stix2010 ......помогите
156 stix2010
 
11.10.11
15:28
ТаблицаДокумента.Колонки.Добавить("TotalSumVAT",Новый КвалификаторыЧисла(12,2),"TotalSumVAT",25);
157 Salvador Limones
 
11.10.11
15:29
(155) У тебя фотки нет.
158 stix2010
 
11.10.11
15:30
КЧ = Новый КвалификаторыЧисла(12,2);
Массив = Новый Массив;
Массив.Добавить(Тип("Число"));
ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);

...
ТаблицаДокумента.Колонки.Добавить("TotalSumVAT",ОписаниеТиповЧ,"TotalSumVAT",25);
159 Blakangelos
 
11.10.11
15:31
(158)И это точно мне поможет?
160 Salvador Limones
 
11.10.11
15:31
(159) Нет.
161 stix2010
 
11.10.11
15:32
(159) звоните в психушку
162 Blakangelos
 
11.10.11
15:34
(160) УБЕЙСЯ!злыдня
163 Blakangelos
 
11.10.11
15:35
ПОчему (12,2)
164 Blakangelos
 
11.10.11
15:36
Выдает ошибку {
Форма.Форма.Форма(166)}: Ошибка при вызове метода контекста (Добавить)
   ТаблицаДокумента.Колонки.Добавить("TotalPrice","ОписаниеТиповЧ","TotalPrice",25);
165 Salvador Limones
 
11.10.11
15:37
(164) Кавычки во 2-ом параметре убери, изверг!
166 Blakangelos
 
11.10.11
15:38
АЛИЛУЮ РАБОТАЕТ!
167 Blakangelos
 
11.10.11
15:39
ВСЕМ БОЛЬШОЕ СПАСИБО!!!!!




админ темку закрой будь добр
168 Salvador Limones
 
11.10.11
15:39
(167) Нет.
169 Blakangelos
 
11.10.11
15:39
ДААААА
170 Злобный монстр
 
11.10.11
15:40
to be continued...
171 stix2010
 
11.10.11
15:43
(167) спасибо не булькает и не пенится
172 Blakangelos
 
11.10.11
15:45
(171)номер счета скажи я тебе на бульканье скину
173 Blakangelos
 
11.10.11
15:48
stix2010 номер телефона или номер счета скажи я тебе на бульканье скину
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн