From d760bcff3f8a6b4301799ae1d49abc2ca2581d55 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 9 Aug 2023 23:36:50 -0700 Subject: [PATCH 1/7] Grafico Rep Anexo Catalogo --- Contabilidad2/RepAnexoCatalogoMensual.aspx | 169 ++++++++++++++++-- Contabilidad2/RepAnexoCatalogoMensual.aspx.vb | 133 ++++++++------ OC/OC.aspx.vb | 2 +- 3 files changed, 240 insertions(+), 64 deletions(-) diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index a42290962..697d3546f 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -7,7 +7,7 @@ @@ -2557,7 +2557,9 @@ - CodigoObjetoImpuesto @@ -2571,6 +2573,7 @@ 2pt + true diff --git a/Inicio.aspx b/Inicio.aspx index aac7cdca9..125ebff4c 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1877,7 +1877,7 @@ //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 ) { + if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 || event.CveCompra > 0) { $("#<%=LnkTituloLink.ClientID%>").css("display", ""); @@ -1907,6 +1907,13 @@ $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Proveedores.aspx?CveProveedor=" + event.CveProveedor); } + if (event.CveCompra > 0) { + $("#<%=LnkTituloLink.ClientID%>").text("Comppra: " + event.SerieFolioCompra); + $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Compras.aspx?CveCompra=" + event.CveCompra); + } + + + } else { $("#<%=LnkTituloLink.ClientID%>").css("display", "none") diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 27eb7218e..904b0dc2b 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -827,7 +827,14 @@ Partial Class OC_OC DdlSubProyecto.Items.Clear() ' aqui tiene otras condiciones especiales - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + + + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoContrato.Items.Clear() @@ -1959,7 +1966,14 @@ Partial Class OC_OC Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "") DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)) 'DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) ' GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) + + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ").FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -2543,6 +2557,12 @@ Partial Class OC_OC End If End If + + If TipoOC.ToUpper = "REQ" AndAlso CveEstatusFinalOK = CboE.SelectedValue.ToEntero AndAlso DdlProveedores.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + 'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then If CveConfianzaProveedor > 0 Then diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index 39af5e7be..11d980faf 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -334,6 +334,10 @@ Partial Class OI_PopUpAgenda CargaContarto(Request("CveContrato").ToEntero) End If + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CargaCompra(CveCompra:=Request("CveCompra").ToEntero) + End If + If Request("CveEvento") IsNot Nothing AndAlso IsNumeric(Request("CveEvento")) AndAlso Request("CveEvento").ToEntero > 0 Then @@ -355,6 +359,9 @@ Partial Class OI_PopUpAgenda End If End If End Sub + + + Private Sub Tarea() '1 CveTipoEvento = 1 @@ -684,6 +691,12 @@ Partial Class OI_PopUpAgenda CveUsuario = Request("CveUsuario").ToEntero End If + + Dim CveCompra As Integer = -1 + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CveCompra = Request("CveCompra").ToEntero + End If + '------------------------------------------ 'Recorrro Grid para obtener el usuario PARA For Each RowPara As GridViewRow In GVUsuarios.Rows @@ -710,7 +723,7 @@ Partial Class OI_PopUpAgenda Alert("La Nueva Tarea se guardó correctamente.", TipoMensaje.MsgInformacion) End If ElseIf CveTipoEvento = 2 Then - If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor) Then + If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveCompra:=CveCompra) Then Alert("La Nueva Agenda se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End If ElseIf CveTipoEvento = 3 Then @@ -1260,13 +1273,13 @@ Partial Class OI_PopUpAgenda End Sub Private Sub CargaProveedor(CveProveedor As Integer) - 'Dim ObjClaves As New ClsCompProveedores - ' hacerlo con el global dt - 'If ObjClaves.GetProveedores(CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then - ' If ObjClaves.DtResultados.Rows.Count > 0 Then - ' LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial - ' End If - 'End If + Dim ObjClaves As New ClsCompProveedores + + If ObjClaves.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If ObjClaves.DtResultados.Rows.Count > 0 Then + LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial + End If + End If End Sub Private Sub CargaUsuario(CveUsuario As Integer) @@ -1290,6 +1303,16 @@ Partial Class OI_PopUpAgenda End If End Sub + Private Sub CargaCompra(CveCompra As Integer) + Dim objCompra As New ClsCompras + + If objCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = objCompra.DtResultados.Rows(0) + LtlAgenda.Text = $" Compra: {dr("SerieFolio").ToString}" + End If + objCompra.Dispose() + End Sub + #End Region End Class diff --git a/Sistemas/DefinicionEmpresa.aspx.vb b/Sistemas/DefinicionEmpresa.aspx.vb index f6c772a5c..1ec831d97 100644 --- a/Sistemas/DefinicionEmpresa.aspx.vb +++ b/Sistemas/DefinicionEmpresa.aspx.vb @@ -502,8 +502,8 @@ Partial Class Sistemas_DefinicionEmpresa TxtPlantillaVenta.Text = .PlantillaMailVenta TxtAsunto.Text = .AsuntoPlantillaMailVenta - TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion - TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion + TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion + TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion 'NUEVOS TxtAreaGeografica.Text = .AreaGeografica @@ -914,7 +914,7 @@ Partial Class Sistemas_DefinicionEmpresa If TextoError = "" Then ObjEmpresas.Commit() If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit() - Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa2.aspx"";") + Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/DefinicionEmpresa.aspx"";") Session("FileUpload") = "" CargaDatos() UpDatos.Update() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index c52366fff..fbd6f8e67 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4853,11 +4853,17 @@ Agregar --%> -
-
+ +
+ + Agendar
+ +