forked from glauberlima/TabelasProtheus
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathUnit3.dfm
350 lines (350 loc) · 12.4 KB
/
Unit3.dfm
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
object frmConfig: TfrmConfig
Left = 262
Top = 38
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Configura'#231#245'es'
ClientHeight = 472
ClientWidth = 571
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Label5: TLabel
Left = 32
Top = 450
Width = 436
Height = 13
AutoSize = False
Caption =
'Para que as altera'#231#245'es tenham efeito '#233' necess'#225'rio reiniciar o pr' +
'ograma (exceto reindexa'#231#227'o)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 8
Top = 448
Width = 16
Height = 16
Picture.Data = {
055449636F6E0000010002001010000001000800680500002600000010100000
01002000680400008E0500002800000010000000200000000100080000000000
000000000000000000000000000000000000000000660000016A0100016A0200
056303000271030006640400026F040009610500036F050003790600037D0600
046D07000F5F090011610B0005880B00165D0E0007840F00089B10001A5C1100
0A7913000C951700245E19000D901A000EA41D002D581E000FA51E000FA91F00
1587210014A027001494280015A1280016AB2B0017B02D0019A532001CB53600
1FAB3D0025A8420022BB440023B046004D4D4D0026B34D0027B34D0029C25200
2DB953002BBB550032BE580036C25C003CC55F0030C960003DC9630033CC6600
35CE68003CD56F0043DC760049E27C0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000373700273737373737373737
373737373737000027273737373737373737373737370016060F273737373737
373737373737001C1F1003272737373737373737373700212220140212273737
3737373737370023252220190907273737373737373700262A2522201A0E0127
2737373737370028302A2522201A11040D2737373737002932302A252220170A
052737373737002B3332302A251E080F373737373737002D343332301D033737
373737373737002E35342C130C373737373737373737003136240B1837373737
373737373737002F1B0737373737373737373737373700001537373737373737
3737373737370015373737373737373737373737CFFF0000C3FF0000C1FF0000
C07F0000C03F0000C01F0000C0070000C0030000C0030000C00F0000C03F0000
C07F0000C0FF0000C3FF0000C7FF0000CFFF0000280000001000000020000000
0100200000000000000000000000000000000000000000000000000000000000
00000000006600FF282B0AA72D230C6C2D260A3B2727081A2B2B000A00400003
0000000100000000000000000000000000000000000000000000000000000000
00000000006600FF006600FF174306DA2B260A912C230C4628280B2428280D0F
2B2B000500000001000000000000000000000000000000000000000000000000
00000000006600FF0D901AFF026F04FF0B5603F4252F09BB2B260B622A260831
2E24091633330008005500020000000100000000000000000000000000000000
00000000006600FF14A027FF16AB2BFF07840FFF036201FD1E3908D62A270B84
2D260D402D260D203030100D3333000400000001000000000000000000000000
00000000006600FF19A532FF1CB536FF17B02DFF0C9517FF016A02FF0D5203F1
282A0AAE2A250D572924092D29290A141C1C0007000000020000000000000000
00000000006600FF1FAB3DFF22BB44FF1CB536FF17B02DFF0FA51EFF037906FF
055E01FB203608CE2A270B7929260A3B2D26081B2B2B150A0000000200000000
00000000006600FF23B046FF29C252FF22BB44FF1CB536FF17B02DFF0FA91FFF
05880BFF016A01FF134A05E92A260B9C2D240C4429290E1E2E2E000900000000
00000000006600FF26B34DFF30C960FF29C252FF22BB44FF1CB536FF17B02DFF
0FA91FFF089B10FF027103FF085B02F6243009AB272A0A4224310C1100000000
00000000006600FF27B34DFF33CC66FF30C960FF29C252FF22BB44FF1CB536FF
17B02DFF0EA41DFF037D06FF036201FC262E0BAF26290A43232E0C1200000000
00000000006600FF2DB953FF35CE68FF33CC66FF30C960FF29C252FF22BB44FF
15A128FF036F05FF0B5603F429290AB12A250B512C250C212B2B000A00000000
00000000006600FF32BE58FF3CD56FFF35CE68FF33CC66FF30C960FF149428FF
036201FD184206E12B270A922D240C442C250C212424120B4040000300000000
00000000006600FF36C25CFF43DC76FF3CD56FFF2BBB55FF0A7913FF085A02F8
223309C429270A6D29260B362828081A2E2E0009000000020000000100000000
00000000006600FF3DC963FF49E27CFF25A842FF046D07FF164605E62B260B99
2D240B492A2A0A2723230C122020000600000002000000000000000000000000
00000000006600FF3CC55FFF158721FF055E01FB203608CE29270B782A260A3A
2626081B2727140A404000030000000100000000000000000000000000000000
00000000006600FF006600FF104F04EA272C0AAD2C250A572A25092C29290A14
2020000600000002000000000000000000000000000000000000000000000000
00000000006600FF1C3D08C12A280B8D2A270B4A2A2A06221E2D0F0E33330004
00000001000000000000000000000000000000000000000000000000C03F0027
C01F3737C0073737C0033737C0010000C0003737C0003737C0003737C0000016
C0002737C0003737C0003737C003001CC0070327C01F3737C03F3737}
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 457
Height = 257
Caption = 'Configura'#231#245'es'
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 24
Width = 109
Height = 13
Caption = 'Caminho do SIGAADV:'
end
object Label2: TLabel
Left = 16
Top = 80
Width = 106
Height = 13
Caption = 'Tabela SX2 (Tabelas):'
end
object Label3: TLabel
Left = 16
Top = 136
Width = 163
Height = 13
Caption = 'Tabela SX3 (Campos das tabelas):'
end
object Label4: TLabel
Left = 16
Top = 192
Width = 207
Height = 13
Caption = 'Tabela SIX / SINDEX ('#205'ndices das tabelas):'
end
object spProcurar: TSpeedButton
Left = 419
Top = 38
Width = 23
Height = 22
Hint = 'Procurar...'
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888888888888888888000000000008888800333333333088880B0333333333
08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08
88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888
8008888888880888080888888888800088888888888888888888}
ParentShowHint = False
ShowHint = True
OnClick = spProcurarClick
end
object lbAvisoPATH: TLabel
Left = 268
Top = 64
Width = 148
Height = 13
Caption = 'Caminho do SIGAADV inv'#225'lido.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object lbAvisoX2: TLabel
Left = 316
Top = 120
Width = 101
Height = 13
Caption = 'Arquivo SX2 inv'#225'lido.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object lbAvisoX3: TLabel
Left = 316
Top = 176
Width = 101
Height = 13
Caption = 'Arquivo SX3 inv'#225'lido.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object lbAvisoIX: TLabel
Left = 316
Top = 232
Width = 98
Height = 13
Caption = 'Arquivo SIX inv'#225'lido.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object edSX2: TEdit
Left = 16
Top = 96
Width = 401
Height = 21
CharCase = ecUpperCase
TabOrder = 1
end
object edPATH: TEdit
Left = 16
Top = 40
Width = 401
Height = 21
CharCase = ecUpperCase
TabOrder = 0
end
object edSX3: TEdit
Left = 16
Top = 152
Width = 401
Height = 21
CharCase = ecUpperCase
TabOrder = 2
end
object edSIX: TEdit
Left = 16
Top = 208
Width = 401
Height = 21
CharCase = ecUpperCase
TabOrder = 3
end
object cbxSINDEX: TCheckBox
Left = 16
Top = 232
Width = 97
Height = 17
Hint =
'Marque esta caixa para informar ao programa que o seu arquivo de' +
' '#237'ndices '#233' o SINDEX'
Caption = 'Utilizar SINDEX'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = cbxSINDEXClick
end
end
object btOK: TButton
Left = 471
Top = 16
Width = 89
Height = 25
Caption = '&OK'
TabOrder = 1
OnClick = btOKClick
end
object btCancelar: TButton
Left = 471
Top = 48
Width = 89
Height = 25
Caption = '&Cancelar'
TabOrder = 2
OnClick = btCancelarClick
end
object GroupBox2: TGroupBox
Left = 8
Top = 272
Width = 457
Height = 169
Caption = 'Indexa'#231#227'o'
TabOrder = 3
object Label6: TLabel
Left = 8
Top = 24
Width = 430
Height = 39
Caption =
'A reindexa'#231#227'o '#233' um processo que melhora consideravelmente a velo' +
'cidade de acesso '#224's tabelas, al'#233'm de orden'#225'-las corretamente. Po' +
'r isso, se voc'#234' tiver problemas relacionados a ordem das tabelas' +
' e/ou velocidade de acesso, utilize a op'#231#227'o "Reindexar".'
WordWrap = True
end
object Label7: TLabel
Left = 8
Top = 72
Width = 441
Height = 39
Caption =
'IMPORTANTE: Como o Tabelas Protheus utiliza '#237'ndices pr'#243'prios, n'#227 +
'o existe nenhum risco de altera'#231#227'o nos '#237'ndices originais do Prot' +
'heus. Ali'#225's, estes n'#227'o s'#227'o acessados em nenhum momento pelo prog' +
'rama.'
WordWrap = True
end
object btReindexar: TBitBtn
Left = 360
Top = 128
Width = 89
Height = 25
Caption = 'Reindexar'
Enabled = False
TabOrder = 0
OnClick = btReindexarClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000088888488880088808888747888800888888844488888008888874
4478888800888844444880888008888848888000000888884888888888888888
4888800080008888488887088807888848888800000888884888887080788888
4888888000888888488888870788888848888888088888884888}
end
end
end