diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 077de40dc..a8393d12b 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -579,7 +579,7 @@ Public Class ClsNominas End If retorno = True Catch ex As Exception - OnError("Ocurrió un error al registrar la provisión de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al registrar la provisión de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -594,7 +594,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener el layout de nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener el layout de nóminas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -814,7 +814,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al Guardar el Movimiento de nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -839,7 +839,7 @@ Public Class ClsNominas ' SqlAdapter.Fill(Data) ' Retorno = True ' Catch Ex1 As SqlException - ' Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' Me.OnError("Ocurrió un error al Guardar el Movimiento de nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' End Try ' Return Retorno @@ -862,9 +862,9 @@ Public Class ClsNominas ' ' ' Catch sqlex As SqlException ' If sqlex.Message.Contains("x5010") Then - ' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Else - ' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' End If ' End Try @@ -883,7 +883,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -898,7 +898,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -972,7 +972,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al autorizar la nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al autorizar la nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno @@ -1000,7 +1000,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al autorizar la nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al autorizar la nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno End Function @@ -1113,13 +1113,13 @@ Public Class ClsNominas Catch sqlex As SqlException If sqlex.Message.Contains("Número: 50001x") Then - Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Else - Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el Movimiento de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -1282,7 +1282,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) Retorno = True Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al realizar actualización masiva en Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al realizar actualización masiva en nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -1368,14 +1368,14 @@ Public Class ClsNominas If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Concepto de Nomina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + Alert("Ya existe un concepto de nómina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) ElseIf Ex1.Message.Contains("UK_Nom_Conceptos_CveEmpresa_Codigo") Then - Alert("Ya existe un Concepto de Nomina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + Alert("Ya existe un concepto de nómina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error al Guardar el Concepto de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al Guardar el Concepto de nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - OnError("Ocurrió un error al Guardar el Concepto de Nomina", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al Guardar el concepto de nómina", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno @@ -1416,14 +1416,14 @@ Public Class ClsNominas Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Concepto de Nomina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + Alert("Ya existe un concepto de nómina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) ElseIf Ex1.Message.Contains("UK_Nom_Conceptos_CveEmpresa_Codigo") Then - Alert("Ya existe un Concepto de Nomina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + Alert("Ya existe un concepto de nómina con el mismo Código: " & Codigo & ".", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error el Concepto de Nomina", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error el concepto de nómina", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Concepto de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al guardar los cambios en el concepto de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno @@ -1442,12 +1442,12 @@ Public Class ClsNominas Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya existe un Concepto de Nomina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) + Alert("Ya existe un concepto de nómina con el mismo nombre: " & Codigo & ".", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error el Concepto de Nomina", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error el concepto de nómina", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - OnError("Ocurrió un error al guardar los cambios en el Concepto de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al guardar los cambios en el concepto de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function @@ -1463,12 +1463,12 @@ Public Class ClsNominas Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 547;") Then - Alert("El Concepto de Nomina no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Alert("El concepto de nómina no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) Else - Me.OnError("Ocurrió un error al eliminar el Concepto de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el concepto de nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el Concepto de Nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al eliminar el concepto de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -2376,7 +2376,7 @@ Public Class ClsNominas End If Retorno = True Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener el reporte de inversión de nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al obtener el reporte de inversión de nómina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno End Function @@ -2417,10 +2417,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el calculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el calculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2439,10 +2439,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener la nomina sin timbrar.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener la nómina sin timbrar.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener la nomina sin timbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener la nómina sin timbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2543,10 +2543,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el cálculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el cálculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2608,10 +2608,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el cálculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al realizar el cáculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2637,10 +2637,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el cálculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el cálculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2661,10 +2661,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al actualizar las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al actualizar las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2682,10 +2682,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2750,10 +2750,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2787,7 +2787,7 @@ Public Class ClsNominas End If Catch ex As Exception retorno = False - OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al agregar las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2821,7 +2821,7 @@ Public Class ClsNominas End If Catch ex As Exception retorno = False - OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al actualizar las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -2844,7 +2844,7 @@ Public Class ClsNominas End If Catch ex As Exception retorno = False - OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al eliminar las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3037,7 +3037,7 @@ Public Class ClsNominas Catch sqEx As SqlException retorno = False If (sqEx.Message.Contains("FK_Conta_CuentasAsignaciones_Conta_ConceptosContables")) Then - OnError("Es necesario asignar el concepto contable al concepto de nomina para poder realizar la vinculacion de la cuenta.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Es necesario asignar el concepto contable al concepto de nómina para poder realizar la vinculacion de la cuenta.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Else OnError("Ocurrió un error al actualizar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If @@ -3083,10 +3083,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3106,10 +3106,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3129,10 +3129,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3150,10 +3150,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener las tablas de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3174,10 +3174,10 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al obtener la asistencia de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener la asistencia de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al obtener la asistencia de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener la asistencia de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function @@ -3289,7 +3289,7 @@ Public Class ClsNominas addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) addParameters("@Estatus", SqlDbType.Int, Estatus) addParameters("@Top", SqlDbType.Int, Top) - retorno = RunQuery("Ocurrió un error al obtener el SolicitudesNominas.") + retorno = RunQuery("Ocurrió un error al obtener las solicitudes de nómina.") Return retorno End Function Public Function SolicitudesAdd(CveSolicitudCFDI As Integer, CveSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveTipoSolicitud As Integer = 1) As Boolean @@ -3305,7 +3305,7 @@ Public Class ClsNominas addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) - retorno = RunQuery("Ocurrió un error al agregar el SolicitudesNominas.") + retorno = RunQuery("Ocurrió un error al agregar las solicitudes de nómina.") Return retorno End Function @@ -3395,7 +3395,7 @@ Public Class ClsNominas addParameters("@Estatus", SqlDbType.Int, estatus) addParameters("@Observaciones", SqlDbType.VarChar, observaciones) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) - retorno = RunQuery("Ocurrió un error al actualizar el SolicitudesNominas.") + retorno = RunQuery("Ocurrió un error al actualizar las Solicitudes de nómina.") Return retorno End Function Public Function SolicitudesRemove(CveSolicitud As Int32, CveEmpresa As Integer) As Boolean @@ -3403,7 +3403,7 @@ Public Class ClsNominas DataAdapter("PA_Gral_SAT_SolicitudesRemove", CommandType.StoredProcedure) addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud) addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) - retorno = RunQuery("Ocurrió un error al eliminar el SolicitudesNominas.") + retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.") Return retorno End Function #End Region @@ -3422,7 +3422,7 @@ Public Class ClsNominas SqlAdapter.Fill(Data) retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener el layout de nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener el layout de nóminas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 86c157413..f82113bc3 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -189,49 +189,49 @@ Partial Class PopUpVerFactura 'OPCIONES If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then - Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) - If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then - SeleccionaReporte(UrlParametros) - End If + Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) + If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then + SeleccionaReporte(UrlParametros) End If - - If Request("onlyPrint") IsNot Nothing Then - If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso - Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then - Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa - Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta - Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1 - GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion) - End If - If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then - imprimirpallet2(Request("CvePallet").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then - imprimirpallet(Request("CvePallet").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then - imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero()) - End If - - If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then - imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then - imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero()) - End If - If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then - imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero()) - End If - - If Request("onlyPrint").ToString() = "rfctxtvalidar" Then - rfctxtvalidar() - End If - If Request("onlyPrint").ToString() = "Recibo" Then - ReciboAgropecuaria() - End If - End If - End If + + If Request("onlyPrint") IsNot Nothing Then + If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso + Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then + Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa + Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta + Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1 + GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion) + End If + If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then + imprimirpallet2(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then + imprimirpallet(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then + imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero()) + End If + + If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then + imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then + imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then + imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero()) + End If + + If Request("onlyPrint").ToString() = "rfctxtvalidar" Then + rfctxtvalidar() + End If + If Request("onlyPrint").ToString() = "Recibo" Then + ReciboAgropecuaria() + End If + End If + + End If End Sub @@ -287,14 +287,14 @@ Partial Class PopUpVerFactura End If lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt}) - End If + End If End Using 'endimg '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline") + ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") End Sub Private Sub rfctxtvalidar() Dim numeroPeriodo As Integer = 0 @@ -468,7 +468,7 @@ Partial Class PopUpVerFactura If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then rutardlc = "GPS/EmbarqueManifiesto2.rdlc" End If - ImprimirPDF(rutardlc, lrds, params, "Manifesto", Content_Disposition:="Inline") + ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline") End Sub Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer) @@ -622,7 +622,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión", Content_Disposition:="Inline") + ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline") End Sub Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer) @@ -788,7 +788,7 @@ Partial Class PopUpVerFactura 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") 'ResultadoMail = 3 End If - ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="Inline") + ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline") End Sub @@ -856,7 +856,7 @@ Partial Class PopUpVerFactura 'endimg '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline") + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") End Sub @@ -990,7 +990,7 @@ Partial Class PopUpVerFactura 'If CvetypeImpresion = 2 Then ' ruta = "GPS/PalletEtiqueta_2.rdlc" 'End If - ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline") + ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") End Sub Private Sub imprimirpallet(cvePallet As Integer) @@ -1088,7 +1088,7 @@ Partial Class PopUpVerFactura 'If CvetypeImpresion = 2 Then ' ruta = "GPS/PalletEtiqueta_2.rdlc" 'End If - ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline") + ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") End Sub #Region "U S U A R I O - T O K E N"