RH/CatPersonal.aspx.vb

@@ -1155,7 +1155,6 @@ Partial Class RH_CatPersonal
                    TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
                    CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
                 ) Then
-
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""
                 For Each fileItem As Archivo In filesgral
@@ -1171,6 +1170,7 @@ Partial Class RH_CatPersonal
 
                 ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
+                TxtFoto.Text = "[]"
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True