object traza_materiales: Ttraza_materiales
  Left = 0
  Top = 0
  Caption = 'Trazabilidad de Materiales'
  ClientHeight = 357
  ClientWidth = 978
  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 Panel4: TPanel
    Left = 0
    Top = 0
    Width = 978
    Height = 49
    Align = alTop
    TabOrder = 0
    object btexcel: TButton
      Left = 1
      Top = 1
      Width = 70
      Height = 47
      Align = alLeft
      Caption = 'Exportar a excel'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 11
      Images = BASE.listaiconos
      ParentFont = False
      TabOrder = 0
      WordWrap = True
      OnClick = btexcelClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 978
    Height = 308
    Align = alClient
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 976
      Height = 306
      Align = alClient
      DataSource = dsqpesadas2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'proveedor'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'documento'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'codigo'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lote'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fecha'
          Title.Caption = 'Fecha'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'parcela'
          Title.Caption = 'Parcela'
          Width = 141
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lotes_detalle'
          Title.Caption = 'Lotes'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pedidocliente'
          Title.Caption = 'Pedido'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'nombre'
          Title.Caption = 'Cliente'
          Width = 129
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'destino'
          Title.Caption = 'Destino'
          Width = 97
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'idalbaran'
          Title.Caption = 'Albaran'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'factura'
          Title.Caption = 'Factura'
          Width = 52
          Visible = True
        end>
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 296
  end
  object dsqpesadas2: TDataSource
    DataSet = qpesadas
    Left = 400
    Top = 88
  end
  object qpesadas2: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select '#39'EURO POOL'#39' as proveedor,'#39'701012820'#39' as documento,'#39'CAP012' +
        #39' as codigo,'#39'701012820'#39' as lote,ea.id,idea,fecha,p.iddestino,ori' +
        'gen,idorigen,parcela,lotes_detalle,ea.idalbaran,ea.idfactura as ' +
        'factura,c.nombre,p.pedidocliente,cd.descripcion as destino from ' +
        'ea_pesadas ea,pedidos p,clientes c,clientes_destinos cd where c.' +
        'idempresa=cd.idempresa and c.id=cd.idcliente and cd.codigo=p.idd' +
        'estino and ea.idempresa=p.ide and ea.pedidocliente=p.id and p.id' +
        'cliente=c.id and ea.id in (select DISTINCT(idea) from ea_materia' +
        'les where lote='#39'701012820'#39' and idaf=(select id from articulosf w' +
        'here codigo='#39'CAP012'#39')) order by ea.id')
    Params = <>
    Left = 472
    Top = 128
    object qpesadas2proveedor: TWideStringField
      FieldName = 'proveedor'
      ReadOnly = True
      Size = 18
    end
    object qpesadas2documento: TWideStringField
      FieldName = 'documento'
      ReadOnly = True
      Size = 18
    end
    object qpesadas2codigo: TWideStringField
      FieldName = 'codigo'
      ReadOnly = True
      Size = 12
    end
    object qpesadas2lote: TWideStringField
      FieldName = 'lote'
      ReadOnly = True
      Size = 18
    end
    object qpesadas2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpesadas2idea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qpesadas2fecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpesadas2iddestino: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object qpesadas2origen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qpesadas2idorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qpesadas2parcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadas2lotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object qpesadas2idalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpesadas2nombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qpesadas2pedidocliente: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object qpesadas2destino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 80
    end
    object qpesadas2factura: TWideStringField
      FieldName = 'factura'
      Size = 40
    end
  end
  object qpesadas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        '(select (select nombre from proveedores where id=(select idprove' +
        'edor from entradas where id=(select identrada from entradas_deta' +
        'lle where id=:LOTE))) as proveedor,'
      
        '(select documento from entradas where id=(select identrada from ' +
        'entradas_detalle where id=:LOTE)) as documento,(select codigo fr' +
        'om entradas_detalle where id=:LOTE) as codigo,'
      
        '(select lote from entradas_detalle where id=:LOTE) as lote,ea.id' +
        ',idea,fecha,p.iddestino,origen,idorigen,parcela,lotes_detalle,ea' +
        '.idalbaran,ea.idfactura as factura,c.nombre,p.pedidocliente,cd.d' +
        'escripcion as destino from ea_pesadas ea,pedidos p,clientes c,cl' +
        'ientes_destinos cd'
      
        ' where c.idempresa=cd.idempresa and c.id=cd.idcliente and cd.cod' +
        'igo=p.iddestino and ea.idempresa=p.ide and ea.pedidocliente=p.id' +
        ' and p.idcliente=c.id and c.idempresa=ea.idempresa and ea.id in ' +
        '(select DISTINCT(idea) from ea_materiales where identradamat=:LO' +
        'TE))'
      'UNION ALL'
      
        '(SELECT  (select nombre from proveedores where id=(select idprov' +
        'eedor from entradas where id=(select identrada from entradas_det' +
        'alle where id=:IDENTRADA))) as proveedor,(select documento from ' +
        'entradas where id=(select identrada from entradas_detalle where ' +
        'id=:IDENTRADA)) as documento,(select codigo from entradas_detall' +
        'e where id=:IDENTRADA) as codigo,(select lote from entradas_deta' +
        'lle where id=:IDENTRADA) as lote,idt as id,null as idea,(select ' +
        'fecha from tratamientos where id=(select idt from entradas_detal' +
        'le where id=:IDENTRADA)) as fecha,null as iddestino,null as orig' +
        'en,null as idorigen,(select desc_cc from tratamientos where id=i' +
        'dt) as parcela,null as lotes_detalle,null as albaran,null as fac' +
        'tura,null as nombre,null as pedidocliente,null as destino FROM a' +
        'grigest.tratamientos_detalle td where identrada=:IDENTRADA'
      ') order by id')
    Params = <
      item
        DataType = ftUnknown
        Name = 'LOTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDENTRADA'
        ParamType = ptUnknown
      end>
    Left = 472
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LOTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDENTRADA'
        ParamType = ptUnknown
      end>
    object qpesadasproveedor: TWideStringField
      FieldName = 'proveedor'
      ReadOnly = True
      Size = 80
    end
    object qpesadasdocumento: TWideStringField
      FieldName = 'documento'
      ReadOnly = True
      Size = 30
    end
    object qpesadascodigo: TWideStringField
      FieldName = 'codigo'
      ReadOnly = True
      Size = 50
    end
    object qpesadaslote: TWideStringField
      FieldName = 'lote'
      ReadOnly = True
      Size = 40
    end
    object qpesadasid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
    end
    object qpesadasidea: TIntegerField
      FieldName = 'idea'
      ReadOnly = True
    end
    object qpesadasfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
    end
    object qpesadasiddestino: TWideStringField
      FieldName = 'iddestino'
      ReadOnly = True
      Size = 40
    end
    object qpesadasorigen: TWideStringField
      FieldName = 'origen'
      ReadOnly = True
      Size = 100
    end
    object qpesadasidorigen: TIntegerField
      FieldName = 'idorigen'
      ReadOnly = True
    end
    object qpesadasparcela: TWideStringField
      FieldName = 'parcela'
      ReadOnly = True
      Size = 100
    end
    object qpesadaslotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      ReadOnly = True
      Size = 60
    end
    object qpesadasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      ReadOnly = True
      Size = 22
    end
    object qpesadasnombre: TWideStringField
      FieldName = 'nombre'
      ReadOnly = True
      Size = 80
    end
    object qpesadaspedidocliente: TWideStringField
      FieldName = 'pedidocliente'
      ReadOnly = True
      Size = 40
    end
    object qpesadasdestino: TWideStringField
      FieldName = 'destino'
      ReadOnly = True
      Size = 80
    end
    object qpesadasfactura: TWideStringField
      FieldName = 'factura'
      ReadOnly = True
      Size = 40
    end
  end
end