App_Code/ClsRH.vb

@@ -2167,6 +2167,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Personal no se guardó debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("TR_RH_PersonalAltas000") Then
+                Alert("El personal no se guardó el periodo de inicio y fin laboral del empleado está en conflicto con los anteriores, si es un reingreso favor de ingresar una fecha inicio mayor a la última fecha baja registrada.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else
                 Me.OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/Timbrado.vb

@@ -1228,7 +1228,7 @@ Public Class Timbrado
                 Retorno = If(Ret = "", True, False)
 
             Case 3
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
                     Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
                 Else
                     Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
@@ -1236,7 +1236,7 @@ Public Class Timbrado
 
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
                     Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)
@@ -1248,7 +1248,7 @@ Public Class Timbrado
 
 
             Case 5
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 
                     Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)

RH/CatPersonal.aspx

@@ -316,7 +316,7 @@
                         
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">clasificacación:</label>
+                        <label class="col-md-1 truncate">clasificación:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="ddlclasificacion" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>

RH/CatPersonal.aspx.vb

@@ -1194,21 +1194,27 @@ Partial Class RH_CatPersonal
                 ) Then
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""
-                For Each fileItem As Archivo In filesgral
+                If ObjPersonal.CvePersonal > 0 Then
-                    Dim extension = fileItem.Extension.Replace(".", "")
-                    If (extension.Contiene("jpg", "png", "bmp")) Then
-                        Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
-                        System.IO.Directory.CreateDirectory(dir)
-                        Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
-                        System.IO.File.Move(fileItem.FileUrl, file)
-                    End If
 
-                Next
+                    For Each fileItem As Archivo In filesgral
+                        Dim extension = fileItem.Extension.Replace(".", "")
+                        If (extension.Contiene("jpg", "png", "bmp")) Then
+                            Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
+                            System.IO.Directory.CreateDirectory(dir)
+                            Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
+                            If (System.IO.File.Exists(file)) Then
+                                System.IO.File.Delete(file)
+                            End If
+                            System.IO.File.Move(fileItem.FileUrl, file)
+                        End If
+
+                    Next
+                    Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
+                End If
 
                 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
                 ObjPersonal.Commit()