Miguelo_FactuGES/Proveedores/FacturasProveedorPendientes.dfm

object frFacturasProveedorPendientes: TfrFacturasProveedorPendientes
  Left = 0
  Top = 0
  Width = 676
  Height = 442
  AutoSize = True
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentColor = False
  ParentFont = False
  TabOrder = 0
  OnShow = RdxFrameShow
  Entidad = entPagoProveedor
  object Splitter1: TSplitter
    Left = 393
    Top = 26
    Width = 1
    Height = 366
    Align = alRight
    Color = 8623776
    ParentColor = False
  end
  object Shape1: TShape
    Left = 0
    Top = 25
    Width = 676
    Height = 1
    Align = alTop
    Pen.Color = 196732
  end
  inline frCalendarioPagos1: TfrCalendarioPagos
    Left = 0
    Top = 26
    Width = 393
    Height = 366
    Align = alClient
    Constraints.MinHeight = 282
    Constraints.MinWidth = 329
    Color = 16383743
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    inherited pnlContenido: TPanel
      Width = 393
      Height = 366
      Color = 15726583
      ParentColor = False
      inherited pnlCalendario: TPanel
        Width = 373
        Height = 307
      end
      inherited pnlSuperior: TPanel
        Width = 373
        ParentColor = True
        inherited pnlOpciones: TPanel
          Left = 151
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 394
    Top = 26
    Width = 282
    Height = 366
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 10
    ParentColor = True
    TabOrder = 1
    object gridFacturas: TcxGrid
      Left = 10
      Top = 77
      Width = 262
      Height = 258
      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 = 2
      LookAndFeel.Kind = lfFlat
      LookAndFeel.NativeStyle = True
      object gridFacturasDBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.DataSource = dsFacturasPendientes
        DataController.KeyFieldNames = 'CODIGO'
        DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        Filtering.Visible = fvNever
        OptionsBehavior.FocusCellOnTab = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsCustomize.ColumnGrouping = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.CellSelect = False
        OptionsView.CellEndEllipsis = True
        OptionsView.ColumnAutoWidth = True
        OptionsView.GridLineColor = 14280169
        OptionsView.GridLines = glHorizontal
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        OptionsView.RowSeparatorColor = 14280169
        Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
        object gridFacturasDBTableView1DBColumn1: TcxGridDBColumn
          DataBinding.FieldName = 'CODIGO'
          Options.Editing = False
          Options.Filtering = False
          Options.Grouping = False
          Options.Moving = False
          Options.Sorting = False
          SortIndex = 0
          SortOrder = soAscending
        end
        object gridFacturasDBTableView1DBColumn2: TcxGridDBColumn
          DataBinding.FieldName = 'NOMBRE'
          Options.Editing = False
          Options.Filtering = False
          Options.Grouping = False
          Options.Moving = False
          Options.Sorting = False
        end
        object gridFacturasDBTableView1DBColumn3: TcxGridDBColumn
          DataBinding.FieldName = 'IMPORTETOTAL'
          Options.Editing = False
          Options.Filtering = False
          Options.Grouping = False
          Options.Moving = False
          Options.Sorting = False
        end
      end
      object gridFacturasLevel1: TcxGridLevel
        GridView = gridFacturasDBTableView1
      end
    end
    object Panel2: TPanel
      Left = 10
      Top = 335
      Width = 262
      Height = 21
      Align = alBottom
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 10
      Top = 10
      Width = 262
      Height = 67
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object eTextoListaFacturas: TLabel
        Left = 0
        Top = 0
        Width = 273
        Height = 39
        AutoSize = False
        Caption = 'Facturas pendientes'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        Layout = tlCenter
      end
    end
  end
  object RdxBarraSuperior1: TRdxBarraSuperior
    Left = 0
    Top = 0
    Width = 676
    Height = 25
    BorderWidth = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 196732
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Color = 12238825
    ColorHighLight = clNone
    ColorShadow = clActiveCaption
    Align = alTop
    Alignment = taLeftJustify
    TabOrder = 2
    UseDockManager = True
    Margen = 5
    object Label1: TLabel
      Left = 5
      Top = 5
      Width = 242
      Height = 13
      Caption = 'Facturas de proveedor pendientes de pago'
      Color = 12238825
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 196732
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
  end
  object brSimple: TRdxBarraInferior
    Left = 0
    Top = 392
    Width = 676
    Height = 50
    Caption = ' '
    ParentColor = True
    ColorHighLight = 8623776
    ColorShadow = 8623776
    Align = alBottom
    TabOrder = 3
    UseDockManager = True
    Margen = 10
    object bSalir: TRdxBoton
      Left = 10
      Top = 20
      Width = 75
      Height = 25
      Cancel = True
      Alignment = taLeftJustify
      Color = 14280169
      ColorFocused = 12775679
      ColorDown = 14280169
      ColorBorder = 8623776
      ColorHighLight = 8623776
      ColorShadow = 8623776
      Caption = 'Aceptar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      FontDown.Charset = DEFAULT_CHARSET
      FontDown.Color = clBlack
      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
        18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFAFAFAEBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDCA8A8A898
        9898A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFAFAFADCDCDC7DB90C75AC0E75AC0E848484A8A8A8EBEBEBFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDC7AB40D7DB90C84C50B7D
        B90C75AC0E949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA
        DCDCDC7AB40D71A61084C50B84C50B87C90A89CD09848484A8A8A8EBEBEBFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEB7AB40D71A61084C50B8CD2077AB40D7D
        B90C80BF0B89CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFF7AB40D
        71A61092DB058CD20775AC0EDCDCDC80BF0B84C50B89CD09848484A8A8A8EBEB
        EBFFFFFFFFFFFFFFFFFFFFFFFF6EA11198E60375AC0E6EA111DCDCDCFAFAFAFF
        FFFF84C50B89CD0989CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF618D13
        75AC0E659212EBEBEBFAFAFAFFFFFFFFFFFF87C90A8CD20784C50B848484A8A8
        A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF8CD20792DB0587C90A949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF90D70692DB0584C50B8484
        84A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFF96E30498E60387C90A949494D7D7D7FAFAFAFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF96E3049AEA0284C5
        0B848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF9AEA0292DB0584C50BADADADEBEBEBFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF92DB057AB4
        0D92DB05EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      Margin = 5
      ParentFont = False
      ParentColor = False
      TabStop = True
      TabOrder = 0
      Spacing = 6
      OnClick = bSalirClick
    end
  end
  object TablaCalendario: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select fechavencimiento, sum(importetotal) as TOTAL'
      'from facturasproveedor'
      'where upper(situacion) = '#39'PENDIENTE'#39' '
      'and codigoempresa = :codigoempresa'
      'group by fechavencimiento')
    Left = 80
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CODIGOEMPRESA'
        ParamType = ptUnknown
      end>
  end
  object TablaFacturasPendientes: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select codigo, referencia, nombre, importetotal'
      'from facturasproveedor'
      'where upper(situacion) = '#39'PENDIENTE'#39' and'
      'fechavencimiento = :fechavencimiento and'
      'codigoempresa = :codigoempresa;'
      '')
    Left = 552
    Top = 32
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'fechavencimiento'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'codigoempresa'
        ParamType = ptUnknown
      end>
  end
  object dsFacturasPendientes: TDataSource
    DataSet = TablaFacturasPendientes
    Left = 520
    Top = 32
  end
end