Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b5be3112ce
Tecsitel_FactuGES2/Source/Modulos/Obras/Views/uViewEjecucionObra.dfm
david 816a4a38c4 Obras: 
- preguntar fecha de cierre de una ejecución
 - mejorado el editor

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@716 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-10-31 15:48:27 +00:00

451 lines
16 KiB
Plaintext
Raw Blame History

inherited frViewEjecucionObra: TfrViewEjecucionObra
Width = 836
Height = 601
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 836
ExplicitHeight = 601
object dxLayoutControlEjecucionObra: TdxLayoutControl
Left = 0
Top = 0
Width = 836
Height = 601
Align = alClient
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
836
601)
object Bevel4: TBevel
Left = 22
Top = 543
Width = 347
Height = 9
Shape = bsBottomLine
end
object edtFecha: TcxDBDateEdit
Left = 115
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_INICIO'
DataBinding.DataSource = dsEjecucion
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 158
end
object bCancelarEjecucion: TButton
Left = 685
Top = 28
Width = 129
Height = 25
Action = actCancelarEjecucion
TabOrder = 1
end
object ImporteBase: TcxDBCurrencyEdit
Left = 115
Top = 489
AutoSize = False
DataBinding.DataField = 'IMPORTE_GASTOS'
DataBinding.DataSource = dsEjecucion
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clBtnFace
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.TextStyle = []
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Height = 21
Width = 254
end
object ImporteIVA: TcxDBCurrencyEdit
Left = 115
Top = 516
AutoSize = False
DataBinding.DataField = 'IMPORTE_INGRESOS'
DataBinding.DataSource = dsEjecucion
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clBtnFace
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.TextStyle = []
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Height = 21
Width = 254
end
object ImporteTotal: TcxDBCurrencyEdit
Left = 115
Top = 558
AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL'
DataBinding.DataSource = dsEjecucion
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clBtnFace
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.TextStyle = [fsBold]
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Height = 21
Width = 254
end
inline frViewListaPresupuestosObra1: TfrViewListaPresupuestosObra
Left = 22
Top = 120
Width = 645
Height = 103
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 120
ExplicitWidth = 645
ExplicitHeight = 103
inherited cxGrid: TcxGrid
Width = 645
Height = 78
ExplicitWidth = 645
ExplicitHeight = 78
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewListaPresupuestosObra1.cxGridViewBASE_IMPONIBLE
end>
end
end
inherited ToolBar1: TToolBar
Width = 645
ExplicitWidth = 645
end
inherited dsDetalles: TDADataSource
Left = 56
Top = 32
end
inherited ContenidoImageList: TPngImageList
Left = 88
Top = 32
end
inherited ActionListContenido: TActionList
Left = 24
Top = 32
end
end
inline frViewListaPedidosProvObra1: TfrViewListaPedidosProvObra
Left = 22
Top = 294
Width = 645
Height = 119
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 294
ExplicitWidth = 645
ExplicitHeight = 119
inherited cxGrid: TcxGrid
Width = 645
Height = 94
ExplicitWidth = 645
ExplicitHeight = 94
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewListaPedidosProvObra1.cxGridViewBASE_IMPONIBLE
end>
end
end
inherited ToolBar1: TToolBar
Width = 645
ExplicitWidth = 645
end
inherited dsDetalles: TDADataSource
Left = 24
Top = 32
end
inherited ContenidoImageList: TPngImageList
Left = 88
Top = 32
end
inherited ActionListContenido: TActionList
Left = 56
Top = 32
end
end
object bElegirSubcontrata: TBitBtn
Left = 422
Top = 59
Width = 120
Height = 25
Caption = 'Elegir subcontrata'
TabOrder = 3
OnClick = bElegirSubcontrataClick
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B118C10040407B00344A830031498F002F4596002F4499002F4597003148
900033498500374678005A3E5300D201D200FF00FF00FF00FF00FF00FF00FF00
FF004E42860035508100314990002E429C002C3CA6002B3AAA002B3BA7002D40
9E0030479200344F840038577500A0189F00FF00FF00FF00FF00FF00FF00FF00
FF004C428900334D89002F4499002B3CA8002835B4002631BB002734B6002A3A
AB002E429C00324B8C0036537B00B015B100FF00FF00FF00FF00FF00FF00FF00
FF008726B300324A8D002D409E002938AF003138B6007A7BCB002830BF002835
B2002D3FA10031499000483B8700EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F002F60051379D002D409F002937B000808AA300D2D3D3008181BB002834
B2002D3FA2003A3F9300C511CE00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE02F4007324B7003C359300598CAE00498CBB004A81A600392A
71005929A600D608E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object edtlNombre: TcxDBTextEdit
Left = 115
Top = 61
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsEjecucion
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Height = 21
Width = 301
end
object dxLayoutControlEjecucionObraGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControlEjecucionObraGroup1: TdxLayoutGroup
Caption = 'Datos de la ejecuci'#243'n en curso'
object dxLayoutControlEjecucionObraGroup5: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlEjecucionObraItem1: TdxLayoutItem
AutoAligns = []
AlignVert = avCenter
Caption = 'Inicio:'
Control = edtFecha
ControlOptions.ShowBorder = False
end
object dxLayoutControlEjecucionObraItem2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bCancelarEjecucion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlEjecucionObraGroup6: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlEjecucionObraItem10: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avCenter
Caption = 'Subcontrata:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControlEjecucionObraItem11: TdxLayoutItem
ShowCaption = False
Control = bElegirSubcontrata
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControlEjecucionObraGroup4: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Lista de presupuestos de la obra'
object dxLayoutControlEjecucionObraItem8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = frViewListaPresupuestosObra1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlEjecucionObraGroup3: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Lista de pedidos a proveedor de la obra'
object dxLayoutControlEjecucionObraItem9: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = frViewListaPedidosProvObra1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlEjecucionObraGroup2: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avBottom
Caption = 'C'#225'lculo de costes de la ejecuci'#243'n'
object dxLayoutControlEjecucionObraItem4: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Suma de gastos:'
Control = ImporteBase
ControlOptions.ShowBorder = False
end
object dxLayoutControlEjecucionObraItem5: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Suma de ingresos:'
Control = ImporteIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControlEjecucionObraItem7: TdxLayoutItem
AutoAligns = [aaVertical]
Control = Bevel4
ControlOptions.ShowBorder = False
end
object dxLayoutControlEjecucionObraItem6: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Beneficio total:'
Control = ImporteTotal
ControlOptions.ShowBorder = False
end
end
end
end
object dsEjecucion: TDADataSource
Left = 24
Top = 16
end
object ActionList1: TActionList
Left = 16
Top = 88
object actFinEjecucion: TAction
Caption = 'Finalizar ejecuci'#243'n...'
OnExecute = actFinEjecucionExecute
end
object actCancelarEjecucion: TAction
Caption = 'Cancelar ejecuci'#243'n'
end
end
end
Reference in New Issue View Git Blame Copy Permalink