object tprincipal: Ttprincipal
  Left = 0
  Top = 0
  Caption = 'Gestion de control de producci'#243'n'
  ClientHeight = 709
  ClientWidth = 1264
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 1175
    Top = 0
    Width = 89
    Height = 709
    Align = alRight
    TabOrder = 0
    object Button1: TButton
      Left = 1
      Top = 225
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Procesos de producci'#243'n'
      TabOrder = 0
      WordWrap = True
      OnClick = Button1Click
    end
    object Button5: TButton
      Left = 1
      Top = 57
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Pedidos'
      TabOrder = 1
      WordWrap = True
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 1
      Top = 169
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Materias primas'
      TabOrder = 2
      WordWrap = True
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 1
      Top = 113
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Articulos'
      TabOrder = 3
      WordWrap = True
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 1
      Top = 1
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Almacenes'
      TabOrder = 4
      WordWrap = True
      OnClick = Button8Click
    end
    object Button10: TButton
      Left = 1
      Top = 281
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Controles de calidad'
      TabOrder = 5
      WordWrap = True
      OnClick = Button10Click
    end
    object Button2: TButton
      Left = 1
      Top = 337
      Width = 87
      Height = 56
      Align = alTop
      Caption = 'Entradas de Materiales'
      TabOrder = 6
      WordWrap = True
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 1175
    Height = 709
    Align = alClient
    TabOrder = 1
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 1173
      Height = 392
      Align = alTop
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 33
        Width = 1103
        Height = 358
        Align = alClient
        DataSource = dsqpedidos
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
        ParentColor = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
        OnDblClick = DBGrid1DblClick
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ide'
            Title.Caption = 'Empresa'
            Width = 44
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'anyo'
            Title.Caption = 'A'#241'o'
            Width = 49
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'idser'
            Title.Caption = 'S'
            Width = 14
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = 'Pedido'
            Width = 47
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fechapedido'
            Title.Caption = 'Fecha Pedido'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fechaentrega'
            Title.Caption = 'Fecha Envio'
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nomcliente'
            Title.Caption = 'Cliente'
            Width = 279
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'direnvio'
            Title.Caption = 'Direccion envi'#243
            Width = 137
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'poblacionenvio'
            Title.Caption = 'Poblaci'#243'n env'#237'o'
            Width = 135
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ida'
            Title.Caption = 'Cod. Art'#237'culo'
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'desarticulo'
            Title.Caption = 'Descripci'#243'n'
            Width = 280
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cantidad'
            Title.Caption = 'Cantidad'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'servidos'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'resto'
            Title.Caption = 'Resto'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'observaciones_lp'
            Title.Caption = 'Observaciones'
            Width = 330
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 1171
        Height = 32
        Align = alTop
        Caption = 'Pedidos pendientes de fabricaci'#243'n'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 4
          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 = 2
          Width = 354
          Height = 24
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnChange = lbuscarChange
        end
      end
      object Panel6: TPanel
        Left = 1104
        Top = 33
        Width = 68
        Height = 358
        Align = alRight
        TabOrder = 2
        object Button4: TButton
          Left = 1
          Top = 1
          Width = 66
          Height = 46
          Align = alTop
          Caption = 'Enviar a producci'#243'n'
          ImageAlignment = iaCenter
          ImageIndex = 1
          TabOrder = 0
          WordWrap = True
          OnClick = Button4Click
        end
      end
    end
    object Panel7: TPanel
      Left = 1
      Top = 393
      Width = 1173
      Height = 315
      Align = alClient
      TabOrder = 1
      object Panel10: TPanel
        Left = 1
        Top = 1
        Width = 1171
        Height = 32
        Align = alTop
        Caption = 'Situaci'#243'n de producci'#243'n'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label2: TLabel
          Left = 8
          Top = 4
          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 lbuscar2: TEdit
          Left = 95
          Top = 4
          Width = 354
          Height = 24
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnChange = lbuscar2Change
        end
      end
      object DBGrid3: TDBGrid
        Left = 1
        Top = 33
        Width = 1104
        Height = 281
        Align = alClient
        DataSource = dsqestadopedidos
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid3DrawColumnCell
        OnTitleClick = DBGrid3TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'fecha'
            Title.Caption = 'Fecha Orden Fab.'
            Width = 66
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hora'
            Title.Caption = 'Fecha Inic. Fab.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ide'
            Title.Caption = 'Empresa'
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'anyo'
            Title.Caption = 'A'#241'o'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'idser'
            Title.Caption = 'S'
            Width = 15
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'idp'
            Title.Caption = 'Pedido'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ida'
            Title.Caption = 'Cod. Art'#237'culo'
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'desarticulo'
            Title.Caption = 'Descripci'#243'n'
            Width = 300
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'cant_total'
            Title.Caption = 'Ct. total'
            Width = 84
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'cant_recibida'
            Title.Caption = 'Ct. proceso'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'cant_finalizada'
            Title.Caption = 'Ct. realizadas'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'origen'
            Title.Caption = 'Origen'
            Width = 127
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'descripcion'
            Title.Caption = 'Proceso'
            Width = 123
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sector'
            Title.Caption = 'Sector'
            Width = 126
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'observaciones'
            Title.Caption = 'Control calidad'
            Width = 283
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 1105
        Top = 33
        Width = 67
        Height = 281
        Align = alRight
        TabOrder = 2
        object Button14: TButton
          Left = 1
          Top = 1
          Width = 65
          Height = 46
          Align = alTop
          Caption = 'Cancelar producci'#243'n'
          ImageAlignment = iaCenter
          ImageIndex = 1
          TabOrder = 0
          WordWrap = True
          OnClick = Button14Click
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 272
    Top = 65520
    object Mantenimiento1: TMenuItem
      Caption = 'Mantenimiento'
      object MateriasPrimas1: TMenuItem
        Caption = 'Materias Primas'
      end
      object Articulos1: TMenuItem
        Caption = 'Articulos'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Clientes1: TMenuItem
        Caption = 'Clientes'
      end
      object Pedidos1: TMenuItem
        Caption = 'Pedidos'
      end
      object N2: TMenuItem
        Caption = '-'
      end
    end
    object Control1: TMenuItem
      Caption = 'Control Almacen'
      object Procesos1: TMenuItem
        Caption = 'Procesos'
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Entradasmateriasprimas2: TMenuItem
        Caption = 'Entradas materias primas'
        OnClick = Entradasmateriasprimas2Click
      end
    end
    object Informes1: TMenuItem
      Caption = 'Informes'
      object ListadodeMaterialesnecesarios1: TMenuItem
        Caption = 'Materiales necesarios en pedidos pendientes'
        OnClick = ListadodeMaterialesnecesarios1Click
      end
      object Materialesnecesariosenproduccin1: TMenuItem
        Caption = 'Materiales necesarios en producci'#243'n'
        OnClick = Materialesnecesariosenproduccin1Click
      end
      object Listadode1: TMenuItem
        Caption = 'Pedidos pendientes por referencia'
        OnClick = Listadode1Click
      end
      object Pedidospendientespordepartamento1: TMenuItem
        Caption = 'Pedidos pendientes por departamento'
        OnClick = Pedidospendientespordepartamento1Click
      end
    end
  end
  object qpedidos: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select p.*,lp.id as idlp, lp.ida,lp.desarticulo,lp.cantidad,lp.s' +
        'ervidos,lp.anulados,lp.resto,lp.observaciones as observaciones_l' +
        'p,lp.enproduccion from pedidos p, lineaspedidos lp where lp.acti' +
        'vo=1 and p.idser=lp.idser and p.id=lp.idp and p.ide=lp.ide and  ' +
        '(nomcliente like(:TEXTO) or p.id like (:TEXTO) or lp.ida like(:T' +
        'EXTO) or lp.desarticulo like(:TEXTO)) and p.activo=1 order by fe' +
        'chaentrega')
    Params = <
      item
        DataType = ftWideString
        Name = 'TEXTO'
        ParamType = ptUnknown
        Value = '%'
      end>
    Left = 656
    Top = 96
    ParamData = <
      item
        DataType = ftWideString
        Name = 'TEXTO'
        ParamType = ptUnknown
        Value = '%'
      end>
    object qpedidoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qpedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpedidosanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object qpedidosfechapedido: TDateField
      FieldName = 'fechapedido'
    end
    object qpedidosfechaentrega: TDateField
      FieldName = 'fechaentrega'
    end
    object qpedidosnomcliente: TWideStringField
      FieldName = 'nomcliente'
      Size = 100
    end
    object qpedidosdirenvio: TWideStringField
      FieldName = 'direnvio'
      Size = 100
    end
    object qpedidoscodpostenvio: TWideStringField
      FieldName = 'codpostenvio'
      Size = 10
    end
    object qpedidospoblacionenvio: TWideStringField
      FieldName = 'poblacionenvio'
      Size = 100
    end
    object qpedidosprovinciaenvio: TWideStringField
      FieldName = 'provinciaenvio'
      Size = 100
    end
    object qpedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qpedidosidser: TWideStringField
      FieldName = 'idser'
      Required = True
      Size = 4
    end
    object qpedidosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qpedidosida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qpedidosdesarticulo: TWideStringField
      FieldName = 'desarticulo'
      Size = 100
    end
    object qpedidoscantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object qpedidosenproduccion: TIntegerField
      FieldName = 'enproduccion'
    end
    object qpedidosidlp: TIntegerField
      FieldName = 'idlp'
      Required = True
    end
    object qpedidosobservaciones_lp: TWideStringField
      FieldName = 'observaciones_lp'
      Size = 500
    end
    object qpedidosfechaservicio: TDateField
      FieldName = 'fechaservicio'
    end
    object qpedidosservidos: TFloatField
      FieldName = 'servidos'
    end
    object qpedidosanulados: TFloatField
      FieldName = 'anulados'
    end
    object qpedidosresto: TFloatField
      FieldName = 'resto'
    end
  end
  object dsqpedidos: TDataSource
    DataSet = qpedidos
    Left = 576
    Top = 96
  end
  object dsqlineaspedidos: TDataSource
    DataSet = qlineaspedidos
    Left = 552
    Top = 224
  end
  object qlineaspedidos: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from lineaspedidos where activo=1 order by numlinea,ide' +
        ',idser,anyo,idp')
    Params = <>
    MasterFields = 'ide;id;idser;idlp'
    MasterSource = dsqpedidos
    LinkedFields = 'ide;idp;idser;id'
    Left = 640
    Top = 224
    object qlineaspedidoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qlineaspedidosidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qlineaspedidosanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object qlineaspedidosidser: TWideStringField
      FieldName = 'idser'
      Required = True
      Size = 4
    end
    object qlineaspedidosida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qlineaspedidosdesarticulo: TWideStringField
      FieldName = 'desarticulo'
      Size = 100
    end
    object qlineaspedidoscantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object qlineaspedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qlineaspedidosnumlinea: TIntegerField
      FieldName = 'numlinea'
    end
    object qlineaspedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qlineaspedidosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qlineaspedidosenproduccion: TIntegerField
      FieldName = 'enproduccion'
    end
    object qlineaspedidosservidos: TFloatField
      FieldName = 'servidos'
    end
    object qlineaspedidosanulados: TFloatField
      FieldName = 'anulados'
    end
    object qlineaspedidosresto: TFloatField
      FieldName = 'resto'
    end
  end
  object dsqestadopedidos: TDataSource
    DataSet = qestadopedidos
    Left = 968
    Top = 136
  end
  object qestadopedidos: TZQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select t.*,p.descripcion,(select descripcion from sectoralmacen ' +
        'where id=t.idsec and idalm=t.idalm limit 1) as sector,(select de' +
        'scripcion from sectoralmacen where id=t.idorisec and idalm=t.ido' +
        'rigen limit 1) as origen from traza_produccion t,procesos p wher' +
        'e   t.idproceso=p.id order by fecha desc,ide,idser,anyo,idp,ida')
    Params = <>
    Left = 968
    Top = 192
    object qestadopedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qestadopedidoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qestadopedidosidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qestadopedidosanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object qestadopedidosida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qestadopedidosidproceso: TIntegerField
      FieldName = 'idproceso'
      Required = True
    end
    object qestadopedidosfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qestadopedidoscant_total: TFloatField
      FieldName = 'cant_total'
      Required = True
    end
    object qestadopedidoscant_recibida: TFloatField
      FieldName = 'cant_recibida'
      Required = True
    end
    object qestadopedidoscant_finalizada: TFloatField
      FieldName = 'cant_finalizada'
      Required = True
    end
    object qestadopedidosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qestadopedidosidalm: TIntegerField
      FieldName = 'idalm'
      Required = True
    end
    object qestadopedidosidsec: TIntegerField
      FieldName = 'idsec'
      Required = True
    end
    object qestadopedidosidorigen: TIntegerField
      FieldName = 'idorigen'
      Required = True
    end
    object qestadopedidosidorisec: TIntegerField
      FieldName = 'idorisec'
      Required = True
    end
    object qestadopedidosidser: TWideStringField
      FieldName = 'idser'
      Size = 4
    end
    object qestadopedidosdesarticulo: TWideStringField
      FieldName = 'desarticulo'
      Size = 200
    end
    object qestadopedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      ReadOnly = True
      Size = 1000
    end
    object qestadopedidoshora: TDateTimeField
      FieldName = 'hora'
    end
    object qestadopedidossector: TWideStringField
      FieldName = 'sector'
      Required = True
      Size = 100
    end
    object qestadopedidosorigen: TWideStringField
      FieldName = 'origen'
      ReadOnly = True
      Size = 100
    end
  end
  object listaiconos: TImageList
    DrawingStyle = dsSelected
    Height = 32
    ShareImages = True
    Width = 32
    Left = 464
  end
  object Timer1: TTimer
    Interval = 30000
    OnTimer = Timer1Timer
    Left = 384
    Top = 8
  end
  object qprocesos: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select ap.*,p.idal from articulos_procesos ap,procesos p where a' +
        'p.idproceso=p.id and ida=:ARTICULO and ide=:EMPRESA'
      'UNION ALL'
      
        'SELECT 1000,1000,id,1000,descripcion,idal from procesos where id' +
        'al=(select id from almacenes where final=1)'
      ' order by orden ')
    Params = <
      item
        DataType = ftWideString
        Name = 'ARTICULO'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    Left = 808
    Top = 296
    ParamData = <
      item
        DataType = ftWideString
        Name = 'ARTICULO'
        ParamType = ptUnknown
        Value = '%'
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    object qprocesoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qprocesosida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object qprocesosidproceso: TIntegerField
      FieldName = 'idproceso'
      Required = True
    end
    object qprocesosorden: TIntegerField
      FieldName = 'orden'
      Required = True
    end
    object qprocesosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 200
    end
    object qprocesosidal: TIntegerField
      FieldName = 'idal'
      Required = True
    end
  end
  object qalmacenes: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      'select * from almacenes where id=:ALMACEN')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    Left = 960
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    object qalmacenesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qalmacenesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
  end
  object testadopedidos: TZQuery
    Connection = dm.DBproduccgest
    BeforePost = testadopedidosBeforePost
    BeforeDelete = testadopedidosBeforeDelete
    SQL.Strings = (
      'select * from traza_produccion')
    Params = <>
    Left = 864
    Top = 496
    object testadopedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object testadopedidoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object testadopedidosidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object testadopedidosanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object testadopedidosidser: TWideStringField
      FieldName = 'idser'
      Size = 4
    end
    object testadopedidosidalm: TIntegerField
      FieldName = 'idalm'
      Required = True
    end
    object testadopedidosidsec: TIntegerField
      FieldName = 'idsec'
      Required = True
    end
    object testadopedidosida: TWideStringField
      FieldName = 'ida'
      Required = True
      Size = 40
    end
    object testadopedidosidproceso: TIntegerField
      FieldName = 'idproceso'
      Required = True
    end
    object testadopedidosfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object testadopedidoscant_total: TFloatField
      FieldName = 'cant_total'
      Required = True
    end
    object testadopedidoscant_recibida: TFloatField
      FieldName = 'cant_recibida'
      Required = True
    end
    object testadopedidoscant_finalizada: TFloatField
      FieldName = 'cant_finalizada'
      Required = True
    end
    object testadopedidosidorigen: TIntegerField
      FieldName = 'idorigen'
      Required = True
    end
    object testadopedidosidorisec: TIntegerField
      FieldName = 'idorisec'
      Required = True
    end
    object testadopedidosdesarticulo: TWideStringField
      FieldName = 'desarticulo'
      Size = 200
    end
  end
  object qquitartraza: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      'delete from traza_produccion where id=:ID')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
    Left = 952
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object qactualizarpedido: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'update lineaspedidos set enproduccion=0 where ide=:PEMPRESA and ' +
        'idp=:PPEDIDO and anyo=:PANYO and idser=:PSERIE and ida=:PARTICUL' +
        'O')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PANYO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PSERIE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARTICULO'
        ParamType = ptUnknown
      end>
    Left = 1048
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PANYO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PSERIE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARTICULO'
        ParamType = ptUnknown
      end>
  end
  object dbmateriales: TfrxDBDataset
    UserName = 'dmbateriales'
    CloseDataSource = False
    DataSource = dsmateriales
    BCDToCurrency = False
    Left = 416
    Top = 184
  end
  object dbpedidos: TfrxDBDataset
    UserName = 'dbpedidos'
    CloseDataSource = False
    FieldAliases.Strings = (
      'ide=ide'
      'id=id'
      'anyo=anyo'
      'fechapedido=fechapedido'
      'fechaentrega=fechaentrega'
      'nomcliente=nomcliente'
      'direnvio=direnvio'
      'codpostenvio=codpostenvio'
      'poblacionenvio=poblacionenvio'
      'provinciaenvio=provinciaenvio'
      'observaciones=observaciones'
      'idser=idser'
      'activo=activo'
      'ida=ida'
      'desarticulo=desarticulo'
      'cantidad=cantidad'
      'enproduccion=enproduccion'
      'idlp=idlp'
      'observaciones_lp=observaciones_lp'
      'fechaservicio=fechaservicio'
      'servidos=servidos'
      'anulados=anulados'
      'resto=resto')
    DataSource = dsqpedidos
    BCDToCurrency = False
    Left = 264
    Top = 144
  end
  object qmateriales: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'SELECT lp.ide,lp.idser,lp.anyo,lp.idp,e.idmateriaprima,e.descrip' +
        'cion,(lp.resto*e.cantidad*(select unidades_pack from articulos w' +
        'here id=e.ida and ide=e.ide)) as cantidad,(select stock from mat' +
        'erias_primas where  id=e.idmateriaprima) as stock FROM escandall' +
        'o e,lineaspedidos lp where e.ide=lp.ide and e.ida=lp.ida and lp.' +
        'enproduccion=0 and  (lp.idp like (:TEXTO) or lp.ida like(:TEXTO)' +
        ' or lp.desarticulo like(:TEXTO)) and lp.activo=1 order by descri' +
        'pcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        ParamType = ptUnknown
      end>
    Left = 400
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TEXTO'
        ParamType = ptUnknown
      end>
    object qmaterialeside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qmaterialesidser: TWideStringField
      FieldName = 'idser'
      Size = 4
    end
    object qmaterialesanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object qmaterialesidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qmaterialesidmateriaprima: TWideStringField
      FieldName = 'idmateriaprima'
      Required = True
      Size = 40
    end
    object qmaterialesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 200
    end
    object qmaterialescantidad: TFloatField
      FieldName = 'cantidad'
      ReadOnly = True
    end
    object qmaterialesstock: TFloatField
      FieldName = 'stock'
      ReadOnly = True
    end
  end
  object infmateriales: TfrxReport
    Version = '6.9.3'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Por defecto'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 44833.772293437500000000
    ReportOptions.LastChange = 45398.475972372680000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 352
    Top = 136
    Datasets = <
      item
        DataSet = dbestadopedidos
        DataSetName = 'dbestadopedidos'
      end>
    Variables = <>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Century Gothic'
      Font.Style = []
      Orientation = poLandscape
      PaperWidth = 297.000000000000000000
      PaperHeight = 210.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Frame.Typ = []
      MirrorMode = []
      object PageHeader1: TfrxPageHeader
        FillType = ftBrush
        Frame.Style = fsDouble
        Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
        Height = 41.666666660000000000
        Top = 18.897650000000000000
        Width = 1046.929810000000000000
        object Memo1: TfrxMemoView
          AllowVectorExport = True
          Left = 0.833333330000000000
          Width = 1048.333333330000000000
          Height = 41.574803150000000000
          DisplayFormat.FormatStr = 'dd mmm yyyy'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = []
          Fill.BackColor = clGray
          HAlign = haCenter
          Memo.UTF8W = (
            '[TITULO] [Date]')
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object GroupHeader1: TfrxGroupHeader
        FillType = ftBrush
        Frame.Typ = []
        Height = 18.897637800000000000
        Top = 120.944960000000000000
        Width = 1046.929810000000000000
        Condition = 'dbestadopedidos."descripcion"'
        object Memo2: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 1.447651200000000000
          Width = 48.125942130000000000
          Height = 18.897637795275600000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Empresa')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo3: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 49.166666670000000000
          Width = 30.236240000000000000
          Height = 18.897637795275600000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Serie')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo4: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 79.475929050000000000
          Width = 31.560867630000000000
          Height = 18.897637795275600000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'A'#241'o')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo5: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 111.677328450000000000
          Width = 40.192801550000000000
          Height = 18.897637795275600000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Pedido')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo8: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 907.500000000000000000
          Width = 139.370130000000000000
          Height = 18.897637800000000000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Control de Calidad')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo6: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 150.833333330000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Fecha')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 211.195944350000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Cant. Total')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo9: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 272.816109790000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Cant. Reci.')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo10: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 333.333333330000000000
          Width = 62.687362140000000000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Cant. Fab.')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo11: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 397.101471440000000000
          Width = 85.927595229999990000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Referencia')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo12: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 482.519232150000000000
          Width = 320.385221180000000000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Descripci'#243'n')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo13: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 803.333333330000000000
          Top = -0.111626670000007000
          Width = 102.703463330000000000
          Height = 18.897637800000000000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.UTF8W = (
            'Departamento')
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object MasterData1: TfrxMasterData
        FillType = ftBrush
        Frame.Typ = []
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Century Gothic'
        Font.Style = []
        Height = 18.897637800000000000
        ParentFont = False
        Top = 162.519790000000000000
        Width = 1046.929810000000000000
        DataSet = dbestadopedidos
        DataSetName = 'dbestadopedidos'
        RowCount = 0
        Stretched = True
        object dmbaterialeside: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Width = 48.125942130000000000
          Height = 18.897637800000000000
          DataField = 'ide'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."ide"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object dmbaterialesidser: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 47.500000000000000000
          Width = 30.236240000000000000
          Height = 18.897637795275600000
          DataField = 'idser'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."idser"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object dmbaterialesanyo: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 78.333333340000000000
          Width = 32.132165480000000000
          Height = 18.897637800000000000
          DataField = 'anyo'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."anyo"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object dmbaterialesidp: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 110.833333330000000000
          Width = 40.192801550000000000
          Height = 18.897637800000000000
          DataField = 'idp'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."idp"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object dmbaterialescantidad: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 905.833333330000000000
          Width = 140.203463330000000000
          Height = 18.897637800000000000
          StretchMode = smActualHeight
          DataField = 'observaciones'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = []
          Frame.Typ = []
          HAlign = haRight
          Memo.UTF8W = (
            '[dbestadopedidos."observaciones"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object dbpedidosfechapedido: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 149.166666660000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          DisplayFormat.FormatStr = 'dd-mm-yy'
          DisplayFormat.Kind = fkDateTime
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."fecha"]')
        end
        object dbpedidosfechaentrega: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 209.529277680000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          DisplayFormat.FormatStr = '%2f'
          DisplayFormat.Kind = fkNumeric
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."cant_total"]')
        end
        object dbpedidosfechaservicio: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 271.149443120000000000
          Width = 59.887353550000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          DisplayFormat.FormatStr = '%2.0f'
          DisplayFormat.Kind = fkNumeric
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."cant_recibida"]')
        end
        object dbpedidosnomcliente: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 330.000000000000000000
          Width = 64.614439590000000000
          Height = 18.897637800000000000
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          DisplayFormat.FormatStr = '%2.0f'
          DisplayFormat.Kind = fkNumeric
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."cant_finalizada"]')
        end
        object dbpedidosida: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 397.814473550000000000
          Width = 86.047926459999990000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."ida"]')
        end
        object dbpedidosdesarticulo: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 481.499999990000000000
          Width = 320.385221180000000000
          Height = 18.897637800000000000
          DataSet = dbpedidos
          DataSetName = 'dbpedidos'
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."desarticulo"]')
        end
        object dbestadopedidosdescripcion: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 801.666666660000000000
          Width = 105.630180010000000000
          Height = 18.897650000000000000
          StretchMode = smActualHeight
          DataField = 'descripcion'
          DataSet = dbestadopedidos
          DataSetName = 'dbestadopedidos'
          Frame.Typ = []
          Memo.UTF8W = (
            '[dbestadopedidos."descripcion"]')
        end
      end
      object GroupFooter1: TfrxGroupFooter
        FillType = ftBrush
        Frame.Typ = []
        Height = 29.803030000000000000
        Top = 204.094620000000000000
        Width = 1046.929810000000000000
        object Line1: TfrxLineView
          AllowVectorExport = True
          Left = 0.833333330000000000
          Top = 3.658626669999990000
          Width = 1045.000000000000000000
          Color = clBlack
          Frame.Style = fsDouble
          Frame.Typ = [ftTop]
        end
        object dmbaterialescantidad1: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 101.500000000000000000
          Top = 5.738713340000000000
          Width = 166.370130000000000000
          Height = 18.897650000000000000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          HAlign = haRight
          Memo.UTF8W = (
            'Subtotales: [SUM(<dbestadopedidos."cant_total">,MasterData1)]')
          ParentFont = False
          VAlign = vaCenter
          Formats = <
            item
              FormatStr = '%2.0f'
              Kind = fkNumeric
            end
            item
            end
            item
            end>
        end
        object Memo14: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 273.333333330000000000
          Top = 5.905380000000010000
          Width = 57.203463330000000000
          Height = 18.897650000000000000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          HAlign = haRight
          Memo.UTF8W = (
            '[SUM(<dbestadopedidos."cant_recibida">,MasterData1)]')
          ParentFont = False
          VAlign = vaCenter
          Formats = <
            item
              FormatStr = '%2.0f'
              Kind = fkNumeric
            end
            item
            end
            item
            end>
        end
        object Memo15: TfrxMemoView
          IndexTag = 1
          AllowVectorExport = True
          Left = 332.500000000000000000
          Top = 5.905380000000010000
          Width = 63.036796670000000000
          Height = 18.897650000000000000
          DataSet = dbmateriales
          DataSetName = 'dmbateriales'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          HAlign = haRight
          Memo.UTF8W = (
            '[SUM(<dbestadopedidos."cant_finalizada">,MasterData1)]')
          ParentFont = False
          VAlign = vaCenter
          Formats = <
            item
              FormatStr = '%2.0f'
              Kind = fkNumeric
            end
            item
            end
            item
            end>
        end
      end
    end
  end
  object dsmateriales: TDataSource
    DataSet = qmateriales
    Left = 400
    Top = 248
  end
  object dsqmaterialesenproduccion: TDataSource
    DataSet = qmaterialesenproduccion
    Left = 400
    Top = 488
  end
  object qmaterialesenproduccion: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'SELECT lp.ide,lp.idser,lp.anyo,lp.idp,e.idmateriaprima,e.descrip' +
        'cion,((lp.cant_recibida)*e.cantidad*(select unidades_pack from a' +
        'rticulos where id=e.ida and ide=e.ide)) as cantidad,(select stoc' +
        'k from materias_primas where  id=e.idmateriaprima) as stock FROM' +
        ' escandallo e,traza_produccion lp where e.ide=lp.ide and e.ida=l' +
        'p.ida and lp.cant_finalizada<lp.cant_total')
    Params = <>
    Left = 400
    Top = 536
    object WideStringField1: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object WideStringField2: TWideStringField
      FieldName = 'idser'
      Required = True
      Size = 4
    end
    object IntegerField1: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object IntegerField2: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object WideStringField3: TWideStringField
      FieldName = 'idmateriaprima'
      Required = True
      Size = 40
    end
    object WideStringField4: TWideStringField
      FieldName = 'descripcion'
      Size = 200
    end
    object FloatField1: TFloatField
      FieldName = 'cantidad'
      ReadOnly = True
    end
    object qmaterialesenproduccionstock: TFloatField
      FieldName = 'stock'
      ReadOnly = True
    end
  end
  object dbestadopedidos: TfrxDBDataset
    UserName = 'dbestadopedidos'
    CloseDataSource = False
    FieldAliases.Strings = (
      'id=id'
      'ide=ide'
      'idp=idp'
      'anyo=anyo'
      'ida=ida'
      'idproceso=idproceso'
      'fecha=fecha'
      'cant_total=cant_total'
      'cant_recibida=cant_recibida'
      'cant_finalizada=cant_finalizada'
      'descripcion=descripcion'
      'idalm=idalm'
      'idsec=idsec'
      'idorigen=idorigen'
      'idorisec=idorisec'
      'idser=idser'
      'desarticulo=desarticulo'
      'observaciones=observaciones'
      'hora=hora'
      'sector=sector'
      'origen=origen')
    DataSource = dsqinfestadopedidos
    BCDToCurrency = False
    Left = 264
    Top = 208
  end
  object qunidadespack: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select unidades_pack from articulos where ide=:EMPRESA and id=:A' +
        'RTICULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'ARTICULO'
        ParamType = ptUnknown
        Value = '%'
      end>
    Left = 800
    Top = 208
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftWideString
        Name = 'ARTICULO'
        ParamType = ptUnknown
        Value = '%'
      end>
    object qunidadespackunidades_pack: TIntegerField
      FieldName = 'unidades_pack'
    end
  end
  object qlineasentraza: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from lineaspedidos where ide=:PEMPRESA and idp=:PPEDIDO' +
        ' and anyo=:PANYO and idser=:PSERIE and ida=:PARTICULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PANYO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PSERIE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARTICULO'
        ParamType = ptUnknown
      end>
    Left = 832
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PANYO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PSERIE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARTICULO'
        ParamType = ptUnknown
      end>
  end
  object qinfestadopedidos: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select t.*,p.descripcion,(select descripcion from sectoralmacen ' +
        'where id=t.idsec and idalm=t.idalm limit 1) as sector,(select de' +
        'scripcion from sectoralmacen where id=t.idorisec and idalm=t.ido' +
        'rigen limit 1) as origen from traza_produccion t,procesos p wher' +
        'e t.cant_finalizada<t.cant_recibida and  t.idproceso=p.id order ' +
        'by fecha desc,ide,idser,anyo,idp,ida')
    Params = <>
    Left = 960
    Top = 592
    object qinfestadopedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qinfestadopedidoside: TWideStringField
      FieldName = 'ide'
      Required = True
    end
    object qinfestadopedidosidp: TIntegerField
      FieldName = 'idp'
      Required = True
    end
    object qinfestadopedidosanyo: TIntegerField
      FieldName = 'anyo'
      Required = True
    end
    object qinfestadopedidosidser: TWideStringField
      FieldName = 'idser'
      Size = 4
    end
    object qinfestadopedidosidalm: TIntegerField
      FieldName = 'idalm'
    end
    object qinfestadopedidosidsec: TIntegerField
      FieldName = 'idsec'
    end
    object qinfestadopedidosida: TWideStringField
      FieldName = 'ida'
      Size = 40
    end
    object qinfestadopedidosidproceso: TIntegerField
      FieldName = 'idproceso'
    end
    object qinfestadopedidosfecha: TDateField
      FieldName = 'fecha'
    end
    object qinfestadopedidoscant_total: TFloatField
      FieldName = 'cant_total'
    end
    object qinfestadopedidoscant_recibida: TFloatField
      FieldName = 'cant_recibida'
    end
    object qinfestadopedidoscant_finalizada: TFloatField
      FieldName = 'cant_finalizada'
    end
    object qinfestadopedidosidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qinfestadopedidosidorisec: TIntegerField
      FieldName = 'idorisec'
    end
    object qinfestadopedidosdesarticulo: TWideStringField
      FieldName = 'desarticulo'
      Size = 200
    end
    object qinfestadopedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 1000
    end
    object qinfestadopedidoshora: TDateTimeField
      FieldName = 'hora'
    end
    object qinfestadopedidosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qinfestadopedidossector: TWideStringField
      FieldName = 'sector'
      ReadOnly = True
      Size = 100
    end
    object qinfestadopedidosorigen: TWideStringField
      FieldName = 'origen'
      ReadOnly = True
      Size = 100
    end
  end
  object dsqinfestadopedidos: TDataSource
    DataSet = qinfestadopedidos
    Left = 896
    Top = 584
  end
  object qalmacenfinal: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      'select final from almacenes where id=:ALMACEN')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    Left = 1032
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    object qalmacenfinalfinal: TIntegerField
      FieldName = 'final'
    end
  end
  object qescandallo: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'select * from escandallo where ide=:IDEMPRESA and ida=:IDARTICUL' +
        'O and idmateriaprima in (select id from materias_primas where es' +
        '_tiempo=0)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDARTICULO'
        ParamType = ptUnknown
      end>
    Left = 680
    Top = 520
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDARTICULO'
        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'
      Size = 200
    end
    object qescandallounidades: TWideStringField
      FieldName = 'unidades'
    end
  end
  object qentradasmaterial: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      'SELECT * FROM ENTRADASMATERIAL WHERE STOCK>0 AND IDMP=:IDMP '
      'UNION ALL'
      'SELECT * FROM ENTRADASMATERIAL WHERE STOCK<=0 AND IDMP=:IDMP'
      'LIMIT 1')
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDMP'
        ParamType = ptUnknown
      end>
    Left = 1016
    Top = 576
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDMP'
        ParamType = ptUnknown
      end>
    object qentradasmaterialid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qentradasmaterialfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qentradasmaterialidmp: TWideStringField
      FieldName = 'idmp'
      Required = True
      Size = 60
    end
    object qentradasmaterialcantidad: TFloatField
      FieldName = 'cantidad'
    end
    object qentradasmaterialstock: TFloatField
      FieldName = 'stock'
    end
    object qentradasmateriallote: TWideStringField
      FieldName = 'lote'
      Size = 90
    end
  end
  object qinsertarconsumo: TZReadOnlyQuery
    Connection = dm.DBproduccgest
    SQL.Strings = (
      
        'insert into consumos (idtraza,idmp,cantidad,idem,lote) VALUES (:' +
        'IDTRAZA,:IDMP,:CANTIDAD,:IDEM,:LOTE);')
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDTRAZA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDMP'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CANTIDAD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDEM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LOTE'
        ParamType = ptUnknown
      end>
    Left = 1016
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDTRAZA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDMP'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CANTIDAD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDEM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LOTE'
        ParamType = ptUnknown
      end>
  end
end