This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
FactuGES/Contabilidad/ImprimirBeneficiosAnuales.dfm
2007-06-26 08:08:27 +00:00

178 lines
5.2 KiB
Plaintext

object frImprimirBeneficiosAnuales: TfrImprimirBeneficiosAnuales
Tag = 6
Left = 0
Top = 0
Width = 668
Height = 128
Color = 16383743
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object pnlTitulo: TRdxPanelTituloOperacion
Left = 0
Top = 0
Width = 668
Height = 22
Caption = ' '
Color = 12111795
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = 16640
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
object pnlVistaPrevia: TPanel
Left = 0
Top = 113
Width = 668
Height = 15
Align = alClient
BevelOuter = bvNone
Color = 16383743
TabOrder = 0
end
object pnlCuerpo: TPanel
Left = 0
Top = 22
Width = 668
Height = 91
Align = alTop
AutoSize = True
BevelOuter = bvNone
BorderWidth = 10
Caption = 'pnlCuerpo'
ParentColor = True
TabOrder = 1
object pnlInforme: TAdvPanel
Left = 10
Top = 10
Width = 648
Height = 71
Align = alTop
BevelOuter = bvNone
Color = 16383743
TabOrder = 0
UseDockManager = True
Version = '1.5.0.0'
AnchorHint = False
AutoSize.Enabled = False
AutoSize.Height = True
AutoSize.Width = True
AutoHideChildren = True
BackgroundPosition = bpTopLeft
BorderColor = clBlack
BorderShadow = False
Buffered = True
CanMove = False
CanSize = False
Caption.Background.Data = {
72010000424D7201000000000000760000002800000014000000150000000100
040000000000FC000000E30E0000E30E00001000000010000000B5BDC600F9FE
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
1111111100001111111111111111111100001111111111111111111100001111
1111111111110000000011111111111111111111000011111111111111111111
0000111111111111111111110000111111111111111111110000111111111111
1111111100001111111111111111111100001111111111111111111100001111
1111111111111111000011111111111111111111000011111111111111111111
0000111111111111111111110000111111111111111111110000111111111111
1111111100001111111111111111111100001111111111111111111100001111
11111111111111110000111111111111111111110000}
Caption.ButtonPosition = cbpLeft
Caption.Color = clBtnFace
Caption.ColorTo = clNone
Caption.CloseColor = clBtnFace
Caption.CloseButton = False
Caption.CloseButtonColor = clBlack
Caption.Flat = True
Caption.Font.Charset = DEFAULT_CHARSET
Caption.Font.Color = 16640
Caption.Font.Height = -11
Caption.Font.Name = 'Tahoma'
Caption.Font.Style = [fsBold]
Caption.Height = 23
Caption.Indent = -4
Caption.MinMaxButton = True
Caption.MinMaxButtonColor = 16640
Caption.ShadeLight = 200
Caption.ShadeGrain = 0
Caption.ShadeType = stBitmapRStretch
Caption.Shape = csRectangle
Caption.Text = 'Datos del informe'
Caption.TopIndent = 0
Caption.Visible = True
Collaps = False
CollapsColor = clWhite
CollapsDelay = 20
CollapsSteps = 0
ColorTo = clNone
FixedTop = False
FixedLeft = False
FixedHeight = False
FixedWidth = False
FreeOnClose = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
Indent = 0
LineSpacing = 0
Position.Save = False
Position.Location = clRegistry
ShadowColor = clGray
ShadowOffset = 2
ShowMoveCursor = False
TextVAlign = tvaTop
TopIndent = 0
URLColor = clBlue
FullHeight = 38
object eAno: TLabel
Left = 127
Top = 38
Width = 23
Height = 13
Alignment = taRightJustify
Caption = 'A'#241'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object cbxAno: TcxComboBox
Left = 156
Top = 34
Width = 125
Height = 21
Properties.DropDownListStyle = lsFixedList
Properties.OnChange = cbxAnoChange
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 0
end
end
end
object dsAno: TDataSource
DataSet = TablaFacturasClienteAno
Left = 16
Top = 56
end
object TablaFacturasClienteAno: TIBQuery
BufferChunks = 1000
CachedUpdates = False
SQL.Strings = (
'select distinct(extract(year from fechafactura)) as ANO'
'from facturascliente')
Left = 48
Top = 56
end
end