david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
479 lines
15 KiB
Plaintext
479 lines
15 KiB
Plaintext
inherited frViewPresupuestosObra: TfrViewPresupuestosObra
|
|
Width = 836
|
|
Height = 667
|
|
OnCreate = CustomViewCreate
|
|
OnDestroy = CustomViewDestroy
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 836
|
|
Height = 667
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
object ToolBar1: TToolBar
|
|
Left = 22
|
|
Top = 28
|
|
Width = 782
|
|
Height = 22
|
|
AutoSize = True
|
|
ButtonWidth = 88
|
|
Caption = 'ToolBar1'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Images = PngImageList
|
|
List = True
|
|
ParentFont = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton1: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Action = actAnadirPreObr
|
|
end
|
|
object ToolButton2: TToolButton
|
|
Left = 88
|
|
Top = 0
|
|
Action = actEliminarPreObr
|
|
end
|
|
object ToolButton4: TToolButton
|
|
Left = 176
|
|
Top = 0
|
|
Action = actEliminarTodoPreObr
|
|
end
|
|
object ToolButton3: TToolButton
|
|
Left = 264
|
|
Top = 0
|
|
Width = 8
|
|
Caption = 'ToolButton3'
|
|
ImageIndex = 2
|
|
Style = tbsSeparator
|
|
end
|
|
object ToolButton5: TToolButton
|
|
Left = 272
|
|
Top = 0
|
|
Action = actEditarPreObr
|
|
end
|
|
end
|
|
object ToolBar2: TToolBar
|
|
Left = 22
|
|
Top = 355
|
|
Width = 782
|
|
Height = 22
|
|
AutoSize = True
|
|
ButtonWidth = 88
|
|
Caption = 'ToolBar1'
|
|
EdgeBorders = []
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = True
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Images = PngImageList
|
|
List = True
|
|
ParentFont = False
|
|
ShowCaptions = True
|
|
TabOrder = 2
|
|
object ToolButton6: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Action = actAnadirPreDec
|
|
end
|
|
object ToolButton7: TToolButton
|
|
Left = 88
|
|
Top = 0
|
|
Action = actEliminarPreDec
|
|
end
|
|
object ToolButton8: TToolButton
|
|
Left = 176
|
|
Top = 0
|
|
Action = actEliminarTodoPreDec
|
|
end
|
|
object ToolButton9: TToolButton
|
|
Left = 264
|
|
Top = 0
|
|
Width = 8
|
|
Caption = 'ToolButton3'
|
|
ImageIndex = 2
|
|
Style = tbsSeparator
|
|
end
|
|
object ToolButton10: TToolButton
|
|
Left = 272
|
|
Top = 0
|
|
Action = actEditarPreDec
|
|
end
|
|
end
|
|
inline frViewPresupuestosPreDec: TfrViewPresupuestosBase
|
|
Left = 22
|
|
Top = 383
|
|
Width = 792
|
|
Height = 300
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
ReadOnly = False
|
|
inherited cxGrid: TcxGrid
|
|
Width = 792
|
|
Height = 300
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = MenuPreDec
|
|
OnCellDblClick = frViewPresupuestosPreDeccxGridViewCellDblClick
|
|
DataController.DataSource = DADataSourcePreDec
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'Total: 0 presupuestos de decoraci'#243'n'
|
|
Kind = skCount
|
|
Column = frViewPresupuestosPreDec.cxGridViewNOMBRE
|
|
end>
|
|
OptionsSelection.UnselectFocusedRecordOnExit = True
|
|
OptionsView.Footer = True
|
|
inherited cxGridViewACEPTADO: TcxGridDBColumn
|
|
Caption = ''
|
|
Width = 20
|
|
IsCaptionAssigned = True
|
|
end
|
|
inherited cxGridViewNOMBRE: TcxGridDBColumn
|
|
Width = 120
|
|
end
|
|
inherited cxGridViewPRESUPUESTOINICIAL: TcxGridDBColumn
|
|
HeaderAlignmentHorz = taRightJustify
|
|
end
|
|
inherited cxGridViewPRESUPUESTOFINAL: TcxGridDBColumn
|
|
HeaderAlignmentHorz = taRightJustify
|
|
end
|
|
inherited cxGridViewRETENCION: TcxGridDBColumn
|
|
HeaderAlignmentHorz = taRightJustify
|
|
end
|
|
inherited cxGridViewTIEMPORETENCION: TcxGridDBColumn
|
|
HeaderAlignmentHorz = taRightJustify
|
|
end
|
|
inherited cxGridViewIMPORTERETENCION: TcxGridDBColumn
|
|
HeaderAlignmentHorz = taRightJustify
|
|
end
|
|
end
|
|
end
|
|
inherited DADataSource: TDADataSource
|
|
Left = 560
|
|
Top = 120
|
|
end
|
|
inherited ActionList1: TActionList
|
|
Left = 528
|
|
Top = 120
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
Left = 496
|
|
Top = 120
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
ReportDocument.CreationDate = 38826.798064953720000000
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
inherited dxPSEngineController1: TdxPSEngineController
|
|
Left = 464
|
|
Top = 120
|
|
end
|
|
inherited cxStyleRepository1: TcxStyleRepository
|
|
Left = 432
|
|
Top = 120
|
|
end
|
|
end
|
|
inline frViewPresupuestosPreObr: TfrViewPresupuestosBase
|
|
Left = 22
|
|
Top = 56
|
|
Width = 792
|
|
Height = 300
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
ReadOnly = False
|
|
inherited cxGrid: TcxGrid
|
|
Width = 792
|
|
Height = 300
|
|
inherited cxGridView: TcxGridDBTableView
|
|
PopupMenu = MenuPreObr
|
|
OnCellDblClick = frViewPresupuestosPreObrcxGridViewCellDblClick
|
|
DataController.DataSource = DADataSourcePreObr
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'Total: 0 presupuestos de obra'
|
|
Kind = skCount
|
|
Column = frViewPresupuestosPreObr.cxGridViewNOMBRE
|
|
end>
|
|
OptionsView.Footer = True
|
|
inherited cxGridViewACEPTADO: TcxGridDBColumn
|
|
Caption = ''
|
|
Width = 20
|
|
IsCaptionAssigned = True
|
|
end
|
|
inherited cxGridViewNOMBRE: TcxGridDBColumn
|
|
Width = 120
|
|
end
|
|
end
|
|
end
|
|
inherited dxComponentPrinter: TdxComponentPrinter
|
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
ReportDocument.CreationDate = 38847.754639965280000000
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
end
|
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Presupuestos obra'
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = ToolBar1
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item4: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = frViewPresupuestosPreObr
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'Presupuestos decoraci'#243'n'
|
|
object dxLayoutControl1Item2: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = ToolBar2
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item3: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Control = frViewPresupuestosPreDec
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
Images = PngImageList
|
|
Left = 88
|
|
Top = 80
|
|
object actAnadirPreObr: TAction
|
|
Caption = 'A'#241'adir'
|
|
ImageIndex = 0
|
|
end
|
|
object actAnadirPreDec: TAction
|
|
Caption = 'A'#241'adir'
|
|
ImageIndex = 0
|
|
end
|
|
object actEditarPreObr: TAction
|
|
Caption = 'Editar'
|
|
ImageIndex = 2
|
|
OnUpdate = actEditarPreObrUpdate
|
|
end
|
|
object actEditarPreDec: TAction
|
|
Caption = 'Editar'
|
|
ImageIndex = 2
|
|
OnUpdate = actEditarPreDecUpdate
|
|
end
|
|
object actEliminarPreDec: TAction
|
|
Caption = 'Eliminar'
|
|
ImageIndex = 1
|
|
OnExecute = actEliminarPreDecExecute
|
|
OnUpdate = actEliminarPreDecUpdate
|
|
end
|
|
object actEliminarPreObr: TAction
|
|
Caption = 'Eliminar'
|
|
ImageIndex = 1
|
|
OnExecute = actEliminarPreObrExecute
|
|
OnUpdate = actEliminarPreObrUpdate
|
|
end
|
|
object actEliminarTodoPreObr: TAction
|
|
Caption = 'Eliminar todo'
|
|
OnExecute = actEliminarTodoPreObrExecute
|
|
OnUpdate = actEliminarTodoPreObrUpdate
|
|
end
|
|
object actEliminarTodoPreDec: TAction
|
|
Caption = 'Eliminar todo'
|
|
OnExecute = actEliminarTodoPreDecExecute
|
|
OnUpdate = actEliminarTodoPreDecUpdate
|
|
end
|
|
end
|
|
object DADataSourcePreObr: TDADataSource
|
|
Top = 80
|
|
end
|
|
object cxStyleRepository1: TcxStyleRepository
|
|
Left = 48
|
|
Top = 112
|
|
object cxStyleEven: TcxStyle
|
|
end
|
|
object cxStyleOdd: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = clInactiveCaptionText
|
|
end
|
|
object cxStyleSelection: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = clHighlight
|
|
TextColor = clHighlightText
|
|
end
|
|
end
|
|
object dxPSEngineController1: TdxPSEngineController
|
|
LookAndFeel = pslfOffice11
|
|
UseNativeLookAndFeel = False
|
|
Left = 88
|
|
Top = 112
|
|
end
|
|
object dxComponentPrinter: TdxComponentPrinter
|
|
CurrentLink = dxComponentPrinterLink
|
|
PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint]
|
|
PreviewOptions.VisibleOptions = [pvoPageBackground, pvoPageSetup, pvoPreferences, pvoPrint, pvoPrintStyles, pvoReportFileOperations, pvoPageMargins]
|
|
PreviewOptions.WindowState = wsMaximized
|
|
Version = 0
|
|
Left = 120
|
|
Top = 112
|
|
object dxComponentPrinterLink: TdxGridReportLink
|
|
PrinterPage.DMPaper = 9
|
|
PrinterPage.Footer = 6350
|
|
PrinterPage.Header = 6350
|
|
PrinterPage.Margins.Bottom = 12700
|
|
PrinterPage.Margins.Left = 12700
|
|
PrinterPage.Margins.Right = 12700
|
|
PrinterPage.Margins.Top = 12700
|
|
PrinterPage.PageSize.X = 210000
|
|
PrinterPage.PageSize.Y = 297000
|
|
PrinterPage._dxMeasurementUnits_ = 0
|
|
PrinterPage._dxLastMU_ = 2
|
|
ReportDocument.CreationDate = 38826.675490983800000000
|
|
OptionsCharts.Transparent = True
|
|
OptionsFormatting.SuppressBackgroundBitmaps = True
|
|
OptionsOnEveryPage.Caption = False
|
|
OptionsOnEveryPage.FilterBar = False
|
|
OptionsSize.AutoWidth = True
|
|
OptionsView.Caption = False
|
|
OptionsView.ExpandButtons = False
|
|
OptionsView.FilterBar = False
|
|
OptionsView.GroupFooters = False
|
|
BuiltInReportLink = True
|
|
end
|
|
end
|
|
object DADataSourcePreDec: TDADataSource
|
|
Top = 248
|
|
end
|
|
object PngImageList: TPngImageList
|
|
PngImages = <
|
|
item
|
|
PngImage.Data = {
|
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
|
610000000970485973000017120000171201679FD252000000E14944415478DA
|
|
63FCFFFF3F032580717019C0C8C8086787B4DDF8FFEBD76F869F3F7F33EC6C37
|
|
824BA05B88D300BF86CBFFA3A35419A6CFB8C870A0CF9C7403DC2BCFFD8F88D4
|
|
66983DEB34C3B12936C41910DA7E13EE6C100E0D37609837E7180358EC0708FF
|
|
6278B0218011A701FE8D57C0CEFEF68391E1DB770630FD1D88BF7C07E26F8C0C
|
|
6B17AE6178B1230CB7011E55E7FF836C86B9C23FC48661C9BC5D609B7F40F187
|
|
0331B80D400E03DDF85DFF3D039D1856CEDFCCF0706320E981A816BEF5BF8BBF
|
|
07D8D92F7786936E80BCFFFAFF30677F3C184B9C01E480616000007F3BB6E1E0
|
|
0AF3B40000000049454E44AE426082}
|
|
Name = 'PngImage0'
|
|
Background = clWindow
|
|
end
|
|
item
|
|
PngImage.Data = {
|
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
|
610000000970485973000017120000171201679FD252000000714944415478DA
|
|
63FCFFFF3F03258071D4002A1B10DA7E13CC01897DFDFA83E1DBB71F60FAFBB7
|
|
9F0C9F3F7F03E3F7FBA219F11A1013A500E77FFCCCC8F0EA1D23C38BB74C0CCF
|
|
5E3131AC9E3397E1F7E914DC0684B4DDF88FCBE62F9FBF33FCF9F397E1FFF974
|
|
DC060C7C208E1A401E0000EFE473E127272ED00000000049454E44AE426082}
|
|
Name = 'PngImage1'
|
|
Background = clWindow
|
|
end
|
|
item
|
|
PngImage.Data = {
|
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
|
610000000970485973000017120000171201679FD2520000015D4944415478DA
|
|
63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
|
|
3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
|
|
24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
|
|
E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
|
|
60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
|
|
10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
|
|
1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
|
|
BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
|
|
06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
|
|
E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
|
|
00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
|
|
00000049454E44AE426082}
|
|
Name = 'PngImage2'
|
|
Background = clWindow
|
|
end>
|
|
Left = 456
|
|
Top = 24
|
|
Bitmap = {}
|
|
end
|
|
object MenuPreObr: TPopupMenu
|
|
Left = 432
|
|
Top = 24
|
|
object Modificar1: TMenuItem
|
|
Action = actAnadirPreObr
|
|
end
|
|
object Duplicar1: TMenuItem
|
|
Action = actEliminarPreObr
|
|
end
|
|
object Eliminar1: TMenuItem
|
|
Action = actEliminarTodoPreObr
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Nuevo1: TMenuItem
|
|
Action = actEditarPreObr
|
|
end
|
|
end
|
|
object MenuPreDec: TPopupMenu
|
|
Left = 392
|
|
Top = 288
|
|
object MenuItem1: TMenuItem
|
|
Action = actAnadirPreDec
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Action = actEliminarPreDec
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Action = actEliminarTodoPreDec
|
|
end
|
|
object MenuItem4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MenuItem5: TMenuItem
|
|
Action = actEditarPreDec
|
|
end
|
|
end
|
|
end
|