object materialespesadas: Tmaterialespesadas
  Left = 0
  Top = 0
  Caption = 'Materiales utilizados'
  ClientHeight = 201
  ClientWidth = 693
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 693
    Height = 201
    Align = alClient
    DataSource = dsqmateriales
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'codigo'
        Title.Caption = 'C'#243'digo'
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'descripcion'
        Title.Caption = 'Descripci'#243'n'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cantidad'
        Title.Caption = 'Cantidad'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'peso'
        Title.Caption = 'Peso'
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lote'
        Title.Caption = 'Lote'
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'precio'
        Title.Caption = 'Coste'
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'recuperado'
        Title.Caption = 'Recuperado'
        Visible = True
      end>
  end
  object gcrpagado: TDBCheckBox
    Left = 452
    Top = 80
    Width = 97
    Height = 17
    Caption = 'gcrpagado'
    TabOrder = 1
    Visible = False
  end
  object qmateriales: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select a.id,a.codigo,a.descripcion,ea.ide,ea.idea,ea.idea2,ea.id' +
        'af,ea.cantidad,ea.peso,ea.lote,ea.precio,ea.recuperado from ea_m' +
        'ateriales ea,articulosf a where ea.ide=a.idempresa order by idaf' +
        ' limit 100')
    Params = <>
    Left = 168
    Top = 72
    object qmaterialesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qmaterialescodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qmaterialesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qmaterialeside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qmaterialesidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qmaterialesidea2: TIntegerField
      FieldName = 'idea2'
      Required = True
    end
    object qmaterialesidaf: TIntegerField
      FieldName = 'idaf'
      Required = True
    end
    object qmaterialescantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object qmaterialespeso: TFloatField
      FieldName = 'peso'
      Required = True
    end
    object qmaterialeslote: TWideStringField
      FieldName = 'lote'
      Size = 40
    end
    object qmaterialesprecio: TFloatField
      FieldName = 'precio'
      Required = True
    end
    object qmaterialesrecuperado: TIntegerField
      FieldName = 'recuperado'
    end
  end
  object dsqmateriales: TDataSource
    DataSet = qmateriales
    Left = 120
    Top = 32
  end
  object qmateriales2: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from ea_materiales ea where ea.ide order by idaf limit ' +
        '100')
    Params = <>
    MasterFields = 'ide;idea;idea2;idaf'
    MasterSource = dsqmateriales
    LinkedFields = 'ide;idea;idea2;idaf'
    Left = 240
    Top = 72
    object qmateriales2ide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qmateriales2idea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qmateriales2idea2: TIntegerField
      FieldName = 'idea2'
      Required = True
    end
    object qmateriales2idaf: TIntegerField
      FieldName = 'idaf'
      Required = True
    end
    object qmateriales2cantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object qmateriales2peso: TFloatField
      FieldName = 'peso'
      Required = True
    end
    object qmateriales2lote: TWideStringField
      FieldName = 'lote'
      Size = 40
    end
    object qmateriales2precio: TFloatField
      FieldName = 'precio'
      Required = True
    end
    object qmateriales2recuperado: TIntegerField
      FieldName = 'recuperado'
    end
  end
end