surname-hr-import.vb

surname-hr-import.vb

Case "sn-HRMA-Import"
    'HR attributes required are:Surname, AccountName
    'Ensure that this attribute has spaced Hypens corrected
    Dim surnamelogFileName As String = dtDateNowDay & "-" & dtDateNowMonth & "-" & dtDateNowYear & "_HRMA_Surname.log"
    Logging.SetupLogFile(surnamelogFileName, loggingLevel)
    If csentry("Surname").IsPresent Then
        If csentry("Surname").Value.ToLower = "null" Then
            mventry("sn").Delete()
            If csentry("AccountName").IsPresent Then
                Throw New Exception("Error in Surname (null) for FedID: " & csentry("AccountName").Value)
            Else
                Throw New Exception("Error in Surname (null) for PID: " & csentry("PID").Value) 'PID is the anchor - if this is missing we have more serious problems
            End If
        Else
            Dim tString As String = Regex.Replace(csentry("Surname").Value, "[^a-zA-ZÀÈÌÒÙàèìòùÁÉÍÓÚÝáéíóúýÂÊÎÔÛâêîôûÃÑÕãñõÄËÏÖÜŸäëïöüÿ_\-\'\ ]", "")
            'tString = tString.Replace(" - ", "-")
            If tString <> csentry("Surname").Value Then
                If csentry("AccountName").IsPresent Then
                    Throw New Exception("Error in Last Name format for FedID: " & csentry("AccountName").Value & ", Firstname: " & csentry("Surname").Value)
                Else
                    Throw New Exception("Error in Last Name format for PID: " & csentry("PID").Value & ", Firstname: " & csentry("Surname").Value) 'PID is the anchor - if this is missing we have more serious problems
                End If
            Else
                mventry("sn").Value = Replace(csentry("Surname").Value.Trim, " - ", "-")
            End If
        End If
    Else
        If csentry("AccountName").IsPresent Then
            Logging.Log("Surname not Present for: " & csentry("AccountName").Value, True, 0)
        Else
            Logging.Log("Surname not Present for: " & csentry("PID").Value, True, 0) 'PID is the anchor - if this is missing we have more serious problems
        End If
    End If