Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/59: Рейтинг темы: голосов - 59, средняя оценка - 4.64

Что можно придумать?

16.06.2005, 19:40. Показов 10917. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
У меня есть форма, которая формирует выборку (в личные папки) запрошенных документов (см. рис).
Все верхние поля заполняются списком, а вот последние три...
ЦФО заполняется в соотвествии с разрешениями сотрудника (есть такая форма учетная запись и формы разрешений).


Code
1
2
Kod:=@Trim(@Explode(Razr_Sotr;";"));
@If(@IsError(Kod);"";"ВСЕ":Kod)
ЦФУ любая.
Сотрудник - все сотрудники, которые имеют возможность создавать бюджеты, для выбранных/ой в ЦФО служб/ы.
В этом поле просто страшный код на формулах:


Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@If(!@IsNull(SRazr_CFO);
@Do(
@If(@IsMember("ВСЕ";SRazr_CFO);list:=@Trim(@Explode(Razr_Sotr;";"));list:=SRazr_CFO);
 
list2 := @Unique(@DbLookup("":"NoCache";"":"";"(PermissionNaz)";"ОБЩИЕ РАСХОДЫ / ДОХОДЫ";2));
@If(@IsError(list2);"";@If(@IsMember("ОБЩИЕ РАСХОДЫ / ДОХОДЫ";list);Kod:= Kod:@Unique(@DbLookup("":"NoCache";"":"";"(PermissionNaz)";"ОБЩИЕ РАСХОДЫ / ДОХОДЫ";2));""));
list2 := @Unique(@DbLookup("":"NoCache";"":"";"(PermissionNaz)";"КОММЕРЧЕСКАЯ СЛУЖБА ПО ОКАЗАНИЮ ФОТОУСЛУГ И ТОРГОВЛИ ФОТОТОВАРАМИ";2));
@If(@IsError(list2);"";@If(@IsMember("КОММЕРЧЕСКАЯ СЛУЖБА ПО ОКАЗАНИЮ ФОТОУСЛУГ И ТОРГОВЛИ ФОТОТОВАРАМИ";list);Kod:= Kod:@Unique(@DbLookup("":"NoCache";"":"";"(PermissionNaz)";"КОММЕРЧЕСКАЯ СЛУЖБА ПО ОКАЗАНИЮ ФОТОУСЛУГ И ТОРГОВЛИ ФОТОТОВАРАМИ";2));""));
list2 := @Unique(@DbLookup("":"NoCache";"":"";"(PermissionNaz)";"АДМИНИСТРАТИВНАЯ СЛУЖБА";2));
 
.... и тд
 
@If(@IsError(Kod);"";"ВСЕ":@Sort(@Unique(Kod)))
);"")
Что делать? Как можно корректно переписать этот код, чтобы в зависимости от текущего количества служб он нормально отрабатывал?
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.06.2005, 19:40
Ответы с готовыми решениями:

Что можно придумать?
Добрый день. Прошу помощи в грамотном подборе железа для настольного ПК. На фирме объеденены в LAN сеть 3 ноутбука и один стационарник,...

Что еще можно придумать с сайтом
Имеется сайт www.RussianToys.ru - хочется его продвинуть в первую десятку по слову игрушки Что для этого еще надо сделать?

Старый ноутфбук: что можно придумать?
Итак имеется compaq contura 420cx. По прямому назначению его уже никак не использовать) 8мб оперативки и 500мб винт) машинка кстати вполне...

2
0 / 0 / 2
Регистрация: 07.05.2005
Сообщений: 743
20.06.2005, 18:21
А что в кнопке "Выбрать документы"
0
21.06.2005, 10:01
Такой код:


Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
Sub Click(Source As Button)
Set ws=New NotesUiWorkSpace
Set session=New NotesSession
 
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim coll As NotesDocumentCollection
Dim view As NotesView
Dim dateTime As NotesDateTime
Dim uidoc As NotesUIDocument
 
Set db=session.CurrentDataBase
Set DialogDoc = New NotesDocument (db)
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
 
On Error Goto Errhandle
 
Set view = db.GetView("Мною исполняемые")
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder("Движение ДС")
Call vc.RemoveAllFromFolder("Отчет - ДС")
 
Dim SRazr_CFO As Variant
Dim SRazr_CFU As Variant
Dim SRazr_FIO As Variant
Dim SStat As Variant
Dim SCur As Variant
Dim FSYear, FSMonth As Variant
Dim list_Razr_Sotr As Variant
SRazr_CFO = doc.GetItemValue("SRazr_CFO")
SRazr_CFU = doc.GetItemValue("SRazr_CFU")
SRazr_FIO=doc.GetItemValue("SRazr_FIO")
SStat = doc.GetItemValue("SStat")
SCur = doc.GetItemValue("SCur")
FSYear = uidoc.FieldGetText("FSYear")
FSMonth = uidoc.FieldGetText("FSMonth")
Razr_Sotr = doc.GetItemValue("Razr_Sotr")
list_Razr_Sotr = Split(Razr_Sotr(0), "; ")
 
sf= {(FORM = "RequestDoshAdd" | FORM = "RequestRashAdd") & (Visible!="0") }
If uidoc.FieldGetText("SRazr_CFO") <> "ВСЕ" Then
sf=sf+"& ("
Forall x In SRazr_CFO
If x >< "" Then
sf=sf+{ Branch = "}+ x +{" | }
End If
End Forall
sf=sf+{ "" ) }
Else
sf=sf+"& ("
Forall x In list_Razr_Sotr
If x >< "" Then
sf=sf+{ Branch = "}+ x +{" | }
End If
End Forall
sf=sf+{ "" ) }
End If
 
If uidoc.FieldGetText("SRazr_CFU") <> "ВСЕ" Then
sf=sf+"& ("
Forall x In SRazr_CFU
If x >< "" Then
sf=sf+{ Branch_CFU = "}+ x +{" | }
End If
End Forall
sf=sf+{ "" ) }
End If
 
If uidoc.FieldGetText("SRazr_FIO") <> "ВСЕ" And uidoc.FieldGetText("SRazr_FIO") <> "" Then
sf=sf+"& ("
Forall x In SRazr_FIO
If x >< "" Then
sf=sf+{ Owner = "}+ x +{" | }
End If
End Forall
sf=sf+{ "" ) }
End If
 
If uidoc.FieldGetText("SStat") <> "Все" Then
sf=sf+"& ("
Forall x In SStat
If x >< "" Then
Select Case x
Case "Составление"       : sf=sf+{ Status = "0" | }
Case "На согласовании у руководителя"  : sf=sf+{ Status = "1" | }
Case "На согласовании у сотрудника ФС" : sf=sf+{ Status = "3" | }
Case "Согласовано"     : sf=sf+{ Status = "4" | }
Case "Не согласованно"    : sf=sf+{ Status = "5" | }
Case "На согласовании у сотрудника"   : sf=sf+{ Status = "6" | }
Case Else        : sf=sf+{ Status = "7" | }
End Select
End If
End Forall
sf=sf+{ "" ) }
End If
 
st = doc.GetItemValue("FSWeek")
If st(0) <> "0" Then
sf=sf+{ & ( FPWeek = "}+ st(0) +{" ) }
End If
 
If uidoc.FieldGetText("SCur") <> "Все" Then
sf=sf+"& ("
Forall x In SCur
If x >< "" Then
sf=sf+{ Currency = "}+ x +{" | }
End If
End Forall
sf=sf+{ "" ) }
End If
 
If Not Isempty(uidoc.FieldGetText("FSYear")) Then
sf=sf+{ & ( FPYear = "}+ FSYear +{" ) }
End If
 
If Not Isempty(uidoc.FieldGetText("FSMonth")) Then
sf=sf+{ & ( FPMonth = "}+ FSMonth +{" ) }
End If
 
 
Msgbox sf
Set coll=db.Search(sf,dateTime,0)
If coll.Count=0 Then
Messagebox "Нет документов, удовлетворяющих заданным критериям",64,"Результата поиска"
Else
Messagebox "Найдено" + Str(coll.Count) + " документов"
End If
 
Call coll.PutAllInFolder("Движение ДС")
Call uidoc.Refresh
 
Exit Sub
Errhandle:
If (Err = 4291) Then
Msgbox "Личная папка <Движение ДС> не создана. Перейдите, пожалуйста, к ней, для того, чтобы создать папку."
Exit Sub
End If
Messagebox "Error" & Str(Err) & ": " & Error$
Exit Sub
 
End Sub
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.06.2005, 10:01
Помогаю со студенческими работами здесь

Что можно придумать с созданием сервера?
Ситуация такая. Есть сервер1 (TServerSocket) открыт на порту X, к нему подключаются радио модемы (навигаторы). Я создал свой сервер2,...

Каталог в ресурс или что можно придумать
Всем доброго времени суток. Друзья, мне нужно создать папку с общим доступом и что бы у всех были права не только на чтение но и на...

ASROCK G31M-VS не поддерживает процессор. Можно ли что-то придумать?
Всем привет. История такая сгорела мама, вытащил камень вставил в другую новую маму(ASROCK G31M-VS), выдает ошибку This CPU cannot be...

Алгоритм правдоподобного перемещения курсора мыши. Что можно придумать?
Добрый день. Стоит задача сделать так, чтобы перемещение указателя мыши было максимально похоже на перемещение этого указателя человеком. ...

Не могу придумать, что с этим делать. Можно хотя бы описать алгоритм
Есть такая задача на программирование: на вход поступает число А(от 1 до 9) и число В(от 0 до 1000), нужно представить число В через N-oe...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru