This repository has been archived on 2024-11-29. You can view files and clone it, but cannot push or open issues or pull requests.
Tecsitel_FactuGES/Empresas/ElegirEmpresa.dfm

441 lines
15 KiB
Plaintext
Raw Permalink Normal View History

object frElegirEmpresa: TfrElegirEmpresa
Left = 0
Top = 0
Width = 594
Height = 370
Color = 16383743
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
OnShow = RdxFrameEmpresasShow
object Shape1: TShape
Left = 0
Top = 60
Width = 594
Height = 1
Align = alTop
end
object Image6: TImage
Left = 0
Top = 61
Width = 594
Height = 10
Align = alTop
AutoSize = True
end
object DBCtrlGrid1: TDBCtrlGrid
Left = 24
Top = 80
Width = 550
Height = 240
AllowDelete = False
AllowInsert = False
ColCount = 1
Color = 15726583
DataSource = dsEmpresas
PanelBorder = gbNone
PanelHeight = 60
PanelWidth = 533
ParentColor = False
TabOrder = 0
RowCount = 4
SelectedColor = 12775679
OnDblClick = actAbrirExecute
object DBText1: TDBText
Left = 64
Top = 6
Width = 360
Height = 17
DataField = 'NOMBRE'
DataSource = dsEmpresas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = actAbrirExecute
end
object DBText2: TDBText
Left = 64
Top = 24
Width = 361
Height = 28
DataField = 'CALLE'
DataSource = dsEmpresas
Transparent = True
OnDblClick = actAbrirExecute
end
object FourthStandardButton1: TFourthStandardButton
Left = 438
Top = 8
Width = 90
Height = 20
Action = actModificar
Caption = 'Modificar'
Options.Alignment = taLeftJustify
Options.BackgroundColor = 14280169
Options.DisabledFont.Charset = DEFAULT_CHARSET
Options.DisabledFont.Color = clBtnShadow
Options.DisabledFont.Height = -11
Options.DisabledFont.Name = 'Tahoma'
Options.DisabledFont.Style = []
Options.DrawLeftLine = True
Options.DrawRightLine = True
Options.Font.Charset = DEFAULT_CHARSET
Options.Font.Color = clBlack
Options.Font.Height = -11
Options.Font.Name = 'Tahoma'
Options.Font.Style = []
Options.HotTrackCursor = crDefault
Options.HotTrackFont.Charset = DEFAULT_CHARSET
Options.HotTrackFont.Color = clBtnText
Options.HotTrackFont.Height = -11
Options.HotTrackFont.Name = 'Tahoma'
Options.HotTrackFont.Style = []
Options.Level1LightColor = 8623776
Options.Level1ShadowColor = 8623776
Options.Level2LightColor = 8623776
Options.Level2ShadowColor = 8623776
Options.Level3Color = 15726583
Options.SeparatorStyle = ssRectangle
Options.Transparent = False
Options.VertLineColor = 8623776
end
object FourthStandardButton2: TFourthStandardButton
Left = 438
Top = 33
Width = 90
Height = 20
Action = actEliminar
Caption = 'Eliminar'
Options.Alignment = taLeftJustify
Options.BackgroundColor = 14280169
Options.DisabledFont.Charset = DEFAULT_CHARSET
Options.DisabledFont.Color = clBtnShadow
Options.DisabledFont.Height = -11
Options.DisabledFont.Name = 'Tahoma'
Options.DisabledFont.Style = []
Options.DrawLeftLine = True
Options.DrawRightLine = True
Options.Font.Charset = DEFAULT_CHARSET
Options.Font.Color = clBlack
Options.Font.Height = -11
Options.Font.Name = 'Tahoma'
Options.Font.Style = []
Options.HotTrackCursor = crDefault
Options.HotTrackFont.Charset = DEFAULT_CHARSET
Options.HotTrackFont.Color = clBtnText
Options.HotTrackFont.Height = -11
Options.HotTrackFont.Name = 'Tahoma'
Options.HotTrackFont.Style = []
Options.Level1LightColor = 8623776
Options.Level1ShadowColor = 8623776
Options.Level2LightColor = 8623776
Options.Level2ShadowColor = 8623776
Options.Level3Color = 15726583
Options.SeparatorStyle = ssRectangle
Options.Transparent = False
Options.VertLineColor = 8623776
end
object DBImage1: TDBImage
Left = 6
Top = 5
Width = 50
Height = 50
BorderStyle = bsNone
DataField = 'Logotipo'
DataSource = dsEmpresas
Stretch = True
TabOrder = 2
OnDblClick = actAbrirExecute
end
end
object pnlBarraSuperior: TRdxGradientePanel
Left = 0
Top = 0
Width = 594
Height = 60
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 2
BackGroundEffect = bdFlat
ColorEnd = clBtnFace
ColorShadow = clBtnFace
ColorStart = clBtnFace
object imgFondo: TImage
Left = -1406
Top = 0
Width = 2000
Height = 60
Align = alRight
AutoSize = True
end
object Image1: TImage
Left = 13
Top = 13
Width = 36
Height = 36
AutoSize = True
Center = True
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000002400
0000240806000000E1009898000000097048597300000B1300000B1301009A9C
180000000467414D410000B18E7CFB51930000076C4944415478DABD9809509C
E519C7FFEFB21C0BCB994DB82140219433218018A86626B5D15093386A6A66AC
9DB166B4338E3A1393CED0F16A2771AA36A6EAD04E469BDA9C4A48C6D86A1095
2BC89540C2B5B09C3120A7105816D86F977DFBBC7B905D12C295F19DFDCFBEDF
B7EFF73EBF7D9EE7BD3EC63987288C312CB1DC47BA48322DF5C1DB95598E6502
3D42FA17A989F42EE9DC4AC15602B45326931D7B25E78F4AB5BA05673FFB9C1B
8DC67CBAFF12A9F7A706DAE3E4E474F8E5979E571C783D074E4CC64ACBCBF92B
6FBC898B9535632693E93FD4E6ADE5802D1548467AD17F8DEAADF7DF39207F74
FB362E9AD3C38C5357A69919545FAAC507473E46DEF92F6F180CC64FA97D2EA9
41D8BADB407EA4F74283039EF8ECE487B20D8971F48C890B3B66205137F7216E
9970F94A03728F9E6667FEFBF5B47642574C3F1C227D8305726CB140C233F90A
85DBCEC2FCA3C84CDF60356C316E83B80974F37E7D93062FBCFA0E4A2AEAC48F
47482F90A4950009980FA2D6863E77EEDF8759C2CFA3B930660993C52BF6757B
2F3108CF71F3FD0B45DF21E7ED0F71A5B9A39D1AFC9D748C34BE54A0B5A44F13
D645A5167E928B80D5BE560376C66085B3D61D80CCAC96B08A6B4A769C2EACC3
337BFFC2A6F5D22E6A98B714202F52656458506C49FE3F10ECBF0A96FCB57A05
A6D97F6F5FB70F9F05DA064472F54267EF08D21EFA2D1BD54E2D0948453ABA39
637DF6B17773101CA072347087BA7D0EDDF4227D9C95E819955092978BE7738B
D8D8A461D140DB44CE6CDB92B9F6D4DFF6C2D343015B286CC3FB660ECD09DF6C
82DB03D195FB6A74F78FA18C3CADD78D63FF89862501BD465FAF5F38FD4FFCEA
BE74305D1F6094AC508083515BCE388C34C03E97B83208DD4393B8782617D313
37CC36F61DAFC792818EE63CC6EFDFBC05AA88447838937774FD6033D2AD730F
E68C32DBFCC7640413CC5A3A7BF8A582530433366B74591EFA68DF769E14E50F
E62487A77F2402A23742E94A13B3AE9F43D2CD86C30C4485DB3A304F14724CBB
87A2B6BA82B5561570A3A47730BA6CA0087F770C0F0D232222024ECEAEF00D4F
66FE5189DCCD3008A6ED9B85980B34E31389F2922268AA0B1937996E5932960D
14E22B47716909941E4A24252621303090C9155E7C75742A56F9873017699843
37609D0EA803F28CD12B12B5359568283E27563747CFDD0DA0AE9E7E6CDDB11B
05E73FC1606F375B17B38E0B8FB928BC984F581C5F131E0385F106E353A35CEB
1288D22FF2D0A7A91330B786724540FBB723C4D7191DDFF7E2D1DDBF875E92D0
D7D787A22FCFD0A8D3232D351DDEDEDE7051FA62754C06BCD684E3AB138730D4
ADC6426559A3CCE6214DD77564EFD885D1BE2EC8159E8CB978F2B6D646B4D4D7
302FA53B4F888F87A79737D34E9B785B632DEC1D72773D640552B777E3810777
A0B0B41285973AD8639BE3F986B89F41EEEECBAE75B7F1B6AB95C8CAFA051B1C
18E0D7AF5F77E87C01A067A9FA3149BF38206BC84ACBCA90B9290BAA552A5CD6
FC80F7CE56E1775BD7E397A951301A67505353817B3336617070103D73801608
D99B542D245D836567A95F9487EA1A1AE1EDB30A266912EB626299938B828F68
A710EEEFC32449E2B575979071CFBDCBF1D041AA16C3B2051925F5932638374F
FBF30375F70EE0A9E75EC677C51728A1CFB1B0B0709E9C940CDA53338341E275
75B5484FBF6725405A9258537E14DFD4DC70472031EC773FB507D2F424260D60
755565BCB3E50A428243584040206F6A6A445A5ADAA2816EE80C7835AF89E90D
A6E5003913501F1ED9F524DA5B9AE0EEE6C23CBC7CB9C49DD1A6AE67DD9A06EE
E62227A0F445010D8DEB71E87F6D189990AAE8F27D71CB0E6850846E76F6BF1D
50A89F0B9A35EDC8FEF54E34A8DB71F0D8B72C32C88F3FBD6D2382028398C1C4
F9E5F2AF919292B22050EFC8140E7FD186F129E329BA3C09CB2A6CB002D19602
DF5B727A9EA43EB2F7611E1FEE87AB57AF605C3B8EF4B40C3111B2829A763EA5
376047662CE59081373737223979FD1D817ED44A78FB730D467592387588132E
B30219AD23AC853433DF281313D69F83549E317BB253F0406A2426C6C7D0417B
73575737161E1ECE692284DC9CD406AE5637232929695EA0D61FB4FCA3A22E91
3B3574EBAFA4693BA01E588EE133B667E6DBC2BA92C4CEF10D95B77BC2E39BE3
F0F8FD713019A6181935370D0D0D631E1E1E5CA369454242C22D40144D94A987
D9D9EA5EC3B4C124CEFC2254B6E30FB38648C0389CD3163A7528494F935E5B1B
E0E3B7FF894CA4C404627464189D9D9D7077F7009DEF114FCBC7DC89F1ABFA01
E457F58A889DB4C2D8976E921AB739342EF6A01846FA934CC69E4C8F0D563CFB
F046C486FAB1A1A121AED3E9101D1DEDE0A18AB6111C2FBBA637CEF0137479DE
9A2BB6D241D2609EA3F552CFF601A4679C64ECC5E4A800D5EE2D093C2B310CCE
7227335067D7359CA9EE15A19A9A3171B134D4CD31DC6A059AB72CF7ED4734E9
10B5CDDE9A16C5F6FD6613F493E33870FC22CA5B874547E21C5F34E719E1BEFA
853A5EC9FB21D1308B74D0D5599E951CA9E2D5ADFD624E11135E85D533A28DC8
13B180B660112FB356FA06CD06964AFA03A9009684B52F6234F52DB6331BC7FF
016DF07504D0BA55770000000049454E44AE426082}
end
object Label1: TLabel
Left = 61
Top = 12
Width = 125
Height = 21
Caption = 'Lista de empresas'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Franklin Gothic Medium'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 62
Top = 33
Width = 235
Height = 13
Caption = 'Seleccione la empresa con la que desea trabajar.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Transparent = True
end
end
object brDoble: TRdxBarraInferior
Left = 0
Top = 320
Width = 594
Height = 50
Caption = ' '
ParentColor = True
ColorHighLight = 8623776
ColorShadow = 8623776
Align = alBottom
TabOrder = 1
UseDockManager = True
Margen = 10
object bSeleccionar: TRdxBoton
Left = 397
Top = 17
Width = 90
Height = 25
Default = True
Action = actAbrir
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000E0000000D0000000100
04000000000068000000220B0000220B000010000000100000000000000000FF
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222022222
2200222220102222220022220110222222002220111102222200220111110222
2200201100111022220001002201102222002022222011022200222222220110
2200222222222011020022222222220110002222222222201000222222222222
0200}
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 1
Spacing = 6
end
object bCancelar: TRdxBoton
Left = 494
Top = 17
Width = 90
Height = 25
Cancel = True
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Caption = 'Cancelar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clBlack
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000220B0000220B0000100000001000000000009C006363
9C00C6C6C6000000CE003131CE000000FF000063FF00319CFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222
2222222222222222222222022222222225222450222222222222247502222222
5222224632222225222222235022225022222222350225022222222223505022
2222222222350222222222222350302222222222350223022222223550222230
2222237502222223022221312222222223222222222222222222}
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 2
Spacing = 6
ModalResult = 2
end
object bGestionar: TRdxBoton
Left = 9
Top = 17
Width = 176
Height = 25
Action = actAnadir
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 0
Spacing = 6
end
end
object dsEmpresas: TDataSource
Left = 40
Top = 272
end
object Acciones: TActionList
Left = 288
Top = 320
object actAnadir: TAction
Caption = 'A<>adir una empresa nueva...'
OnExecute = actAnadirExecute
end
object actModificar: TAction
Caption = 'Modificar'
OnExecute = actModificarExecute
end
object actEliminar: TAction
Caption = 'Eliminar'
OnExecute = actEliminarExecute
end
object actConsultar: TAction
Caption = 'Consultar'
end
object actCancelar: TAction
Caption = 'Cancelar'
end
object actAbrir: TAction
Caption = 'Seleccionar'
OnExecute = actAbrirExecute
end
object actCerrar: TAction
Caption = 'Cerrar'
end
end
end