From 85967cd65417e9f42ff82e123ed1343ed5f268d1 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 25 Sep 2021 01:27:09 -0700 Subject: [PATCH 1/6] --- App_Code/ClsNominas.vb | 46 ++++++++ App_Code/ClsRH.vb | 2 +- Nomina/ChecadorAsistencia.aspx | 9 +- Nomina/ChecadorAsistencia.aspx.cs | 6 +- Nomina/Nomina.aspx | 179 ++++++++++++++++++++++++++--- Nomina/Nomina.aspx.cs | 185 ++++++++++++++++++++++++++---- RH/CatPersonal.aspx.vb | 4 +- vwd.webinfo | 4 + 8 files changed, 389 insertions(+), 46 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9d1572a61..2dd6b5be7 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2483,6 +2483,52 @@ Public Class ClsNominas End Try Return retorno End Function +#Region "Prorrateo" + + Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_Prorrateosubproyecto") + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ProrrateosubproyectoAdd") + SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ProrrateosubproyectoRemove") + SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region #Region "CRUD_Nom_PersonalIncapacidad" Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 9a643e6ef..c6a62f7bd 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2448,7 +2448,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Dim Retorno As Boolean = False Dim xmlProductos As System.Xml.Linq.XDocument = Nothing If registros IsNot Nothing AndAlso registros.Count > 0 Then - xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha)))) + xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo)))) End If Data = New DataTable SqlDataAdapter("PA_RH_AsistenciaDetalleUP") diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx index 8ae601114..8ad4fd876 100644 --- a/Nomina/ChecadorAsistencia.aspx +++ b/Nomina/ChecadorAsistencia.aspx @@ -4,6 +4,9 @@ @@ -1447,7 +1447,7 @@ =Parameters!CadenaOriginal.Value @@ -1473,7 +1473,7 @@ =Parameters!SelloSAT.Value @@ -1573,53 +1573,7 @@ - Tipo de Transporte Internacional: - - - - =Parameters!TipoTI.Value - - - - - - - - - Vía de Transporte Internacional: - - - - =Parameters!ViaTI.Value - - - - - - - - - Permiso STCC: + Permiso SCT: + + + + Numero de Permiso + + + + : + + + + =Parameters!NumPermiso.Value + + + + + Textbox2 1.13111in @@ -1708,37 +1693,6 @@ true true - - - - Numero de Permiso - - - - : - - - - =Parameters!NumPermiso.Value - - - - - From 62fe70faa441b015cac458ea215ed5e8d99788f2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 1 Oct 2021 18:28:25 -0700 Subject: [PATCH 6/6] Efacturas mejora CvePrePolizadetalle incorrecta, CRM permiso editar empresa --- CRM/EmpresaCRM.aspx.cs | 25 ++++++++++++++++++------- Compras/eFacturas.aspx.vb | 16 ++++++++++++---- 2 files changed, 30 insertions(+), 11 deletions(-) diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 14b65061a..d411c482a 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1515,15 +1515,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas LnkAgregarAcercamiento.Visible = false; } - if ((UsuarioActual.CveVendedor != CveVendedor)) + + if (!UsuarioActual.TienePermisoProceso(330)) { - BtnGuardarEmpresa.Visible = false; - BtnEliminarEmpresa.Visible = false; - BtnAgregarContacto.Visible = false; - //LnkAgregarAcercamiento.Visible = false; - DivAccionesBitacora.Visible = false; - GVContactos.Columns[4].Visible = false; + if ((UsuarioActual.CveVendedor != CveVendedor)) + { + BtnGuardarEmpresa.Visible = false; + BtnEliminarEmpresa.Visible = false; + BtnAgregarContacto.Visible = false; + //LnkAgregarAcercamiento.Visible = false; + DivAccionesBitacora.Visible = false; + GVContactos.Columns[4].Visible = false; + } } + + + + + + + } } #endregion diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 2954608e2..3bd8d405b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -769,11 +769,13 @@ Partial Class Compras_eFacturas If ObjDatos.DtResultados.Rows.Count > 0 Then GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable() DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'") - Else - GvD.DataSource = Nothing + 'Else + ' GvD.DataSource = Nothing End If End If - ObjDatos.Dispose() + + + LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0")) LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0")) @@ -781,6 +783,10 @@ Partial Class Compras_eFacturas If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then GvPagos.DataSource = DtPagos End If + + ObjDatos.Dispose() + + GvPagos.DataBind() UpPagos.Update() @@ -1117,6 +1123,8 @@ Partial Class Compras_eFacturas e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString) + Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML")) + If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then @@ -2916,7 +2924,7 @@ Partial Class Compras_eFacturas For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows - If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then + If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero