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.
7291f69f59
Tecsitel_FactuGES/Informes/InformeEstBeneficios.dfm
david bd7a099c7d 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

1088 lines
34 KiB
Plaintext
Raw Blame History

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<67>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
Reference in New Issue View Git Blame Copy Permalink