object fdlgduplicar: Tfdlgduplicar
  Left = 0
  Top = 0
  ClientHeight = 141
  ClientWidth = 326
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 133
    Top = 22
    Width = 44
    Height = 13
    Alignment = taRightJustify
    Caption = 'N'#250'mero'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 126
    Top = 44
    Width = 6
    Height = 13
    Caption = '/'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 213
    Top = 22
    Width = 36
    Height = 13
    Alignment = taRightJustify
    Caption = 'Fecha:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 64
    Top = 22
    Width = 29
    Height = 13
    Alignment = taRightJustify
    Caption = 'Serie'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object comboserie: TDBLookupComboBox
    Left = 64
    Top = 41
    Width = 61
    Height = 21
    KeyField = 'id'
    ListField = 'id'
    ListFieldIndex = 1
    ListSource = dsqseries
    TabOrder = 0
  end
  object Button1: TButton
    Left = 126
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Aceptar'
    ImageIndex = 140
    Images = BASE.listaiconos
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 138
    Top = 41
    Width = 39
    Height = 21
    TabOrder = 2
  end
  object MaskEdit1: TMaskEdit
    Left = 213
    Top = 41
    Width = 68
    Height = 21
    EditMask = '!99/99/0000;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '  /  /    '
  end
  object dsqseries: TDataSource
    DataSet = qseries
    OnDataChange = dsqseriesDataChange
    Left = 10
    Top = 25
  end
  object qseries: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from series_numericas order by activo desc,fechainicio ' +
        'desc,id ')
    Params = <>
    MasterFields = 'id'
    MasterSource = DM.dsempresa
    IndexFieldNames = 'ide'
    Left = 66
    Top = 89
    object qserieside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qseriesid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 10
    end
    object qseriesfechainicio: TDateField
      FieldName = 'fechainicio'
      Required = True
    end
    object qseriesfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
    end
    object qseriesnum_pedcliente: TIntegerField
      FieldName = 'num_pedcliente'
      Required = True
    end
    object qseriesnum_albaran: TIntegerField
      FieldName = 'num_albaran'
      Required = True
    end
    object qseriesnum_factura: TIntegerField
      FieldName = 'num_factura'
      Required = True
    end
    object qseriesnum_expedicion: TIntegerField
      FieldName = 'num_expedicion'
      Required = True
    end
    object qseriesnum_pedproveedor: TIntegerField
      FieldName = 'num_pedproveedor'
      Required = True
    end
    object qseriesimp_albaran: TWideStringField
      FieldName = 'imp_albaran'
      Size = 500
    end
    object qseriesimp_factura: TWideStringField
      FieldName = 'imp_factura'
      Size = 500
    end
    object qseriesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qseriesnum_presupuesto: TIntegerField
      FieldName = 'num_presupuesto'
      Required = True
    end
    object qseriesseriecontable: TWideStringField
      FieldName = 'seriecontable'
      Size = 10
    end
  end
  object qaux: TFDQuery
    Connection = DM.DBagrigest
    Params = <>
    Left = 10
    Top = 88
  end
end