diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb
index dd22807c3..08b2a0361 100644
--- a/App_Code/ClsEdocumentacion.vb
+++ b/App_Code/ClsEdocumentacion.vb
@@ -71,6 +71,7 @@ Public Class ClsEdocumentacion
End With
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable
+ DSet = New DataSet()
End Sub
#Region "Conexiones"
@@ -515,6 +516,98 @@ Public Class ClsEdocumentacion
#End Region
+ Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object)
+ SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor
+ End Sub
+ Public Function RunQuery(errormsg As String) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ retorno = False
+ OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
+ Public Function RunQueryds(errormsg As String) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ SqlAdapter.Fill(DSet)
+ retorno = True
+ Catch ex As Exception
+ retorno = False
+ OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
+
+
+#Region "CRUD_Edoc_Materialidad"
+
+ Public Function TableroMaterialidadGET(cveEmpresa As Integer, anio As Integer, mes As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_TableroMaterialidad", CommandType.StoredProcedure)
+ addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+ addParameters("@Anio", SqlDbType.Int, anio)
+ addParameters("@Mes", SqlDbType.Int, mes)
+ retorno = RunQueryds("Ocurrió un error al obtener el PA_Edoc_TableroMaterialidad.")
+ Return retorno
+ End Function
+ Public Function TableroMaterialidadDetalleGET(cveEmpresa As Integer, anio As Integer, mes As Integer, cveCliente As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_TableroMaterialidadDetalle", CommandType.StoredProcedure)
+ addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+ addParameters("@Anio", SqlDbType.Int, anio)
+ addParameters("@Mes", SqlDbType.Int, mes)
+ addParameters("@CveCliente", SqlDbType.Int, cveCliente)
+ retorno = RunQueryds("Ocurrió un error al obtener el PA_Edoc_TableroMaterialidad.")
+ Return retorno
+ End Function
+ Public Function Edoc_MaterialidadGet(cveDocMaterialidad As Int32, cveDocumentacion As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_MaterialidadGet", CommandType.StoredProcedure)
+ addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad)
+ addParameters("@CveDocumentacion", SqlDbType.Int, cveDocumentacion)
+ retorno = RunQuery("Ocurrió un error al obtener el Edoc_Materialidad.")
+ Return retorno
+ End Function
+ Public Function Edoc_MaterialidadAdd(cveDocumentacion As Int32, adjunto As String, cveCliente As Integer, anio As Int32, mes As Int32, cveUsuario As Int32, fechaingreso As DateTime) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_MaterialidadAdd", CommandType.StoredProcedure)
+ addParameters("@CveDocumentacion", SqlDbType.Int, cveDocumentacion)
+ addParameters("@Adjunto", SqlDbType.VarChar, adjunto)
+ addParameters("@CveCliente", SqlDbType.Int, cveCliente)
+ addParameters("@Anio", SqlDbType.Int, anio)
+ addParameters("@Mes", SqlDbType.Int, mes)
+ addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+ retorno = RunQuery("Ocurrió un error al agregar el Edoc_Materialidad.")
+ Return retorno
+ End Function
+ Public Function Edoc_MaterialidadUp(cveDocMaterialidad As Int32, cveDocumentacion As Int32, adjunto As String, cveCliente As Integer, anio As Int32, mes As Int32, cveUsuario As Int32, fechaingreso As DateTime) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_MaterialidadUp", CommandType.StoredProcedure)
+ addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad)
+ addParameters("@Adjunto", SqlDbType.VarChar, adjunto)
+ addParameters("@CveCliente", SqlDbType.Int, cveCliente)
+ addParameters("@Anio", SqlDbType.Int, anio)
+ addParameters("@Mes", SqlDbType.Int, mes)
+ addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+ retorno = RunQuery("Ocurrió un error al actualizar el Edoc_Materialidad.")
+ Return retorno
+ End Function
+ Public Function Edoc_MaterialidadRemove(cveDocMaterialidad As Int32, CveEmpresa As Integer) As Boolean
+
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Edoc_MaterialidadRemove", CommandType.StoredProcedure)
+ addParameters("@CveDocMaterialidad", SqlDbType.Int, cveDocMaterialidad)
+ addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
+ retorno = RunQuery("Ocurrió un error al eliminar el Edoc_Materialidad.")
+ Return retorno
+ End Function
+#End Region
+
+
#Region " P A R A M E T R O S "
Public Function AddDocumentacionParametros(CveDocumentacion As Integer, Parametro As String, Descripcion As String, CveEmpresa As Integer, CveUsaurio As Integer) As Boolean
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 54d9be053..c77386aac 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -8,9 +8,9 @@ Public Class ClsNominas
#Region "Campos"
'SQL ClsNominas_Nominas
Private SqlConexion As SqlConnection
- Private SqlAdapter As SqlDataAdapter
+ Public SqlAdapter As SqlDataAdapter
Private SqlCommand As SqlCommand
- Private SqlTransacc As SqlTransaction
+ Public SqlTransacc As SqlTransaction
Private Data As DataTable
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
Protected DTSet As DataSet
@@ -86,9 +86,12 @@ Public Class ClsNominas
Public Property FechaPago As Date
#End Region
- Public Sub IniciaTransacSQL()
- SqlTransacc = SqlConexion.BeginTransaction()
- End Sub
+
+
+ Public Function IniciaTransacSQL() As SqlTransaction
+ If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
+ Return SqlTransacc
+ End Function
Public Sub Commit()
SqlTransacc.Commit()
End Sub
@@ -2258,10 +2261,32 @@ Public Class ClsNominas
retorno = True
Catch sqEx As SqlException
retorno = False
- OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
retorno = False
- OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function GetNominasSinTimbrar(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ DTSet = New DataSet()
+ DataAdapter("PA_Nom_NominaSinTimbrar", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+
+ SqlAdapter.Fill(DTSet)
+ retorno = True
+ Catch sqEx As SqlException
+ retorno = False
+ OnError("Ocurrió un error al obtener la nomina sin timbrar.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ retorno = False
+ OnError("Ocurrió un error al obtener la nomina sin timbrar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7ff070146..0c17c3763 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5148,6 +5148,9 @@ Public Class ClsPaginas
PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422)
PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427)
PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428)
+ PaginaDict.Add("/Documentacion/TableroMaterialidad.aspx".ToUpper(), -1)
+ PaginaDict.Add("/Documentacion/TableroMaterialidadDetalle.aspx".ToUpper(), -1)
+
PaginaDict.Add("/RH/RepChecadorPreAsistencia.aspx".ToUpper(), 628)
PaginaDict.Add("/RH/CatCaptaciones.aspx".ToUpper(), 629)
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index cce1984f6..bf54663e5 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1966,10 +1966,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
_CvePersonal = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
Retorno = True
Catch Ex1 As SqlException
+ 'dbo.Vw_Val_Nom_Curps
If Ex1.Message.Contains("Número: 2627;") Then
- Alert("El Nuevo Personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+ Alert("El nuevo personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then
- Alert("El Nuevo Personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
+ Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
+ ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then
+ Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar el nuevo Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 4c8ad31ac..38951930a 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -116,7 +116,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Case "sendMailLPM"
context.Response.Write(sendMailLPM(context))
Case "getSATColomias"
- getSatColonias(context)
+ getSATColonias(context)
+ Case "GetFilesDirectory"
+ GetFilesDirectory(context)
End Select
Catch ex As Exception
ex.GuardaLog(ex.Message)
@@ -1358,7 +1360,30 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End Function
#End Region
+ Private Function GetFilesDirectory(ByVal context As HttpContext) As String
+ Dim retorno As String = ""
+ Dim urlhost As String = context.Request.Url.Host.ToUpper()
+ If (urlhost = "LOCALHOST") Then
+ Dim directorio As String = IfNull(context.Request("directorio"), "").ToString()
+ Dim xmlarchivos As System.Xml.Linq.XDocument = New System.Xml.Linq.XDocument()
+ Dim xfolder As XElement = New XElement("folder")
+ For Each urfile In System.IO.Directory.GetFiles(directorio)
+ Dim xfile As New XElement("archivo", urfile)
+ xfile.SetAttributeValue("EXT", Path.GetExtension(urfile))
+ xfolder.Add(xfile)
+
+ Next
+ xmlarchivos.Add(xfolder)
+ retorno = xmlarchivos.ToString()
+ context.Response.ContentType = "text/xml"
+ context.Response.Write(retorno)
+ context.Response.StatusCode = 200
+ Else
+ context.Response.StatusCode = 500
+ End If
+ Return retorno
+ End Function
#Region "Get SAT Colonmias"
Private Function getSATColonias(ByVal context As HttpContext) As String
diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx
new file mode 100644
index 000000000..967e0483e
--- /dev/null
+++ b/Documentacion/TableroMaterialidad.aspx
@@ -0,0 +1,266 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="TableroMaterialidad.aspx.cs" Inherits="Documentacion_TableroMaterialidad" %>
+
+
+
+
+
+
+
+ Materialidad
+
+
+
+
+
+
+
@@ -7470,7 +7501,7 @@
}
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9f106336c..badc6490a 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7017,18 +7017,22 @@ Partial Class Clientes
#Region "D O C U M E N T A C I O N "
Private Sub CargaDocumentacionCliente()
- Dim objRH As New ClsEdocumentacion()
-
+ Dim objRH As New ClsEdocumentacion()
+
If objRH.DocumentacionElectronicaGet(-1, If(CveCliente = -1, 0, CveCliente), -1, UsuarioActual.Empresa.CveEmpresa, -1, Modulo:=2) Then
DTDocumentacion = objRH.DtResultados
GvDocumentosCliente.DataSource = objRH.DtResultados
End If
+ If objRH.DocumentacionElectronicaGet(-1, If(CveCliente = -1, 0, CveCliente), -1, UsuarioActual.Empresa.CveEmpresa, -1, Modulo:=-2) Then
+ GVDocMaterialidad.DataSource = objRH.DtResultados.FiltraParametros("Modulo IN (5,6)")
+ End If
objRH.Dispose()
'If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo = 7 ").Rows.Count > 0 Then
' GvDocumentosCliente.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo = 7 ")
'Else
' GvDocumentosCliente.DataSource = Nothing
'End If
+ GVDocMaterialidad.DataBind()
GvDocumentosCliente.DataBind()
UPGvDocumentosCliente.Update()
@@ -10908,5 +10912,33 @@ Partial Class Clientes
Private Sub RecargaGlobalDTVendedorSucursal()
GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing
End Sub
+
+ Protected Sub LnkGuardarMaterialidad_Click(sender As Object, e As EventArgs)
+ Using objRH As New ClsEdocumentacion()
+
+ For Each gvrow As GridViewRow In GVDocMaterialidad.Rows
+ Dim CveDocumentacionElectronica As Integer = gvrow.DataKey("CveDocumentacionElectronica").ToEntero()
+ Dim CveDocumentacion As Integer = gvrow.DataKey("CveDocumentacion").ToEntero()
+ Dim FechaLimite As Date = gvrow.FCTextBox("TxtFechaLimite").Text.ToDate()
+ Dim estatus As Boolean = gvrow.FCCheckBox("chkEstatus").Checked
+
+ If estatus Then
+ If CveDocumentacionElectronica = -1 Then
+ If objRH.DocumentacionElectronicaAdd(CveDocumentacion, -1, CveCliente, -1, 1, ObservacionDocumentacion, "", UsuarioActual.CveUsuario, FechaLimite) > 0 Then
+
+ End If
+ End If
+ Else
+ If CveDocumentacionElectronica > 1 Then
+ If objRH.DocumentacionElectronicaRemove(CveDocumentacionElectronica, -1) Then
+
+ End If
+ End If
+ End If
+ Next
+ Alert("Los cambios se guardaron satisfactoriamente.")
+ End Using
+
+ End Sub
End Class
diff --git a/vwd.webinfo b/vwd.webinfo
index df4339cd0..a702b849f 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -372,6 +372,8 @@
+
+