AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-12-16 11:40:49 -07:00
parent ba9933b4ed
commit f3c85e1dc9
2 changed files with 113 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
App_Code/ClsNominas.vb
View File

@@ -579,7 +579,7 @@ Public Class ClsNominas
End If End If
retorno = True retorno = True
Catch ex As Exception 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 End Try
Return retorno Return retorno
End Function End Function
@@ -594,7 +594,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch ex As Exception 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 End Try
Return retorno Return retorno
End Function End Function
@@ -814,7 +814,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException 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 End Try
Return Retorno Return Retorno
@@ -839,7 +839,7 @@ Public Class ClsNominas
' SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
' Retorno = True ' Retorno = True
' Catch Ex1 As SqlException ' 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 ' End Try
' Return Retorno ' Return Retorno
@@ -862,9 +862,9 @@ Public Class ClsNominas
' ' ' '
' Catch sqlex As SqlException ' Catch sqlex As SqlException
' If sqlex.Message.Contains("x5010") Then ' 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 ' 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 If
' End Try ' End Try
@@ -883,7 +883,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -898,7 +898,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -972,7 +972,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -1000,7 +1000,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception 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 End Try
Return retorno Return retorno
End Function End Function
@@ -1113,13 +1113,13 @@ Public Class ClsNominas
Catch sqlex As SqlException Catch sqlex As SqlException
If sqlex.Message.Contains("Número: 50001x") Then 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 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 If
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -1282,7 +1282,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException 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 End Try
Return Retorno Return Retorno
@@ -1368,14 +1368,14 @@ Public Class ClsNominas
If Ex1.Message.Contains("Número: 2627;") Then 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 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 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 End If
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -1416,14 +1416,14 @@ Public Class ClsNominas
Retorno = True Retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then 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 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 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 End If
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -1442,12 +1442,12 @@ Public Class ClsNominas
Retorno = True Retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then 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 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 End If
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
End Function End Function
@@ -1463,12 +1463,12 @@ Public Class ClsNominas
Retorno = True Retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 547;") Then 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 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 End If
Catch ex As Exception 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 End Try
Return Retorno Return Retorno
@@ -2376,7 +2376,7 @@ Public Class ClsNominas
End If End If
Retorno = True Retorno = True
Catch Ex1 As SqlException 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 End Try
Return Retorno Return Retorno
End Function End Function
@@ -2417,10 +2417,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2439,10 +2439,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2543,10 +2543,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2608,10 +2608,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2637,10 +2637,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2661,10 +2661,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2682,10 +2682,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2750,10 +2750,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2787,7 +2787,7 @@ Public Class ClsNominas
End If End If
Catch ex As Exception Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2821,7 +2821,7 @@ Public Class ClsNominas
End If End If
Catch ex As Exception Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -2844,7 +2844,7 @@ Public Class ClsNominas
End If End If
Catch ex As Exception Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3037,7 +3037,7 @@ Public Class ClsNominas
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False retorno = False
If (sqEx.Message.Contains("FK_Conta_CuentasAsignaciones_Conta_ConceptosContables")) Then 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 Else
OnError("Ocurrió un error al actualizar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al actualizar los movimientos permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If
@@ -3083,10 +3083,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3106,10 +3106,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3129,10 +3129,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3150,10 +3150,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3174,10 +3174,10 @@ Public Class ClsNominas
retorno = True retorno = True
Catch sqEx As SqlException Catch sqEx As SqlException
retorno = False 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 Catch ex As Exception
retorno = False 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 End Try
Return retorno Return retorno
End Function End Function
@@ -3289,7 +3289,7 @@ Public Class ClsNominas
addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
addParameters("@Estatus", SqlDbType.Int, Estatus) addParameters("@Estatus", SqlDbType.Int, Estatus)
addParameters("@Top", SqlDbType.Int, Top) 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 Return retorno
End Function 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 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("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud) 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 Return retorno
End Function End Function
@@ -3395,7 +3395,7 @@ Public Class ClsNominas
addParameters("@Estatus", SqlDbType.Int, estatus) addParameters("@Estatus", SqlDbType.Int, estatus)
addParameters("@Observaciones", SqlDbType.VarChar, observaciones) addParameters("@Observaciones", SqlDbType.VarChar, observaciones)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) 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 Return retorno
End Function End Function
Public Function SolicitudesRemove(CveSolicitud As Int32, CveEmpresa As Integer) As Boolean 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) DataAdapter("PA_Gral_SAT_SolicitudesRemove", CommandType.StoredProcedure)
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud) addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) 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 Return retorno
End Function End Function
#End Region #End Region
@@ -3422,7 +3422,7 @@ Public Class ClsNominas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch ex As Exception 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 End Try
Return retorno Return retorno
End Function End Function

98
Compras/PopUpVerFactura.aspx.vb
View File

@@ -189,49 +189,49 @@ Partial Class PopUpVerFactura
'OPCIONES 'OPCIONES
If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
SeleccionaReporte(UrlParametros) SeleccionaReporte(UrlParametros)
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 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 End Sub
@@ -287,14 +287,14 @@ Partial Class PopUpVerFactura
End If End If
lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt}) lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt})
End If End If
End Using End Using
'endimg 'endimg
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.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 End Sub
Private Sub rfctxtvalidar() Private Sub rfctxtvalidar()
Dim numeroPeriodo As Integer = 0 Dim numeroPeriodo As Integer = 0
@@ -468,7 +468,7 @@ Partial Class PopUpVerFactura
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
rutardlc = "GPS/EmbarqueManifiesto2.rdlc" rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
End If End If
ImprimirPDF(rutardlc, lrds, params, "Manifesto", Content_Disposition:="Inline") ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
End Sub End Sub
Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer) Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
@@ -622,7 +622,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.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 End Sub
Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer) Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
'ResultadoMail = 3 'ResultadoMail = 3
End If End If
ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="Inline") ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
End Sub End Sub
@@ -856,7 +856,7 @@ Partial Class PopUpVerFactura
'endimg 'endimg
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.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 End Sub
@@ -990,7 +990,7 @@ Partial Class PopUpVerFactura
'If CvetypeImpresion = 2 Then 'If CvetypeImpresion = 2 Then
' ruta = "GPS/PalletEtiqueta_2.rdlc" ' ruta = "GPS/PalletEtiqueta_2.rdlc"
'End If 'End If
ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline") ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
End Sub End Sub
Private Sub imprimirpallet(cvePallet As Integer) Private Sub imprimirpallet(cvePallet As Integer)
@@ -1088,7 +1088,7 @@ Partial Class PopUpVerFactura
'If CvetypeImpresion = 2 Then 'If CvetypeImpresion = 2 Then
' ruta = "GPS/PalletEtiqueta_2.rdlc" ' ruta = "GPS/PalletEtiqueta_2.rdlc"
'End If 'End If
ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline") ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
End Sub End Sub
#Region "U S U A R I O - T O K E N" #Region "U S U A R I O - T O K E N"