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/InformeEstFacturasCliPro.dfm

971 lines
29 KiB
Plaintext
Raw 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 frInformeEstFacturasCliPro: TfrInformeEstFacturasCliPro
Width = 935
Height = 746
inherited Titulo: TRdxPanelTituloOperacion
Width = 935
end
inherited pnlScroll: TRdxScrollPanel
Width = 935
Height = 674
inherited pnlResumen: TRdxPanel
Top = 386
Width = 935
inherited cResumen1: TRdxCabecera
Width = 935
end
inherited pnlDatosResumen: TPanel
Width = 935
inherited pnlGrid: TPanel
Top = 35
Width = 905
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 = 905
Height = 20
Alignment = taLeftJustify
AutoSize = False
BorderWidth = 0
object Label15: TLabel
Left = 3
Top = 0
Width = 482
Height = 20
AutoSize = False
Caption = 'Nombre'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label16: TLabel
Left = 482
Top = 0
Width = 109
Height = 20
AutoSize = False
Caption = 'N<> Facturas'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label17: TLabel
Left = 589
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 = 'MS Sans Serif'
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 = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
end
inherited pnlGeneral: TRdxPanel
Width = 935
Height = 386
inherited cGeneral: TRdxCabecera
Width = 935
end
inherited pnlDatosGen: TPanel
Width = 935
inherited pnlTotales: TPanel
Top = 126
Width = 915
Height = 20
inherited pnlTotalComparativa: TPanel
Left = 470
Width = 185
Height = 20
BorderWidth = 0
Caption = ''
Font.Style = [fsBold]
ParentFont = False
object pnlA3T1: TLabel
Left = 4
Top = 0
Width = 178
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalAnoCom2: TPanel
Left = 285
Width = 185
Height = 20
BorderWidth = 0
Caption = ''
object pnlA2T1: TLabel
Left = 4
Top = 0
Width = 178
Height = 20
Alignment = taRightJustify
AutoSize = False
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalAnoCom1: TPanel
Left = 100
Width = 185
Height = 20
BorderWidth = 0
Caption = ''
object pnlA1T1: TLabel
Left = 4
Top = 0
Width = 177
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'pnlA1T1'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTotalIntervalo: TPanel
Width = 100
Height = 20
Alignment = taRightJustify
object Label11: TLabel
Left = 4
Top = 1
Width = 94
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 = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
inherited pnlTitulos: TPanel
Top = 50
Width = 915
Height = 25
AutoSize = False
inherited pnlTitulo4: TPanel
Left = 470
Width = 185
Height = 25
Caption = ''
object Label7: TLabel
Left = 4
Top = 0
Width = 178
Height = 20
Alignment = taCenter
AutoSize = False
Caption = ' Porcentaje'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTitulo3: TPanel
Left = 285
Width = 185
Height = 25
Caption = ''
object Label4: TLabel
Left = 4
Top = 0
Width = 178
Height = 20
Alignment = taCenter
AutoSize = False
Caption = ' Facturaci<63>n'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
inherited pnlTitulo2: TPanel
Left = 100
Width = 185
Height = 25
Caption = ''
object Label3: TLabel
Left = 3
Top = 0
Width = 179
Height = 20
Alignment = taCenter
AutoSize = False
Caption = ' Facturaci<63>n'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
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 = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
inherited pnlFiltros: TPanel
Width = 915
Height = 40
AutoSize = False
inherited pnlFiltro4: TPanel
Left = 470
Width = 185
Height = 40
Font.Style = [fsBold]
ParentFont = False
object etiComp: TLabel
Left = 12
Top = -1
Width = 165
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 = 285
Width = 185
Height = 40
object Label13: TLabel [0]
Left = 4
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 = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
inherited cbxFiltro3: TRdxComboBox
Left = 113
Width = 70
end
end
inherited pnlFiltro2: TPanel
Left = 100
Width = 185
Height = 40
object Label12: TLabel [0]
Left = 16
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 = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
inherited cbxFiltro2: TRdxComboBox
Left = 112
Width = 70
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 = 915
ParentColor = False
inherited pnl4: TPanel
Left = 470
Width = 185
BorderWidth = 3
inherited gridComparativa: TdxDBGrid
Left = 3
Top = 3
Width = 179
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnl3: TPanel
Left = 285
Width = 185
BorderWidth = 3
inherited gridAnoCom2: TdxDBGrid
Left = 3
Top = 3
Width = 179
Height = 45
DefaultRowHeight = 17
Filter.Criteria = {00000000}
end
end
inherited pnl2: TPanel
Left = 100
Width = 185
BorderWidth = 3
inherited gridAnoCom1: TdxDBGrid
Left = 3
Top = 3
Width = 179
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 = 935
Height = 200
AutoSize = False
object DBChart1: TDBChart
Left = 15
Top = 15
Width = 795
Height = 170
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 = (
'Facturaci<63>n')
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 = 'Facturaci<63>n'
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
Locked = True
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 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
end
end
end
object pnlResumen2: TRdxPanel
Left = 0
Top = 511
Width = 935
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 = 935
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 = 935
Height = 95
Align = alTop
AutoSize = True
BevelOuter = bvNone
BorderWidth = 15
Caption = 'panel5'
ParentColor = True
TabOrder = 0
object pnlGrid2: TPanel
Left = 15
Top = 35
Width = 905
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 = 905
Height = 20
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label19: TLabel
Left = 3
Top = 0
Width = 368
Height = 20
AutoSize = False
Caption = 'Nombre'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label20: TLabel
Left = 365
Top = 0
Width = 114
Height = 20
AutoSize = False
Caption = 'Importe Dto'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label21: TLabel
Left = 477
Top = 0
Width = 114
Height = 20
AutoSize = False
Caption = 'Importe Total'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label22: TLabel
Left = 716
Top = 0
Width = 63
Height = 20
AutoSize = False
Caption = '(%) Medio'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object Label1: TLabel
Left = 587
Top = 0
Width = 130
Height = 20
AutoSize = False
Caption = 'Importe Cobrado'
Color = 11461094
Constraints.MinHeight = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
end
end
end
end
inherited brSimple: TRdxBarraInferior
Top = 696
Width = 935
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 = 134
end
inherited dsAnoCom1: TDataSource
Left = 118
Top = 135
end
inherited dsAnoCom2: TDataSource
Left = 240
Top = 138
end
inherited dsComparativa: TDataSource
Left = 361
Top = 136
end
inherited TMemIntervalo: TRxMemoryData
Top = 135
end
inherited TMemAnoCom1: TRxMemoryData
Left = 149
Top = 135
end
inherited TMemAnoCom2: TRxMemoryData
Left = 267
Top = 138
end
inherited TMemComparativa: TRxMemoryData
Left = 396
Top = 136
end
inherited TablaResumen1Mem: TRxMemoryData
Left = 137
Top = 416
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
end
Reference in New Issue Copy Permalink