object fcopiarconfiguracion: Tfcopiarconfiguracion
  Left = 0
  Top = 0
  Caption = 'fcopiarconfiguracion'
  ClientHeight = 299
  ClientWidth = 685
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 685
    Height = 49
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 4
      Top = 11
      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 lbuscar: TEdit
      Left = 95
      Top = 7
      Width = 491
      Height = 31
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnChange = lbuscarChange
    end
    object Button1: TButton
      Left = 592
      Top = 1
      Width = 92
      Height = 47
      Align = alRight
      Caption = 'Copiar'
      TabOrder = 1
      OnClick = Button1Click
      ExplicitHeight = 31
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 49
    Width = 685
    Height = 250
    Align = alClient
    DataSource = dsqarticulos
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
    TabOrder = 1
    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 = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = 'C'#243'digo'
        Width = 136
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'descripcion'
        Title.Caption = 'Descripci'#243'n'
        Width = 447
        Visible = True
      end>
  end
  object qarticulos: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from articulos where descripcion like(:TEXTO) or id lik' +
        'e (:TEXTO) order by descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        ParamType = ptUnknown
      end>
    Left = 160
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        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
  object qborrarprocesos: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'delete from articulos_procesos where ide=:EMPRESA and ida=:ARTIC' +
        'ULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    Left = 384
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
  end
  object qinsertarprocesos: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'insert into articulos_procesos (ide,ida,idproceso,orden,descripc' +
        'ion) (select :EMPRESA,:ARTICULO,idproceso,orden,descripcion '
      
        'from articulos_procesos where ide=:OLDEMPRESA and ida=:OLDARTICU' +
        'LO)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDARTICULO'
        ParamType = ptUnknown
      end>
    Left = 488
    Top = 80
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDARTICULO'
        ParamType = ptUnknown
      end>
  end
  object qborrarescandallo: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      'delete from escandallo where ide=:EMPRESA and ida=:ARTICULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    Left = 384
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
  end
  object qinsertarescandallo: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'insert into escandallo (ide,ida,idmateriaprima,cantidad,descripc' +
        'ion,unidades) (select :EMPRESA,:ARTICULO,idmateriaprima,cantidad' +
        ',descripcion,unidades '
      'from escandallo where ide=:OLDEMPRESA and ida=:OLDARTICULO)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDARTICULO'
        ParamType = ptUnknown
      end>
    Left = 384
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLDARTICULO'
        ParamType = ptUnknown
      end>
  end
  object qarticulosproceso: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from articulos_procesos where ide=:EMPRESA and ida=:ART' +
        'ICULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    Left = 81
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    object qarticulosprocesoide: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qarticulosprocesoida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qarticulosprocesoidproceso: TIntegerField
      FieldName = 'idproceso'
      Required = True
    end
    object qarticulosprocesodescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qarticulosprocesoorden: TIntegerField
      FieldName = 'orden'
      Required = True
    end
  end
  object qescandallo: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from escandallo where ide=:EMPRESA and ida=:ARTICULO or' +
        'der by descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    Left = 81
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ARTICULO'
        ParamType = ptUnknown
      end>
    object qescandalloide: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qescandalloida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qescandalloidmateriaprima: TWideStringField
      FieldName = 'idmateriaprima'
      Required = True
      Size = 40
    end
    object qescandallocantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object qescandallodescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
  end
  object dsqarticulos: TDataSource
    DataSet = qarticulos
    Left = 152
    Top = 72
  end
end