Множественность выбора при формировании отчетов

@larusso · Регистрация: 15.04.2015

Author24 — интернет-сервис помощи студентам

коллеги, помогите правильно "обвязать" работу с формой.
идея такая:
есть получатель заявления и различные виды заявлений. для каждого конкретного получателя - свое индивидуальное заявление.
так же предусматривается задать формат вывода отчета (быстрая распечатка, вывод на экран, сохранение в различных форматах). если сохранение в ворд или хлс - то свои шаблоны выгрузки для каждого вида заявления и получателя.

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

@larusso · 15.06.2016, 07:36 **[ТС]**

Сообщение от amd48

Свести все эти варианты в таблицу в итоге будет проще всего. И саму таблицу "администрировать" проще даже пользователю. И процедура кнопки будет принимать только по одному параметру из двух списков и тут же открывать нужный отчёт или запускать процедуру по названию из той же таблицы

а каким образом это реализовать? я с таким еще не сталкивался((

shanemac51 · 15.06.2016, 08:15

просмотрела всю тему, но так и не поняла сути
чем отличается документ для пенсионного фонда от документа для .......(кого-то другого)
только адресной строкой или чем то большим

@larusso · 15.06.2016, 08:28 **[ТС]**

Сообщение от shanemac51

чем отличается документ для пенсионного фонда от документа для .....

отличается шаблоном заполняемого документа

shanemac51 · 15.06.2016, 09:11

-------------пример 1-------------
ведь в строке Мировому судье судебного участка №[Участок] можно менять
------------------------------------
--только участок [Участок](как у вас сейчас)
--всю фразу [адресат]

mrepl "[адресат]","Мировому судье судебного участка №" & me.[Участок]
--------пример 2--------------
между гражданином /ой
--------------------------------
dim s1
if me.pol="m" then
s1="гражданином"
else
s1="гражданкой
endif

mrepl "[кем]",s1 & fio_творительный_падеж

именительный падеж кто? соловей_, что? красот-а
родительный падеж нет кого? соловь-я, чего? красот-ы
дательный падеж бегу к кому? соловью, к чему? к красот-е
винительный падеж вижу кого? соловь-я, что? красот-у
творительный падеж восхищаюсь кем? соловь-ём, чем? красот-ой
предложный падеж думаю о ком? о соловь-е, о чём? о красот-е.

@larusso · 15.06.2016, 10:10 **[ТС]**

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

щас тут мы говорим несколько о другом - как с использованием несколько разнотипных групп переключателей правильно выбрать шаблон обрабатываемого документа и способ его "обработки (печать, экспорт, вывод на экран)

shanemac51 · 15.06.2016, 10:23

Сообщение от larusso

(печать, экспорт, вывод на экран)

возможно, что я не понимаю ваших потребностей, но лично я сначала показываю нужный документ в форме, в которой есть кнопки word-excel-просмотр
если пользователя все устраивает, он нажимает кнопку ворд для печати(там есть автоподбор ширины таблицы и другие плюшечки), иногда требуется вывод в ексель, можно и просто посмотреть в броузере(печатать оттуда не удобно)

@larusso · 15.06.2016, 10:27 **[ТС]**

Сообщение от shanemac51

но лично я сначала показываю нужный документ в форме

а моно примерчик?
может я тогда поменяю свой подход на более правильный и понятный
)))

shanemac51 · 15.06.2016, 10:47

этот вариант я выкладывала десятки раз(с некоторыми изменениями)
шаблонов может быть сколько угодно, хоть для каждого участка свой
при клике на списке высвечивается список шаблонов, которые находятся в некой подбиблиотеке, вывод тоже в подкаталог
можно поднакрутить еще условия

главное
--шаблон может быть любым
--можно добавлять варианты
--лишь бы поля замены совпадали
--есть варианты для замены более 254 символа и таблиц

распакуйте с сохранением каталогов

@larusso · 19.06.2016, 16:24 **[ТС]**

пошел по пути перебора названий отчетов, а потом определения действий с ними...

Visual Basic

Dim docum, filename As String
Dim rst As Integer
 
Private Sub Кнопка1_Click()
rst = Forms![Заявления]![Заявления подчиненная форма].Form![Код]
rstУК = Forms![Заявления]![Заявления подчиненная форма].Form![ООО]
rstФИО = Forms![Заявления]![Заявления подчиненная форма].Form![ФИО]
If Me.Группа2 = 1 And Me.Группа8 = 1 Then docum = "БанкПредъявление"
If Me.Группа2 = 1 And Me.Группа8 = 2 Then docum = "БанкОтзывБезИсполнения"
If Me.Группа2 = 1 And Me.Группа8 = 3 Then docum = "БанкОтзывОтмена"
If Me.Группа2 = 1 And Me.Группа8 = 4 Then docum = "БанкОтзывПолноеПогашение"
If Me.Группа2 = 1 And Me.Группа8 = 5 Then docum = "БанкПредъявлениеОстаток"
 
If Me.Группа2 = 2 And Me.Группа8 = 1 Then docum = "ФондПредъявление"
If Me.Группа2 = 2 And Me.Группа8 = 2 Then docum = "ФондОтзывБезИсполнения"
If Me.Группа2 = 2 And Me.Группа8 = 4 Then docum = "ПриставыОтзывПолноеПогашение"
 
If Me.Группа2 = 3 And Me.Группа8 = 1 Then docum = "ПФПредъявление"
If Me.Группа2 = 3 And Me.Группа8 = 4 Then docum = "ПФОтзывПолноеПогашение"
 
Select Case Группа17
  Case 1
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenReport docum, acViewReport, , "[Код]=" & rst
  Case 2
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenReport docum, acViewReport, , "[Код]=" & rst
    filename = rstООО & " " & rstФИО & ".pdf"
    DoCmd.OutputTo acOutputReport, , acFormatPDF, filename, False
    DoCmd.Close acReport, docum
  Case 3
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenReport docum, acViewReport, , "[Код]=" & rst
    filename = rstООО & " " & rstФИО & ".rtf"
    DoCmd.OutputTo acOutputReport, , acFormatRTF, filename, False
    DoCmd.Close acReport, docum
  Case 4
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenReport docum, acViewNormal, , "[Код]=" & rst
End Select
End Sub

не знаю оптимально или нет, но работает)))
спасибо всем кто помогал)))))

@texnik-san · 20.06.2016, 09:52

Сообщение от Jamaica

Select Case RGB(Me.Группа2, Me.Группа8, Me.Группа17)

Фраза "пользователю фиолетово" заиграла новыми красками

@larusso · 20.06.2016, 10:37 **[ТС]**

Сообщение от texnik-san

Фраза "пользователю фиолетово" заиграла новыми красками

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

@texnik-san · 20.06.2016, 11:03

Сообщение от larusso

но не смог с этим разобраться....(((

А че разбираться? Функция RGB преобразует три числа от 0 до 255 в одно. Число это представляет собой код цвета, но для нас в даном случае это неважно. Важто то, что для каждой комбиации исходных трех чисел результат уникален. Что дает возможность вместо трех select case обойтись одним. Что тоже не оптимально, конечно, просто забавный вариант решения.

"Пользователю фиолетово" и "заиграла красками" - игра слов (в результате некоторого выбора пользователя функция RGB может выдать код именно фиолетового цвета).

@larusso · 20.06.2016, 11:28 **[ТС]**

texnik-san , а моно какой нить любой маленький примерчик, чтоб я понял?
естественно, если проще и эффективнее - то я все переделаю под себя и в дальнейшем буду этим пользоваться)))

@texnik-san · 20.06.2016, 11:45

Сообщение от larusso

если проще и эффективнее

Ничего такого, что стоило бы переделки. Забейте.

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	15.06.2016, 07:36 [ТС]	21
	Сообщение от amd48 Свести все эти варианты в таблицу в итоге будет проще всего. И саму таблицу "администрировать" проще даже пользователю. И процедура кнопки будет принимать только по одному параметру из двух списков и тут же открывать нужный отчёт или запускать процедуру по названию из той же таблицы а каким образом это реализовать? я с таким еще не сталкивался(( 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,140 Записей в блоге: 4
	15.06.2016, 08:15	22
	просмотрела всю тему, но так и не поняла сути чем отличается документ для пенсионного фонда от документа для .......(кого-то другого) только адресной строкой или чем то большим 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,140 Записей в блоге: 4
	15.06.2016, 10:23	26
	Сообщение от larusso (печать, экспорт, вывод на экран) возможно, что я не понимаю ваших потребностей, но лично я сначала показываю нужный документ в форме, в которой есть кнопки word-excel-просмотр если пользователя все устраивает, он нажимает кнопку ворд для печати(там есть автоподбор ширины таблицы и другие плюшечки), иногда требуется вывод в ексель, можно и просто посмотреть в броузере(печатать оттуда не удобно) 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	20.06.2016, 09:52	30
	Сообщение от Jamaica Select Case RGB(Me.Группа2, Me.Группа8, Me.Группа17) Фраза "пользователю фиолетово" заиграла новыми красками 0

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	20.06.2016, 10:37 [ТС]	31
	Сообщение от texnik-san Фраза "пользователю фиолетово" заиграла новыми красками нет, не фиолетово. наоборот - я каждый раз стараюсь использовать все советы на 100% но не смог с этим разобраться....((( я э у вас всех учусь 0

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	15.06.2016, 08:28 [ТС]	23
	Сообщение от shanemac51 чем отличается документ для пенсионного фонда от документа для ..... отличается шаблоном заполняемого документа 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,140 Записей в блоге: 4
	15.06.2016, 09:11	24
	-------------пример 1------------- ведь в строке Мировому судье судебного участка №[Участок] можно менять ------------------------------------ --только участок [Участок](как у вас сейчас) --всю фразу [адресат] mrepl "[адресат]","Мировому судье судебного участка №" & me.[Участок] --------пример 2-------------- между гражданином /ой -------------------------------- dim s1 if me.pol="m" then s1="гражданином" else s1="гражданкой endif mrepl "[кем]",s1 & fio_творительный_падеж именительный падеж кто? соловей_, что? красот-а родительный падеж нет кого? соловь-я, чего? красот-ы дательный падеж бегу к кому? соловью, к чему? к красот-е винительный падеж вижу кого? соловь-я, что? красот-у творительный падеж восхищаюсь кем? соловь-ём, чем? красот-ой предложный падеж думаю о ком? о соловь-е, о чём? о красот-е. 0

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	15.06.2016, 10:10 [ТС]	25
	уважаемая shanemac51, то что вы прописали - это все делается. однако, все равно спасибо за эти маленькие примерчики - обязательно использую))) щас тут мы говорим несколько о другом - как с использованием несколько разнотипных групп переключателей правильно выбрать шаблон обрабатываемого документа и способ его "обработки (печать, экспорт, вывод на экран) 0

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	15.06.2016, 10:27 [ТС]	27
	Сообщение от shanemac51 но лично я сначала показываю нужный документ в форме а моно примерчик? может я тогда поменяю свой подход на более правильный и понятный ))) 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	20.06.2016, 11:03	32
	Сообщение от larusso но не смог с этим разобраться....((( А че разбираться? Функция RGB преобразует три числа от 0 до 255 в одно. Число это представляет собой код цвета, но для нас в даном случае это неважно. Важто то, что для каждой комбиации исходных трех чисел результат уникален. Что дает возможность вместо трех select case обойтись одним. Что тоже не оптимально, конечно, просто забавный вариант решения. "Пользователю фиолетово" и "заиграла красками" - игра слов (в результате некоторого выбора пользователя функция RGB может выдать код именно фиолетового цвета). 0

@larusso 93 / 18 / 4 Регистрация: 15.04.2015 Сообщений: 282
	20.06.2016, 11:28 [ТС]	33
	texnik-san , а моно какой нить любой маленький примерчик, чтоб я понял? естественно, если проще и эффективнее - то я все переделаю под себя и в дальнейшем буду этим пользоваться))) 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	20.06.2016, 11:45	34
	Сообщение от larusso если проще и эффективнее Ничего такого, что стоило бы переделки. Забейте. 0