Tecistel/Tecsitel_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
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.
master
Tecsitel_FactuGES/Informes/InformeEstPresupuestos.dfm

1494 lines
45 KiB
Plaintext
Raw Permalink Normal View History

Importación inicial git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
2007-06-21 15:47:20 +00:00
inherited frInformeEstPresupuestos: TfrInformeEstPresupuestos
Width = 854
Height = 620
inherited Titulo: TRdxPanelTituloOperacion
Width = 854
end
inherited pnlScroll: TRdxScrollPanel
Width = 854
Height = 548
inherited pnlResumen: TRdxPanel
Top = 386
Width = 837
inherited cResumen1: TRdxCabecera
Width = 837
end
inherited pnlDatosResumen: TPanel
Width = 837
inherited pnlGrid: TPanel
Top = 35
Width = 807
Height = 45
AutoSize = False
BorderWidth = 3
inherited gridResumen: TdxDBGrid
Left = 3
Top = 3
Width = 775
Height = 39
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnlTitulosResumen: TPanel
Width = 807
Height = 20
Alignment = taLeftJustify
AutoSize = False
BorderWidth = 0
object Label15: TLabel
Left = 3
Top = 0
Width = 416
Height = 20
AutoSize = False
Caption = 'Nombre'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label16: TLabel
Left = 419
Top = 0
Width = 163
Height = 20
AutoSize = False
Caption = 'N<> Pre. Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label17: TLabel
Left = 581
Top = 0
Width = 109
Height = 20
AutoSize = False
Caption = 'Importe total'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label18: TLabel
Left = 690
Top = 0
Width = 89
Height = 20
AutoSize = False
Caption = 'Porcentaje (%)'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
end
inherited pnlGeneral: TRdxPanel
Width = 837
Height = 386
inherited cGeneral: TRdxCabecera
Width = 837
end
inherited pnlDatosGen: TPanel
Width = 837
inherited pnlTotales: TPanel
Top = 126
Width = 817
Height = 20
inherited pnlTotalComparativa: TPanel
Left = 560
Width = 230
Height = 20
BorderWidth = 0
Font.Style = [fsBold]
ParentFont = False
object pnlA3T1: TLabel
Left = 3
Top = 0
Width = 76
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA3T2: TLabel
Left = 79
Top = 0
Width = 70
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA3T3: TLabel
Left = 149
Top = 0
Width = 78
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalAnoCom2: TPanel
Left = 330
Width = 230
Height = 20
BorderWidth = 0
object pnlA2T1: TLabel
Left = 3
Top = 0
Width = 76
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA2T2: TLabel
Left = 79
Top = 0
Width = 70
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA2T3: TLabel
Left = 149
Top = 0
Width = 78
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalAnoCom1: TPanel
Left = 100
Width = 230
Height = 20
BorderWidth = 0
object pnlA1T1: TLabel
Left = 3
Top = 0
Width = 76
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA1T2: TLabel
Left = 79
Top = 0
Width = 70
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object pnlA1T3: TLabel
Left = 149
Top = 0
Width = 78
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalIntervalo: TPanel
Width = 100
Height = 20
Alignment = taRightJustify
object Label11: TLabel
Left = 2
Top = 1
Width = 95
Height = 18
Alignment = taRightJustify
AutoSize = False
Caption = 'TOTALES:'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
inherited pnlTitulos: TPanel
Top = 50
Width = 817
Height = 25
AutoSize = False
inherited pnlTitulo4: TPanel
Left = 560
Width = 241
Height = 25
BorderWidth = 0
Caption = ''
object Label7: TLabel
Left = 3
Top = 0
Width = 85
Height = 20
AutoSize = False
Caption = ' Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label8: TLabel
Left = 88
Top = 0
Width = 71
Height = 20
AutoSize = False
Caption = 'Anulados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label9: TLabel
Left = 158
Top = 0
Width = 68
Height = 20
AutoSize = False
Caption = 'Pendientes '
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTitulo3: TPanel
Left = 330
Width = 230
Height = 25
BorderWidth = 0
Caption = ''
object Label4: TLabel
Left = 3
Top = 0
Width = 85
Height = 20
AutoSize = False
Caption = ' Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label5: TLabel
Left = 88
Top = 0
Width = 71
Height = 20
AutoSize = False
Caption = 'Anulados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label6: TLabel
Left = 158
Top = 0
Width = 68
Height = 20
AutoSize = False
Caption = 'Pendientes '
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTitulo2: TPanel
Left = 100
Width = 230
Height = 25
BorderWidth = 0
Caption = ''
object Label1: TLabel
Left = 158
Top = 0
Width = 68
Height = 20
AutoSize = False
Caption = 'Pendientes '
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label2: TLabel
Left = 88
Top = 0
Width = 71
Height = 20
AutoSize = False
Caption = 'Anulados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label3: TLabel
Left = 3
Top = 0
Width = 85
Height = 20
AutoSize = False
Caption = ' Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTitulo1: TPanel
Width = 100
Height = 25
BorderWidth = 0
Caption = ''
object Label10: TLabel
Left = 3
Top = 0
Width = 94
Height = 20
Alignment = taCenter
AutoSize = False
Caption = 'Intervalo'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
inherited pnlFiltros: TPanel
Width = 817
Height = 40
AutoSize = False
inherited pnlFiltro4: TPanel
Left = 560
Width = 230
Height = 40
Font.Style = [fsBold]
ParentFont = False
object etiComp: TLabel
Left = 20
Top = 0
Width = 189
Height = 37
Alignment = taCenter
AutoSize = False
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = 6052956
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
end
inherited pnlFiltro3: TPanel
Left = 330
Width = 230
Height = 40
object Label13: TLabel [0]
Left = 23
Top = 2
Width = 113
Height = 20
AutoSize = False
Caption = 'Comparar con a<>o:'
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = 6052956
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
inherited cbxFiltro3: TRdxComboBox
Left = 137
end
end
inherited pnlFiltro2: TPanel
Left = 100
Width = 230
Height = 40
object Label12: TLabel [0]
Left = 37
Top = 2
Width = 96
Height = 20
AutoSize = False
Caption = 'Valores del a<>o:'
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = 6052956
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
inherited cbxFiltro2: TRdxComboBox
Left = 135
end
end
inherited pnlFiltro1: TPanel
Width = 100
Height = 40
inherited cbxFiltro1: TRdxComboBox
Left = 4
Top = 2
Width = 93
end
end
end
inherited pnlTablas: TPanel
Top = 75
Width = 817
inherited pnl4: TPanel
Left = 560
Width = 230
BorderWidth = 3
inherited gridComparativa: TdxDBGrid
Left = 3
Top = 3
Width = 224
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnl3: TPanel
Left = 330
Width = 230
BorderWidth = 3
inherited gridAnoCom2: TdxDBGrid
Left = 3
Top = 3
Width = 224
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnl2: TPanel
Left = 100
Width = 230
BorderWidth = 3
inherited gridAnoCom1: TdxDBGrid
Left = 3
Top = 3
Width = 224
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnl1: TPanel
Width = 100
BorderWidth = 3
inherited gridIntervalo: TdxDBGrid
Left = 3
Top = 3
Width = 94
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
end
end
inherited pnlGraficoGen: TPanel
Width = 837
Height = 200
AutoSize = False
object DBChart1: TDBChart
Left = 15
Top = 36
Width = 795
Height = 149
AllowZoom = False
AnimatedZoom = True
BackWall.Brush.Color = clWhite
BackWall.Color = 15530233
BackWall.Pen.Color = 6052956
BackWall.Pen.SmallDots = True
Foot.Font.Charset = DEFAULT_CHARSET
Foot.Font.Color = clRed
Foot.Font.Height = -11
Foot.Font.Name = 'Tahoma'
Foot.Font.Style = [fsItalic]
Gradient.Direction = gdRightLeft
MarginBottom = 0
MarginLeft = 2
MarginRight = 1
MarginTop = 0
Title.Alignment = taRightJustify
Title.Color = clWhite
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clGray
Title.Font.Height = -21
Title.Font.Name = 'Tahoma'
Title.Font.Style = []
Title.Text.Strings = (
'PRESUPUESTOS')
BackColor = 15530233
BottomAxis.AxisValuesFormat = '#'
BottomAxis.DateTimeFormat = 'yyy'
BottomAxis.ExactDateTime = False
BottomAxis.Grid.Style = psSolid
BottomAxis.Increment = 1
BottomAxis.LabelsOnAxis = False
BottomAxis.LabelsSeparation = 30
BottomAxis.RoundFirstLabel = False
BottomAxis.Title.Font.Charset = DEFAULT_CHARSET
BottomAxis.Title.Font.Color = clBlack
BottomAxis.Title.Font.Height = -11
BottomAxis.Title.Font.Name = 'Tahoma'
BottomAxis.Title.Font.Style = []
DepthAxis.Increment = 100
DepthAxis.LabelsMultiLine = True
DepthAxis.LabelsSize = 5
Frame.Color = 6052956
Frame.SmallDots = True
LeftAxis.Axis.Color = 8623776
LeftAxis.ExactDateTime = False
LeftAxis.Grid.Color = 8623776
LeftAxis.Increment = 10
LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
LeftAxis.LabelsFont.Color = clBlack
LeftAxis.LabelsFont.Height = -11
LeftAxis.LabelsFont.Name = 'Tahoma'
LeftAxis.LabelsFont.Style = []
LeftAxis.LabelsOnAxis = False
LeftAxis.LogarithmicBase = 0
LeftAxis.Title.Caption = 'Aceptados / Anulados / Pendientes'
LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
LeftAxis.Title.Font.Color = clBlack
LeftAxis.Title.Font.Height = -12
LeftAxis.Title.Font.Name = 'Tahoma'
LeftAxis.Title.Font.Style = []
LeftAxis.TitleSize = 4
Legend.Alignment = laBottom
Legend.Brush.Color = clBlack
Legend.Color = 15726583
Legend.DividingLines.Color = 6052956
Legend.DividingLines.Visible = True
Legend.Font.Charset = DEFAULT_CHARSET
Legend.Font.Color = clBlack
Legend.Font.Height = -11
Legend.Font.Name = 'Tahoma'
Legend.Font.Style = []
Legend.Frame.Color = 6052956
Legend.ShadowColor = 6052956
Legend.ShadowSize = 2
Legend.TextStyle = ltsPlain
Legend.TopPos = 7
Legend.VertMargin = 1
RightAxis.Automatic = False
RightAxis.AutomaticMaximum = False
RightAxis.AutomaticMinimum = False
RightAxis.Maximum = 12
RightAxis.Title.Caption = 'Meses'
View3D = False
Align = alLeft
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
Constraints.MaxWidth = 795
object Series1: TBarSeries
Cursor = crArrow
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = False
DataSource = TMemGraficoAno1
SeriesColor = clTeal
Title = 'Aceptados'
BarStyle = bsRectGradient
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
DataSource = TMemGraficoAno1
SeriesColor = 1900708
Title = 'Anulados'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series3: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
DataSource = TMemGraficoAno1
SeriesColor = 1626573
Title = 'Pendientes'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series4: TBarSeries
Cursor = crArrow
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = False
DataSource = TMemGraficoAno2
SeriesColor = 16121813
Title = 'Aceptados2'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series5: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
DataSource = TMemGraficoAno2
SeriesColor = 12365567
Title = 'Anulados2'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series6: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = False
DataSource = TMemGraficoAno2
SeriesColor = 10679538
Title = 'Pendientes2'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
end
object Panel1: TPanel
Left = 15
Top = 15
Width = 807
Height = 21
Align = alTop
Alignment = taLeftJustify
AutoSize = True
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentColor = True
ParentFont = False
TabOrder = 1
object Label27: TLabel
Left = 0
Top = 0
Width = 186
Height = 20
AutoSize = False
Caption = 'Mostrar gr<67>fico de presupuestos:'
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = 6052956
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
object cbxFiltroGrafico: TRdxComboBox
Left = 191
Top = 0
Width = 90
Height = 21
Style = csDropDownList
Color = 15726583
ColorArrow = clBlack
ColorArrowBackground = 12775679
ColorBorder = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
ItemIndex = -1
OnChange = cbxFiltroGraficoChange
BiDiMode = bdLeftToRight
ParentBiDiMode = False
end
end
end
end
object pnlResumen2: TRdxPanel
Left = 0
Top = 511
Width = 837
Height = 115
Caption = ' '
ParentColor = True
ColorHighLight = 8623776
ColorShadow = 16383743
Align = alTop
TabOrder = 2
AutoSize = True
UseDockManager = True
object cResumen2: TRdxCabecera
Left = 0
Top = 0
Width = 837
Height = 20
Caption = 'Titulo resumen'
Align = alTop
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Margen = 10
Flecha = False
end
object pnlDatosResumen2: TPanel
Left = 0
Top = 20
Width = 837
Height = 95
Align = alTop
AutoSize = True
BevelOuter = bvNone
BorderWidth = 15
Caption = 'panel5'
ParentColor = True
TabOrder = 0
object pnlGrid2: TPanel
Left = 15
Top = 35
Width = 807
Height = 45
Align = alTop
BevelOuter = bvNone
BorderWidth = 3
ParentColor = True
TabOrder = 0
object gridResumen2: TdxDBGrid
Left = 3
Top = 3
Width = 775
Height = 39
Bands = <
item
end>
DefaultLayout = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alLeft
BorderStyle = bsNone
Color = 16383743
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
BandColor = 8623776
BandFont.Charset = DEFAULT_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -11
BandFont.Name = 'Tahoma'
BandFont.Style = []
DataSource = dsResumen2
DblClkExpanding = False
Filter.Criteria = {00000000}
GridLineColor = 14280169
GroupPanelColor = 8623776
GroupPanelFontColor = 15726583
GroupNodeColor = 14280169
HeaderColor = 14280169
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
HideFocusRect = True
HideSelection = True
HighlightColor = 12775679
HighlightTextColor = clBlack
LookAndFeel = lfFlat
OptionsBehavior = []
OptionsCustomize = []
OptionsDB = []
OptionsView = [edgoAutoHeaderPanelHeight, edgoAutoWidth]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -11
PreviewFont.Name = 'Tahoma'
PreviewFont.Style = []
RowSeparatorLineWidth = 2
ScrollBars = ssNone
ShowGrid = False
ShowPreviewGrid = False
OnCustomDrawCell = gridCustomDrawCell
end
end
object pnlTitulosResumen2: TPanel
Left = 15
Top = 15
Width = 807
Height = 20
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label19: TLabel
Left = 3
Top = 0
Width = 415
Height = 20
AutoSize = False
Caption = 'Nombre'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label20: TLabel
Left = 415
Top = 0
Width = 133
Height = 20
AutoSize = False
Caption = 'N<> Pre. Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label21: TLabel
Left = 545
Top = 0
Width = 123
Height = 20
AutoSize = False
Caption = 'N<> Pre. Anulados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label22: TLabel
Left = 666
Top = 0
Width = 113
Height = 20
AutoSize = False
Caption = 'N<> Pre. Pendientes'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
end
object pnlResumen3: TRdxPanel
Left = 0
Top = 626
Width = 837
Height = 115
Caption = ' '
ParentColor = True
ColorHighLight = 8623776
ColorShadow = 16383743
Align = alTop
TabOrder = 3
AutoSize = True
UseDockManager = True
object cResumen3: TRdxCabecera
Left = 0
Top = 0
Width = 837
Height = 20
Caption = 'Titulo resumen'
Align = alTop
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Margen = 10
Flecha = False
end
object pnlDatosResumen3: TPanel
Left = 0
Top = 20
Width = 837
Height = 95
Align = alTop
AutoSize = True
BevelOuter = bvNone
BorderWidth = 15
Caption = 'panel5'
ParentColor = True
TabOrder = 0
object pnlGrid3: TPanel
Left = 15
Top = 35
Width = 807
Height = 45
Align = alTop
BevelOuter = bvNone
BorderWidth = 3
ParentColor = True
TabOrder = 0
object gridResumen3: TdxDBGrid
Left = 3
Top = 3
Width = 775
Height = 39
Bands = <
item
end>
DefaultLayout = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alLeft
BorderStyle = bsNone
Color = 16383743
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
BandColor = 8623776
BandFont.Charset = DEFAULT_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -11
BandFont.Name = 'Tahoma'
BandFont.Style = []
DataSource = dsResumen3
DblClkExpanding = False
Filter.Criteria = {00000000}
GridLineColor = 14280169
GroupPanelColor = 8623776
GroupPanelFontColor = 15726583
GroupNodeColor = 14280169
HeaderColor = 14280169
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
HideFocusRect = True
HideSelection = True
HighlightColor = 12775679
HighlightTextColor = clBlack
LookAndFeel = lfFlat
OptionsBehavior = []
OptionsCustomize = []
OptionsDB = []
OptionsView = [edgoAutoHeaderPanelHeight, edgoAutoWidth]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -11
PreviewFont.Name = 'Tahoma'
PreviewFont.Style = []
RowSeparatorLineWidth = 2
ScrollBars = ssNone
ShowGrid = False
ShowPreviewGrid = False
OnCustomDrawCell = gridCustomDrawCell
end
end
object pnlTitulosResumen3: TPanel
Left = 15
Top = 15
Width = 807
Height = 20
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label23: TLabel
Left = 3
Top = 0
Width = 416
Height = 20
AutoSize = False
Caption = 'Nombre'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label24: TLabel
Left = 540
Top = 0
Width = 131
Height = 20
AutoSize = False
Caption = 'N<> Pre. Aceptados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label25: TLabel
Left = 419
Top = 0
Width = 122
Height = 20
AutoSize = False
Caption = 'N<> Pre. Anulados'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label26: TLabel
Left = 666
Top = 0
Width = 113
Height = 20
AutoSize = False
Caption = 'N<> Pre. Pendientes'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
end
end
inherited brSimple: TRdxBarraInferior
Top = 570
Width = 854
inherited bImprimir: TRdxBoton
OnClick = bImprimirClick
end
inherited bCancelar: TRdxBoton
OnClick = bCancelarClick
end
end
inherited dsResumen1: TDataSource
DataSet = TablaResumen1Mem
Left = 106
Top = 414
end
inherited dsIntervalo: TDataSource
Top = 111
end
inherited dsAnoCom1: TDataSource
Left = 118
Top = 120
end
inherited dsAnoCom2: TDataSource
Left = 342
Top = 120
end
inherited dsComparativa: TDataSource
Left = 574
Top = 128
end
inherited TMemIntervalo: TRxMemoryData
Top = 112
end
inherited TMemAnoCom1: TRxMemoryData
Left = 149
Top = 120
end
inherited TMemAnoCom2: TRxMemoryData
Top = 120
end
inherited TMemComparativa: TRxMemoryData
Left = 609
Top = 128
end
inherited TablaResumen1Mem: TRxMemoryData
Left = 137
Top = 416
end
inherited TMemGraficoAno1: TRxMemoryData
Left = 41
Top = 249
end
inherited TMemGraficoAno2: TRxMemoryData
Left = 81
Top = 249
end
object IBDatabase1: TIBDatabase
DatabaseName = 'D:\Proyectos\FactuGES 2000 v2 (Tecsitel)\Codigo\BD\TECSITEL.GDB'
Params.Strings = (
'user_name=sysdba'
'password=masterkey'
'lc_ctype=ISO8859_1')
LoginPrompt = False
IdleTimer = 0
SQLDialect = 3
TraceFlags = []
AllowStreamedConnected = False
Left = 784
Top = 192
end
object IBTransaction1: TIBTransaction
Active = False
DefaultDatabase = IBDatabase1
Left = 824
Top = 192
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = IBDataSet1
Left = 784
Top = 224
end
object IBDataSet1: TIBDataSet
Database = IBDatabase1
Transaction = IBTransaction1
BufferChunks = 1000
CachedUpdates = False
SelectSQL.Strings = (
'select EXTRACT(YEAR FROM P.FECHAALTA) as ANO'
',EXTRACT(MONTH FROM FECHAALTA) as NFILA'
',COUNT(P.CODIGO) as NUMPRE'
'from PRESUPUESTOSCLIENTE P'
'where EXTRACT(YEAR FROM P.FECHAALTA) = '#39'2004'#39
'and upper(SITUACION) = '#39'ACEPTADO'#39
'group by 1,2'
'order by 1 desc,2 asc')
Left = 824
Top = 232
end
object IBDataSet3: TIBDataSet
Database = IBDatabase1
Transaction = IBTransaction1
BufferChunks = 1000
CachedUpdates = False
SelectSQL.Strings = (
'select EXTRACT(YEAR FROM P.FECHAALTA) as ANO'
',EXTRACT(MONTH FROM FECHAALTA) as NFILA'
',COUNT(P.CODIGO) as NUMPRE'
'from PRESUPUESTOSCLIENTE P'
'where EXTRACT(YEAR FROM P.FECHAALTA) = '#39'2004'#39
'and upper(SITUACION) = '#39'ANULADO'#39
'group by 1,2'
'order by 1 desc,2 asc')
Left = 824
Top = 264
end
object IBDataSet2: TIBDataSet
Database = IBDatabase1
Transaction = IBTransaction1
BufferChunks = 1000
CachedUpdates = False
SelectSQL.Strings = (
'select EXTRACT(YEAR FROM P.FECHAALTA) as ANO'
',EXTRACT(MONTH FROM FECHAALTA) as NFILA'
',COUNT(P.CODIGO) as NUMPRE'
'from PRESUPUESTOSCLIENTE P'
'where EXTRACT(YEAR FROM P.FECHAALTA) = '#39'2004'#39
'and upper(SITUACION) = '#39'PENDIENTE'#39
'group by 1,2'
'order by 1 desc,2 asc')
Left = 824
Top = 296
end
object dsResumen2: TDataSource
DataSet = TablaResumen2Mem
Left = 106
Top = 526
end
object TablaResumen2Mem: TRxMemoryData
FieldDefs = <>
Left = 137
Top = 528
end
object dsResumen3: TDataSource
DataSet = TablaResumen3Mem
Left = 114
Top = 646
end
object TablaResumen3Mem: TRxMemoryData
FieldDefs = <>
Left = 145
Top = 648
end
end
Reference in New Issue Copy Permalink