8.3 Управляемое приложение

У каждого физ.лица есть реквизит "Коэффициент". У многих он одинаковый. Подскажите, как мне сформировать dbf-файлы таким образом, чтобы они были сгруппированы по этим коэффициентам? Вот код:

&НаКлиенте
Процедура СформироватьФайл(Команда)
    
    БД = Новый XBase;
    БД.поля.Добавить("FIO", "S", "30");
    БД.поля.Добавить("LCHET", "S", "30");
    БД.поля.Добавить("KOEFF", "S", "30");
    БД.поля.Добавить("SUMMA", "S", "30");
    БД.СоздатьФайл(Каталог + "\" + ИмяФайла + ".dbf");
    БД.Записать();
    
    Массив = ВыборкаНаСервере();
    
    Для каждого Строка Из Массив Цикл
        // вот здесь как раскидать ФЛ по разным dbf-файлам,
        // в зависимости от Коэффициента
        
        БД.Добавить();
        
    КонецЦикла;
    
КонецПроцедуры


&НаСервере
Функция ВыборкаНаСервере()
    
    Массив = Новый Массив;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник.ФизическоеЛицо КАК ФЛ,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.НомерЛицевогоСчета,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник.ФизическоеЛицо.Коэффициент КАК Коэффициент,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.КВыплате
    |ИЗ
    |    Документ.ВедомостьНаВыплатуЗарплатыВБанк.Зарплата КАК ВедомостьНаВыплатуЗарплатыВБанкЗарплата
    |ГДЕ
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка = &Докум";
    
    Запрос.УстановитьПараметр("Докум", Докум);
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    Пока Выборка.Следующий() Цикл
        
        Структура = Новый Структура;
        Структура.Вставить("Фамилия", Выборка.ФЛ);
        Структура.Вставить("НомерЛицевогоСчета", Выборка.НомерЛицевогоСчета);
        Структура.Вставить("КВыплате", Выборка.КВыплате);
        Структура.Вставить("Коэффициент", Выборка.Коэффициент);
        
        Массив.Добавить(Структура);
        
    КонецЦикла;
    
КонецЦикла;

Возврат(Массив);

КонецФункции

а что за Коэффициент -- какой его сымсл ?

Сортировать в запросе научить?

Упорядочить ПО ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник.ФизическоеЛицо.Коэффициент

(0) в запросе сделать группировку типа Итоги, делать выборку по группировкам, внути создавать и заполнять дбфки.

(3) Так не получится, т.к. дбфки заполняться должны НаКлиенте (у нас кодировка на сервере неверная). Поэтому запрос я передаю в виде массива на клиента.

(2) Ваш вариант тоже не подойдет нам, по той же причине, что в (4) я написала.

(4) верни массив массивов структур

(6) Ничего не поняла... Это как???

(7)
Массив = Новый Массив();
Массив1 = Новый Массив();
Массив1.Добавить(Новый Структура());
Массив.Добавить(Массив1);

Ничего не понятно. Массив, кодировки на клиенте и сервере разные, передавать тудя-сюда... В чем проблема, я не понимаю.
При чем тут вообще клиент-сервер?
Кодировку, не установить нужную?
Нафига масссив передавать?

(9) она на клиенте дбф создает. По какой причине - не важно.

(7) Для каждого значения коэффициента получаешь структуру (Коэффициент, Данные) и помещаешь их в массив.  
Данные - это массив структур, как в твоём примере, но можно без коэф-та.
И не забудь поле "ФЛ" в запросе перевести в строку.

(8) Спасибо. Но я не поняла из Вашего примера, где тут отбор по коэффициенту?

Физ.лиц у нас примерно 1000человек. Коэффициентов примерно 70, соответственно должно сформироваться 70дбф-файлов.
А все коэффициенты прописывать - будет неправильным... Как это сделать???

Т.е. если у физ.лиц повторяется коэффициент, то они попадают в один дбф-файл.

(11) Как это написать??? Мне что-то подобное и нужно сделать.

(15) Сортируешь запрос по коэф-ту, выборку перебираешь 2-мя циклами, внешний СледующийПоЗначениюПоля("Коэф"), здесь создаешь структуру, заполняешь её, как у тебя в примере, после этого добавляешь в результирующий массив.

(16) Я это не осилю ((( Помогите пож-та...

(17) Ты заранее не сдавайся, начни и всё получится.
Кстати, ты уверена, что нужно создавать так много файлов, под каждый коэффициент? Гораздо удобней обрабатывать один файл.

HELP!!! Кто-нибудь!!!

А нельзя разве ТЗ передать с сервера на клиента ?
Ну или двумерный массив ?
У меня, помнится, всё содержимое листа Excel в виде двумерного массива между сервером и клиентом бегало без проблем.

А, извините, "листопад"-то женского полу - может и не получиться.

(20) нету ТЗ/ДЗ на клиентах

и дбф зачем? в экселе смотреть удобнее

(22) Зато есть табличные части. Доступны и на сервере и без гемора визуализируются на клиенте.

Up!

(25) Выбери данные в запросе вместе с коэффициентом во временную таблицу, потом из неё выбери с сортировкой по коэффициенту - потом, то что выбрали в ТЗ - после этого ТЗ - в массив и на клиента - а там пиши всё в dbf, если так хочется.
Какое слово не понятно ?

(25) Чего "Up!"? Что не получается? Только по буквам и пытаться вопрос прочитать самостоятельно. А то из вот этого вот "сформировать dbf-файлы таким образом, чтобы они были сгруппированы" нифига не понятно.
Что означает фраза "файлы сгуппированы"? Это значит лежат в одном каталоге?

(27) Я, например, понял, что файл один, а записи в нём сортированы.

Что вы теоритизируете? Не видите - девушке готовый код нужен.

(28) Таки у ТС проблема посортировать выборку запроса?
В самом запросе или выгрузив в ТЧ/ТЗ и посортировать там?

Мне это неинтересно, я женат.

(29) Показать ей где в конструкторе запроса вкладка "Порядок" - поможет?

(32) А, так там даже в самом запросе есть этот коэффициент - тогда да - достаточно ткнуть носом во вкладку.
(31) Тут, видимо, все в таком же состоянии. Потом, красивых глаз для готового кода не достаточно.

Алчные, скупые, мелочные гении

Объясняю. В ведомости есть:
ФИО, №лицевого, Коэфф-т, Сумма.

Вот так:
Иванов   1111111   25   1000
Петров   2222222   15   2000
Сидоров  3333333   25   5000

В данном примере, у меня должно получиться два дбф-файла, т.к. у Иванова и Сидорова одинаковый коэфф-т (25), то они попадают в один файл. А Петров будет в другом дбф-файле. Т.е. на выходе получить должны:

Первый дбф-файл:
Иванов   1111111   25   1000
Сидоров  3333333   25   5000

Второй дбф-файл:
Петров   2222222   15   2000

(31) она уже что-то предлагала ?

(35) в какой банк идёт выгрузка ?

(35) Отсортировать таблицу по коэффициенту - это просто.
Потом, догадаться при переборе, что если коэффициент меняется, то закрываем старый файл (если открыт, чтобы первую запись обработать) и открываем новый.
Так ?

Написала, как посоветовали в (16), но все равно собирается все в один дбф-файл. Вот код:

&НаКлиенте
Процедура СформироватьФайл(Команда)
    
    БД = Новый XBase;
    БД.поля.Добавить("FIO", "S", "30");
    БД.поля.Добавить("LCHET", "S", "30");
    БД.поля.Добавить("KOEFF", "S", "30");
    БД.поля.Добавить("SUMMA", "S", "30");
    БД.СоздатьФайл(Каталог + "\" + ИмяФайла + ".dbf");
    БД.Записать();
    
    Массив = ВыборкаНаСервере();
    
    Для каждого Строка Из Массив Цикл
        // вот здесь как раскидать ФЛ по разным dbf-файлам,
        // в зависимости от Коэффициента
        
        БД.Добавить();
        
    КонецЦикла;
    
КонецПроцедуры


&НаСервере
Функция ВыборкаНаСервере()
    
    Массив = Новый Массив;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник.ФизическоеЛицо КАК ФЛ,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.НомерЛицевогоСчета,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник.ФизическоеЛицо.Коэффициент КАК Коэффициент,
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.КВыплате
    |ИЗ
    |    Документ.ВедомостьНаВыплатуЗарплатыВБанк.Зарплата КАК ВедомостьНаВыплатуЗарплатыВБанкЗарплата
    |ГДЕ
    |    ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка = &Докум";
    
    Запрос.УстановитьПараметр("Докум", Докум);
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    Пока Выборка.СледующийПоЗначениюПоля("Коэффициент") Цикл
        
        Структура = Новый Структура;
        Структура.Вставить("Фамилия", Выборка.ФЛ);
        Структура.Вставить("НомерЛицевогоСчета", Выборка.НомерЛицевогоСчета);
        Структура.Вставить("КВыплате", Выборка.КВыплате);
        Структура.Вставить("Коэффициент", Выборка.Коэффициент);
        
        Пока Выборка.Следующий() Цикл
            
            Массив.Добавить(Структура);
            
        КонецЦикла;
        
    КонецЦикла;
    
    Возврат(Массив);
    
КонецФункции

(39) Читаем внимательно (38) и думаем, как проверить, что коэффициент изменился (запомнить значение с предыдущей строки).

(38) Да!!! Как мне догадаться при переборе, что если коэффициент меняется, то закрываем старый файл (если открыт, чтобы первую запись обработать) и открываем новый???

Кстати, самый главный вопрос - как формируется имя файла ?

(41) Человек, который открывает конфигуратор, чтобы писать код, не должен задавать такой вопрос.

(42) Имя файла совпадает с коэфф-том.

ПрошлыйКоэффициент=НЕОПРЕДЕЛЕНО;
БД=НЕОПРЕДЕЛЕНО;
Для Каждого Эл из НашМассив Цикл
Если ПрошлыйКоэффицент=НЕОПРЕДЕЛЕНО Тогда
  СоздаёмНовыйФайл=Истина;
Иначе Если ПрошлыйКоэффицент=Эл.Коэффициент Тогда
  СоздаёмНовыйФайл=Ложь;
Иначе
  СоздаёмНовыйФайл=Истина;
КонецЕсли;
Если СоздаёмНовыйФайл=Истина Тогда
  ПрошлыйКоэффицент=Эл.Коэффициент;
  Если БД<>НЕОПРЕДЕЛЕНО Тогда БД.Закрыть();КонецЕсли;
  БД=Новый ХBase;
  // здесь поля
  БД.Создать(Каталог+ПрошлыйКоэффицент+".dbf");
КонецЕсли;
// здесь записываем элемент
КонецЦикла;
Если БД<>НЕОПРЕДЕЛЕНО Тогда БД.Закрыть();КонецЕсли;
P.S. не помню, а есть ли команда БД.Закрыть() или файл закрывается БД=НЕОПРЕДЕЛЕНО, но это вы сами проверите.

(45) у всё, сейчас она тебя поведёт в ресторан

(35)
1. Отсортировать в запросе.
2. при обходе структуры примерно такой код :

&НаКлиенте
Функция СформироватьДБФ()
    БД = Новый XBase;
    БД.поля.Добавить("FIO", "S", "30");
    БД.поля.Добавить("LCHET", "S", "30");
    БД.поля.Добавить("KOEFF", "S", "30");
    БД.поля.Добавить("SUMMA", "S", "30");
    //*** откуда берется ИмяФайла - непонятно
    //*** но пока оставим так.
    БД.СоздатьФайл(Каталог + "\" + ИмяФайла + ".dbf");
    БД.Записать();
    Возврат БД;
КонецФункции

&НаКлиенте
Процедура СформироватьФайл(Команда)

    Массив = ВыборкаНаСервере();
    БД = Неопределено;
    текКоэфиициент = 0; // ну или такой которого
                        // гарантированно не будет в выборка (например Неопределено)

    Для Каждого Запись ИЗ Массив[0] Цикл
    //Вообще тоже непонятно зачем массив с единственным элементом
        Если Запись.Коэффициент <> текКоэфиициент Тогда
            Если БД <> Неопределено Тогда
                БД.ЗакрытьФайл();
            КонецЕсли;
            БД = СформироватьДБФ();
        КонецЕсли;
        БД.Добавить();
        БД.FIO = Запись.;
        БД.LCHET = ...;
        ...
    КонецЦикла;
КонецПроцедуры

(46) Нет уж, лучше потом пусть помогает отчётность с бумажек набивать - у меня, иногда, для этого работников не хватает.

+ (47)
В проверку добавить присвоение нового коэфиициента
Если Запись.Коэффициент <> текКоэфиициент Тогда
   Если БД <> Неопределено Тогда
      БД.ЗакрытьФайл();
   КонецЕсли;
   БД = СформироватьДБФ();

   //****** вот здесь
   текКоэфиициент = Запись.Коэффициент;
   //******
КонецЕсли;

(48) ты не автоматизировал себе процесс этот ?

(45) Спасибо большое! Сейчас попробую. Только уточните еще пож-та, а запрос оставляю как в (0) или как в (39) я написала?

(47) Спасибо. Ваш вариант тоже попробую.

Отпишусь что получилось в результате...

(51) В (39) Фигня полная написана.
В запрос нужно добавить "Упорядочить по", а в структуру - пихать каждую строку - боюсь, что код из (39) придётся просто выкинуть.

(53) Прощу прощения, а где УпорядочитьПо написать?

(54) А где это обычно пишется ? В запросе, конечно, и в правильном месте.

(55) Нашла )))

(51) Учти, что строчку "Для Каждого Эл из НашМассив Цикл" придется переписать. У тебя в массиве единственный элемент. А обходить нужно "элементы этого элемента". Тавтология конечно, но единственным элементом массива будет структура. Вот ее элементы и нужно будет обходить.
А вообще отлаживать придется и (45) и (47).

(57) В (39) Там и в структуре будет один элемент, так как более чем один туда просто не влезет.
В итоге, это реализация схемы "последний герой".

Точнее, там будет "замечательный массив" в котором первый чувак с коэффициентом будет упомянут столько раз, сколько человек с коэффициентом было обнаружено.
Так что массив-то, конечно, можно перебирать, но это не спасёт.

в (45) не поняла:
СоздаёмНовыйФайл - это что?

зачем вы так мучаетесь ?

создайте реквизит формы ДЗ

выгрузите в него данные

далее программно создайте элемент табличу формы, связанную с ДЗ

и обойдите её

(60) см СформироватьДБФ() из(47)

Запутали совсем...

(63) пора спать уже

(64) Сначала ресторан, потом спать ))

(65) он же не предлагет

Я понял, почему "листопад" - когда дятел "глумиться" над деревом "сверх нормы", то с него начинают падать листья, а "листопад" - это когда уже полностью "задолбал".

P.S. не обижайтесь, но за вас уже несколько раз задачу решили, а вам всё мало.

(66) Нет, я только представил себе поход в ресторан:
Как был, "листопад" - крутой чувак, в красной кепочке и чёрном костюме - говорит, что, дескать, знаю замечательное место, где наши всегда бывают.
Ну, раз так, значит - идём.
А дальше, как всегда - непонятные переулки в центре города, где, вроде бы и есть жизнь, но вокруг развалины, и даже трудно пройти.
Заходим в какой-то подвал с забавной вывеской "весёлый стук".
Железные столы, стальные стулья и каменный пол.
Заказываем чего-то свежее, как сказал официант - пользуется спросом, ну - не вопрос - раз пользуется, так, значит, не отравят.
Ждём немного - официант приносит две таких больших стальных тарелки, немного помятых, как будто на них гвозди распрямляли, и, самое главное пустых.
Ставят керамические чашки, полные какой-то жидкости.
Я спрашиваю - что это - официант отвечает - как обычно - берёзовый сок - свежевыжатый.
Ну, сок как сок - пить можно - опилки же не плавают.
И тут приносят еду - два больших еловых полена - запах смолы и коры наполняет помещение.
Это наше фирменное - ель с дубовыми вставками - изрекает официант.
Я смотрю на полено, потом на официанта, и понимаю, что окружающая действительность перестаёт меня радовать, и мне очень сильно хочется домой.
"Листопадец", тем временем начинает поедание - стоит громкий треск и хруст - теперь я понимаю, почему тарелки так выглядят - ведь вместо столовых приборов выдают стамеску и киянку.
И вот - уже половины полена, как ни бывало.
Я же верчу своё в руках из стороны в сторону и с грустным взглядом изрекаю фразу - эх, надо было программировать на Java или хотя бы на php, тогда бы было что-то вкуснее.
... и тут я проснулся.

(68) а я-то думаю: почему в красной шапочке? :)

(68) о, класс, сказки уже начались...

(68) вот это да

Массив..  в массив структура..  обкурились штоле?

(45) Вообще нечитаемо.

В этой теме массовое умопомрачение что ли (или я невнимательно читаю)?
Выборка из результата запроса очень замечательно передается на Клиент, а сделать Итоги по коэффициенту еще Asmody в (3) предложил.

(73) Доступность:

Сервер, толстый клиент, внешнее соединение, мобильное приложение(сервер).

(74) "толстый клиент" — есть же, что не так?

(68) Предлагаю название "Ужин с бобром".

(75) Как бы 1с по умолчанию очень любит запускать именно тонкого. Поэтому нужно уточнять.

(77) Согласен. Если очень нужно именно тонкого клиента, то обход выборки сделать на Сервере, а на клиента передавать структуру:

СтруктураФайла = Новый Структура("Коэф, ДанныеКоэф", Выборка.Коэффициент, МассивДанных);


отсортировать по Физлицо+Коэффициент, потом вернуть массив

ТекКоэффициент = Массив[0].Коэффициент;
ТекФизлоцо = Массив[0].Физлицо;
Пока не Массив.Конец Цикл
  Если ТекФизлоцо <> Массив[0].Физлицо Тогда
    // началось новое физлицо
  КонецЕсли;
  Если ТекКоэффициент <> Массив[0].Коэффициент Тогда
   // начался новый коэффициент
  КонецЕсли;
  ТекКоэффициент = Массив[0].Коэффициент;
  ТекФизлоцо = Массив[0].Физлицо;

в последних двух строчках Массив[0] читать, как Массив[ТекИтерацияЦикла]

(79) Там вроде бы в условии, что нужно и сам коэффициент вернуть (в имени файла будет использоваться) и еще поля ЛицевойСчет и кВыплате. Видимо придется передавать ТЗ в реквизит формы...

(81) массив соответствий с соответствиями

(76) Ну какой там бобёр - там самый настоящий ДЯТЕЛ.
Бобра-то на мех сдать можно или попросить деревья нарубить, а что может дятел ?

(82) Чем просто массив в массиве не устраивает ?

(83) на перья. И дырку в стволе продубить может...

(85) Ну да, представляем такой восточный рынок, где полно всякой всячины. Стоит такая бабушка неизвестного возраста, и у неё большой тряпичный мешок, а на нём табличка "Перо дятла".