inherited frInformeEstBeneficios: TfrInformeEstBeneficios Width = 972 Height = 713 inherited Titulo: TRdxPanelTituloOperacion Width = 972 end inherited pnlScroll: TRdxScrollPanel Width = 972 Height = 641 inherited pnlResumen: TRdxPanel Top = 516 Width = 972 Visible = False Align = alBottom inherited cResumen1: TRdxCabecera Width = 972 end inherited pnlDatosResumen: TPanel Width = 972 inherited pnlGrid: TPanel Top = 35 Width = 942 Height = 45 AutoSize = False inherited gridResumen: TdxDBGrid Width = 775 Height = 25 Filter.Criteria = {00000000} end end inherited pnlTitulosResumen: TPanel Width = 942 Height = 20 Alignment = taLeftJustify AutoSize = False BorderWidth = 0 end end end inherited pnlGeneral: TRdxPanel Width = 972 Height = 516 Align = alClient AutoSize = False inherited cGeneral: TRdxCabecera Width = 972 end inherited pnlDatosGen: TPanel Width = 972 inherited pnlTotales: TPanel Top = 126 Width = 952 Height = 20 inherited pnlTotalComparativa: TPanel Left = 634 Width = 250 Height = 20 BorderWidth = 0 Font.Style = [fsBold] ParentFont = False object pnlA3T2: TLabel Left = 80 Top = 0 Width = 82 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA3T3: TLabel Left = 162 Top = 0 Width = 86 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA3T1: TLabel Left = 4 Top = 0 Width = 78 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end end inherited pnlTotalAnoCom2: TPanel Left = 357 Width = 277 Height = 20 BorderWidth = 0 object pnlA2T4: TLabel Left = 227 Top = 0 Width = 47 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] 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 = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA2T2: TLabel Left = 75 Top = 0 Width = 76 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA2T1: TLabel Left = 4 Top = 0 Width = 74 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end end inherited pnlTotalAnoCom1: TPanel Left = 80 Width = 277 Height = 20 BorderWidth = 0 object pnlA1T4: TLabel Left = 227 Top = 0 Width = 47 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] 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 = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA1T2: TLabel Left = 75 Top = 0 Width = 76 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object pnlA1T1: TLabel Left = 4 Top = 0 Width = 74 Height = 20 Alignment = taRightJustify AutoSize = False Color = 11461094 Constraints.MinHeight = 18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end end inherited pnlTotalIntervalo: TPanel Width = 80 Height = 20 Alignment = taRightJustify object Label11: TLabel Left = 4 Top = 1 Width = 72 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 = 952 Height = 25 AutoSize = False inherited pnlTitulo4: TPanel Left = 634 Width = 250 Height = 25 BorderWidth = 0 Caption = '' object Label8: TLabel Left = 3 Top = 0 Width = 116 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Ingresos' 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 = 118 Top = 0 Width = 73 Height = 20 AutoSize = False Caption = 'Gastos' 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 Label15: TLabel Left = 190 Top = 0 Width = 57 Height = 20 AutoSize = False Caption = 'Beneficio' 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 = 357 Width = 277 Height = 25 BorderWidth = 0 Caption = '' object Label4: TLabel Left = 4 Top = 0 Width = 106 Height = 20 AutoSize = False Caption = ' Ingresos' 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 = 110 Top = 0 Width = 63 Height = 20 AutoSize = False Caption = 'Gastos' 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 = 172 Top = 0 Width = 70 Height = 20 AutoSize = False Caption = 'Beneficio' 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 Label7: TLabel Left = 236 Top = 0 Width = 37 Height = 20 Alignment = taCenter AutoSize = False Caption = '(%)' 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 = 80 Width = 277 Height = 25 BorderWidth = 0 Caption = '' object Label1: TLabel Left = 172 Top = 0 Width = 70 Height = 20 AutoSize = False Caption = 'Beneficio' 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 = 110 Top = 0 Width = 63 Height = 20 AutoSize = False Caption = 'Gastos' 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 = 4 Top = 0 Width = 106 Height = 20 AutoSize = False Caption = ' Ingresos' 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 Label27: TLabel Left = 236 Top = 0 Width = 37 Height = 20 Alignment = taCenter AutoSize = False Caption = '(%)' 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 = 80 Height = 25 BorderWidth = 0 Caption = '' object Label10: TLabel Left = 3 Top = 0 Width = 74 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 = 952 Height = 40 AutoSize = False inherited pnlFiltro4: TPanel Left = 634 Width = 250 Height = 40 Font.Style = [fsBold] ParentFont = False object etiComp: TLabel Left = 12 Top = -1 Width = 225 Height = 39 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 = 357 Width = 277 Height = 40 object Label13: TLabel [0] Left = 71 Top = 2 Width = 107 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 = 183 end end inherited pnlFiltro2: TPanel Left = 80 Width = 277 Height = 40 object Label12: TLabel [0] Left = 84 Top = 2 Width = 94 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 = 181 end end inherited pnlFiltro1: TPanel Width = 80 Height = 40 inherited cbxFiltro1: TRdxComboBox Left = 5 Top = 2 Width = 72 end end end inherited pnlTablas: TPanel Top = 75 Width = 952 inherited pnl4: TPanel Left = 634 Width = 250 BorderWidth = 3 inherited gridComparativa: TdxDBGrid Left = 3 Top = 3 Width = 244 Height = 45 Font.Height = -9 Font.Name = 'Microsoft Sans Serif' DefaultRowHeight = 17 Filter.Criteria = {00000000} end end inherited pnl3: TPanel Left = 357 Width = 277 BorderWidth = 3 inherited gridAnoCom2: TdxDBGrid Left = 3 Top = 3 Width = 271 Height = 45 Font.Height = -9 Font.Name = 'Microsoft Sans Serif' DefaultRowHeight = 17 Filter.Criteria = {00000000} end end inherited pnl2: TPanel Left = 80 Width = 277 BorderWidth = 3 inherited gridAnoCom1: TdxDBGrid Left = 3 Top = 3 Width = 271 Height = 45 Font.Height = -9 Font.Name = 'Microsoft Sans Serif' DefaultRowHeight = 17 Filter.Criteria = {00000000} end end inherited pnl1: TPanel Width = 80 BorderWidth = 3 inherited gridIntervalo: TdxDBGrid Left = 3 Top = 3 Width = 74 Height = 45 Font.Height = -9 Font.Name = 'Microsoft Sans Serif' DefaultRowHeight = 17 Filter.Criteria = {00000000} end end end end inherited pnlGraficoGen: TPanel Width = 972 Height = 330 Align = alClient AutoSize = False object DBChart1: TDBChart Left = 15 Top = 36 Width = 882 Height = 279 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 = ( 'BENEFICIOS') 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 = 'Ingresos / Gastos / Beneficios' 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 object Series1: TBarSeries Cursor = crArrow Marks.ArrowLength = 20 Marks.Style = smsValue Marks.Visible = False DataSource = TMemGraficoAno1 SeriesColor = clTeal Title = 'Ingresos' 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 = 'Gastos' 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 = 'Beneficios' 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 = 'Ingresos2' 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 = 'Gastos2' 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 = 'Beneficios2' 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 = 942 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 Label17: TLabel Left = 0 Top = 0 Width = 111 Height = 20 AutoSize = False Caption = 'Mostrar gráfico de:' 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 = 117 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 end inherited brSimple: TRdxBarraInferior Top = 663 Width = 972 inherited bImprimir: TRdxBoton OnClick = bImprimirClick end inherited bCancelar: TRdxBoton OnClick = bCancelarClick end end inherited dsResumen1: TDataSource DataSet = TablaResumen1Mem Left = 26 Top = 446 end inherited dsIntervalo: TDataSource Top = 143 end inherited dsAnoCom1: TDataSource Left = 126 Top = 144 end inherited dsAnoCom2: TDataSource Left = 382 Top = 144 end inherited dsComparativa: TDataSource Left = 638 Top = 144 end inherited TMemIntervalo: TRxMemoryData Top = 144 end inherited TMemAnoCom1: TRxMemoryData Left = 157 Top = 144 end inherited TMemAnoCom2: TRxMemoryData Left = 409 Top = 144 end inherited TMemComparativa: TRxMemoryData Left = 673 Top = 144 end inherited TablaResumen1Mem: TRxMemoryData Left = 57 Top = 448 end inherited TMemGraficoAno1: TRxMemoryData Left = 57 Top = 257 end inherited TMemGraficoAno2: TRxMemoryData Left = 97 Top = 257 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 end