'---------------------------------------------------------------------------------------------
' System Variables - DO NOT REMOVE
'---------------------------------------------------------------------------------------------

'---------------------------------------------------------------------------------------------
' System functions - DO NOT REMOVE
'---------------------------------------------------------------------------------------------
Sub Initialize()
  Call ClearFunctions
  Call AddFunction("Time Manager Platinum",1)
  Call AddFunction("Time Register",2)
  Call AddFunction("Turbo Time",3)
  Call AddFunction("Super Time",4)
  Call InitializeFunctions
  Call SetExportFile("C:\Programme Files\Time Manager Platinum\Clocks.dat")
End Sub

Sub Terminate()
End Sub

Sub SelectionChanged(Command)
  Select case Command
    Case 1
      Call SetExportFile("C:\Programme Files\Time Manager Platinum\Clocks.dat")
    Case 2
      Call SetExportFile("C:\MT2GET.DAT")
    Case 3
      Call SetExportFile("C:\LOGDATA.WIZ")
    Case 4
      Call SetExportFile("C:\LOGDATA.DAT")
  End Select
End Sub

Sub GetTAExportDataEx(Command,TheDate,CardNumber,Location,Result)
  Dim szData

  Select case Command
    Case 1
      'Time Manager
      szData = ZeroFillLeft(CardNumber,8) & " " & FormatDateAndTime(TheDate,"dd/mm/yyyy hh:nn") & " I 000"
    Case 2
      'Time Register
      szData = ZeroFillLeft(CardNumber,14) & "," & FormatDateAndTime(TheDate,"dd/mm/yy,hh:nn:ss")

    Case 3
      'Turbo Time
      szData = "010  " & ZeroFillLeft(CardNumber,8) & "0" & FormatDateAndTime(TheDate,"yyyy:mm:dd hh:nn") & " I 00"

    Case 4
      'Super Time
      szData = "001    " & ZeroFillLeft(CardNumber,6) & "000" & FormatDateAndTime(TheDate,"yy:mm:dd hh") & "h" & FormatDateAndTime(TheDate,"nn") & " I"
  End Select
  Result = szData
End Sub

'---------------------------------------------------------------------------------------------
' User defined functions
'---------------------------------------------------------------------------------------------