Mosrar el nombre de la empresaCRM que se le asigno el evento

App_Code/CalendarEvent.vb

@@ -27,4 +27,6 @@ Public Class CalendarEvent
     Public Property Prospecto As String
     Public Property CveTipoEvento As Integer
     Public Property Importe As Double
+    Public Property EmpresaCRM As String
+
 End Class

Ashx/CargaEventos.ashx

@@ -50,6 +50,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
     Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date) As Boolean
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
+        Dim CveEmpresaCRM As Integer = 0
         If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuario, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
@@ -76,6 +77,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
                         cevent.Prospecto = dr("Prospecto").ToString
                         cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                        cevent.EmpresaCRM = dr("EmpresaCRM").ToString
 
                         '11/05/2018 - Evento Gasto Recurrente
                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero

Inicio.aspx

@@ -308,7 +308,11 @@
                                                     </div>
 
                                                     <div class="modal-body">
-
+                                                        <div class="row">
+                                                            <div class="col-md-12" style="text-align: center;">
+                                                                <asp:Label ID="LblEmpresaCRM" runat="server" Text=""  style="font-size: 16px; display: none; text-align: center;"></asp:Label>
+                                                            </div>
+                                                        </div>
                                                         <div class="row">
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
                                                                 <asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
@@ -1453,7 +1457,6 @@
             $("#TxtFrecuencia").val('');
 
             $("#TxtAsuntoAgenda").val(event.title);
-
             //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR,
             //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD
             $("#DivDescripcionUpdate").html(event.description);
@@ -1517,9 +1520,16 @@
             //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA
             $("#BtnActualizaAdd").click();
 
-        }
+            //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM
+            if (event.EmpresaCRM != "") {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "")
+                $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM);
+            } else {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
+            }
 
-        function RadionButtonSelectedValueSet(name, SelectdValue) {
+        }
+       function RadionButtonSelectedValueSet(name, SelectdValue) {
             $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);
         }
 

Inicio.aspx.vb

@@ -769,6 +769,7 @@ Partial Class Inicio
         CheckDiasSemana.ClearSelection()
         RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
         TxtFrecuencia.Text = "1"
+        LblEmpresaCRM.Text = ""
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)