inherited VntEmpl: TVntEmpl
  Left = 262
  Top = 259
  Caption = 'Ventas de los empleados'
  PixelsPerInch = 96
  TextHeight = 16
  inherited TbVentasC: TTable
    object TbVentasCCodFactura: TIntegerField [1]
      FieldName = 'CodFactura'
    end
    object TbVentasCImprimirNotas: TBooleanField
      FieldName = 'ImprimirNotas'
    end
    object TbVentasCNotasFactura: TMemoField
      FieldName = 'NotasFactura'
      BlobType = ftMemo
      Size = 1
    end
  end
  inherited TbClientes: TQuery
    SQL.Strings = (
      
        'SELECT VentasCabecera.CodCliente ID, Personas.Nombre, Personas.E' +
        'mpresa, SUM(  VentasCabecera.TotalSin + VentasCabecera.TotalIva ' +
        ' ) VentasCabecera."Total Fact."'
      'FROM "Ventas (cabecera).db" VentasCabecera'
      '   INNER JOIN "personas.DB" Personas'
      '   ON  (VentasCabecera.CodCliente = Personas.CodCliente1)  '
      'WHERE   (VentasCabecera.FechaFactura >= '#39'01/01/2001'#39')  '
      '   AND  (VentasCabecera.FechaFactura <= '#39'03/03/2001'#39')  '
      
        'GROUP BY VentasCabecera.CodCliente, Personas.Nombre, Personas.Em' +
        'presa'
      'ORDER BY VentasCabecera."Total Fact." DESC')
  end
end