object selecparcelas: Tselecparcelas
  Left = 0
  Top = 0
  Caption = 'Seleccionar parcelas'
  ClientHeight = 585
  ClientWidth = 1042
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1042
    Height = 81
    Align = alTop
    TabOrder = 0
    object DBText1: TDBText
      Left = 106
      Top = 8
      Width = 65
      Height = 17
      DataField = 'id'
      DataSource = dsrecomendaciones
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 92
      Height = 13
      Alignment = taRightJustify
      Caption = 'Recomencaci'#243'n:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 106
      Top = 27
      Width = 65
      Height = 17
      DataField = 'fecha'
      DataSource = dsrecomendaciones
    end
    object Label2: TLabel
      Left = 64
      Top = 27
      Width = 36
      Height = 13
      Alignment = taRightJustify
      Caption = 'Fecha:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 106
      Top = 45
      Width = 335
      Height = 17
      DataField = 'descripcion'
      DataSource = dsrecomendaciones
    end
    object Label3: TLabel
      Left = 32
      Top = 45
      Width = 68
      Height = 13
      Alignment = taRightJustify
      Caption = 'Descripci'#243'n:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 314
      Top = 8
      Width = 65
      Height = 17
      DataField = 'velocidad'
      DataSource = dsrecomendaciones
    end
    object Label4: TLabel
      Left = 251
      Top = 8
      Width = 57
      Height = 13
      Alignment = taRightJustify
      Caption = 'Velocidad:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 314
      Top = 31
      Width = 65
      Height = 17
      DataField = 'tipo_boquilla'
      DataSource = dsrecomendaciones
    end
    object Label5: TLabel
      Left = 261
      Top = 31
      Width = 47
      Height = 13
      Alignment = taRightJustify
      Caption = 'Boquilla:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 514
      Top = 31
      Width = 65
      Height = 17
      DataField = 'num_boquillas'
      DataSource = dsrecomendaciones
    end
    object Label6: TLabel
      Left = 424
      Top = 31
      Width = 84
      Height = 13
      Alignment = taRightJustify
      Caption = 'Num. Boquillas:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 106
      Top = 64
      Width = 368
      Height = 17
      DataField = 'observaciones'
      DataSource = dsrecomendaciones
    end
    object Label7: TLabel
      Left = 14
      Top = 64
      Width = 86
      Height = 13
      Alignment = taRightJustify
      Caption = 'Observaciones:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 457
    Height = 504
    Align = alLeft
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 169
      Top = 1
      Width = 287
      Height = 502
      Align = alClient
      DataSource = dsqparcelas
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'nombre'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 168
      Height = 502
      Align = alLeft
      DataSource = dsqvariedades
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'variedad'
          Width = 130
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 457
    Top = 81
    Width = 40
    Height = 504
    Align = alLeft
    TabOrder = 2
    object Button1: TButton
      Left = 1
      Top = 49
      Width = 38
      Height = 48
      Align = alTop
      Caption = '<<'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
      ExplicitLeft = -3
    end
    object Button2: TButton
      Left = 1
      Top = 1
      Width = 38
      Height = 48
      Align = alTop
      Caption = '>>'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Panel4: TPanel
    Left = 497
    Top = 81
    Width = 545
    Height = 504
    Align = alClient
    TabOrder = 3
    object DBGrid3: TDBGrid
      Left = 1
      Top = 1
      Width = 543
      Height = 502
      Align = alClient
      DataSource = dsqparcelasrecomendacion
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'parcela'
          Width = 300
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'distancialineal'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'superficie'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ancho_calle'
          Visible = True
        end>
    end
  end
  object qvariedadesparcelas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select distinct(variedad) from parcelas where activo=1 and varie' +
        'dad is not null union'
      'select '#39' CUALQUIERA'#39' AS VARIEDAD FROM PARCELAS order by variedad')
    Params = <>
    Left = 240
    Top = 200
    object qvariedadesparcelasvariedad: TWideStringField
      FieldName = 'variedad'
      Size = 100
    end
  end
  object qparcelas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select empresa,numero,codpar,nombre,superficie,ancho_calle from ' +
        'parcelas where empresa=:EMPRESA and variedad like(:VARIEDAD) and' +
        ' (empresa,numero) not in (select empresa,idparcela from tratamie' +
        'ntos_base_parcelas where idtb=:RECOMENDACION and ide=:EMPRESA)'
      'order by nombre')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'VARIEDAD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'RECOMENDACION'
        ParamType = ptUnknown
      end>
    Left = 344
    Top = 176
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'VARIEDAD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'RECOMENDACION'
        ParamType = ptUnknown
      end>
    object qparcelascodpar: TWideStringField
      FieldName = 'codpar'
      Required = True
      Size = 30
    end
    object qparcelasnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qparcelassuperficie: TFloatField
      FieldName = 'superficie'
    end
    object qparcelasancho_calle: TFloatField
      FieldName = 'ancho_calle'
    end
    object qparcelasempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qparcelasnumero: TWideStringField
      FieldName = 'numero'
      Size = 8
    end
  end
  object dsqvariedades: TDataSource
    DataSet = qvariedadesparcelas
    OnDataChange = dsqvariedadesDataChange
    Left = 232
    Top = 160
  end
  object dsqparcelas: TDataSource
    DataSet = qparcelas
    Left = 352
    Top = 96
  end
  object dsrecomendaciones: TDataSource
    DataSet = tratamientosbase.qtratamientos
    Left = 784
    Top = 8
  end
  object dsqparcelasrecomendacion: TDataSource
    DataSet = qparcelasrecomendacion
    Left = 560
    Top = 144
  end
  object qparcelasrecomendacion: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from tratamientos_base_parcelas where ide=:EMPRESA and ' +
        'idtb=:TRATAMIENTO order by parcela'
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TRATAMIENTO'
        ParamType = ptUnknown
      end>
    Left = 576
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TRATAMIENTO'
        ParamType = ptUnknown
      end>
    object qparcelasrecomendacionid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qparcelasrecomendacionide: TIntegerField
      FieldName = 'ide'
    end
    object qparcelasrecomendacionidtb: TIntegerField
      FieldName = 'idtb'
    end
    object qparcelasrecomendacionparcela: TWideStringField
      FieldName = 'parcela'
      Size = 90
    end
    object qparcelasrecomendacionsuperficie: TFloatField
      FieldName = 'superficie'
    end
    object qparcelasrecomendacionancho_calle: TFloatField
      FieldName = 'ancho_calle'
    end
    object qparcelasrecomendaciondistancialineal: TFloatField
      FieldName = 'distancialineal'
    end
    object qparcelasrecomendacionidparcela: TWideStringField
      FieldName = 'idparcela'
      Size = 90
    end
  end
end