object fmaterias_primas: Tfmaterias_primas
  Left = 0
  Top = 0
  Caption = 'Gesti'#243'n de materias primas'
  ClientHeight = 729
  ClientWidth = 1264
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 1264
    Height = 41
    Align = alTop
    Caption = 'Materias primas'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    TabOrder = 0
    object Label5: TLabel
      Left = 176
      Top = 13
      Width = 85
      Height = 19
      Caption = 'Busqueda:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Button1: TButton
      Left = 1
      Top = 1
      Width = 56
      Height = 39
      Align = alLeft
      Caption = 'Nuevo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 57
      Top = 1
      Width = 56
      Height = 39
      Align = alLeft
      Caption = 'Editar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 113
      Top = 1
      Width = 56
      Height = 39
      Align = alLeft
      Caption = 'Borrar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button3Click
    end
    object lbuscar: TEdit
      Left = 263
      Top = 11
      Width = 266
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnChange = lbuscarChange
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 41
    Width = 1264
    Height = 328
    Align = alTop
    DataSource = dsqmaterias_primas
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = 'Id'
        Width = 180
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'descripcion'
        Title.Caption = 'Descripci'#243'n'
        Width = 371
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'stock'
        Title.Caption = 'Stock'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'observaciones'
        Title.Caption = 'Observaciones'
        Width = 552
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'es_tiempo'
        Title.Caption = 'Und. Tiempo'
        Width = 62
        Visible = True
      end>
  end
  object gcrpagado: TDBCheckBox
    Left = 1070
    Top = 8
    Width = 75
    Height = 17
    Caption = 'gcrpagado'
    TabOrder = 2
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 369
    Width = 1264
    Height = 41
    Align = alTop
    Caption = 'Art'#237'culos'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    TabOrder = 3
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 410
    Width = 1264
    Height = 319
    Align = alClient
    DataSource = dsqarticulos
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ide'
        Title.Caption = 'Empresa'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = 'C'#243'digo'
        Width = 170
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'descripcion'
        Title.Caption = 'Descripcci'#243'n'
        Width = 466
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'unidades_pack'
        Title.Caption = 'Und. Pack'
        Width = 84
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'observaciones'
        Title.Caption = 'Observaciones'
        Width = 460
        Visible = True
      end>
  end
  object dsqmaterias_primas: TDataSource
    DataSet = qmaterias_primas
    OnDataChange = dsqmaterias_primasDataChange
    Left = 241
    Top = 48
  end
  object qmaterias_primas: TZQuery
    Connection = dm.DBproduccgest
    BeforePost = qmaterias_primasBeforePost
    BeforeDelete = qmaterias_primasBeforeDelete
    SQL.Strings = (
      
        'select * from materias_primas where descripcion like(:TEXTO) ord' +
        'er by descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        ParamType = ptUnknown
      end>
    Left = 393
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        ParamType = ptUnknown
      end>
    object qmaterias_primasid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 40
    end
    object qmaterias_primasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qmaterias_primasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Required = True
      Size = 500
    end
    object qmaterias_primases_tiempo: TIntegerField
      FieldName = 'es_tiempo'
    end
    object qmaterias_primasstock: TFloatField
      FieldName = 'stock'
    end
  end
  object dsqarticulos: TDataSource
    DataSet = qarticulos
    Left = 369
    Top = 504
  end
  object qarticulos: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from articulos where (ide,id) in (select ide,ida from e' +
        'scandallo where idmateriaprima=:PIDA)  order by descripcion'
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    Left = 568
    Top = 496
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PIDA'
        ParamType = ptUnknown
      end>
    object qarticuloside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qarticulosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 40
    end
    object qarticulosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qarticulosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qarticulosunidades_pack: TIntegerField
      FieldName = 'unidades_pack'
    end
  end
end