diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index d73f1af56..5003e0547 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -221,6 +221,37 @@ Public Class ClsOIEventos #Region "oieventos2.0" + Public Function UpEventosVinculos(cveEvento As Int32, cveActivoFijo As Int32, cveIE As Int32, cveProspecto As Int32, cveCliente As Int32, cveOS As Int32, cveOC As Int32, cvePersonal As Int32, + cveProveedor As Int32, cveCompra As Int32, cveVenta As Int32, cveContrato As Int32, cveUsuario As Int32, cveSubProyecto As Int32, cveMovimientoAlmacen As Int32, + cveEmpresaCRM As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_EventosVinculosUp", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int, cveEvento) + .Add("@CveActivoFijo", SqlDbType.Int, cveActivoFijo) + .Add("@CveIE", SqlDbType.Int, cveIE) + .Add("@CveProspecto", SqlDbType.Int, cveProspecto) + .Add("@CveCliente", SqlDbType.Int, cveCliente) + .Add("@CveOS", SqlDbType.Int, cveOS) + .Add("@CveOC", SqlDbType.Int, cveOC) + .Add("@CvePersonal", SqlDbType.Int, cvePersonal) + .Add("@CveProveedor", SqlDbType.Int, cveProveedor) + .Add("@CveCompra", SqlDbType.Int, cveCompra) + .Add("@CveVenta", SqlDbType.Int, cveVenta) + .Add("@CveContrato", SqlDbType.Int, cveContrato) + .Add("@CveSubProyecto", SqlDbType.Int, cveSubProyecto) + .Add("@CveMovimientoAlmacen", SqlDbType.Int, cveMovimientoAlmacen) + .Add("@CveEmpresaCRM", SqlDbType.Int, cveEmpresaCRM) + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + End With + Return retorno + End Function Public Function GetEventosUsuario2(CveEvento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_EventosUsuarios2Get") @@ -303,10 +334,10 @@ Public Class ClsOIEventos Return retorno End Function - Public Function AddEventoMinuta2(Asunto As String, Descripcion As String, Acuerdos As String, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, Archivo As String, Lmiembros As List(Of Integer), chkList As List(Of String), CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean + Public Function AddEventoMinuta2(Asunto As String, Descripcion As String, Acuerdos As String, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, Archivo As String, Lmiembros As List(Of Integer), chkList As List(Of String), CveUsuarioIng As Integer, CveEmpresa As Integer, CorreoExterno As String) As Boolean Dim Retorno As Boolean = False - Retorno = AddOI_Eventos2(OITipoEventos.Minuta, Asunto, Descripcion, 3, -1, -1, String.Format("{0:yyyy/MM/dd HH:mm}", FechaInicio), "1900/01/01 00:00", -1, Archivo, Lmiembros, chkList, CveUsuarioIng, CveEmpresa, -1, Acuerdos) + Retorno = AddOI_Eventos2(OITipoEventos.Minuta, Asunto, Descripcion, 3, -1, -1, String.Format("{0:yyyy/MM/dd HH:mm}", FechaInicio), "1900/01/01 00:00", -1, Archivo, Lmiembros, chkList, CveUsuarioIng, CveEmpresa, -1, Acuerdos, CorreoExterno:=CorreoExterno) 'Retorno = AddEvento(5, -1, Asunto, Descripcion, 1, -1, -1, FechaInicio, ("01/01/1799").ToDate, -1, -1, "-1", CveUsuarioIng, CveEmpresa, -1, -1, -1, -1, -1, -1, -1, -1) Return Retorno @@ -317,7 +348,7 @@ Public Class ClsOIEventos Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional CveMovimientoAlmacen As Integer = -1) As Boolean + Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "") As Boolean Dim retorno As Boolean = False Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing @@ -374,6 +405,7 @@ Public Class ClsOIEventos .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen + .Add("@CorreoExterno", SqlDbType.VarChar).Value = CorreoExterno '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 25548fcf6..662753b41 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2728,6 +2728,7 @@ Partial Class Bancos_IE Dim TipoMovtoAplicar = False For Each Dr As DataRow In ObjMov.DtResultados.FiltraParametros("CveConceptoContable IN (13,8,9,38)").Rows + Dim PorcentajeImpuesto As Decimal = Dr("PorcentajeImpuesto").ToString.ToDecimal() CveConceptoContableAplciar = Dr("CveConceptoContable").ToString.ToEntero TipoMovtoAplicar = Not CBool(Dr("TipoMovto").ToString) ImporteAplicar = (Dr("Importe").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL() @@ -2735,7 +2736,7 @@ Partial Class Bancos_IE ImporteAplicarME = (Dr("ImporteME").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL() IdCtaContableAplicar = Dr("IdCtaContable").ToString.ToEntero - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then Select Case CveConceptoContableAplciar Case 13 CveConceptoContableAplciar = 61 @@ -2747,7 +2748,7 @@ Partial Class Bancos_IE CveConceptoContableAplciar = 39 End Select TipoMovtoAplicar = Not TipoMovtoAplicar - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" Exit Select End If diff --git a/OI/MinutaDetalle.aspx b/OI/MinutaDetalle.aspx index 3741aaf64..eb0affbd6 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -139,13 +139,20 @@ + +
+ + <%----%> + +
Guardar Enviar Minuta - Terminar y Enviar Minuta + Terminar y Enviar Minuta +
@@ -696,6 +703,37 @@
+ + @@ -925,14 +963,69 @@ // https://ckeditor.com/docs/ckeditor4/latest/api/CKEDITOR_editor.html#method-getData alert(editor.getData()); } + function AgendarSiguienteReunion() { + $('.LnkTerminarMinuta').confirmation({ + title: '¿Agendar Siguiente Reunión?', + btnOkClass: 'btn btn-sm btn-danger', + btnOkLabel: 'No', + btnOkIcon: '', + btnCancelClass: 'btn btn-sm btn-default', + btnCancelLabel: 'Si', + btnCancelIcon: 'glyphicon glyphicon-ok', + onCancel: function (event, element) { /*Alert('se agendo la siguiente reunion;');*/ $('#idDivAgendarMinuta').modal(); return false; /*event.preventDefault();*/ }, + }); + $('.LnkTerminarMinuta').removeClass('LnkTerminarMinuta'); + //data-toggle="confirmation" data-popout="true" data-original-title="¿Agendar Siguiente Reunión?" data-btn-ok-label="No" + //data-btn-cancel-label="si" data-on-cancel="debugger;event.preventDefault();Alert('se agendo la siguiente reunion;')" + } + function CargaPickers() { + $.datetimepicker.setLocale('es'); + $('input.ADDateTimePicker').each(function () { + var TThis = $(this); + TThis.datetimepicker({ + dayOfWeekStart: 1, + lang: 'es', + format: 'd/m/Y H:i', + formatDate: 'd/m/Y H:i', + step: 30 + }); + var Div = TThis.parent() + var boton = document.createElement('span'); + boton.className = "input-group-btn" + + var subboton = document.createElement('a') + subboton.className = "btn default btnCalendar" + subboton.innerHTML = "" + subboton.addEventListener('click', function () { + TThis.datetimepicker('show') + }); + boton.appendChild(subboton) + + var agregar = true; + for (var i = 0; i < Div[0].children.length; i++) { + if (Div[0].children[i].isEqualNode(boton)) { + agregar = false; + } + } + if (agregar) { + Div[0].appendChild(boton); + } + //Div[0].appendChild(boton) + + }); + + + } function ADSReady() { + CargaPickers(); SetEditor(); CargaPickers(); loadeventos(); showhideUser(); setchecklist(); + AgendarSiguienteReunion(); } diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index 529a1d2fd..c99f72ace 100644 --- a/OI/MinutaDetalle.aspx.cs +++ b/OI/MinutaDetalle.aspx.cs @@ -98,6 +98,7 @@ public partial class OI_MinutaDetalle : ClsPaginas LnkEnviarMinuta.Visible = false; TxtAsunto.Enabled = false; TxtDescripcion.Enabled = false; + TxtCorreoExterno.Enabled = false; tareanueva.CveEventoPadre = RCveEvento; //LnkUpFileVisible = true; //LnkUpUsuariosVisible = true; @@ -107,25 +108,18 @@ public partial class OI_MinutaDetalle : ClsPaginas Avance = drow["Avance"].ToString().ToDecimal(); TxtAsunto.Text = drow["Asunto"].ToString(); + TxtCorreoExterno.Text = drow["CorreoExterno"].ToString(); TxtDescripcion.Text = drow["Descripcion"].ToString(); TxtAcuerdos.Text = drow["Acuerdos"].ToString().Replace("<", "< "); - //txtFechaI.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaInicio"]); - //txtFechaF.Text = string.Format("{0:dd/MM/yyyy HH:mm}", drow["FechaFin"]); - //DdlTema.SelectedValueExist(drow["CveRevision"].ToString()); - //DdlEventoEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); - //DDlEstatus.SelectedValueExist(drow["CveEventoEstatus"].ToString()); HypArchivo.Text = string.Format("{0}
", drow["Archivo"].ToString()); HypArchivo.NavigateUrl = string.Format("~/OI/TareaDetalle.aspx?Archivo={0}&filename={1}", ModExtensiones.Encripta(string.Format("OIFiles\\{0}\\{1}", Folio, drow["Archivo"])), ModExtensiones.Encripta(drow["Archivo"].ToString())); TxtArchivo.Visible = (drow["Archivo"].ToString().Length == 0); portletArchivo.Visible = !TxtArchivo.Visible; - //LnkUpFile.Text = (portletArchivo.Visible ? " Actualizar archivo" : " Agregar archivo"); - //Literal3.Text = portletArchivo.Visible ? "Actualizar archivo" : "Agregar archivo"; - //BtnActualizarArchivo.Text = portletArchivo.Visible ? "Actualizar" : "Agregar"; int CveUsuarioIng = drow["CveUsuarioIng"].ToString().ToEntero(); CveUsuarioDe = drow["CveUsuarioDe"].ToString().ToEntero(); CveUsuarioPara = drow["CveUsuarioPara"].ToString().ToEntero(); int CveEventoEstatus = drow["CveEventoEstatus"].ToString().ToEntero(); - if (CveEventoEstatus ==4) + if (CveEventoEstatus == 4) { LnkEnviarMinuta.Visible = true; LnkSaveAcuerdos.Visible = false; @@ -136,13 +130,6 @@ public partial class OI_MinutaDetalle : ClsPaginas } hdnCveEventoEstatus.Value = CveEventoEstatus.ToString(); hdnCveEvento.Value = RCveEvento.ToString(); - //TxtAvance.Text = string.Format("{0:##0}", drow["Avance"]); - //TxtUsuarioreg.Text = string.Format("{0}", drow["NombreRegistro"]); - //TxtFechaIng.Text = string.Format("{0:dd/MM/yyyy}", drow["FechaIng"]); - //OIE.[CveEvento], OIE.[CveTipoEvento], OIE.[Folio], OIE.[Asunto], OIE.[Descripcion], OIE.[Prioridad], OIE.[CveUsuarioDe], OIE.[CveUsuarioPara], - //OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng], - //OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance] - StringBuilder StrDeUser = new StringBuilder(); StringBuilder StrCCPara = new StringBuilder(); ltlTituloPage.Text = drow["Asunto"].ToString(); @@ -182,7 +169,7 @@ public partial class OI_MinutaDetalle : ClsPaginas { int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); CheckBox ChkOk = gvRow.FCCheckBox("ChkOk"); - if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) + if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray())) { ChkOk.Checked = true; } @@ -379,7 +366,7 @@ public partial class OI_MinutaDetalle : ClsPaginas using (ClsOIEventos oieve = new ClsOIEventos()) { oieve.IniciaTransacSQL(); - Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, DateTime.Now, archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + Continuar = oieve.AddEventoMinuta2(asunto, descripcion, acuerdos, cveusuarioDe, cveusuarioPara, DateTime.Now, archivoname, lMiembros, chkList, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCorreoExterno.Text); CveEvento = oieve.CveEvento; Folio = oieve.Folio; @@ -448,13 +435,13 @@ public partial class OI_MinutaDetalle : ClsPaginas CheckBox ChkOk = gvRow.FCCheckBox("ChkOk"); if (ChkOk.Checked) { - int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); + int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); listaCCP.Add(CveUsuario); } } } int cveUsuarioPara = DdlTareaPara.SelectedValue.ToEntero(); - + OITipoEventos cveTipoEvento = OITipoEventos.Tarea; string asunto = TxtTareaAsunto.Text; string descripcion = TxtTareaDescripcion.Text; @@ -513,12 +500,12 @@ public partial class OI_MinutaDetalle : ClsPaginas if (cveUsuarioDe <= 0) { - errorMessage = "No se selecciono el miembro 'C C Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; } if (cveUsuarioPara <= 0) { - errorMessage = "No se selecciono el miembro 'Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\""; } if (errorMessage.Length == 0) @@ -536,7 +523,7 @@ public partial class OI_MinutaDetalle : ClsPaginas using (ClsOIEventos objOI = new ClsOIEventos()) { objOI.IniciaTransacSQL(); - Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento); + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento); CveEvento = objOI.CveEvento; Folio = objOI.Folio; if (CveEvento == 0) @@ -637,12 +624,12 @@ public partial class OI_MinutaDetalle : ClsPaginas if (cveUsuarioDe <= 0) { - errorMessage = "No se selecciono el miembro 'C C Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; } if (cveUsuarioPara <= 0) { - errorMessage = "No se selecciono el miembro 'Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\""; } if (errorMessage.Length == 0) @@ -827,7 +814,7 @@ public partial class OI_MinutaDetalle : ClsPaginas ClsSisMail Mail = new ClsSisMail(); - Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString(), TxtAsunto.Text, Body.ToString(), CCP: ArrayCC); + Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + TxtCorreoExterno.Text, TxtAsunto.Text, Body.ToString(), CCP: ArrayCC); Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion); Retorno = true; } @@ -845,7 +832,6 @@ public partial class OI_MinutaDetalle : ClsPaginas StringBuilder StrSB = new StringBuilder(); string DireccionURL = "";// GlobalDTParametros(SisParametros.URL).Cadena1; - string Variables = ""; string Tarea; string De; @@ -1164,7 +1150,8 @@ public partial class OI_MinutaDetalle : ClsPaginas protected void LnkSaveAcuerdos_Click(object sender, EventArgs e) { - using (ClsOIEventos ObjEventos =new ClsOIEventos()) { + using (ClsOIEventos ObjEventos = new ClsOIEventos()) + { ObjEventos.UpdateEventoMinuta(TxtAsunto.Text, TxtDescripcion.Text, TxtAcuerdos.Text.Replace("< ", "<"), new DateTime(1999, 1, 1), "-1", RCveEvento); } } @@ -1173,4 +1160,95 @@ public partial class OI_MinutaDetalle : ClsPaginas { cargarAgenda(); } + + protected void BtnTerminarYAgendar_Click(object sender, EventArgs e) + { + + + + string errorMessage = ""; + + + int cveUsuarioDe = UsuarioActual.CveUsuario; + List listaCCP = new List(); + //int cveUsuarioPara = CveUsuarioPara; + + OITipoEventos cveTipoEvento = OITipoEventos.Agenda; + string asunto = TxtAgendaAsunto.Text; + string descripcion = string.Format("siguiente reunión Minuta \"{0}\"", TxtAsunto.Text); + int prioridad = 1; + int cveAgendaTipo = 4; + string fechaInicio = ""; + string fechaFin = "1900/01/01 00:00"; + if (txtFechaI.Text.ToDateTimeExcat().Year <= 1999) + { + if (txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").Year <= 1999) + { + errorMessage = "No se ingresó una fecha de inicio valida"; + + } + else + { + fechaInicio = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd HH:mm"); + fechaFin = txtFechaI.Text.ToDateTimeExcat("dd/MM/yyyy").AddHours(2).ToString("yyyy/MM/dd HH:mm"); + } + } + else + { + fechaInicio = txtFechaI.Text.ToDateTimeExcat().ToString("yyyy/MM/dd HH:mm"); + fechaFin = txtFechaI.Text.ToDateTimeExcat().AddHours(2).ToString("yyyy/MM/dd HH:mm"); + } + int cveRevision = -1; + string archivoname = ""; + + + + int cveUsuarioIng = UsuarioActual.CveUsuario; + int cveEmpresa = UsuarioActual.CveEmpresa; + bool Continuar = true; + int Folio = -1; + int CveEvento = -1; + + if (errorMessage.Length == 0) + { + + List chkList = new List(); + using (ClsOIEventos objOI = new ClsOIEventos()) + { + objOI.IniciaTransacSQL(); + foreach (var cveUsuarioPara in LCveUsuarioCCP) + { + if (Continuar) + { + Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEvento, null, cveAgendaTipo); + CveEvento = objOI.CveEvento; + Folio = objOI.Folio; + if (CveEvento == 0) + { + Continuar = false; + } + } + } + if (Continuar) + { + objOI.Commit(); + + } + else + { + objOI.RollBack(); + Continuar = false; + } + } + if (Continuar && CveEvento > 0) + { + + LnkTerminarMinuta_Click(null, null); + //this.Alert("Se ha agregadó la nueva agenda", ModExtensiones.TipoMensaje.MsgInformacion, string.Format("window.open(\"/OI/TareaDetalle.aspx?CveEvento={0}\", \"_blank\");", CveEvento)); + } + } + } + + + } \ No newline at end of file diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 134463ca9..550252871 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -159,12 +159,9 @@
  • Reasignar
  • - PDF
    • + Agregar Vinculo - - - @@ -228,7 +225,7 @@
    - + <%----%> @@ -353,7 +350,7 @@ -
    + + + + @@ -202,7 +202,7 @@ - Guardar + Guardar diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index a70268443..3b8108453 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -188,12 +188,12 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl if (cveUsuarioDe <= 0) { - errorMessage = "No se selecciono el miembro 'C C Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"C C Para\""; } if (cveUsuarioPara <= 0) { - errorMessage = "No se selecciono el miembro 'Para'"; + errorMessage = "Asegúrese de seleccionar al menos un miembro \"Para\""; } if (errorMessage.Length == 0) @@ -306,7 +306,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - this.Alert("Tema agregada con éxito.", ModExtensiones.TipoMensaje.MsgInformacion); + this.Alert("Tema Agregada con éxito.", ModExtensiones.TipoMensaje.MsgInformacion); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); if (Ismodal) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b87da3631..2ac6ca603 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4441,12 +4441,19 @@
    +
    +
    + @@ -4470,7 +4477,7 @@ Descripción - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ef9c79f9c..2fe50ab7a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3561,7 +3561,7 @@ Partial Class Clientes Private Sub CargaEventoBitacora() Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then - GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") + GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)") Else GvEB.DataSource = Nothing End If @@ -10039,5 +10039,8 @@ Partial Class Clientes End If End Sub + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub End Class diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 3355cd25b..07149a6ab 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1927,7 +1927,7 @@ Partial Class PV Else ObjVentas.Commit() If ObjAC IsNot Nothing Then ObjAC.Commit() - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="BtnRefrescarPagina();") + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="document.location.href=""/Ventas/PV.aspx"";") End If ObjVentas.Dispose() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 5c7644475..601d94852 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4133,7 +4133,11 @@ Agendar
    +
    @@ -4142,6 +4146,7 @@ + @@ -4165,7 +4170,7 @@ Descripción - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d6ae66541..c9e1948fa 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16869,7 +16869,7 @@ Partial Class Ventas Dim ObjEventoBitacora As New ClsOIEventos() If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then - GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2") + GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento IN(6,2,1)") Else GvEB.DataSource = Nothing End If @@ -21903,12 +21903,19 @@ Partial Class Ventas End If ObjCliente.Dispose() - AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales) + Dim AplicaNuevoDocumento As Boolean = False + + 'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR + If UsuarioActual.CveEmpresa = 140 AndAlso GvCxC.Rows.Count = 0 Then + AplicaNuevoDocumento = True + End If + + AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales, AplicaNuevoDocumento:=AplicaNuevoDocumento) RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC") End Sub - Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True) + Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional AplicaNuevoDocumento As Boolean = False) Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS Is Nothing Then Alert("Ocurrió un error al cargar la información del producto. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) @@ -21951,41 +21958,48 @@ Partial Class Ventas DtImpuestos.AcceptChanges() Dim AcumuladoNC As Decimal = 0 - If AplicaNCMasiva Then - If NCDescuento Then - For Each RNC In ListaNCDesc - DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) - Next - Else + If Not AplicaNuevoDocumento Then + If AplicaNCMasiva Then + If NCDescuento Then + For Each RNC In ListaNCDesc + DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + Next + Else - For Each Gvr As GridViewRow In GvCxC.Rows - If Gvr.FCCheckBox("ChkCxC").Checked Then - DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) - 'CARGA FACTURA A LA CUAL SE APLICA LA NC - AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal - CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal) + For Each Gvr As GridViewRow In GvCxC.Rows + If Gvr.FCCheckBox("ChkCxC").Checked Then + DtImpuestos.Merge(CargaDtImpuestosNC(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + 'CARGA FACTURA A LA CUAL SE APLICA LA NC + AcumuladoNC += Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal + CargaNCDT(Gvr.DataKey("CveVenta").ToString().ToEntero(), Gvr.FCTextBox("TxtImporte").Text.ToString().ToDecimal) + End If + Next + End If + Else + DtImpuestos = CargaDtImpuestosNC(CveVenta, TxtNCImporte.Text.Trim.ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales) + + If EsNCAmortizacion Then + If DtAnticipoAmortizacion Is Nothing Then + InicializaDTAnticiposAmortizacion() End If - Next + Dim PorcentajeAplicado As Decimal = (TxtNCPorcentaje.Text.ToDecimal / 100D) + + Dim RowAnticipo As DataRow = DtAnticipoAmortizacion.NewRow + RowAnticipo("CveVenta") = Me.CveVenta + RowAnticipo("Importe") = TxtNCImporte.Text.Trim.ToDecimal + RowAnticipo("SaldoAnticipo") = SaldoAnticipo * PorcentajeAplicado + + DtAnticipoAmortizacion.Rows.Add(RowAnticipo) + End If + End If Else - DtImpuestos = CargaDtImpuestosNC(CveVenta, TxtNCImporte.Text.Trim.ToDecimal, AplicaImpuestosLocales:=AplicaImpuestosLocales) - - If EsNCAmortizacion Then - If DtAnticipoAmortizacion Is Nothing Then - InicializaDTAnticiposAmortizacion() - End If - Dim PorcentajeAplicado As Decimal = (TxtNCPorcentaje.Text.ToDecimal / 100D) - - Dim RowAnticipo As DataRow = DtAnticipoAmortizacion.NewRow - RowAnticipo("CveVenta") = Me.CveVenta - RowAnticipo("Importe") = TxtNCImporte.Text.Trim.ToDecimal - RowAnticipo("SaldoAnticipo") = SaldoAnticipo * PorcentajeAplicado - - DtAnticipoAmortizacion.Rows.Add(RowAnticipo) - End If - + For Each RNC In ListaRemisionesNC + DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales), True, MissingSchemaAction.Ignore) + Next End If + Dim query = From dr In DtImpuestos Group By PorcentajeIVA = dr("PorcentajeIVA").ToString().ToDecimal, PorcentajeRetIVA = dr("PorcentajeRetIVA").ToString().ToDecimal, @@ -22004,7 +22018,10 @@ Partial Class Ventas PorcentajeIEPS = PorcentajeIEPS '(1 + DrPS("IEPSPorcentaje").ToString().ToDecimal) - Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + 'Dim DrSubProyecto = GlobalDTSubProyectos(-1, TmpDT.FiltroPrimeroValor("CveSubProyecto", "", "ImporteTotal DESC").ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + + Dim DrSubProyecto = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("") + If DrSubProyecto Is Nothing Then Alert("Ocurrió un error al cargar la información de centro de costos. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) Exit Sub @@ -22100,8 +22117,8 @@ Partial Class Ventas Dim TmpDT As DataTable = Nothing Dim TmpDTImpuestos As DataTable = Nothing - Dim ObjVentas As New ClsVentas + Dim ObjVentas As New ClsVentas If ObjVentas.GetVentaImpuestosLocales(CveVentaNC) Then If ObjVentas.DtResultados.Rows.Count > 0 Then TmpDTImpuestos = ObjVentas.DtResultados.Copy() @@ -22127,7 +22144,8 @@ Partial Class Ventas End If ObjVentas.Dispose() - Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy + + Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy() DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal)) @@ -25423,4 +25441,7 @@ Partial Class Ventas Public EsPUModificado As Boolean = False End Class + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub End Class \ No newline at end of file diff --git a/vwd.webinfo b/vwd.webinfo index 6b76e11e1..c6b051639 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -52,6 +52,8 @@ + +