diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 6ea87a883..9f6c539d7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2527,7 +2527,7 @@ Public Class ClsGenerales CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, - Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean + Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2554,6 +2554,8 @@ Public Class ClsGenerales .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + .Add("@Fecha", SqlDbType.Date).Value = Fecha + End With 'SqlTypes.SqlDateTime.Null diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 6cfd8a54b..03880cf97 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -131,8 +131,6 @@ Public Class ClsInventarios Public Property ResponsableCarga As String Public Property ResponsableRecibio As String Public Property Modulo As String - Public Property ConAplicacion As Boolean - @@ -2309,8 +2307,6 @@ Public Class ClsInventarios FechaI = dr("FechaInicio").ToString FechaF = dr("FechaFin").ToString Estatus = dr("Estatus").ToString - ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString) - Retorno = True End If 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..a78a05d7c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean + Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@SDI", SqlDbType.Money).Value = SDI .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario End With @@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function - Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean + Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalUpdateSalarios") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario .Add("@SDI", SqlDbType.Money).Value = SDI @@ -2448,7 +2450,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/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 d3840cc09..3bd8d405b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -769,19 +769,24 @@ 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 + + + 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")) - ObjDatos.Dispose() - If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then GvPagos.DataSource = DtPagos End If + + ObjDatos.Dispose() + + GvPagos.DataBind() UpPagos.Update() @@ -1118,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 @@ -2917,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 diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index c3735a602..48783158d 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -786,7 +786,7 @@ Partial Class Contratos_ContratoObra LnkAbrirContrato.Visible = False LnkCerrarContrato.Visible = False - If UsuarioActual.TienePermisoProceso(330) Then + If UsuarioActual.TienePermisoProceso(173) Then If ObjContratos.TipoEstatus = 1 Then LnkCerrarContrato.Visible = True @@ -4313,6 +4313,7 @@ Partial Class Contratos_ContratoObra Else RGVControlCantidadVentas.Visible = True RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString + RGVControlCantidadVentas.ErrorMessage = $"No se puede tener un valor inferior a {CantidadMinimo} lo ya avanzado. " End If diff --git a/Empresas/158/Formatos/Factura.rdlc b/Empresas/158/Formatos/Factura.rdlc index 03a985ccb..b59df08a7 100644 --- a/Empresas/158/Formatos/Factura.rdlc +++ b/Empresas/158/Formatos/Factura.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -870,7 +870,6 @@ Embedded logo FitProportional - 0cm 2.54331cm 4.05375cm 9 @@ -1892,7 +1891,7 @@ - AJA850608L7A + AJA9809264V2 @@ -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 - - - - - diff --git a/General/ExcelToBD.aspx.cs b/General/ExcelToBD.aspx.cs index 4f00078ce..1c3d4a6d7 100644 --- a/General/ExcelToBD.aspx.cs +++ b/General/ExcelToBD.aspx.cs @@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page DdlWorkBooks.DataBind(); if (workBooks.Count > 0) { - DdlWorkBooks.SelectedIndex = 0; + DdlWorkBooks.SelectedIndex = 1; DdlWorkBooks_SelectedIndexChanged(null, null); } + LnkContinuar_Click(null, null); } protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e) @@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page columnas = workSheet.LastRowUsed().CellCount(); TxtFilas.Text = Filas.ToString(); TxtInicia.Text = "2"; - TxtColumnas.Text = "62";// columnas.ToString(); + TxtColumnas.Text = "48";//"62";// columnas.ToString(); } } 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 @@