From 38841f71c97a0c9e0f9ccca5b0cd827e076f2961 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 18 Jul 2022 03:00:58 -0700 Subject: [PATCH] --- App_Code/ClsRH.vb | 3 +++ App_Code/Timbrado.vb | 6 +++--- RH/CatPersonal.aspx | 2 +- RH/CatPersonal.aspx.vb | 26 ++++++++++++++++---------- 4 files changed, 23 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c02d7b5e2..4672e0848 100644 --- a/App_Code/ClsRH.vb +++ b/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 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fa00d566c..d9ea519f1 100644 --- a/App_Code/Timbrado.vb +++ b/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) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index e95bc4d97..7df1632af 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -316,7 +316,7 @@
- +
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 5b869cc0f..7d0d44a98 100644 --- a/RH/CatPersonal.aspx.vb +++ b/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 - 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 + If ObjPersonal.CvePersonal > 0 Then - 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 Ver empleado", 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 Ver empleado", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0) continuar = True ISChange = True ObjPersonal.Commit()