diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d3b57be78..ba2fb34e6 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10609,7 +10609,7 @@ Public Class ClsPaginas PaginaDict.Add("/RH/RepDocumentacionVencida.aspx".ToUpper(), 412) PaginaDict.Add("/RH/CatSubProyectosZonas.aspx".ToUpper(), 421) PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422) - PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427) + 'PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427) PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428) 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 e0ee2474c..3f6bba428 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7442,44 +7442,6 @@ Public Class ClsRH Return Retorno End Function - - Public Function AddRemoveChecadoresSubProyectos(CveChecador As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Agreagar As Boolean) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorSubProyectosAddRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecador", SqlDbType.Int).Value = CveChecador - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Agreagar", SqlDbType.Bit).Value = Agreagar - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - - Public Function GetChecadoresSubProyectos(CveChecador As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorSubProyectosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecador", SqlDbType.Int).Value = CveChecador - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obteger los sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - Return Retorno - End Function - - - #End Region #Region " A C T I V I D A D E S" diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 10cfe41fd..e28d950df 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1202,7 +1202,8 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 5be9478c4..b8355d7c9 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1117,6 +1117,49 @@ Partial Class Compras_Compras End Set End Property + ''' + ''' Descuento por pronto pago proveedor + ''' + ''' Porcentaje de descuento de proveedor + Private Property PorcentajeProntoPago As Decimal + Get + If ViewState("PorcentajeProntoPago") Is Nothing Then + ViewState("PorcentajeProntoPago") = 0D + End If + Return ViewState("PorcentajeProntoPago").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("PorcentajeProntoPago") = value + End Set + End Property + Private Property ImporteRemNC As Decimal + Get + If ViewState("ImporteRemNC") Is Nothing Then + ViewState("ImporteRemNC") = 0D + End If + Return ViewState("ImporteRemNC").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("ImporteRemNC") = value + End Set + End Property + Private Property ImporteRemNCProntoPago As Decimal + Get + If ViewState("ImporteRemNCProntoPago") Is Nothing Then + ViewState("ImporteRemNCProntoPago") = 0D + End If + Return ViewState("ImporteRemNCProntoPago").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("ImporteRemNCProntoPago") = value + End Set + End Property + + + + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") @@ -3280,6 +3323,8 @@ Partial Class Compras_Compras Private Sub CargaProveedor(CveProveedor As Integer, RFC As String, Optional RecargaCombo As Boolean = True) + PorcentajeProntoPago = 0D + Dim ObjProveedor As New ClsCompProveedores() If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then @@ -3435,6 +3480,10 @@ Partial Class Compras_Compras End If + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago + End If + Else Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) End If @@ -9999,6 +10048,8 @@ Partial Class Compras_Compras TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer)) TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) TmpDT.Columns.Add("TemporadaCuadro", GetType(String)) + TmpDT.Columns.Add("PUProntoPago", GetType(Decimal)) + TmpDT.Columns.Add("TotalProntoPago", GetType(Decimal)) TmpDTOriginal = New DataTable TmpDTOriginal.Columns.Add("Consec", GetType(Integer)) @@ -10108,6 +10159,8 @@ Partial Class Compras_Compras TmpDTOriginal.Columns.Add("CveContratoDetalle", GetType(Double)) TmpDTOriginal.Columns.Add("CveCultivoCuadroDetalle", GetType(Double)) TmpDTOriginal.Columns.Add("TemporadaCuadro", GetType(String)) + TmpDTOriginal.Columns.Add("PUProntoPago", GetType(Decimal)) + TmpDTOriginal.Columns.Add("TotalProntoPago", GetType(Decimal)) End Sub @@ -10437,6 +10490,17 @@ Partial Class Compras_Compras e.Row.FCTextBox("TxtDividir").Visible = False End If End If + + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + + e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal.ToString("###,###,###.00") + + 'If PorcentajeProntoPago > 0 Then + ' e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal - () + 'End If + + End If + End If 'HEADER GvInv @@ -14293,10 +14357,22 @@ Partial Class Compras_Compras LbSubTotalDif.Visible = False Vinculacion() Else - LbSubTotalDif.Visible = True - LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero - Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,) - RegistraScript("CalculaTotalesOC();") + + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + + ImporteRemNC = (SubTotalCompra - SubTotalGV).RoundSQL(2) + ImporteRemNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2) + + Vinculacion() + + Else + LbSubTotalDif.Visible = True + LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero + Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,) + RegistraScript("CalculaTotalesOC();") + End If + + End If UpEstatus.Update() @@ -16866,6 +16942,13 @@ Partial Class Compras_Compras Dim Row As DataRow = Nothing + If Not TmpDT.Columns.Contains("PUProntoPago") Then + TmpDT.Columns.Add("PUProntoPago", GetType(Decimal)) + End If + If Not TmpDT.Columns.Contains("TotalProntoPago") Then + TmpDT.Columns.Add("TotalProntoPago", GetType(Decimal)) + End If + Row = TmpDT.NewRow() Dim Retorno As Integer = 0 Dim CveContrato As Integer = -1 diff --git a/OI/Proyecto.aspx b/OI/Proyecto.aspx index cb69ff67e..42b64e86c 100644 --- a/OI/Proyecto.aspx +++ b/OI/Proyecto.aspx @@ -232,7 +232,7 @@ -
+
@@ -242,6 +242,9 @@
+
+ +
@@ -258,11 +261,40 @@ - - <%----%> + + + + + + + + + + + diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs index 8d205aed7..2c4d1eaba 100644 --- a/OI/Proyecto.aspx.cs +++ b/OI/Proyecto.aspx.cs @@ -21,6 +21,7 @@ public partial class OI_Proyecto : ClsPaginas public List LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List(); } return (List)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } } public List LcveuserVisto { get { if (ViewState["LcveuserVisto"] == null) { ViewState["LcveuserVisto"] = new List(); } return (List)ViewState["LcveuserVisto"]; } set { ViewState["LcveuserVisto"] = value; } } + public const string iddivAgregarTema = "divModalAgregartema"; #endregion protected void Page_Load(object sender, EventArgs e) @@ -355,4 +356,48 @@ public partial class OI_Proyecto : ClsPaginas UpModalProyecto.Update(); } + + #region TEMAS + + protected void LnkAddTtemaB_Click(object sender, EventArgs e) + { + RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema)); + } + + protected void BtnAgregarTema_Click(object sender, EventArgs e) + { + + using (ClsOIEventos objoi = new ClsOIEventos()) + { + if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); + TxtTema.Text = ""; + set_GlobalDTOIRevision(UsuarioActual.CveEmpresa, objoi.DtResultados); + CargaTemas(); + + UpModalTema.Update(); + UpModalProyecto.Update(); + + } + else { Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); } + + } + } + + private void CargaTemas() + { + DdlTema.ClearSelection(); + DdlTema.SelectedValue = null; + DdlTema.Items.Clear(); + + DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); + DdlTema.DataBind(); + DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); + + } + + + #endregion } \ No newline at end of file diff --git a/OI/RepProyectos.aspx b/OI/RepProyectos.aspx index 90f168475..83a8f9e61 100644 --- a/OI/RepProyectos.aspx +++ b/OI/RepProyectos.aspx @@ -178,7 +178,7 @@ -
+
@@ -193,6 +193,9 @@
+
+ +
@@ -208,6 +211,32 @@ + + + + diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs index db1f74b1b..3efa822f3 100644 --- a/OI/RepProyectos.aspx.cs +++ b/OI/RepProyectos.aspx.cs @@ -10,6 +10,7 @@ public partial class OI_RepProyectos : ClsPaginas { #region Propiedades public const string iddivAgregarProyecto = "iddivAgregarProyecto"; + public const string iddivAgregarTema = "divModalAgregartema"; #endregion protected void Page_Load(object sender, EventArgs e) { @@ -21,9 +22,11 @@ public partial class OI_RepProyectos : ClsPaginas DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1")); - DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); - DdlTema.DataBind(); - DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); + + CargaTemas(); + //DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); + //DdlTema.DataBind(); + //DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); cargar(); } } @@ -196,4 +199,50 @@ public partial class OI_RepProyectos : ClsPaginas } } + + #region TEMAS + + protected void LnkAddTtemaB_Click(object sender, EventArgs e) + { + RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema)); + } + + protected void BtnAgregarTema_Click(object sender, EventArgs e) + { + + using (ClsOIEventos objoi = new ClsOIEventos()) + { + if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + { + Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); + TxtTema.Text = ""; + set_GlobalDTOIRevision(UsuarioActual.CveEmpresa, objoi.DtResultados); + CargaTemas(); + + UpModalTema.Update(); + UpModalProyecto.Update(); + + } + else { Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); } + + } + } + + private void CargaTemas() + { + DdlTema.ClearSelection(); + DdlTema.SelectedValue = null; + DdlTema.Items.Clear(); + + DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); + DdlTema.DataBind(); + DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); + + } + + + #endregion + + } \ No newline at end of file diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 12319bede..593c67bb4 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -655,6 +655,7 @@ +