inherited frmLotesCreator: TfrmLotesCreator
  Caption = 'Nuevo Lote de Producci'#243'n'
  ClientHeight = 585
  ClientWidth = 950
  OnDestroy = FormDestroy
  OnShow = FormShow
  ExplicitWidth = 966
  ExplicitHeight = 624
  PixelsPerInch = 96
  TextHeight = 16
  inherited pnlToolbar: TPanel
    Width = 950
    ExplicitWidth = 950
    inherited btnAyuda: TBitBtn
      Left = 895
      ExplicitLeft = 895
    end
    inherited btnSalir: TBitBtn
      Left = 840
      ExplicitLeft = 840
    end
  end
  inherited pnlMain: TPanel
    Width = 950
    Height = 520
    ExplicitWidth = 950
    ExplicitHeight = 520
    inherited pgcDetails: TPageControl
      Width = 950
      Height = 520
      ExplicitWidth = 950
      ExplicitHeight = 520
      inherited tsDatosEnvio: TTabSheet
        Caption = 'Datos de Lote'
        inherited dbgItems: TDBGrid
          Visible = False
        end
        inherited pnlSideToolbar: TPanel
          Visible = False
        end
        inherited pnlHeader: TPanel
          Visible = False
        end
        object lblCodigo: TLabel [3]
          Left = 24
          Top = 20
          Width = 111
          Height = 15
          Caption = 'C'#243'digo Autom'#225'tico:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblCodigoAntiguo: TLabel [4]
          Left = 190
          Top = 20
          Width = 155
          Height = 15
          Caption = 'C'#243'digo Lote (Visible / Ext.):'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblFecha: TLabel [5]
          Left = 400
          Top = 20
          Width = 120
          Height = 15
          Caption = 'Fecha de Elaboraci'#243'n:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblArticulo: TLabel [6]
          Left = 24
          Top = 80
          Width = 109
          Height = 15
          Caption = 'Producto / Art'#237'culo:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblObrador: TLabel [7]
          Left = 24
          Top = 140
          Width = 51
          Height = 15
          Caption = 'Obrador:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object lblObservaciones: TLabel [8]
          Left = 24
          Top = 200
          Width = 83
          Height = 15
          Caption = 'Observaciones:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edtCodigo: TEdit
          Left = 24
          Top = 38
          Width = 150
          Height = 24
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 0
          TextHint = 'N'#250'mero auto'
        end
        object edtCodigoAntiguo: TEdit
          Left = 190
          Top = 38
          Width = 195
          Height = 24
          TabOrder = 1
          TextHint = 'Lote comercial/visible'
        end
        object dtpFecha: TDateTimePicker
          Left = 400
          Top = 38
          Width = 210
          Height = 24
          Date = 46234.000000000000000000
          Time = 0.400000000001455200
          TabOrder = 2
        end
        object edtArticulo: TEdit
          Left = 24
          Top = 98
          Width = 495
          Height = 24
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 3
          TextHint = 'Seleccionar un art'#237'culo...'
          OnClick = btnBuscarProdClick
        end
        object btnBuscarProd: TButton
          Left = 525
          Top = 97
          Width = 85
          Height = 26
          Caption = 'Buscar...'
          TabOrder = 4
          OnClick = btnBuscarProdClick
        end
        object cbObrador: TComboBox
          Left = 24
          Top = 158
          Width = 586
          Height = 24
          Style = csDropDownList
          TabOrder = 5
        end
        object memObservaciones: TMemo
          Left = 24
          Top = 218
          Width = 586
          Height = 150
          TabOrder = 6
        end
      end
      object tsTrazabilidadVentas: TTabSheet
        Caption = #128230' Documentos de Venta (Trazabilidad)'
        ImageIndex = 2
        object pnlTrazabilidadTop: TPanel
          Left = 0
          Top = 0
          Width = 942
          Height = 46
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object lblResumenTrazabilidad: TLabel
            Left = 16
            Top = 14
            Width = 400
            Height = 16
            Caption = 'Seleccione o consulte un lote para visualizar sus ventas.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnVerDocumento: TButton
            Left = 670
            Top = 8
            Width = 140
            Height = 30
            Anchors = [akTop, akRight]
            Caption = #128196' Ver Documento'
            TabOrder = 0
            OnClick = btnVerDocumentoClick
          end
          object btnActualizarTraz: TButton
            Left = 820
            Top = 8
            Width = 110
            Height = 30
            Anchors = [akTop, akRight]
            Caption = #128260' Actualizar'
            TabOrder = 1
            OnClick = btnActualizarTrazClick
          end
        end
        object dbgTrazabilidadVentas: TDBGrid
          Left = 0
          Top = 46
          Width = 942
          Height = 445
          Align = alClient
          DataSource = dsTrazabilidadVentas
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = 'Segoe UI'
          TitleFont.Style = []
          OnDblClick = dbgTrazabilidadVentasDblClick
          OnTitleClick = dbgTrazabilidadVentasTitleClick
        end
      end
      inherited TsListado: TTabSheet
        TabVisible = False
      end
    end
  end
  inherited pnlFooter: TPanel
    Visible = False
  end
  object qTrazabilidadVentas: TFDQuery
    Connection = dmgMain.dbConn
    Left = 520
    Top = 260
  end
  object dsTrazabilidadVentas: TDataSource
    DataSet = qTrazabilidadVentas
    Left = 580
    Top = 260
  end
end