diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb
index 44dbcf836..05748e891 100644
--- a/App_Code/CalendarEvent.vb
+++ b/App_Code/CalendarEvent.vb
@@ -42,6 +42,9 @@ Public Class CalendarEvent
Public Property CveSubProyectoUsuarioAtendio As Integer
+ Public Property CveCompra As Integer
+ Public Property SerieFolioCompra As String
+
End Class
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index c812a6f51..56d781b38 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -2488,12 +2488,12 @@ Public Class ClsOIEventos
Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1,
Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -1,
Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1,
- Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1) As Boolean
+ Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveCompra As Integer = -1) As Boolean
Dim Retorno As Boolean = False
Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe,
- CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto)
+ CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto, CveCompra:=CveCompra)
Return Retorno
End Function
diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx
index 5be0ee8b2..6dfb8875c 100644
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -196,6 +196,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.NombreProveedor = dr("NombreProveedor").ToString
cevent.NomprePersonal = dr("NomprePersonal").ToString
+ cevent.CveCompra = dr("CveCompra").ToString.ToEntero
+ cevent.SerieFolioCompra = dr("SerieFolioCompra").ToString
cevent.CveOS = dr("CveOS").ToString.ToEntero
cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 53d1ec98b..ceb7351e6 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -1408,7 +1408,7 @@ public partial class CRM_Acercamiento : ClsPaginas
BtnGuardarAcercamiento.Visible = false;
BtnEliminarAcercamiento.Visible = false;
- DivAccionesBitacoraActividades.Visible = false;
+ DivAccionesBitacoraActividades.Visible = true;
DivAccionesBitacoraArchivos.Visible = false;
LnkCerrarAcercamiento.Visible = false;
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 7644e534e..7e8e59b76 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -3014,8 +3014,9 @@
Agregar
--%>
-
-
+
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 9c21cafd4..cb772c048 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1296,6 +1296,8 @@ Partial Class Compras_Compras
DivEsNoDeducible.Visible = True
DivActualizarVincular.Visible = True
DVModalAnticipoFechaEjecucion.Visible = True
+ HlEvento.Visible = True
+ HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;"
Else
ViewState("CveProveedor") = -1
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index ede08210b..e878fb243 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -3044,8 +3044,14 @@
Agregar
--%>
-
- Agendar
+
+
+ Agendar
+
+
+
+
+
@@ -3055,6 +3061,7 @@
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index cfdbc97fb..9ecc4b10e 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -536,9 +536,13 @@ Partial Class Compras_Proveedores
End If
HlEvento.Visible = True
HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveProveedor=" & CveProveedor & "&TB_iframe=true&height=370&width=600;"
+ LtlTareaNueva.Visible = True
+ LtlTareaNueva.Text = String.Format(" Tarea", CveProveedor)
CargaRepresentantes()
+
+
Else
'Configuración de Modalidad Insert
@@ -2776,6 +2780,9 @@ Partial Class Compras_Proveedores
ObjEventoBitacora.Dispose()
GvEB.DataBind()
End Sub
+ Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
+ CargaEventoBitacora()
+ End Sub
Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
diff --git a/Empresas/158/Formatos/Factura.rdlc b/Empresas/158/Formatos/Factura.rdlc
index 5b71c2e4a..551bbc326 100644
--- a/Empresas/158/Formatos/Factura.rdlc
+++ b/Empresas/158/Formatos/Factura.rdlc
@@ -2006,10 +2006,10 @@
2.35552in
- 0.76635in
+ 0.67141in
- 0.57354in
+ 0.66848in
0.59047in
@@ -2415,7 +2415,7 @@
Myriad Pro
7.5pt
Normal
- #,0.00
+ #,0.000
@@ -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
+
+