Public Class GsLoc
    ''' <summary>
    ''' Write Date only. in cz format dd.mm.yyyy
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Datum1 As String
    ''' <summary>
    ''' Write time only in cz format hh.mm
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Cas1 As String

    ''' <summary>
    ''' GPS Date only
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Datum2 As String
    ''' <summary>
    ''' GPS Time only
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Cas2 As String

    ''' <summary>
    ''' Id mapped to the IMEI
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property ID As Integer

    Public Property IZ As String
    Public Property LT As String
    Public Property LD As String
    Public Property SP As String
    Public Property HD As String
    Public Property OK As String
    Public Property NS1 As String
    Public Property NS2 As String
    Public Property T1 As String
    Public Property T2 As String
    Public Property UN As String
    Public Property AI As String
    Public Property AO As String
    Public Property HG As String
    Public Property CZPR As String
    Public Property guid As String
    Public Overrides Function ToString() As String
      
        Dim NS As String = NS1.PadLeft(2) & "/" & NS2.PadLeft(2)
        Return Datum1 & " " & Cas1 & ";" & "#" & Datum2 & " " & Cas2 & ";ID=" & ID.ToString().PadLeft(4) & ";IZ=" & IZ.PadLeft(3) & ";LT=" & LT.Replace(",", "").PadRight(8, "0") & ";LD=" & LD.Replace(",", "").PadRight(8, "0") & ";SP=" & SP.PadLeft(3) & ";HD=" & HD.PadLeft(3) & ";OK=" & OK & ";NS=" & NS & ";T1=" & T1 & ";T2=" & T2 & ";UN=" & UN & ";I=" & AI.PadLeft(3) & ";O=" & AO.PadLeft(3) & ";HG=" & HG.PadLeft(4) & ";CZpr=" & CZPR.PadLeft(3) & ";"
    End Function
End Class
