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 Titulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
    Width = 676
    Height = 22
    Caption = ' pago a proveedor'
    Color = 12238825
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 196732
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
  end
  object Splitter1: TSplitter
    Left = 393
    Top = 22
    Width = 1
    Height = 420
    Align = alRight
    Color = 8623776
    ParentColor = False
  end
  inline frCalendarioPagos1: TfrCalendarioPagos
    Left = 0
    Top = 22
    Width = 393
    Height = 420
    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 = 420
      Color = 15726583
      ParentColor = False
      inherited pnlCalendario: TPanel
        Width = 373
        Height = 361
      end
      inherited pnlSuperior: TPanel
        Width = 373
        ParentColor = True
        inherited pnlOpciones: TPanel
          Left = 151
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 394
    Top = 22
    Width = 282
    Height = 420
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 10
    ParentColor = True
    TabOrder = 1
    object gridFacturas: TcxGrid
      Left = 10
      Top = 77
      Width = 262
      Height = 312
      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 = 389
      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 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