2022-12-16 11:40:49 -07:00
parent ba9933b4ed
commit f3c85e1dc9
2 changed files with 113 additions and 113 deletions
--- 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
--- 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"