object ImportardesdePresenciaPin: TImportardesdePresenciaPin
  Left = 0
  Top = 0
  Caption = 'Importar desde PresenciaPin'
  ClientHeight = 552
  ClientWidth = 953
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 953
    Height = 97
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 27
      Top = 20
      Width = 38
      Height = 13
      Caption = 'Desde:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 29
      Top = 39
      Width = 36
      Height = 13
      Caption = 'Hasta:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 78
      Width = 125
      Height = 13
      Caption = 'Datos en PresenciaPin'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object fdesde: TDateTimePicker
      Left = 71
      Top = 16
      Width = 89
      Height = 21
      Date = 44623.526981724540000000
      Time = 44623.526981724540000000
      TabOrder = 0
      OnChange = fdesdeChange
    end
    object fhasta: TDateTimePicker
      Left = 71
      Top = 36
      Width = 89
      Height = 21
      Date = 44623.526981724540000000
      Time = 44623.526981724540000000
      TabOrder = 1
      OnChange = fdesdeChange
    end
    object Button1: TButton
      Left = 192
      Top = 15
      Width = 97
      Height = 37
      Caption = 'Importar'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 97
    Width = 953
    Height = 455
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid3: TDBGrid
      Left = 1
      Top = 1
      Width = 951
      Height = 453
      Align = alClient
      DataSource = DSPIN_MARCAJES
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
    end
  end
  object BDPRESENCIAPIN: TDatabase
    AliasName = 'PresenciaPin'
    DatabaseName = 'presenciapin'
    KeepConnection = False
    LoginPrompt = False
    ReadOnly = True
    SessionName = 'Default'
    Left = 704
    Top = 16
  end
  object qmarcajes: TQuery
    DatabaseName = 'presenciapin'
    SessionName = 'Default'
    ParamCheck = False
    SQL.Strings = (
      
        'select m.*,p.DNI,p.nombre from marcajes m,personal p where m.Per' +
        'sona=p.id and m.fecha>=:DESDE and m.fecha<=:HASTA order by fecha' +
        ',p.dni,Persona,Hora asc')
    Left = 456
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HASTA'
        ParamType = ptUnknown
      end>
    object qmarcajesPersona: TIntegerField
      FieldName = 'Persona'
      Origin = 'PRESENCIAPIN."marcajes.DB".Persona'
    end
    object qmarcajesFecha: TDateField
      FieldName = 'Fecha'
      Origin = 'PRESENCIAPIN."marcajes.DB".Fecha'
    end
    object qmarcajesHora: TTimeField
      FieldName = 'Hora'
      Origin = 'PRESENCIAPIN."marcajes.DB".Hora'
    end
    object qmarcajesTerminal: TIntegerField
      FieldName = 'Terminal'
      Origin = 'PRESENCIAPIN."marcajes.DB".Terminal'
    end
    object qmarcajesModificado: TBooleanField
      FieldName = 'Modificado'
      Origin = 'PRESENCIAPIN."marcajes.DB".Modificado'
    end
    object qmarcajesModoIdentificacion: TIntegerField
      FieldName = 'ModoIdentificacion'
      Origin = 'PRESENCIAPIN."marcajes.DB".ModoIdentificacion'
    end
    object qmarcajesDNI: TStringField
      FieldName = 'DNI'
      Origin = 'PRESENCIAPIN."personal.DB".DNI'
      Size = 40
    end
    object qmarcajesnombre: TStringField
      FieldName = 'nombre'
      Origin = 'PRESENCIAPIN."personal.DB".Nombre'
      Size = 50
    end
  end
  object DSPIN_MARCAJES: TDataSource
    DataSet = qmarcajes
    Left = 352
    Top = 8
  end
  object qtrabajadores: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select ide,id,nif,nombre from trabajadores where nif=:NIF and id' +
        'e=:EMPRESA')
    Params = <
      item
        DataType = ftUnknown
        Name = 'NIF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    Left = 544
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NIF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end>
    object qtrabajadoreside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qtrabajadoresid: TSmallintField
      FieldName = 'id'
      Required = True
    end
    object qtrabajadoresnif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 24
    end
    object qtrabajadoresnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
  end
  object qticados: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from ticados where ide=:EMPRESA and idt=:TRABAJADOR and' +
        ' fecha=:FECHA and salida_real is null'
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TRABAJADOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 624
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TRABAJADOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qticadosid: TLargeintField
      FieldName = 'id'
      Required = True
    end
    object qticadoside: TSmallintField
      FieldName = 'ide'
      Required = True
    end
    object qticadosfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qticadosidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qticadosTRABAJADOR: TWideStringField
      FieldName = 'TRABAJADOR'
      Required = True
      Size = 100
    end
    object qticadosENTRADA_REAL: TTimeField
      FieldName = 'ENTRADA_REAL'
    end
    object qticadosSALIDA_REAL: TTimeField
      FieldName = 'SALIDA_REAL'
    end
  end
end