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/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc index d738cd3d9..8ca6204c4 100644 --- a/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc +++ b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc @@ -963,10 +963,10 @@ - =Parameters!FechaImpresion.Value + =Now diff --git a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc index cddde8146..3fd92c938 100644 --- a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc +++ b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc @@ -5,7 +5,7 @@ 0.08792cm 0cm - 20.06868cm + 19.15246cm @@ -16,7 +16,7 @@ - 5.89659cm + 7.3197cm 4.7613cm @@ -25,10 +25,10 @@ 1.60341cm - 3.72586cm + 2.55502cm - 4.01284cm + 2.80719cm @@ -457,10 +457,10 @@ DataSet1 - 0.36336cm - 0.06868cm + 0.26431cm + 0.10583cm 1.06771cm - 20cm + 19.04663cm 1 @@ -696,9 +696,9 @@ Textbox10 0.22726cm - 6.97591cm + 7.92841cm 0.36335cm - 2.92333cm + 3.55833cm 3 @@ -765,10 +765,10 @@ Textbox8 - 0.2202cm - 9.89924cm + 0.22726cm + 10.62431cm 0.37041cm - 2.5cm + 5.72096cm 5 diff --git a/Empresas/Grales/Formatos/TareaDetalle.rdlc b/Empresas/Grales/Formatos/TareaDetalle.rdlc new file mode 100644 index 000000000..6463f7438 --- /dev/null +++ b/Empresas/Grales/Formatos/TareaDetalle.rdlc @@ -0,0 +1,1144 @@ + + + + + + true + true + + + + + Asunto: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Asunto.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descripción: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + De + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + C.C. Para + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Para: + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!De.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Para.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CCPara.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Inicio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaInicio.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Fin: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaFin.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Prioridad: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Prioridad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tema: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tema.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estatus: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaRegistro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Registro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + 3.02083in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + NombreEmpresa + 0.26141cm + 5.50016cm + 1.31438cm + 5.19875cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Detalle de Tarea + + + + + + + Textbox3 + 2.03412cm + 5.50016cm + 0.6cm + 5.19875cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.50812cm + true + true + + + true + true + + + + + Usuario Imprimio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Now + + + + + + + Textbox8 + 0.78203cm + 5.56366cm + 0.37041cm + 5.72096cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.28787cm + 13.94934cm + 0.36335cm + 2.06587cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 2cm + 2cm + 2cm + 2cm + 0.13cm +