Archivado/Miguelo_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
256daa8b98
Miguelo_FactuGES/Clientes/ListadoBeneficios.dfm
david a7a938bd7f Importacion inicial 
git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@4 172823e9-465a-9d4b-80ba-0a9f016f4eb1
2007-06-25 15:19:31 +00:00

1171 lines
44 KiB
Plaintext
Raw Blame History

object frListadoBeneficios: TfrListadoBeneficios
Tag = 1
Left = 0
Top = 0
Width = 790
Height = 534
Color = 16383743
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
BarraSalir = brSimple
object Titulo: TRdxPanelTituloOperacion
Left = 0
Top = 0
Width = 790
Height = 22
Caption = ' '
Color = 9685681
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = 3692855
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
object pnlCuerpo: TPanel
Left = 0
Top = 22
Width = 790
Height = 462
Align = alClient
BevelOuter = bvNone
BorderWidth = 10
ParentColor = True
TabOrder = 0
object Paginas: TRdxPagesControl
Left = 10
Top = 10
Width = 770
Height = 442
ActivePage = pagBeneficiosContrato
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowFrame
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
MultiLine = True
ParentFont = False
TabOrder = 0
TabWidth = 200
OnChange = PaginasChange
Color = 15726583
ColorTab = 9685681
FontTab.Charset = DEFAULT_CHARSET
FontTab.Color = 3692855
FontTab.Height = -11
FontTab.Name = 'Tahoma'
FontTab.Style = [fsBold]
object pagListaBeneficiosContrato: TTabSheet
Caption = 'Lista de beneficios por contratos'
ImageIndex = 1
object Panel6: TPanel
Left = 0
Top = 0
Width = 762
Height = 414
Align = alClient
BevelOuter = bvNone
BorderWidth = 10
Caption = 'Panel4'
ParentColor = True
TabOrder = 0
object gridBeneficios: TcxGrid
Left = 10
Top = 10
Width = 742
Height = 394
Align = alClient
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = cxcbsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfFlat
LookAndFeel.NativeStyle = True
object gridBeneficiosDBTableView1: TcxGridDBTableView
OnDblClick = gridBeneficiosDBTableView1DblClick
NavigatorButtons.ConfirmDelete = False
OnCustomDrawCell = gridFacturasDBTableView1CustomDrawCell
DataController.DataSource = dsTablaBeneficios
DataController.KeyFieldNames = 'CODIGO'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
Filtering.Visible = fvNever
OptionsCustomize.ColumnGrouping = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = 14280169
OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True
OptionsView.RowSeparatorColor = 14280169
end
object gridBeneficiosLevel1: TcxGridLevel
GridView = gridBeneficiosDBTableView1
end
end
end
end
object pagBeneficiosContrato: TTabSheet
Tag = 1
Caption = 'Detalle de beneficios por contrato'
ImageIndex = 4
object Panel5: TPanel
Left = 0
Top = 0
Width = 762
Height = 414
Align = alClient
BevelOuter = bvNone
BorderWidth = 10
ParentColor = True
TabOrder = 0
object pnlDatos: TAdvPanel
Left = 10
Top = 10
Width = 742
Height = 394
Align = alClient
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 0
UseDockManager = True
Version = '1.5.0.0'
AnchorHint = False
AutoSize.Enabled = False
AutoSize.Height = True
AutoSize.Width = True
AutoHideChildren = False
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 = 3692855
Caption.Font.Height = -11
Caption.Font.Name = 'Tahoma'
Caption.Font.Style = [fsBold]
Caption.Height = 23
Caption.Indent = -4
Caption.MinMaxButton = True
Caption.MinMaxButtonColor = 3692855
Caption.ShadeLight = 200
Caption.ShadeGrain = 0
Caption.ShadeType = stBitmapRStretch
Caption.Shape = csRectangle
Caption.Text = 'Lista de facturas de clientes'
Caption.TopIndent = 0
Caption.Visible = False
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 = 3692855
FullHeight = 38
object Panel3: TPanel
Left = 0
Top = 0
Width = 742
Height = 70
Align = alTop
BevelOuter = bvNone
BorderWidth = 5
ParentColor = True
TabOrder = 0
object eCodigoContrato: TLabel
Left = 65
Top = 8
Width = 81
Height = 13
Alignment = taRightJustify
Caption = 'C'#243'digo contrato:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object eNIFCIF: TLabel
Left = 278
Top = 8
Width = 48
Height = 13
Alignment = taRightJustify
Caption = 'NIF / CIF:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object eNombre: TLabel
Left = 106
Top = 32
Width = 41
Height = 13
Alignment = taRightJustify
Caption = 'Nombre:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object NIFCIF: TcxTextEdit
Left = 330
Top = 4
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 0
Width = 121
end
object Nombre: TcxTextEdit
Left = 151
Top = 29
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 1
Width = 434
end
object CodContrato: TcxTextEdit
Left = 151
Top = 4
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 2
Width = 121
end
end
object Panel2: TPanel
Left = 0
Top = 361
Width = 742
Height = 33
Align = alBottom
BevelOuter = bvNone
BorderWidth = 10
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 1
TabStop = True
end
object Panel1: TPanel
Left = 0
Top = 70
Width = 742
Height = 122
Align = alClient
BevelOuter = bvNone
ParentColor = True
TabOrder = 2
TabStop = True
OnResize = Panel1Resize
object Splitter1: TSplitter
Left = 327
Top = 25
Width = 10
Height = 97
end
object gridFacturasProveedor: TcxGrid
Left = 0
Top = 25
Width = 327
Height = 97
Align = alLeft
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = cxcbsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnResize = gridFacturasProveedorResize
LookAndFeel.Kind = lfFlat
LookAndFeel.NativeStyle = True
object gridFacturasProveedorDBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsFacturasProveedor
DataController.KeyFieldNames = 'CODIGOFACTURA'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnGrouping = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = 14280169
OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True
OptionsView.RowSeparatorColor = 14280169
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
end
object gridFacturasProveedorLevel1: TcxGridLevel
GridView = gridFacturasProveedorDBTableView1
end
end
object gridFacturasCliente: TcxGrid
Left = 337
Top = 25
Width = 405
Height = 97
Align = alClient
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = cxcbsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
LookAndFeel.Kind = lfFlat
LookAndFeel.NativeStyle = True
object gridFacturasClienteDBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsFacturasCliente
DataController.KeyFieldNames = 'CODIGO'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.ImmediateEditor = False
OptionsCustomize.ColumnGrouping = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = 14280169
OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True
OptionsView.RowSeparatorColor = 14280169
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
end
object gridFacturasClienteLevel1: TcxGridLevel
GridView = gridFacturasClienteDBTableView1
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 742
Height = 25
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 2
object Label2: TLabel
Left = 587
Top = 0
Width = 155
Height = 25
Align = alRight
Alignment = taRightJustify
Caption = 'Lista de facturas de cliente '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 0
Top = 0
Width = 173
Height = 25
Align = alLeft
Caption = 'Lista de facturas de proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
end
object Panel8: TPanel
Left = 0
Top = 232
Width = 742
Height = 129
Align = alBottom
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 3
TabStop = True
object Panel9: TPanel
Left = 327
Top = 0
Width = 79
Height = 129
Align = alClient
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
object bEliminar: TRdxBoton
Left = 8
Top = 24
Width = 94
Height = 19
Action = actEliminar
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Margin = 10
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 0
Spacing = 0
end
object bAnadir: TRdxBoton
Left = 8
Top = 0
Width = 94
Height = 19
Action = actAnadir
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Margin = 10
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 1
Spacing = 0
end
object bEliminarTodo: TRdxBoton
Left = 8
Top = 48
Width = 94
Height = 19
Action = actEliminarTodo
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Margin = 10
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 2
Spacing = 0
end
object RdxBoton1: TRdxBoton
Left = 9
Top = 83
Width = 94
Height = 19
Action = actRecalcular
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Margin = 10
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 3
Spacing = 0
end
end
object gridObrasGastos: TcxGrid
Left = 0
Top = 0
Width = 327
Height = 129
Align = alLeft
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = cxcbsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnExit = gridObrasGastosExit
OnResize = gridFacturasProveedorResize
LookAndFeel.Kind = lfFlat
LookAndFeel.NativeStyle = True
object gridObrasGastosDBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsObrasGastos
DataController.KeyFieldNames = 'CODIGO'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnGrouping = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Inserting = False
OptionsView.CellEndEllipsis = True
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = 14280169
OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True
OptionsView.RowSeparatorColor = 14280169
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
end
object gridObrasGastosLevel1: TcxGridLevel
GridView = gridObrasGastosDBTableView1
end
end
object Panel10: TPanel
Left = 406
Top = 0
Width = 336
Height = 129
Align = alRight
BevelOuter = bvNone
ParentColor = True
TabOrder = 2
object PorcentajeBeneficio: TLabel
Left = 22
Top = 61
Width = 307
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption =
'----------------------------------------------------------------' +
'----------'
end
object eePorcentajeBeneficio: TLabel
Left = 1
Top = 100
Width = 200
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'Porcentaje beneficio: xx'
end
object eeTotalFacProveedor: TLabel
Left = 2
Top = 23
Width = 200
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'Total facturaci'#243'n proveedores: xx'
end
object eeTotalObrasGastos: TLabel
Left = 2
Top = 44
Width = 200
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'Total otros gastos: xx'
end
object eeTotalFacCliente: TLabel
Left = 2
Top = 3
Width = 200
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'Total facturaci'#243'n cliente:'
end
object eeTotalBeneficio: TLabel
Left = 2
Top = 77
Width = 200
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'Total beneficio: xx'
end
object eTotalFacCliente: TLabel
Left = 216
Top = 3
Width = 106
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'XX'
end
object eTotalFacProveedor: TLabel
Left = 216
Top = 23
Width = 106
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'XX'
end
object eTotalObrasGastos: TLabel
Left = 216
Top = 44
Width = 106
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'XX'
end
object ePorcentajeBeneficio: TLabel
Left = 215
Top = 100
Width = 106
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'XX'
end
object eTotalBeneficio: TLabel
Left = 216
Top = 77
Width = 106
Height = 20
Alignment = taRightJustify
AutoSize = False
Caption = 'XX'
end
end
end
object Panel11: TPanel
Left = 0
Top = 192
Width = 742
Height = 40
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 4
object Label3: TLabel
Left = 0
Top = 16
Width = 742
Height = 24
Align = alBottom
AutoSize = False
Caption = 'Otros gastos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
end
end
end
end
end
object brSimple: TRdxBarraInferior
Left = 0
Top = 484
Width = 790
Height = 50
Caption = ' '
ParentColor = True
Visible = False
ColorHighLight = clBtnFace
ColorShadow = clBtnFace
Align = alBottom
TabOrder = 1
UseDockManager = True
Margen = 10
object bVistaPrevia: TRdxBoton
Left = 10
Top = 20
Width = 90
Height = 25
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
GroupIndex = 1
Down = True
Caption = 'Vista previa'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Glyph.Data = {
26050000424D260500000000000036040000280000000F0000000F0000000100
080000000000F0000000330B0000330B00000001000000010000212121003131
31004A4A4A00FFBD4A00636363006B6B6B00FF8C6B00FFC66B00FFFF8C000031
9400ADADAD00FFE7B500FFFFB500C6C6C600FFFFD600004ADE00FF00FF002152
FF008C8CFF0021ADFF008CD6FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010101010
101010101010101010FF101010101010101010100100001010FF101010101010
101010040F13090010FF1010101010101010040F14120F0010FF101010101010
10040F14120F00101000101010050202020214120F00101010FF101005070707
0306110F0010101010FF10050A0B0808070306021010101010FF10050B0E0C08
080703021010101010FF10050B0E0C0C0808030210101010100010050B0E0C0C
0C0803021010101010FF10050D0B0E0C0C0B0A021010101010FF1010050D0B0B
0B0A00101010101010FF101010050505050510101010101010FF101010101010
10101010101010101000}
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 0
Spacing = 6
OnClick = bVistaPreviaClick
end
object bImprimir: TRdxBoton
Left = 110
Top = 20
Width = 90
Height = 25
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
GroupIndex = 1
Caption = 'Imprimir'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
08000000000000010000130B0000130B00000001000000010000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF0025AAFF0000AAFF000092
DC00007AB90000629600004A730000325000D4E3FF00B1C7FF008EABFF006B8F
FF004873FF002557FF000055FF000049DC00003DB90000319600002573000019
5000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF002525FF000000FF000000
DC000000B900000096000000730000005000E3D4FF00C7B1FF00AB8EFF008F6B
FF007348FF005725FF005500FF004900DC003D00B90031009600250073001900
5000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00AA25FF00AA00FF009200
DC007A00B900620096004A00730032005000FFD4FF00FFB1FF00FF8EFF00FF6B
FF00FF48FF00FF25FF00FF00FF00DC00DC00B900B90096009600730073005000
5000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800FF25AA00FF00AA00DC00
9200B9007A009600620073004A0050003200FFD4E300FFB1C700FF8EAB00FF6B
8F00FF487300FF255700FF005500DC004900B9003D0096003100730025005000
1900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800FF252500FF000000DC00
0000B9000000960000007300000050000000FFE3D400FFC7B100FFAB8E00FF8F
6B00FF734800FF572500FF550000DC490000B93D000096310000732500005019
0000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800FFAA2500FFAA0000DC92
0000B97A000096620000734A000050320000FFFFD400FFFFB100FFFF8E00FFFF
6B00FFFF4800FFFF2500FFFF0000DCDC0000B9B9000096960000737300005050
0000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800AAFF2500AAFF000092DC
00007AB90000629600004A73000032500000E3FFD400C7FFB100ABFF8E008FFF
6B0073FF480057FF250055FF000049DC00003DB9000031960000257300001950
0000D4FFD400B1FFB1008EFF8E006BFF6B0048FF480025FF250000FF000000DC
000000B90000009600000073000000500000D4FFE300B1FFC7008EFFAB006BFF
8F0048FF730025FF570000FF550000DC490000B93D0000963100007325000050
1900D4FFF000B1FFE2008EFFD4006BFFC60048FFB80025FFAA0000FFAA0000DC
920000B97A000096620000734A0000503200D4FFFF00B1FFFF008EFFFF006BFF
FF0048FFFF0025FFFF0000FFFF0000DCDC0000B9B90000969600007373000050
5000F2F2F200E6E6E600DADADA00CECECE00C2C2C200B6B6B600AAAAAA009E9E
9E0092929200868686007A7A7A006E6E6E0062626200565656004A4A4A003E3E
3E0032323200262626001A1A1A000E0E0E00F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF4F4F4
FFFFFFFFF2F2F4FFFFFFFFF4F4EBEBEFF4F4FFF2EAE6E6F4F4FFF4EBEBECEBEF
EAEAF4EAE7E7E7E6E6F4F4ECECECEBEFEAEAF2ECE7E7E7E7EAF2F4ECEBEBEEE7
E9E9F1F1ECECE7EAF2FFF4ECEDEDEAEAE6E7E9E9F1F1ECF2F4F4FFF4EBEAEAF4
F4EBE6E7E9E9F1EAEAF4FFFFF4F4EBF2E7F4F4EBE6E7E9E9EAF4FFFFFFFFF2E4
E4E7E7F4F4EAE6E7E9F4FFFFFFFFF2E2E2E4E4E7F2EABAEAF4FFFFFFFFF2E2E2
E2E2E4F2EB26F4F4FFFFFFFFFFF2E2E2E2E2E2F2F4F4FFFFFFFFFFFFF2E2E2E2
E2E2F2FFFFFFFFFFFFFFFFFFF2E2E2E2E2E2F2FFFFFFFFFFFFFFFFFFFFF2F2E2
E2F2FFFFFFFFFFFFFFFFFFFFFFFFFFF2F2F2FFFFFFFFFFFFFFFF}
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 1
Spacing = 6
OnClick = bImprimirClick
end
object bCancelar: TRdxBoton
Left = 210
Top = 20
Width = 90
Height = 25
Cancel = True
Alignment = taLeftJustify
Color = 14280169
ColorFocused = 12775679
ColorDown = 14280169
ColorBorder = 8623776
ColorHighLight = 8623776
ColorShadow = 8623776
GroupIndex = 1
Caption = 'Cerrar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FontDown.Charset = DEFAULT_CHARSET
FontDown.Color = clWindowText
FontDown.Height = -11
FontDown.Name = 'Tahoma'
FontDown.Style = []
FontDisabled.Charset = DEFAULT_CHARSET
FontDisabled.Color = clWindowText
FontDisabled.Height = -11
FontDisabled.Name = 'MS Sans Serif'
FontDisabled.Style = []
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000130B0000130B00000000000000000000FFFFFFFAFAFA
EBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFAFAFAEBEBEBEBEBEBFAFAFAFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEBADADAD989898ADADADEBEBEBFFFFFFFA
FAFADCDCDCA8A8A8A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF1B1BCB
0807BE0807BE949494D7D7D7F5F5F5DCDCDC0505BC0505BC848484A8A8A8EBEB
EBFFFFFFFFFFFFFFFFFFFFFFFF393ADF5F5FF84B4CEA848484A3A3A3C8C8C813
13C56867FD6B6BFF2827D3989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFF4F4EEC
6363F96A6AFE4343E58484841313C55B5BF56A6AFE6A6AFE3839DE999999E6E6
E6FFFFFFFFFFFFFFFFFFFFFFFF393ADE5A5AF45A5AF46766FC4343E55B5BF563
63F96766FC5E5EF7201FCDA8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
393ADE5251EE5454F05F5EF76363F95555F16363F94A4BE9201FCCD7D7D7FAFA
FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393ADE4F4EEC5251EE5454F063
63F94B4CEA201FCD989898E6E6E6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF4A4BE94242E44A4BE94A4BE94B4CEA201FCD949494D7D7D7FAFA
FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA4343E53839DE4242E442
42E44A4BE94343E5848484A3A3A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFEBEBEB4F4EEC2D2DD63637DC3839DE4242E44242E41B1BCB848484A3A3
A3DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFAFAFA3434DB3434DB2C2CD53333DA34
34DB3434DB3C3CE04242E41313C5848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFF
EBEBEB3434DB3333DA2222CF2827D3504FEC4242E43434DB3637DC3738DD1313
C5999999E6E6E6FFFFFFFFFFFFFFFFFF5251EE393ADF1B1BCB3434DB3C3CE0A8
A8A82D2DD53C3CE03434DB4242E41313C5ADADADEBEBEBFFFFFFFFFFFFFFFFFF
504FEC4343E54343E54343E53434DADCDCDCFAFAFA2222CE393ADE3D3DE02D2D
D5EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFF504FED4B4CEA4B4CEAEBEBEBFA
FAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
Margin = 5
ParentFont = False
ParentColor = False
TabStop = True
TabOrder = 2
Spacing = 6
OnClick = bCancelarClick
end
end
object dsFacturasCliente: TDataSource
Left = 733
Top = 64
end
object dsFacturasProveedor: TDataSource
Left = 696
Top = 64
end
object dsObrasGastos: TDataSource
Left = 768
Top = 64
end
object dsTablaBeneficios: TDataSource
Left = 576
Top = 64
end
object TablaBeneficiosAux: TIBDataSet
BufferChunks = 1000
CachedUpdates = False
SelectSQL.Strings = (
'')
Left = 608
Top = 64
object TablaBeneficiosAuxCODIGO: TIBStringField
DisplayWidth = 12
FieldName = 'CODIGO'
Size = 12
end
object TablaBeneficiosAuxFECHACONTRATO: TDateField
FieldName = 'FECHACONTRATO'
end
object TablaBeneficiosAuxNIFCIF: TIBStringField
FieldName = 'NIFCIF'
Required = True
Size = 10
end
object TablaBeneficiosAuxNOMBRE: TIBStringField
FieldName = 'NOMBRE'
Required = True
Size = 100
end
object TablaBeneficiosAuxIMPORTETOTAL: TIBBCDField
FieldName = 'IMPORTETOTAL'
Precision = 18
Size = 2
end
object TablaBeneficiosAuxIMPPROV: TIBBCDField
FieldName = 'IMPPROV'
Precision = 18
Size = 4
end
object TablaBeneficiosAuxIMPOTROS: TIBBCDField
FieldName = 'IMPOTROS'
Precision = 18
Size = 2
end
object TablaBeneficiosAuxIMPCLI: TIBBCDField
FieldName = 'IMPCLI'
Precision = 18
Size = 2
end
object TablaBeneficiosAuxBENEFICIO: TIBBCDField
FieldKind = fkCalculated
FieldName = 'BENEFICIO'
Calculated = True
end
object TablaBeneficiosAuxPORCENTAJE: TIBBCDField
FieldKind = fkCalculated
FieldName = 'PORCENTAJE'
Calculated = True
end
end
object Acciones: TActionList
Left = 456
Top = 448
object actAnadir: TAction
Caption = 'Anadir'
OnExecute = actAnadirExecute
end
object actEliminar: TAction
Caption = 'Eliminar'
OnExecute = actEliminarExecute
end
object actEliminarTodo: TAction
Caption = 'Eliminar todo'
OnExecute = actEliminarTodoExecute
end
object actRecalcular: TAction
Caption = 'Recalcular todo'
OnExecute = actRecalcularExecute
end
end
end
Reference in New Issue View Git Blame Copy Permalink