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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-12-17 20:41:28 -07:00
parent a614b9832a f3c85e1dc9
commit 5744bb6fa0
29 changed files with 712 additions and 330 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -1,6 +1,7 @@
## Ignore Visual Studio temporary files, build results, and ## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons. ## files generated by popular Visual Studio add-ons.
web.config web.config
WebOldFail.config
*.txt *.txt
Log.txt Log.txt
LogMail.txt LogMail.txt

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

15
App_Code/ClsPaginas.vb
View File

@@ -6411,7 +6411,8 @@ Public Class ClsPaginas
Else Else
Response.ContentType = mimeType Response.ContentType = mimeType
End If End If
Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) Response.ClearHeaders()
Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
Response.BinaryWrite(bytes) ' create the file Response.BinaryWrite(bytes) ' create the file
Response.Flush() ' send it to the client to download Response.Flush() ' send it to the client to download
bytes = Nothing bytes = Nothing
@@ -9815,13 +9816,13 @@ Public Class ClsPaginas
Dim Ret As New ConceptosRetenciones Dim Ret As New ConceptosRetenciones
If Pago.CveMonedaPago > 1 Then If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera 'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 342, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
Else Else
'Agregamos Nacional 'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If End If
@@ -9836,13 +9837,13 @@ Public Class ClsPaginas
If Pago.CveMonedaPago > 1 Then If Pago.CveMonedaPago > 1 Then
'Agregamos la Extranjera 'Agregamos la Extranjera
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
Else Else
'Agregamos Nacional 'Agregamos Nacional
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
End If End If
End If End If

2
CRM/CatTipoProceso.aspx
View File

@@ -74,7 +74,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Encuesta" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Datos Técnicos" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEncuesta" runat="server" AlternateText="Usuarios Asignados" CausesValidation="False" <asp:LinkButton ID="LnkEncuesta" runat="server" AlternateText="Usuarios Asignados" CausesValidation="False"
Width="24.1px" Width="24.1px"

2
Compras/Compras.aspx
View File

@@ -4837,7 +4837,7 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound" <asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound"
DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD"> DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>

169
Compras/Compras.aspx.vb
View File

@@ -10,6 +10,7 @@ Imports System.Threading.Tasks
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports Extensiones Imports Extensiones
Imports System.Activities.Expressions Imports System.Activities.Expressions
Imports iText.Barcodes.Dmcode
Partial Class Compras_Compras Partial Class Compras_Compras
Inherits ClsPaginas Inherits ClsPaginas
@@ -1316,18 +1317,14 @@ Partial Class Compras_Compras
'CARGA PERSONAL 'CARGA PERSONAL
Dim ObjPersonal As New ClsRH 'Dim ObjPersonal As New ClsRH
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) 'ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
DdlPersonal.DataSource = ObjPersonal.DtResultados Dim dtpersonal As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlPersonal.DataSource = dtpersonal 'ObjPersonal.DtResultados
If UsuarioActual.CveEmpresa = 119 Then DdlPersonalReembolso.DataSource = dtpersonal.FiltraParametros("CveEstatusPersonal = 1")
DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados
Else
DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
End If
ObjPersonal.Dispose() 'ObjPersonal.Dispose()
DdlPersonal.DataBind() DdlPersonal.DataBind()
DdlPersonalReembolso.DataBind() DdlPersonalReembolso.DataBind()
@@ -7138,11 +7135,15 @@ Partial Class Compras_Compras
GuardoConcepto18 = True GuardoConcepto18 = True
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119, 158) Then If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119, 158) Then
'PROVISION 'PROVISION de NC
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.selectedvalue, ddlmoneda.selectedvalue.toentero, False)
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.selectedvalue, ddlmoneda.selectedvalue.toentero, True)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit Select Exit Select
End If End If
@@ -7158,61 +7159,80 @@ Partial Class Compras_Compras
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal ' RMF. falta aplicar si está generada su TC de la última fluctuación Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal ' RMF. falta aplicar si está generada su TC de la última fluctuación
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2)
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
Dim CveCon As Integer = 272 CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False)
If TipoCambioFactura > 1 Then CveCon = 304
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
Dim CveConceptoContableComplementaria As Integer = 206 CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
If Gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
IdCtaContable = CtaProveedorComplementaria Dim Pago As New CompraPago
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then Pago.ImportePago = importeMovimientoNC
ErrorPrepoliza = True Pago.CveMonedaPago = CveMonedaNC
Exit For Pago.CveCompraAmortizacion = CveCompra
End If Pago.CveConceptoPago = 272
Else Pago.Referencia = CompraActual.SerieFolio
ErrorPrepoliza = True Pago.TCPago = TipoCambioFactura
Exit For Pago.AplicaAcreditable = False
End If Pago.TipoPago = "NC"
importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
IdCtaContable = CtaProveedorExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
IdCtaContable = CtaProveedorComplementaria
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
End If
Else
ErrorPrepoliza = True
Exit For
Exit For
End If
' FLUCTUACION CAMBIARIA ''CveCon = 272
If tipoCambioActual <> TipoCambioFactura AndAlso Not ChkNCInvNC.Checked Then ' que no se esté afectando mercancía en tránsto '''PAGO A FACTURA POR NC
importeMovimiento = (importeMovimientoNC * TipoCambioFactura) - (importeMovimientoNC * tipoCambioActual) 'If TipoCambioFactura > 1 Then CveCon = 304
'If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
If importeMovimiento > 0 Then ' Dim CveConceptoContableComplementaria As Integer = 206
ConceptoContable = 64 : TipoMovimiento = True ' If Gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
ElseIf importeMovimiento < 0 Then
ConceptoContable = 65 : TipoMovimiento = False
IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
End If
importeMovimiento = importeMovimiento.Abs.RoundSQL() ' IdCtaContable = CtaProveedorComplementaria
importeMN = importeMovimiento ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, Contabilizable:=SeContabiliza, CveCompraAmortizacion:=CveCompra) Then
If importeMovimiento <> 0 Then ' ErrorPrepoliza = True
' Exit For
' End If
'Else
' ErrorPrepoliza = True
' Exit For
'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then 'importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
ErrorPrepoliza = True 'IdCtaContable = CtaProveedorExtranjera
Exit For 'If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
End If ' IdCtaContable = CtaProveedorComplementaria
End If ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
End If ' ErrorPrepoliza = True
' Exit For
' End If
'Else
' ErrorPrepoliza = True
' Exit For
' Exit For
'End If
'' FLUCTUACION CAMBIARIA
'If tipoCambioActual <> TipoCambioFactura AndAlso Not ChkNCInvNC.Checked Then ' que no se esté afectando mercancía en tránsto
' importeMovimiento = (importeMovimientoNC * TipoCambioFactura) - (importeMovimientoNC * tipoCambioActual)
' If importeMovimiento > 0 Then
' ConceptoContable = 64 : TipoMovimiento = True
' IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
' ElseIf importeMovimiento < 0 Then
' ConceptoContable = 65 : TipoMovimiento = False
' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
' End If
' importeMovimiento = importeMovimiento.Abs.RoundSQL()
' importeMN = importeMovimiento
' If importeMovimiento <> 0 Then
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
' ErrorPrepoliza = True
' Exit For
' End If
' End If
'End If
End If End If
Next Next
@@ -8258,7 +8278,7 @@ Partial Class Compras_Compras
For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows
Dim DttPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero) Dim DttPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero)
If DttPS.Rows.Count > 0 Then If DttPS IsNot Nothing AndAlso DttPS.Rows.Count > 0 Then
Dim DrPS As DataRow = DttPS.Rows(0) Dim DrPS As DataRow = DttPS.Rows(0)
dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString) dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString) dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
@@ -20467,6 +20487,35 @@ Partial Class Compras_Compras
End Sub End Sub
Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer
Dim Retorno As Integer = -1
If CveTipoConcepto = 1 Then ''PROVEEDOR
If EsComplementaria Then
Retorno = If(TipoDocto = "Fac", 201, 234)
Return Retorno
End If
If CveMoneda = 1 Then
Retorno = If(TipoDocto = "Fac", 5, 18)
Else
Retorno = If(TipoDocto = "Fac", 311, 341)
End If
Else ''ACREEDOR
If EsComplementaria Then
Retorno = If(TipoDocto = "Fac", -1, -1)
Return Retorno
End If
If CveMoneda = 1 Then
Retorno = If(TipoDocto = "Fac", 305, 323)
Else
Retorno = If(TipoDocto = "Fac", 306, 309)
End If
End If
Return Retorno
End Function
End Class End Class

29
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5,7 +5,6 @@ Imports System.Data
Imports System.IO Imports System.IO
Imports System.Xml Imports System.Xml
Imports Extensiones Imports Extensiones
Imports iText.Kernel.Pdf
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report Imports Stimulsoft.Report
Imports Stimulsoft.Report.Web Imports Stimulsoft.Report.Web
@@ -288,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
@@ -469,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)
@@ -623,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)
@@ -789,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
@@ -857,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
@@ -991,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)
@@ -1089,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"
@@ -6572,7 +6571,7 @@ Partial Class PopUpVerFactura
Dim PS As String = "" Dim PS As String = ""
Dim All As Byte() Dim All As Byte()
Using ms As New MemoryStream Using ms As New MemoryStream
Using pdfdoc As New PdfDocument(New PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
pdfdoc.InitializeOutlines() pdfdoc.InitializeOutlines()
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
If ObjInventarios.DtResultados IsNot Nothing Then If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6584,7 +6583,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Else Else
@@ -6593,7 +6592,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Next Next
@@ -6622,7 +6621,7 @@ Partial Class PopUpVerFactura
Dim All As Byte() Dim All As Byte()
Using ms As New MemoryStream Using ms As New MemoryStream
Using pdfdoc As New PdfDocument(New PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
pdfdoc.InitializeOutlines() pdfdoc.InitializeOutlines()
If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
If ObjInventarios.DtResultados IsNot Nothing Then If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6632,7 +6631,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Else Else
@@ -6641,7 +6640,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Next Next

12
Empresas/140/Formatos/Remision.rdlc
View File

@@ -2447,6 +2447,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="Logo"> <EmbeddedImage Name="Logo">

BIN
General/CONTRATO.doc
View File

Binary file not shown.

BIN
General/CONTRATOINVERNADERO.doc Normal file
View File

Binary file not shown.

2
General/RepIndicadorResumen.aspx
View File

@@ -612,7 +612,7 @@
//newData.sort(function (a, b) { //newData.sort(function (a, b) {
// return a[0] > b[0] ? 1 : -1; // return a[0] > b[0] ? 1 : -1;
//}); //});
console.log(JSON.stringify(newData)) //console.log(JSON.stringify(newData))
return newData; return newData;
} }

23
General/RepIndicadorResumen.aspx.vb
View File

@@ -37,6 +37,13 @@ Partial Class General_RepIndicadorResumen
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
CargaDatos() CargaDatos()
End Sub End Sub
Protected Sub LnkExportarPDF_Click(sender As Object, e As EventArgs) Handles LnkExportarPDF.Click
UPPMov.GenerarReportePDF("Reporte Resumen de Indicadores", TxtFechaI.Text, TxtFechaF.Text)
End Sub
'No quitar porque no funciona el exporta PDF
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
' Verifies that the control is rendered
End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
@@ -51,7 +58,7 @@ Partial Class General_RepIndicadorResumen
If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
'Compras Productores 'Compras Productores
GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial DESC") GvCompProductores.DataSource = ObjCitrus.DTSetResultados.Tables(0).FiltraParametros("", "RazonSocial ASC")
'CxP Productores 'CxP Productores
GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(1).FiltraParametros("", "CveMoneda,Saldo DESC") GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(1).FiltraParametros("", "CveMoneda,Saldo DESC")
'CxP NO productores 'CxP NO productores
@@ -218,7 +225,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_vxp = top_vxp.Union(group_resto_vxp) Dim query_vxp = top_vxp.Union(group_resto_vxp).OrderByDescending(Function(x) x.Valor)
'Dim query_vxp = top_vxp.Concat(From e In resto_vxp Group e By e.Texto Into gpo = Group) 'Dim query_vxp = top_vxp.Concat(From e In resto_vxp Group e By e.Texto Into gpo = Group)
'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group 'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group
'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Unidad}).ToList() 'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Unidad}).ToList()
@@ -248,7 +255,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores) Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores).OrderByDescending(Function(x) x.Valor)
'Compras TipoProveedor=1 Acreedores (Gastos) 'Compras TipoProveedor=1 Acreedores (Gastos)
DtCompAcreed.Reset() DtCompAcreed.Reset()
@@ -277,7 +284,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed) Dim query_comp_acreed = top_comp_acreed.Union(group_resto_comp_acreed).OrderByDescending(Function(x) x.Valor)
'Cuentas por cobrar x Cliente -- Saldo 'Cuentas por cobrar x Cliente -- Saldo
DtCxC.Reset() DtCxC.Reset()
@@ -306,7 +313,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_cxc = top_cxc.Union(group_resto_cxc) Dim query_cxc = top_cxc.Union(group_resto_cxc) '.OrderByDescending(Function(x) x.Valor)
'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CxC.Rows)) 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CxC.Rows))
'Cuentas por cobrar x Cliente -- Recuperado 'Cuentas por cobrar x Cliente -- Recuperado
@@ -336,7 +343,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_cxcr = top_cxcr.Union(group_resto_cxcr) Dim query_cxcr = top_cxcr.Union(group_resto_cxcr) '.OrderByDescending(Function(x) x.Valor)
'CxP proveedores 'CxP proveedores
DtCxP192.Reset() DtCxP192.Reset()
@@ -365,7 +372,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192) Dim query_cxp192 = top_cxp192.Union(group_resto_cxp192).OrderByDescending(Function(x) x.Valor)
'CxP NO proveedor 'CxP NO proveedor
DtCxP.Reset() DtCxP.Reset()
@@ -394,7 +401,7 @@ Partial Class General_RepIndicadorResumen
.Valor = Math.Round(g.Sum(Function(x) x.Valor), 2), .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
.Unidad = "MXN" .Unidad = "MXN"
}) })
Dim query_cxp = top_cxp.Union(group_resto_cxp) Dim query_cxp = top_cxp.Union(group_resto_cxp).OrderByDescending(Function(x) x.Valor)
'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON 'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CompProductores = query_comp_productores, .CompAcreed = query_comp_acreed, .CxC = query_cxc, .CxCR = query_cxcr, .CxP192 = query_cxp192, .CxP = query_cxp}) Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CompProductores = query_comp_productores, .CompAcreed = query_comp_acreed, .CxC = query_cxc, .CxCR = query_cxcr, .CxP192 = query_cxp192, .CxP = query_cxp})

8
Inventarios/EntregaAlmacen.aspx
View File

@@ -48,6 +48,14 @@
Entrega Almacén (Surtir Mercancia) Entrega Almacén (Surtir Mercancia)
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<li>
<asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li> <li>

79
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -268,7 +268,30 @@ Partial Class Inventarios_EntregaAlmacen
ViewState("FormaPaqueteria") = value ViewState("FormaPaqueteria") = value
End Set End Set
End Property End Property
'Private Property IndexSeccionAlmacen As Integer
' Get
' Return CType(ViewState("IndexSeccionAlmacen"), Integer)
' End Get
' Set(value As Integer)
' ViewState("IndexSeccionAlmacen") = value
' End Set
'End Property
Private Property ArchivoBitacora As String
Get
Return CType(ViewState("ArchivoBitacora"), String)
End Get
Set(value As String)
ViewState("ArchivoBitacora") = value
End Set
End Property
Private Property ArchivoBitacoraDetalle As String
Get
Return CType(ViewState("ArchivoBitacoraDetalle"), String)
End Get
Set(value As String)
ViewState("ArchivoBitacoraDetalle") = value
End Set
End Property
#End Region #End Region
@@ -318,7 +341,10 @@ Partial Class Inventarios_EntregaAlmacen
DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAlmacen.SelectedValue = "-1" DdlAlmacen.SelectedValue = "-1"
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) If UsuarioActual.CveAlmacen > 0 Then
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
RecargaporAlmacenes()
End If
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind() DdlAlmacenTransitorio.DataBind()
@@ -551,6 +577,15 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
If ArchivoBitacora <> "" Then
Dim Archivo = New System.IO.FileInfo(ArchivoBitacora)
If Archivo.Exists() Then
HplCargaBitacora.Visible = True
uppCargaBitacora.Update()
End If
End If
DtDatos = ObjInventario.DtResultados DtDatos = ObjInventario.DtResultados
If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer)) If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer))
@@ -1280,6 +1315,7 @@ Partial Class Inventarios_EntregaAlmacen
Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString) Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString)
DtDatosDetalle.Rows.Add(Row) DtDatosDetalle.Rows.Add(Row)
ActualizaBitacora()
RegistraScript("playsonidito('beep-07.wav')", "Sonidito") RegistraScript("playsonidito('beep-07.wav')", "Sonidito")
If Tipo = 1 Then If Tipo = 1 Then
@@ -1307,11 +1343,44 @@ Partial Class Inventarios_EntregaAlmacen
End Try End Try
DtDatosDetalle.AcceptChanges() DtDatosDetalle.AcceptChanges()
ActualizaBitacora()
CargaSerie() CargaSerie()
End Sub End Sub
#End Region #End Region
#Region "Bitacora"
Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
If Not Eliminar Then
DtDatos.TableName = "DtDatos"
DtDatosDetalle.TableName = "DtDatosDetalle"
DtDatos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
DtDatosDetalle.WriteXml(ArchivoBitacoraDetalle, XmlWriteMode.WriteSchema)
Else
File.Delete(ArchivoBitacora)
End If
End Sub
Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
If IO.File.Exists(ArchivoBitacora) Then
'DtInv.Clear()
'DtDatosDetalle.Clear()
DtDatos.ReadXml(ArchivoBitacora)
If IO.File.Exists(ArchivoBitacoraDetalle) Then
Dim dtt As New DataTable
dtt.ReadXml(ArchivoBitacoraDetalle)
DtDatosDetalle = dtt
Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
End If
CargaGvDatos()
Else
Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
End If
End Sub
#End Region
#Region " AGREGA CON LOTE BATCH " #Region " AGREGA CON LOTE BATCH "
Private Sub CreaDtDetalleLote() Private Sub CreaDtDetalleLote()
@@ -3894,7 +3963,11 @@ Partial Class Inventarios_EntregaAlmacen
RegistraScript("$('#ModalVerSugerencias').modal('hide')") RegistraScript("$('#ModalVerSugerencias').modal('hide')")
End Sub End Sub
Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged
RecargaporAlmacenes()
End Sub
Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero) CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
End If End If

10
Inventarios/RecepcionAlmacen.aspx
View File

@@ -18,11 +18,13 @@
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink> <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="true" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Cargar Excel</asp:HyperLink>
</li> </li>
<asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline"><ContentTemplate> <asp:UpdatePanel ID="uppCargaBitacora" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<li> <ContentTemplate>
<asp:Linkbutton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:Linkbutton> <li>
<asp:LinkButton ID="HplCargaBitacora" runat="server" Visible="false" OnClick="HplCargaBitacora_Click" Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:LinkButton>
</li> </li>
</ContentTemplate></asp:UpdatePanel> </ContentTemplate>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">

34
Nomina/Aguinaldo.aspx
View File

@@ -1,4 +1,5 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %> <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %>
<%@ Import Namespace="Extensiones" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
@@ -135,11 +136,12 @@
</div> </div>
<asp:GridView ID="GVCalcularAguinaldo" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False" <asp:GridView ID="GVCalcularAguinaldo" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False"
DataKeyNames="Nombre,CvePersonal,CveSubProyecto,CveNomina,CveMetodoPago" OnRowDataBound="GVCalcularAguinaldo_RowDataBound"> DataKeyNames="Nombre,Codigo,CvePersonal,CveSubProyecto,CveNomina,CveMetodoPago" OnRowDataBound="GVCalcularAguinaldo_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderText="Nombre "> <asp:TemplateField HeaderText="Nombre ">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblnombreCompleto" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label> <asp:HyperLink ID="HypnombreCompleto" Visible='<%# Eval("CvePersonal").ToString().ToEntero() > 0%>' runat="server" Text='<%# Eval("Nombre")%>' NavigateUrl='<%# Eval("CvePersonal","/RH/Personal.aspx?CvePersonal={0}")%>'> </asp:HyperLink>
<asp:Label ID="lblnombreCompleto" Visible='<%# (Eval("CvePersonal").ToString().ToEntero() <= 0)%>' runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField > <asp:TemplateField >
@@ -161,6 +163,16 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dSala" /> <ItemStyle HorizontalAlign="Right" CssClass="dSala" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Salario<br />Aguinaldo
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="lblSalarioAguinaldo" runat="server" Text='<%# Eval("SalarioAguinaldo", "${0:N2}")%>'> </asp:Label>
<asp:TextBox ID="TxtSalarioAguinaldo" runat="server" Text='<%# Eval("SalarioAguinaldo", "${0:N2}")%>'> </asp:TextBox>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dSala" />
</asp:TemplateField>
<asp:TemplateField > <asp:TemplateField >
<HeaderTemplate> <HeaderTemplate>
Días <br />laborados Días <br />laborados
@@ -170,6 +182,24 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" /> <ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField >
<HeaderTemplate>
Días <br />Faltados
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="TxtdiasFaltados" runat="server" Text='<%# Eval("DiasFaltados", "{0:N0}")%>'> </asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField>
<asp:TemplateField >
<HeaderTemplate>
Días <br />Incapacidad
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="TxtdiasIncapacidad" runat="server" Text='<%# Eval("DiasIncapacidad", "{0:N0}")%>'> </asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" CssClass="dlab" />
</asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Días <br />base Días <br />base

106
Nomina/Aguinaldo.aspx.cs
View File

@@ -333,10 +333,15 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{ {
e.Row.FCTextBox("TxtsueldoDiario").Visible = (CvePersonal > 0); e.Row.FCTextBox("TxtsueldoDiario").Visible = (CvePersonal > 0);
e.Row.FCLabel("lblsueldoDiario").Visible = false; e.Row.FCLabel("lblsueldoDiario").Visible = false;
}else e.Row.FCTextBox("TxtSalarioAguinaldo").Visible = (CvePersonal > 0);
e.Row.FCLabel("lblSalarioAguinaldo").Visible = false;
}
else
{ {
e.Row.FCTextBox("TxtsueldoDiario").Visible = false; e.Row.FCTextBox("TxtsueldoDiario").Visible = false;
e.Row.FCLabel("lblsueldoDiario").Visible = true; e.Row.FCLabel("lblsueldoDiario").Visible = true;
e.Row.FCTextBox("TxtSalarioAguinaldo").Visible = false;
e.Row.FCLabel("lblSalarioAguinaldo").Visible = true;
} }
} }
} }
@@ -345,6 +350,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{ {
decimal uma = LtlUma.Text.ToDecimal(); decimal uma = LtlUma.Text.ToDecimal();
decimal aguiexentogral = uma * 30; decimal aguiexentogral = uma * 30;
decimal salarioAguinaldo = 0;
decimal salariodiario = 0; decimal salariodiario = 0;
decimal diasanio = 365; decimal diasanio = 365;
decimal diaslaborados = 0; decimal diaslaborados = 0;
@@ -354,7 +360,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
decimal aguinaldo = 0; decimal aguinaldo = 0;
decimal aguinaldoexcento = 0; decimal aguinaldoexcento = 0;
decimal aguinaldogravado = 0; decimal aguinaldogravado = 0;
decimal diasmes = 30.5m; decimal diasmes = 30.4m;
decimal FraccionI = 0; decimal FraccionI = 0;
decimal FraccionII_1 = 0; decimal FraccionII_1 = 0;
decimal FraccionII_2 = 0; decimal FraccionII_2 = 0;
@@ -392,6 +398,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{ {
CveSubProyecto = gvrow.DataKey("CveSubProyecto").ToEntero(); CveSubProyecto = gvrow.DataKey("CveSubProyecto").ToEntero();
CvePersonal = gvrow.DataKey("CvePersonal").ToEntero(); CvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
salarioAguinaldo = gvrow.FCTextBox("TxtSalarioAguinaldo").Text.ToDecimal();
salariodiario = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal(); salariodiario = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal();
diaslaborados = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal(); diaslaborados = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal();
diasaguinaldo = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal(); diasaguinaldo = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal();
@@ -406,7 +413,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
diasaguipago = (diaslaborados / diasanio) * diasaguinaldo; diasaguipago = (diaslaborados / diasanio) * diasaguinaldo;
salariomensual = salariodiario * 30; salariomensual = salariodiario * 30;
aguinaldo = diasaguipago * salariodiario; aguinaldo = diasaguipago * salarioAguinaldo;
/*if (gvrow.FCTextBox("TxtAguinaldoExento").Text.Length > 0) /*if (gvrow.FCTextBox("TxtAguinaldoExento").Text.Length > 0)
{ {
aguinaldoexcento = (aguinaldoExcentoreg > aguinaldo ? aguinaldo : aguinaldoExcentoreg); aguinaldoexcento = (aguinaldoExcentoreg > aguinaldo ? aguinaldo : aguinaldoExcentoreg);
@@ -542,25 +549,30 @@ public partial class Nomina_Aguinaldo : ClsPaginas
fila = fila + 1; fila = fila + 1;
int filatitulo = fila; int filatitulo = fila;
libro.SheetView.Freeze(filatitulo, 1); libro.SheetView.Freeze(filatitulo, 1);
libro.Cell(fila, 1).Value = "Empleado"; int cxc = 1;
libro.Cell(fila, 2).Value = "Fecha ingreso";//lblfechaingreso libro.Cell(fila, cxc++).Value = "Código";
libro.Cell(fila, 3).Value = "Salario diario"; libro.Cell(fila, cxc++).Value = "Empleado";
libro.Cell(fila, 4).Value = "Días laborados"; libro.Cell(fila, cxc++).Value = "Fecha ingreso";//lblfechaingreso
libro.Cell(fila, 5).Value = "Días base"; libro.Cell(fila, cxc++).Value = "Salario diario";
libro.Cell(fila, 6).Value = "Días aguinaldo";//lbldiasAguinaldoprop libro.Cell(fila, cxc++).Value = "Salario Aguinaldo";
libro.Cell(fila, 7).Value = "Aguinaldo completo"; libro.Cell(fila, cxc++).Value = "Días laborados";
libro.Cell(fila, 8).Value = "Aguinaldo gravado"; libro.Cell(fila, cxc++).Value = "Días Faltados";//lbldiasAguinaldoprop
libro.Cell(fila, 9).Value = "Aguinaldo exento"; libro.Cell(fila, cxc++).Value = "Días Incapacidad";//lbldiasAguinaldoprop
libro.Cell(fila, 10).Value = "Fraccion I"; //lblFraccion1 libro.Cell(fila, cxc++).Value = "Días base";
libro.Cell(fila, 11).Value = "Fraccion II"; //lblFraccion2 libro.Cell(fila, cxc++).Value = "Días aguinaldo";//lbldiasAguinaldoprop
libro.Cell(fila, 12).Value = "Fraccion III"; //lblFraccion3 libro.Cell(fila, cxc++).Value = "Aguinaldo completo";
libro.Cell(fila, 13).Value = "Fraccion IV"; //lblFraccion4 libro.Cell(fila, cxc++).Value = "Aguinaldo gravado";
libro.Cell(fila, 14).Value = "I.S.R."; libro.Cell(fila, cxc++).Value = "Aguinaldo exento";
libro.Cell(fila, 15).Value = "Descuento"; //TxtDescuento libro.Cell(fila, cxc++).Value = "Fraccion I"; //lblFraccion1
libro.Cell(fila, 16).Value = "Aguinaldo por pagar"; libro.Cell(fila, cxc++).Value = "Fraccion II"; //lblFraccion2
libro.Cell(fila, cxc++).Value = "Fraccion III"; //lblFraccion3
libro.Cell(fila, cxc++).Value = "Fraccion IV"; //lblFraccion4
libro.Cell(fila, cxc++).Value = "I.S.R.";
libro.Cell(fila, cxc++).Value = "Descuento"; //TxtDescuento
libro.Cell(fila, cxc++).Value = "Aguinaldo por pagar";
libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; libro.Range(fila, 1, fila, 20).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); libro.Range(fila, 1, fila, 20).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows) foreach (GridViewRow gvrow in GVCalcularAguinaldo.Rows)
{ {
fila = fila + 1; fila = fila + 1;
@@ -570,42 +582,46 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{ {
if (gvrow.DataKey("CveSubProyecto").ToEntero() > 0) if (gvrow.DataKey("CveSubProyecto").ToEntero() > 0)
{ {
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 217, 217)); libro.Range(fila, 1, fila, 20).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 217, 217));
} }
else else
{ {
libro.Range(fila, 1, fila, 16).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; libro.Range(fila, 1, fila, 20).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Range(fila, 1, fila, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 128, 128)); libro.Range(fila, 1, fila, 20).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 128, 128));
} }
} }
cxc = 1;
libro.Cell(fila, cxc++).Value = string.Format("'{0}",gvrow.DataKey("Codigo"));
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblnombreCompleto").Text;
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblfechaingreso").Text;
libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtSalarioAguinaldo").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasFaltados").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasIncapacidad").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 1).Value = gvrow.FCLabel("lblnombreCompleto").Text; libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion1").Text.ToDecimal();
libro.Cell(fila, 2).Value = gvrow.FCLabel("lblfechaingreso").Text; libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion2").Text.ToDecimal();
libro.Cell(fila, 3).Value = gvrow.FCTextBox("TxtsueldoDiario").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion3").Text.ToDecimal();
libro.Cell(fila, 4).Value = gvrow.FCLabel("TxtdiasLaborados").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblFraccion4").Text.ToDecimal();
libro.Cell(fila, 5).Value = gvrow.FCLabel("TxtdiasAguinaldo").Text.ToDecimal();
libro.Cell(fila, 6).Value = gvrow.FCLabel("lbldiasAguinaldoprop").Text.ToDecimal();
libro.Cell(fila, 7).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal();
libro.Cell(fila, 8).Value = gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 9).Value = gvrow.FCLabel("lblsueldoAguinaldoCompleto").Text.ToDecimal() - gvrow.FCLabel("lblAguinaldoGravado").Text.ToDecimal();
libro.Cell(fila, 10).Value = gvrow.FCLabel("lblFraccion1").Text.ToDecimal();
libro.Cell(fila, 11).Value = gvrow.FCLabel("lblFraccion2").Text.ToDecimal();
libro.Cell(fila, 12).Value = gvrow.FCLabel("lblFraccion3").Text.ToDecimal();
libro.Cell(fila, 13).Value = gvrow.FCLabel("lblFraccion4").Text.ToDecimal();
libro.Cell(fila, 14).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblISRAguinaldo").Text.ToDecimal();
libro.Cell(fila, 15).Value = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCTextBox("TxtDescuento").Text.ToDecimal();
libro.Cell(fila, 16).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal(); libro.Cell(fila, cxc++).Value = gvrow.FCLabel("lblAguinaldo").Text.ToDecimal();
} }
libro.Range(filatitulo, 1, fila, 16).Columns(); libro.Range(filatitulo, 1, fila, 18).Columns();
libro.Range(filatitulo + 1, 3, fila + 1, 16).DataType = ClosedXML.Excel.XLDataType.Number; libro.Range(filatitulo + 1, 4, fila + 1, 20).DataType = ClosedXML.Excel.XLDataType.Number;
libro.Range(filatitulo + 1, 3, fila + 1, 3).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.Range(filatitulo + 1, 4, fila + 1,5).Style.NumberFormat.Format = "$###,###,###,##0.00";
libro.Range(filatitulo + 1, 7, fila + 1, 16).Style.NumberFormat.Format = "$###,###,###,##0.00"; libro.Range(filatitulo + 1, 11, fila + 1, 20).Style.NumberFormat.Format = "$###,###,###,##0.00";
libro.ColumnsUsed().AdjustToContents(); libro.ColumnsUsed().AdjustToContents();
System.IO.Stream fs = new System.IO.MemoryStream(); System.IO.Stream fs = new System.IO.MemoryStream();

202
Nomina/Finiquito.aspx
View File

@@ -78,7 +78,8 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li><asp:HyperLink ID="Hypgenerarotro" NavigateUrl="/Nomina/Finiquito.aspx?CvePersonal=-1" runat="server">Generar otro finiquito</asp:HyperLink></li> <li>
<asp:HyperLink ID="Hypgenerarotro" NavigateUrl="/Nomina/Finiquito.aspx?CvePersonal=-1" runat="server">Generar otro finiquito</asp:HyperLink></li>
<li> <li>
<asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class='material-icons'>done_all</i>Autorizar</asp:LinkButton> <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class='material-icons'>done_all</i>Autorizar</asp:LinkButton>
</li> </li>
@@ -285,6 +286,11 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtObservaciones" runat="server" Text="" TextMode="MultiLine" Rows="3" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:Label runat="server" Text="Observaciones " AssociatedControlID="TxtObservaciones"></asp:Label>
</div>
<%--<div class="form-group form-md-line-input input-iconright"> <%--<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="form-control select2me" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="form-control select2me" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Ordinario" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Ordinario" Value="-1"></asp:ListItem>
@@ -498,7 +504,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalEmpleados" class="modal ADS fade " role="dialog" > <div id="ModalEmpleados" class="modal ADS fade " role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEmpleados" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEmpleados" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -529,7 +535,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog" > <div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -539,105 +545,105 @@
<h4 class="modal-title">Salario Finiquito</h4> <h4 class="modal-title">Salario Finiquito</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Tipo de salario Tipo de salario
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal> <asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Días ultimo mes Días ultimo mes
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFDias" runat="server"></asp:Literal> <asp:Literal ID="LtlSFDias" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Percepciones ultimo mes Percepciones ultimo mes
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal> <asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
Salario Variable Salario Variable
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFVar" runat="server"></asp:Literal> <asp:Literal ID="LtlSFVar" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;"> <div class="col-md-4" style="font-weight: bold; min-height: 30px;">
SDI SDI
</div> </div>
<div class="col-md-8"> <div class="col-md-8">
<asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal> <asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12 text-center"> <div class="col-md-12 text-center">
Salario Finiquito<br /> Salario Finiquito<br />
<asp:Literal ID="LtlSF" runat="server"></asp:Literal> <asp:Literal ID="LtlSF" runat="server"></asp:Literal>
</div> </div>
</div> </div>
<div class="portlet light xspadding bordered" id="pnlFiniquitosalario"> <div class="portlet light xspadding bordered" id="pnlFiniquitosalario">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption "> <div class="caption ">
<i class="fa fa-bookmark font-yellow-gold"></i> <i class="fa fa-bookmark font-yellow-gold"></i>
<span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span> <span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a> <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%> <%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%>
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body "> <div class="portlet-body ">
<asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF" <asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF"
Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true" > Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true">
<Columns> <Columns>
<asp:TemplateField HeaderText="Periodo"> <asp:TemplateField HeaderText="Periodo">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space:nowrap "></asp:Label> <asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" /> <ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Código"> <asp:TemplateField HeaderText="Código">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space:nowrap "></asp:Label> <asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" /> <ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Concepto"> <asp:TemplateField HeaderText="Concepto">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space:nowrap"></asp:Label> <asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" /> <ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space:nowrap"></asp:Label> <asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space: nowrap"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" Width="13%" /> <ItemStyle HorizontalAlign="Right" Width="13%" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<HeaderStyle CssClass="SearchADHeader" /> <HeaderStyle CssClass="SearchADHeader" />
</asp:GridView> </asp:GridView>
</div> </div>
</div> </div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">

5
Nomina/Finiquito.aspx.cs
View File

@@ -152,6 +152,7 @@ public partial class Nomina_Finiquito : ClsPaginas
CvePersonalAltas = da["CvePersonalAltas"].ToString().ToEntero(); CvePersonalAltas = da["CvePersonalAltas"].ToString().ToEntero();
LblFechaAlta.Text = string.Format("{0:dd/MM/yyyy}", da["FechaInicio"]); LblFechaAlta.Text = string.Format("{0:dd/MM/yyyy}", da["FechaInicio"]);
FechaInicio = LblFechaAlta.Text.ToDateTime(); FechaInicio = LblFechaAlta.Text.ToDateTime();
TxtObservaciones.Text = da["Observaciones"].ToString();
TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]); TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]);
{ {
if (da["CveMotivoBaja"].ToString() == "") if (da["CveMotivoBaja"].ToString() == "")
@@ -168,7 +169,7 @@ public partial class Nomina_Finiquito : ClsPaginas
} }
} }
DdlTipoPeriodo.SelectedValueExist(da["CveTipoPeriodo"]); DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString()=="6"?"-2":"-1"));
DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]);
TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}";
ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE");
@@ -1086,7 +1087,7 @@ public partial class Nomina_Finiquito : ClsPaginas
using (ClsRH ObjPersonal = new ClsRH()) using (ClsRH ObjPersonal = new ClsRH())
using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL()))
{ {
if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
{ {
DataRow da = ObjPersonal.DtResultados.Rows[0]; DataRow da = ObjPersonal.DtResultados.Rows[0];
CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();

5
Nomina/MovimientosSUA.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Movimientos SUA Movimientos IMSS
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
@@ -15,6 +15,9 @@
<li> <li>
<asp:LinkButton ID="LnkDownTxt" Visible="true" OnClick="LnkDownTxt_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo SUA</asp:LinkButton> <asp:LinkButton ID="LnkDownTxt" Visible="true" OnClick="LnkDownTxt_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo SUA</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LNKDownIDSE" Visible="true" OnClick="LNKDownIDSE_Click" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Archivo IDSE</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

5
Nomina/MovimientosSUA.aspx.cs
View File

@@ -97,4 +97,9 @@ public partial class Nomina_MovimientosSUA : ClsPaginas
} }
RegistraScript(string.Format("SaveCsv(\"Movt.txt\", '{0}');", movtos)); RegistraScript(string.Format("SaveCsv(\"Movt.txt\", '{0}');", movtos));
} }
protected void LNKDownIDSE_Click(object sender, EventArgs e)
{
}
} }

4
Nomina/RepFiniquito.aspx
View File

@@ -105,11 +105,11 @@
<asp:Label ID="lbltimbrado" runat="server" Text='<%# Eval("Timbrado")%>'> </asp:Label> <asp:Label ID="lbltimbrado" runat="server" Text='<%# Eval("Timbrado")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cve Pre Poliza Provision"> <%--<asp:TemplateField HeaderText="Cve Pre Poliza Provision">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcvePrePolizaProvision" runat="server" Text='<%# Eval("CvePrePolizaProvision")%>'> </asp:Label> <asp:Label ID="lblcvePrePolizaProvision" runat="server" Text='<%# Eval("CvePrePolizaProvision")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField HeaderText="Motivo Baja"> <asp:TemplateField HeaderText="Motivo Baja">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblmotivoBaja" runat="server" Text='<%# Eval("MotivoBaja")%>'> </asp:Label> <asp:Label ID="lblmotivoBaja" runat="server" Text='<%# Eval("MotivoBaja")%>'> </asp:Label>

2
RH/ActualizacionMasiva.aspx.vb
View File

@@ -1,6 +1,7 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports ClosedXML.Excel
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
@@ -391,6 +392,7 @@ Partial Class RH_ActualizacionMasiva
If continuar Then If continuar Then
Try Try
Dim workbook = New XLWorkbook(fileItem.FileUrl)
DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ") DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ")
Catch ex As Exception Catch ex As Exception
continuar = False continuar = False

29
RH/CatPersonal.aspx
View File

@@ -651,6 +651,24 @@
<asp:Literal ID="LtlTipodeSalario" runat="server" Text='<%# Eval("TipodeSalario") %>'></asp:Literal> <asp:Literal ID="LtlTipodeSalario" runat="server" Text='<%# Eval("TipodeSalario") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
<HeaderTemplate>Banco</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlBanco" runat="server" Text='<%# Eval("BancoNombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
<HeaderTemplate>Cuenta Bancaria</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCuentaBancaria" runat="server" Text='<%# Eval("CuentaBancaria") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
<HeaderTemplate>CLABE</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCLABE" runat="server" Text='<%# Eval("CLABE") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -832,6 +850,17 @@
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" /> <asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" />
</div> </div>
</div>
<div class="row">
<div class="col-md-3">
<asp:CheckBox ID="ChkBanco" runat="server" Text="Banco" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkCuentaBancaria" runat="server" Text="Cuenta Bancaria" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkCLABE" runat="server" Text="CLABE" />
</div>
</div> </div>
</div> </div>

4
RH/CatPersonal.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports CFDI_GenCodigo
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -605,6 +606,9 @@ Partial Class RH_CatPersonal
Else Else
GvDatos.Columns(45).Visible = False GvDatos.Columns(45).Visible = False
End If End If
GvDatos.Columns(46).Visible = ChkBanco.Checked
GvDatos.Columns(47).Visible = ChkCuentaBancaria.Checked
GvDatos.Columns(48).Visible = ChkClaBE.Checked
If (GvDatos.Rows.Count > 0) Then If (GvDatos.Rows.Count > 0) Then

11
RH/Personal.aspx
View File

@@ -188,6 +188,11 @@
<label for="<%= DdlPais.ClientID.ToString()%>">Nacionalidad: </label> <label for="<%= DdlPais.ClientID.ToString()%>">Nacionalidad: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCiudadOrigen" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtCiudadOrigen.ClientID.ToString()%>">Ciudad Nacimiento: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList> <asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label> <label for="<%= DdlEstados.ClientID.ToString()%>">Lugar de nacimiento: </label>
@@ -302,6 +307,12 @@
<label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label> <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstadosDomicilio" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEstadosDomicilio.ClientID.ToString()%>">Estado: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" style="display: none;"> <div class="form-group form-md-line-input input-iconright" style="display: none;">
<asp:TextBox CssClass="form-control" ID="TxtEstado" runat="server" MaxLength="30"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtEstado" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label> <label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label>

104
RH/Personal.aspx.vb
View File

@@ -1354,6 +1354,8 @@ Partial Class RH_Personal
Private Sub CargaEstados(pCvePais As Integer) Private Sub CargaEstados(pCvePais As Integer)
DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais) DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstados.DataBind() DdlEstados.DataBind()
DdlEstadosDomicilio.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstadosDomicilio.DataBind()
End Sub End Sub
'Private Sub CargaSucursales() 'Private Sub CargaSucursales()
@@ -1607,6 +1609,8 @@ Partial Class RH_Personal
TxtColonia.Text = ObjPersonal.Colonia TxtColonia.Text = ObjPersonal.Colonia
'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString()) 'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString())
DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString()) DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString())
DdlEstadosDomicilio.SelectedValueExistInsert(drow("CveEstadoDomicilio").ToString(), drow("EstadoDomicilioText").ToString())
TxtCiudadOrigen.Text = drow("CiudadOrigen").ToString()
TxtCP.Text = ObjPersonal.CP TxtCP.Text = ObjPersonal.CP
TxtColonia.Text = ObjPersonal.Colonia TxtColonia.Text = ObjPersonal.Colonia
TxtCiudad.Text = ObjPersonal.Ciudad TxtCiudad.Text = ObjPersonal.Ciudad
@@ -2061,6 +2065,10 @@ Partial Class RH_Personal
If TieneError Then If TieneError Then
ObjPersonal.RollBack() ObjPersonal.RollBack()
Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia) Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
@@ -2068,6 +2076,9 @@ Partial Class RH_Personal
ObjPersonal.Commit() ObjPersonal.Commit()
Alert(Mensaje, TipoMensaje.MsgInformacion, Accion) Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero()) CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then 'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL ' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
@@ -2075,6 +2086,12 @@ Partial Class RH_Personal
GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
If CvePersonal > 0 Then If CvePersonal > 0 Then
Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ",
UsuarioActual.CveEmpresa, CvePersonal, DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text)
Using objbase As New ClsClaseBase
If (objbase.runQuerystr(strquery)) Then
End If
End Using
CargaDatos() CargaDatos()
End If End If
@@ -7481,27 +7498,98 @@ Partial Class RH_Personal
End Sub End Sub
Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs) Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs)
Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc" Dim RutaArchivo As String = "F:\Proyectos\wwwSIG\General\CONTRATO.doc"
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) Dim dSDTotal As Decimal = 0
Dim SDTotalText As String = ""
Dim SDTotal As String = ""
Dim SueldoDiario As String = ""
Dim septimodia As String = ""
Dim Aguinaldo As String = ""
Dim Vacaciones As String = ""
Dim Prima As String = ""
Dim vacacionesyprima As String = ""
Dim Utilidades As String = ""
Dim strquery As String = String.Format("EXEC PA_Agro_ValidacionNomGet @CveValidacionNomina=-1,@CveEmpresa ={0} ", UsuarioActual.CveEmpresa)
Using objbase As New ClsClaseBase
If (objbase.runQuerystr(strquery)) Then
Dim dbrow As DataRow
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =4")
If Not IsNothing(dbrow) Then
SueldoDiario = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =5")
If Not IsNothing(dbrow) Then
septimodia = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =6")
If Not IsNothing(dbrow) Then
Aguinaldo = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =8")
If Not IsNothing(dbrow) Then
vacacionesyprima = String.Format("{0:N2}", dbrow("Importe"))
Dim temptotal As Decimal = dbrow("Importe").ToString().ToDecimal()
Dim ObjRH As New ClsRH Vacaciones = String.Format("{0:N2}", temptotal / 1.5)
Prima = String.Format("{0:N2}", (temptotal / 1.5) * 0.5)
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =7")
If Not IsNothing(dbrow) Then
Utilidades = String.Format("{0:N2}", dbrow("Importe"))
dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
End If
SDTotalText = Texto2Letras(dSDTotal.ToString().ToDouble())
SDTotal = String.Format("{0:N2}", dSDTotal)
End If
End Using
Dim Tags As New List(Of TagsDocumentos)
Dim ObjRH As New ClsRH()
If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
Dim Tags As New List(Of TagsDocumentos)
If ObjRH.CveSubProyecto.Contiene(11884, 11883) Then
RutaArchivo = "F:\Proyectos\wwwSIG\General\CONTRATOINVERNADERO.doc"
End If
Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto)) Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString())) Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text)) Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text)) Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text)) Tags.Add(New TagsDocumentos("{CiudadOrigen}", String.Format("{0},{1}", TxtCiudadOrigen.Text, DdlEstados.SelectedItem.Text).ToUpper()))
Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC)) Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC))
Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0},{1}", TxtCiudad.Text, DdlEstadosDomicilio.SelectedItem.Text).ToUpper()))
Tags.Add(New TagsDocumentos("{CALLE}", TxtCalle.Text))
Tags.Add(New TagsDocumentos("{NO}", TxtNumExt.Text))
Tags.Add(New TagsDocumentos("{COLONIA}", TxtColonia.Text))
Tags.Add(New TagsDocumentos("{CP}", TxtCP.Text))
Tags.Add(New TagsDocumentos("{SDTotalText}", SDTotalText))
Tags.Add(New TagsDocumentos("{SDTotal}", SDTotal))
Tags.Add(New TagsDocumentos("{SueldoDiario}", SueldoDiario))
Tags.Add(New TagsDocumentos("{septimodia}", septimodia))
Tags.Add(New TagsDocumentos("{Aguinaldo}", Aguinaldo))
Tags.Add(New TagsDocumentos("{Vacaciones}", Vacaciones))
Tags.Add(New TagsDocumentos("{Prima}", Prima))
Tags.Add(New TagsDocumentos("{vacacionesyprima}", vacacionesyprima))
Tags.Add(New TagsDocumentos("{Utilidades}", Utilidades))
Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso))) Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso)))
objGemBoxDocument.SustituirTags(Tags)
End If End If
ObjRH.Dispose() ObjRH.Dispose()
@@ -7509,6 +7597,8 @@ Partial Class RH_Personal
Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
objGemBoxDocument.SustituirTags(Tags)
objGemBoxDocument.GuardarStreamPDF() objGemBoxDocument.GuardarStreamPDF()

8
Ventas/CatAutorizacionLimites.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatAutorizacionLimites.aspx.vb" Inherits="Ventas_CatAutorizacionLimites" %> <%@ Page Title="" Language="VB" EnableEventValidation="false" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatAutorizacionLimites.aspx.vb" Inherits="Ventas_CatAutorizacionLimites" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
@@ -22,9 +22,13 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar autorización</asp:LinkButton></li> <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar autorización</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<li>
<asp:LinkButton ID="LnkExportarExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exportar Excel</asp:LinkButton>
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>

29
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -336,4 +336,33 @@ Partial Class Ventas_CatAutorizacionLimites
End Select End Select
UpModal.Update() UpModal.Update()
End Sub End Sub
#Region " EXPORTA EXCEL "
Protected Sub LnkExportarExcel_Click(sender As Object, e As EventArgs) Handles LnkExportarExcel.Click
If GvDatos.Rows.Count <= 0 Then
Alert("No hay registros para exportar. Por favor modifique su consulta.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim StrFiltro As New StringBuilder
StrFiltro.AppendFormat("Filtro: ")
StrFiltro.AppendFormat("Estatus: {0}, ", DdlEstatus.SelectedItem)
StrFiltro.AppendFormat("Cliente: {0}, ", IIf(DdlClienteFiltro.SelectedText <> "", DdlClienteFiltro.SelectedText, "Todos"))
StrFiltro.AppendFormat("Vendedor: {0}, ", DdlVendedorFiltro.SelectedItem)
StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"))
'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(", Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"))
Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
StrFiltro.AppendFormat(", Fecha Fin: {0}", fechaFin)
'Oculta columnas en export sin afectar GridView en página
Dim tcols = GvDatos.Columns.Count
GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar
GvDatos.ExportToExcelGembox("CatAutorizacionLimites " & txtFechaI.Text.ToDate.ToString("dd-MM-yyyy") + " a " & fechaFin.ToDate.ToString("dd-MM-yyyy"), UsuarioActual, "Catálogo de autorizaciones de límite de crédito", DatosFiltros:=StrFiltro.ToString())
End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
#End Region
End Class End Class