AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-12-14 12:00:22 -07:00
parent fc44ce8b9f 96976bbfc2
commit 1f1e4c246e
8 changed files with 780 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/CalendarEvent.vb
View File

@@ -26,5 +26,8 @@ Public Class CalendarEvent
Public Property SubProyecto As String Public Property SubProyecto As String
Public Property CveSubProyecto As Integer Public Property CveSubProyecto As Integer
Public Property Direccion As String Public Property Direccion As String
Public Property CveEmpresaCRM As String
Public Property CveContactoCRM As String
Public Property CveAcercamientoCRM As String
End Class End Class

2
App_Code/ClsOIEventos.vb
View File

@@ -2452,7 +2452,7 @@ Public Class ClsOIEventos
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, -1, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, -1, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
CvePersonal, CvePersonal, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, 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)
Return Retorno Return Retorno

10
Ashx/CargaEventos.ashx
View File

@@ -129,6 +129,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
cevent.Direccion = dr("Direccion").ToString cevent.Direccion = dr("Direccion").ToString
cevent.CveEmpresaCRM = dr("CveEmpresaCRM").ToString
cevent.CveContactoCRM = dr("CveContactoCRM").ToString
cevent.CveAcercamientoCRM = dr("CveAcercamientoCRM").ToString
'11/05/2018 - Evento Gasto Recurrente '11/05/2018 - Evento Gasto Recurrente
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
If cevent.CveTipoEvento = 10 Then If cevent.CveTipoEvento = 10 Then
@@ -211,6 +216,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
cevent.Prospecto = dr("Prospecto").ToString cevent.Prospecto = dr("Prospecto").ToString
'11/05/2018 - Evento Gasto Recurrente '11/05/2018 - Evento Gasto Recurrente
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
If cevent.CveTipoEvento = 10 Then If cevent.CveTipoEvento = 10 Then
@@ -248,6 +255,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
cevent.Prospecto = dr("Prospecto").ToString cevent.Prospecto = dr("Prospecto").ToString
'11/05/2018 - Evento Gasto Recurrente '11/05/2018 - Evento Gasto Recurrente
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
If cevent.CveTipoEvento = 10 Then If cevent.CveTipoEvento = 10 Then

10
Bancos/PopIECompras.aspx
View File

@@ -211,6 +211,16 @@
<ajax:ValidatorCalloutExtender ID="VCEFuncionarioEmpleado" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuncionarioEmpleado" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEFuncionarioEmpleado" runat="server" HighlightCssClass="vco" TargetControlID="RFVFuncionarioEmpleado" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row" runat="server" id="RowCheque" visible="true">
<label class="col-xs-4">Cheque:</label>
<div class="col-xs-8">
<asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVCheques" runat="server" ControlToValidate="DDlCheques" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cheque''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCECheques" runat="server" HighlightCssClass="vco" TargetControlID="RFVCheques" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</asp:Panel> </asp:Panel>
<asp:Panel ID="PanelIngresos" runat="server" Visible="false"> <asp:Panel ID="PanelIngresos" runat="server" Visible="false">

99
Bancos/PopIECompras.aspx.vb
View File

@@ -428,6 +428,19 @@ Partial Class Bancos_PopIECompras
End Property End Property
Private Property DtCheques As DataTable
Get
If ViewState("DtCheques") Is Nothing Then
ViewState("DtCheques") = New DataTable
End If
Return CType(ViewState("DtCheques"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtCheques") = value
End Set
End Property
@@ -1077,36 +1090,65 @@ Partial Class Bancos_PopIECompras
Protected Sub DdlFuncionarioEmpleado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFuncionarioEmpleado.SelectedIndexChanged Protected Sub DdlFuncionarioEmpleado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFuncionarioEmpleado.SelectedIndexChanged
ArrIEFuncionariosEmpleados = New ArrayList() ArrIEFuncionariosEmpleados = New ArrayList()
ArrIE = New ArrayList() ArrIE = New ArrayList()
DtCheques = New DataTable
Dim objGastosXComprobar As New ClsMovimientos 'Dim objGastosXComprobar As New ClsMovimientos
Dim CvePersonal As Integer = DdlFuncionarioEmpleado.SelectedValue.ToEntero Dim CvePersonal As Integer = DdlFuncionarioEmpleado.SelectedValue.ToEntero
If objGastosXComprobar.GetEgresosSinComprobarPersonal(UsuarioActual.CveEmpresa) Then 'If objGastosXComprobar.GetEgresosSinComprobarPersonal(UsuarioActual.CveEmpresa) Then
'For Each Row As DataRow In objGastosXComprobar.DtResultados.FiltraParametros("CvePersonal > 0 AND FechaDocumento IS NOT NULL").Rows
' ArrIE.Add(New Anticipos With {.CveIE = Row("CveIE").ToString.ToEntero, .Importe = Row("Saldo").ToString.ToDecimal, .CvePersonal = Row("CvePersonal").ToString.ToEntero})
'Next
For Each Row As DataRow In objGastosXComprobar.DtResultados.FiltraParametros("CvePersonal > 0 AND FechaDocumento IS NOT NULL").Rows
ArrIE.Add(New Anticipos With {.CveIE = Row("CveIE").ToString.ToEntero, .Importe = Row("Saldo").ToString.ToDecimal, .CvePersonal = Row("CvePersonal").ToString.ToEntero})
Next
If CveCompra > 0 Then Dim ObjMovtos As New ClsMovimientos
For Each Ant As Anticipos In ArrIE RowCheque.Visible = True
If Ant.CvePersonal = CvePersonal Then
ArrIEFuncionariosEmpleados.Add(New Anticipos With {.CveIE = Ant.CveIE, .Importe = Ant.Importe, .CvePersonal = Ant.CvePersonal})
End If
Next
'actualizo el monto maximo a pagar en el movimiento bancario
Dim tSaldo As Decimal = DdlFuncionarioEmpleado.SelectedItem.Text.Split(CChar("-"))(1).ToDecimal
If tSaldo < MovimientoPagar.Saldo Then
TxtImporte.Text = tSaldo.FormatoNumero()
End If
End If
ObjMovtos.GetEgresosSinComprobarPersonalDetalle(DdlFuncionarioEmpleado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
DtCheques = ObjMovtos.DtResultados.FiltraParametros("CveIE > 0", "FechaDocumento, FolioFecha")
'Limpia Ddl Cheques
DDlCheques.Items.Clear()
If DtCheques.Rows.Count > 0 Then
DDlCheques.DataSource = DtCheques
End If End If
ObjMovtos.Dispose()
DDlCheques.DataBind()
'EstaAsociadoAPersonal = True
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
UpDatos.Update()
'End If
End Sub
Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged
'Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal
Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal
'TxtDocumentoImporteFE.Text = If(saldo < TxtTotal.Text.ToDouble, saldo.FormatoNumero, TxtTotal.Text)
'lblSaldoFE.Text = saldo.FormatoNumero
If CveCompra > 0 Then
'Dim tSaldo As Decimal = DdlFuncionarioEmpleado.SelectedItem.Text.Split(CChar("-"))(1).ToDecimal
If saldo < MovimientoPagar.Saldo Then
TxtImporte.Text = saldo.FormatoNumero()
Else
TxtImporte.Text = MovimientoPagar.Saldo.FormatoNumero()
End If
End If
UpDatos.Update()
End Sub End Sub
Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged
@@ -1389,22 +1431,25 @@ Partial Class Bancos_PopIECompras
ImportePagado = TxtImporte.Text.Trim.ToDecimal ImportePagado = TxtImporte.Text.Trim.ToDecimal
Fecha = TxtFechaDocumento.Text.Trim.ToDate Fecha = TxtFechaDocumento.Text.Trim.ToDate
TipoMovimiento = True TipoMovimiento = True
Case "2" 'FyE Case "2" 'FyE
ImportePagado = TxtImporte.Text.Trim.ToDecimal ImportePagado = TxtImporte.Text.Trim.ToDecimal
Fecha = TxtFechaDocumento.Text.Trim.ToDate Fecha = TxtFechaDocumento.Text.Trim.ToDate
CveConcepto = 29 CveConcepto = 29
CveIE = -1 CveIE = DDlCheques.SelectedValue.ToEntero
If ArrIEFuncionariosEmpleados IsNot Nothing AndAlso ArrIEFuncionariosEmpleados.Count > 0 Then
Dim objAray As Anticipos = DirectCast(ArrIEFuncionariosEmpleados(0), Anticipos)
CveIE = objAray.CveIE
End If
If Not CveIE > 0 Then If Not CveIE > 0 Then
Alert("No se encontro movimientos bancarios de perosonal", TipoMensaje.MsgAdvertencia) Alert("No se encontro movimientos bancarios de perosonal", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal
If TxtImporte.Text.ToDecimal > saldo Then
Alert("El importe no debe de superar el saldo del cheque seleccionado.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
TipoMovimiento = True TipoMovimiento = True
Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString
CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero

26
Compras/Compras.aspx.vb
View File

@@ -4165,7 +4165,7 @@ Partial Class Compras_Compras
Dim EstatusCredito As Integer = 0 Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0 Dim CveSubProyecto As Integer = 0
'Credito Multiple 'Credito Multiple
If RBLPago.SelectedValue.ToEntero = 2 Then If RBLPago.SelectedValue.ToEntero = 3 Then
If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
If Not TxtRembolsoNumero.Text.Length > 0 Then If Not TxtRembolsoNumero.Text.Length > 0 Then
Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia) Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
@@ -7276,16 +7276,30 @@ Partial Class Compras_Compras
End If End If
If importeMovimiento > 0 Then If importeMovimiento > 0 Then
Dim Pago As New CompraPago
Pago.ImportePago = importeFE
Pago.CveIE = -1
Pago.CvePersonal = CvePersonal
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) Dim Pago As New CompraPago
If DDlCheques.SelectedValue.ToEntero > 0 Then
Pago.ImportePago = importeFE
Pago.CveIE = DDlCheques.SelectedValue.ToEntero
Pago.CvePersonal = CvePersonal
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Else
Alert("Debe de seleccionar un cheque.", TipoMensaje.MsgAdvertencia)
ErrorPrepoliza = True
End If
End If End If
Case 21 'Anticipo Case 21 'Anticipo
If ArrAnticipos.Count > 0 Then If ArrAnticipos.Count > 0 Then

623
Inicio.aspx
View File

@@ -120,8 +120,8 @@
} }
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -133,13 +133,20 @@
<li> <li>
<asp:LinkButton ID="LnkAgregar" runat="server" Visible="false" OnClick="LnkAgregar_Click"><i class="fa fa-edit"></i><span style="padding: 10px">Editar Comunicado</span></asp:LinkButton> <asp:LinkButton ID="LnkAgregar" runat="server" Visible="false" OnClick="LnkAgregar_Click"><i class="fa fa-edit"></i><span style="padding: 10px">Editar Comunicado</span></asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkInconsistencias" runat="server" Visible="false" OnClick="LnkInconsistencias_Click1"><i class="fa fa fa-eye"></i><span style="padding: 10px">Inconsistencias</span></asp:LinkButton> <asp:LinkButton ID="LnkInconsistencias" runat="server" Visible="false" OnClick="LnkInconsistencias_Click1"><i class="fa fa fa-eye"></i><span style="padding: 10px">Inconsistencias</span></asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPPIndicador" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="UPPIndicador" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>
<div style="background-color: #F9F9F9;"> <div style="background-color: #F9F9F9;">
@@ -303,204 +310,19 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div id="ModalAgenda" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAgenda" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"><span id="SpanTituloAgenda">Agendar Evento</span></h4>
</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">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAgendaTipo" InitialValue="-1" runat="server" ControlToValidate="DdlAgedaTipo" CssClass="help-block errorimput" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de agenda''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label style="width: 90%;" for="<%=DdlAgedaTipo.ClientID.ToString()%>">Tipo de Asunto:</label>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlPrioridad" ClientIDMode="Static" Width="100%" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Baja" Value="1"></asp:ListItem>
<asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Alta" Value="3"></asp:ListItem>
</asp:DropDownList>
<label for="<%=DdlPrioridad.ClientID.ToString()%>">Prioridad:</label>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoAgenda" ClientIDMode="Static" MaxLength="100" CssClass="form-control" runat="server" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAsuntoAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsuntoAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Asunto''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtAsuntoAgenda.ClientID.ToString()%>">Asunto:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div id="DivDescripcionUpdate" style="width: 400px; height: 75px; padding-top: 10px; font-size: 14px; display: none;"></div>
<asp:TextBox ID="TxtDescripcionAgenda" ClientIDMode="Static" MaxLength="5000" runat="server" TextMode="MultiLine" Rows="2" CausesValidation="true" Width="100%" CssClass="form-control MultiLineTextBox"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcionAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcionAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Descripción''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaInicioAgenda" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>">Fecha de Inicio:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaInicioAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>:<br>El campo <b>''Fecha de Inicio''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaFinAgenda" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>">Fecha de Fin:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaFinAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaFinAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Fin''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
</div>
<div>
<asp:CheckBox Text="Recurrencia" ClientIDMode="Static" runat="server" ID="CheckRecurrencia" />
</div>
<asp:UpdatePanel runat="server" ClientIDMode="Static" UpdateMode="Conditional" ID="UpRecurrencia">
<ContentTemplate>
<div style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div style="float: left; width: 20%; height: 130px;">
<asp:RadioButtonList runat="server" CssClass="tablenopadding" RepeatDirection="Vertical" ID="RBLRecurrencia" AutoPostBack="true" OnSelectedIndexChanged="RBLRecurrencia_SelectedIndexChanged">
<asp:ListItem Text="1- Hora" Value="1" Selected="True" />
<asp:ListItem Text="2- Diario" Value="2" />
<asp:ListItem Text="3- Semanal" Value="3" />
<asp:ListItem Text="4- Mensual" Value="4" />
<asp:ListItem Text="5- Anual" Value="5" />
</asp:RadioButtonList>
</div>
<div style="float: left; width: 80%; height: 130px;">
<div runat="server" id="DivRecurrencia" visible="true" style="width: 100%; height: 100%;">
<asp:HiddenField runat="server" ID="HdnDiasSemanaAgendar" ClientIDMode="Static" Value="" />
<div class="col-md-12"></div>
<div class="row">
<div class="col-md-2" style="padding-right: 0px; text-align: right;">Cada:</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding-left: 0px !important; padding-right: 0px; padding-top: 0px; padding-bottom: 0px; margin-top: -6px;">
<div class="input-group input-sm" style="padding-top: 0px;">
<asp:TextBox ID="TxtFrecuencia" ClientIDMode="Static" Text="1" runat="server" Style="padding-top: 0px; padding-bottom: 0px;" Width="20px" CssClass="form-control input-sm" CausesValidation="true" TextMode="Number"></asp:TextBox>
<label style="margin-top: -3px; margin-left: -5px; width: 20px;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>"></label>
</div>
</div>
<%--<td>
<asp:TextBox runat="server" ClientIDMode="Static" ID="TxtFrecuencia" Text="1" Width="20px" />
</td>--%>
<div class="col-md-2" style="padding-left: 0px;">
<asp:Label Text="Hora(s)" runat="server" ID="LblTextoFrecuencia" />
</div>
</div>
<div class="row" id="TrDiasSemanaAdd" runat="server" style="display: none;">
<div class="col-md-12">
<asp:CheckBoxList runat="server" ID="CheckDiasSemana" ClientIDMode="Static" RepeatColumns="5" RepeatDirection="Horizontal">
<asp:ListItem Text="Lunes" Value="2" />
<asp:ListItem Text="Martes" Value="3" />
<asp:ListItem Text="Miercoles" Value="4" />
<asp:ListItem Text="Jueves" Value="5" />
<asp:ListItem Text="Viernes" Value="6" />
<asp:ListItem Text="Sabado" Value="7" />
<asp:ListItem Text="Domingo" Value="1" />
</asp:CheckBoxList>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="col-md-8" style="padding-left: 0px; padding-right: 0px;">
<asp:RadioButton Text="Terminar despues de:" ID="RBNumeroOcurrencias" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" />
</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" onclick="FechaFinSet('RBNumeroOcurrencias','TxtFechaFinRecurrencia');" ClientIDMode="Static" CssClass="form-control" TextMode="Number" ID="TxtNumeroOcurrencias" Width="20px" />
<label style="margin-top: 5px; margin-left: -15px; width: 20px;" for="<%= TxtNumeroOcurrencias.ClientID.ToString()%>"></label>
</div>
</div>
<div class="col-md-2" style="margin-top: 5px; padding-left: 5px;">Veces</div>
</div>
<div class="col-md-6">
<div class="row">
<div class="col-md-5" style="padding-left: 0px !important;">
<asp:RadioButton Text="Terminar en:" ID="RBFechaFin" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" Width="85px" />
</div>
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="form-group form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 108px!important; padding-top: 0px;">
<asp:TextBox ID="TxtFechaFinRecurrencia" ClientIDMode="Static" runat="server" CssClass="form-control" Height="28px" Width="80px" Font-Size="13px"></asp:TextBox>
<label style="margin-left: 10px; width: 85%;" for="<%= TxtFechaFinRecurrencia.ClientID.ToString()%>"></label>
<span class="input-group-btn " style="width: 28px">
<asp:LinkButton ID="imgFechaFinRecurrenciaAdd" class="btn default" runat="server" Style="padding-left: 8px; padding-top: 5px;" Height="28px" Width="28px"><i class="fa fa-calendar"></i></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFinRecurrenciaAdd" runat="server" TargetControlID="TxtFechaFinRecurrencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarioFechaFinRecurrenciaAdd" TargetControlID="TxtFechaFinRecurrencia" PopupButtonID="ImgFechaFinRecurrenciaAdd" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:RequiredFieldValidator ID="RFVFechaFinRecurrenciaAdd" runat="server" ControlToValidate="TxtFechaFinRecurrencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFechaFinRecurrenciaAdd" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFinRecurrenciaAdd" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 5px; margin-bottom: 10px;" />
<div class="col-md-3" style="padding-left: 0px; padding-right: 0px;">
<asp:CheckBox Text="Gasto Recurrente:" ClientIDMode="Static" runat="server" ID="ChkGastoRecurrente" />
</div>
<div class="form-group col-md-4 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: 0px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" ClientIDMode="Static" CssClass="form-control" ID="TxtImporteGastoRecurrente" Width="100px" onkeyup="FormatoMoneda(this)" />
<label style="margin-top: 5px; margin-left: -15px;" for="<%= TxtImporteGastoRecurrente.ClientID.ToString()%>"></label>
<%--<ajax:MaskedEditExtender ID="MEEgastoRecurrente" runat="server" TargetControlID="TxtImporteGastoRecurrente" Mask="999,999.99" MaskType="Number" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:HiddenField runat="server" ID="HdnCveEvento" ClientIDMode="Static" Value="-1" />
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarAgenda" />
<asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" OnClick="BtnEliminar_Click" Text="Eliminar" Style="display: none" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea continuar?" data-btn-ok-label="si" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div> </div>
</div> </div>
</div> </div>
<div class="col-md-6 col-sm-6" runat="server" id="DVDescargasBDH" visible="false"> <div class="col-md-6 col-sm-6" runat="server" id="DVDescargasBDH" visible="false">
<div class="portlet light "> <div class="portlet light ">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption"> <div class="caption">
<i class="fa fa-file-text-o font-red-sunglo"></i> <i class="fa fa-file-text-o font-red-sunglo"></i>
<span class="caption-subject font-red-sunglo bold uppercase" style="font-style:normal" >Documentos</span> <span class="caption-subject font-red-sunglo bold uppercase" style="font-style: normal">Documentos</span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -509,33 +331,33 @@
<a href="javascript:;" class="remove" data-original-title="" title=""></a> <a href="javascript:;" class="remove" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body" style="font-style:normal;font-weight:bold"> <div class="portlet-body" style="font-style: normal; font-weight: bold">
<asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDoc" runat="server" GridLines="None" OnRowDataBound="GvDoc_RowDataBound" CssClass="table " AutoGenerateColumns="False" ShowHeader="False" Width="100%"> <asp:GridView ID="GvDoc" runat="server" GridLines="None" OnRowDataBound="GvDoc_RowDataBound" CssClass="table " AutoGenerateColumns="False" ShowHeader="False" Width="100%">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
<div> <div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<asp:HyperLink ID="LnkDoc1" runat="server" NavigateUrl='<%# Eval("Liga") %>' Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre") %> </asp:HyperLink> <asp:HyperLink ID="LnkDoc1" runat="server" NavigateUrl='<%# Eval("Liga") %>' Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre") %> </asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm" id="divdoc20" runat="server" visible="false"> <div class="well well-sm" id="divdoc20" runat="server" visible="false">
<asp:HyperLink ID="LnkDoc2" runat="server" NavigateUrl='<%# Eval("Liga2") %>' Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre2") %> </asp:HyperLink> <asp:HyperLink ID="LnkDoc2" runat="server" NavigateUrl='<%# Eval("Liga2") %>' Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> <%# Eval("Nombre2") %> </asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
@@ -1107,8 +929,8 @@
</div> </div>
</div> </div>
<asp:UpdatePanel runat="server" ID="uppincons" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="uppincons" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="ModalInconsistencias" class="modal ADS fade" role="dialog"> <div id="ModalInconsistencias" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
@@ -1133,7 +955,7 @@
</div> </div>
<asp:GridView ID="GvIncons" runat="server" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" EmptyDataText="Felicidades, lo lograste, no tienes inconsistencias"> <asp:GridView ID="GvIncons" runat="server" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" EmptyDataText="Felicidades, lo lograste, no tienes inconsistencias">
</asp:GridView> </asp:GridView>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
@@ -1145,8 +967,8 @@
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div id="ModalNoTimbradasCentroCosto" class="modal ADS fade" role="dialog"> <div id="ModalNoTimbradasCentroCosto" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
@@ -1323,7 +1145,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<br /> <br />
<div class="text-center"> <div class="text-center">
</div> </div>
@@ -1379,7 +1201,7 @@
</div> </div>
</div> </div>
<div id="DVModalPSPorCaducar" class="modal ADS fade" role="dialog"> <div id="DVModalPSPorCaducar" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<!-- Modal content--> <!-- Modal content-->
@@ -1397,25 +1219,25 @@
<input type="text" id="TxtBusquedaPsCaducar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaPsCaducar','{0}')", GvModalPSPorCaducar.ClientID) %>" style="display: inline-block; width: 150px;" /> <input type="text" id="TxtBusquedaPsCaducar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaPsCaducar','{0}')", GvModalPSPorCaducar.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaPsCaducar','{0}')", GvModalPSPorCaducar.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaPsCaducar','{0}')", GvModalPSPorCaducar.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvModalPSPorCaducar" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros" ToolTip="Reporte de productos caducidad " CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None"> <asp:GridView ID="GvModalPSPorCaducar" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros" ToolTip="Reporte de productos caducidad " CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Almacén" DataField="Almacen" ItemStyle-Width="160px" /> <asp:BoundField HeaderText="Almacén" DataField="Almacen" ItemStyle-Width="160px" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" /> <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="150px" /> <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="150px" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="90px" /> <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="90px" />
<asp:TemplateField ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderText="Días de Cad." Visible="false"> <asp:TemplateField ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderText="Días de Cad." Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblTiempoCaducidad" runat="server" Text='<%# Eval("TiempoCaducidad", "{0:N0}")%>'></asp:Label> <asp:Label ID="LblTiempoCaducidad" runat="server" Text='<%# Eval("TiempoCaducidad", "{0:N0}")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
@@ -1432,7 +1254,7 @@
<div id="DVModalRSCOPorCaducar" class="modal ADS fade" role="dialog"> <div id="DVModalRSCOPorCaducar" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<!-- Modal content--> <!-- Modal content-->
@@ -1485,6 +1307,299 @@
</div> </div>
<div id="ModalAgenda" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAgenda" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"><span id="SpanTituloAgenda">Agendar Evento</span></h4>
</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 id="DVOpcionesAgenda">
<asp:UpdatePanel runat="server" ClientIDMode="Static" UpdateMode="Conditional" ID="UpOpcionesAgenda">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<asp:RadioButtonList runat="server" ID="RBLAgendaOpcion" OnSelectedIndexChanged="RBLAgendaOpcion_SelectedIndexChanged" AutoPostBack="true" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Value="0">Agenda</asp:ListItem>
<asp:ListItem Value="1">Cliente</asp:ListItem>
<asp:ListItem Value="2">Proveedor</asp:ListItem>
<asp:ListItem Value="3">Personal</asp:ListItem>
<asp:ListItem Value="4">CRM</asp:ListItem>
</asp:RadioButtonList>
</div>
</div>
<div class="row" runat="server" id="DVAgendaCliente" visible="false">
<div class="form-group col-md-12 form-md-line-input input-iconright selectmodal">
<asp:Label runat="server" style="width: 90%; color:#888888;" AssociatedControlID="DdlClientesWS" >Cliente:</asp:Label>
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="50%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 267px;"></ADS:Dropdownlost>
</div>
</div>
<div class="row" runat="server" id="DVAgendaProveedor" visible="false">
<div class="form-group col-md-12 form-md-line-input input-iconright selectmodal">
<asp:Label runat="server" style="width: 90%;color:#888888;" AssociatedControlID="DdlProveedor" >Proveedor:</asp:Label>
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlProveedor" runat="server" CssStyle="width: 267px;" Width="50%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div>
</div>
<div class="row" runat="server" id="DVAgendaPersonal" visible="false">
<div class="form-group col-md-12 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" Width="100%" DataTextField="NombreCompleto" DataValueField="CvePersonal">
</asp:DropDownList>
<asp:Label runat="server" style="width: 90%;" AssociatedControlID="DdlPersonal" >Personal:</asp:Label>
</div>
</div>
<div class="row" runat="server" id="DVAgendaCRM1" visible="false">
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlEmpresaCRM" Width="100%" DataTextField="Empresa" DataValueField="CveEmpresaCRM"
CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged">
<asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" style="width: 90%;" AssociatedControlID="DdlEmpresaCRM" >Prospecto:</asp:Label>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
</div>
</div>
<div class="row" runat="server" id="DVAgendaCRM2" visible="false">
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlAcercamientoCRM" ClientIDMode="Static" Width="100%" DataTextField="NombreAcercamiento" DataValueField="CveAcercamiento"
CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
</asp:DropDownList>
<label style="width: 90%;" for="<%=DdlAcercamientoCRM.ClientID.ToString()%>">Acercamiento/Oportunidad:</label>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlContactoCRM" ClientIDMode="Static" Width="100%" DataTextField="Nombre" DataValueField="CveContacto"
CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
</asp:DropDownList>
<label style="width: 90%;" for="<%=DdlContactoCRM.ClientID.ToString()%>">Contacto:</label>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</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">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAgendaTipo" InitialValue="-1" runat="server" ControlToValidate="DdlAgedaTipo" CssClass="help-block errorimput" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de agenda''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label style="width: 90%;" for="<%=DdlAgedaTipo.ClientID.ToString()%>">Tipo de Asunto:</label>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<asp:DropDownList ID="DdlPrioridad" ClientIDMode="Static" Width="100%" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Baja" Value="1"></asp:ListItem>
<asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Alta" Value="3"></asp:ListItem>
</asp:DropDownList>
<label for="<%=DdlPrioridad.ClientID.ToString()%>">Prioridad:</label>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoAgenda" ClientIDMode="Static" MaxLength="100" CssClass="form-control" runat="server" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVAsuntoAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsuntoAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Asunto''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtAsuntoAgenda.ClientID.ToString()%>">Asunto:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div id="DivDescripcionUpdate" style="width: 400px; height: 75px; padding-top: 10px; font-size: 14px; display: none;"></div>
<asp:TextBox ID="TxtDescripcionAgenda" ClientIDMode="Static" MaxLength="5000" runat="server" TextMode="MultiLine" Rows="2" CausesValidation="true" Width="100%" CssClass="form-control MultiLineTextBox"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcionAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcionAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Descripción''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
</div>
<div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaInicioAgenda" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>">Fecha de Inicio:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaInicioAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>:<br>El campo <b>''Fecha de Inicio''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaFinAgenda" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>">Fecha de Fin:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaFinAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaFinAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Fin''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
</div>
<div>
<asp:CheckBox Text="Recurrencia" ClientIDMode="Static" runat="server" ID="CheckRecurrencia" />
</div>
<asp:UpdatePanel runat="server" ClientIDMode="Static" UpdateMode="Conditional" ID="UpRecurrencia">
<ContentTemplate>
<div style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div style="float: left; width: 20%; height: 130px;">
<asp:RadioButtonList runat="server" CssClass="tablenopadding" RepeatDirection="Vertical" ID="RBLRecurrencia" AutoPostBack="true" OnSelectedIndexChanged="RBLRecurrencia_SelectedIndexChanged">
<asp:ListItem Text="1- Hora" Value="1" Selected="True" />
<asp:ListItem Text="2- Diario" Value="2" />
<asp:ListItem Text="3- Semanal" Value="3" />
<asp:ListItem Text="4- Mensual" Value="4" />
<asp:ListItem Text="5- Anual" Value="5" />
</asp:RadioButtonList>
</div>
<div style="float: left; width: 80%; height: 130px;">
<div runat="server" id="DivRecurrencia" visible="true" style="width: 100%; height: 100%;">
<asp:HiddenField runat="server" ID="HdnDiasSemanaAgendar" ClientIDMode="Static" Value="" />
<div class="col-md-12"></div>
<div class="row">
<div class="col-md-2" style="padding-right: 0px; text-align: right;">Cada:</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding-left: 0px !important; padding-right: 0px; padding-top: 0px; padding-bottom: 0px; margin-top: -6px;">
<div class="input-group input-sm" style="padding-top: 0px;">
<asp:TextBox ID="TxtFrecuencia" ClientIDMode="Static" Text="1" runat="server" Style="padding-top: 0px; padding-bottom: 0px;" Width="20px" CssClass="form-control input-sm" CausesValidation="true" TextMode="Number"></asp:TextBox>
<label style="margin-top: -3px; margin-left: -5px; width: 20px;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>"></label>
</div>
</div>
<%--<td>
<asp:TextBox runat="server" ClientIDMode="Static" ID="TxtFrecuencia" Text="1" Width="20px" />
</td>--%>
<div class="col-md-2" style="padding-left: 0px;">
<asp:Label Text="Hora(s)" runat="server" ID="LblTextoFrecuencia" />
</div>
</div>
<div class="row" id="TrDiasSemanaAdd" runat="server" style="display: none;">
<div class="col-md-12">
<asp:CheckBoxList runat="server" ID="CheckDiasSemana" ClientIDMode="Static" RepeatColumns="5" RepeatDirection="Horizontal">
<asp:ListItem Text="Lunes" Value="2" />
<asp:ListItem Text="Martes" Value="3" />
<asp:ListItem Text="Miercoles" Value="4" />
<asp:ListItem Text="Jueves" Value="5" />
<asp:ListItem Text="Viernes" Value="6" />
<asp:ListItem Text="Sabado" Value="7" />
<asp:ListItem Text="Domingo" Value="1" />
</asp:CheckBoxList>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="col-md-8" style="padding-left: 0px; padding-right: 0px;">
<asp:RadioButton Text="Terminar despues de:" ID="RBNumeroOcurrencias" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" />
</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" onclick="FechaFinSet('RBNumeroOcurrencias','TxtFechaFinRecurrencia');" ClientIDMode="Static" CssClass="form-control" TextMode="Number" ID="TxtNumeroOcurrencias" Width="20px" />
<label style="margin-top: 5px; margin-left: -15px; width: 20px;" for="<%= TxtNumeroOcurrencias.ClientID.ToString()%>"></label>
</div>
</div>
<div class="col-md-2" style="margin-top: 5px; padding-left: 5px;">Veces</div>
</div>
<div class="col-md-6">
<div class="row">
<div class="col-md-5" style="padding-left: 0px !important;">
<asp:RadioButton Text="Terminar en:" ID="RBFechaFin" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" Width="85px" />
</div>
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="form-group form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 108px!important; padding-top: 0px;">
<asp:TextBox ID="TxtFechaFinRecurrencia" ClientIDMode="Static" runat="server" CssClass="form-control" Height="28px" Width="80px" Font-Size="13px"></asp:TextBox>
<label style="margin-left: 10px; width: 85%;" for="<%= TxtFechaFinRecurrencia.ClientID.ToString()%>"></label>
<span class="input-group-btn " style="width: 28px">
<asp:LinkButton ID="imgFechaFinRecurrenciaAdd" class="btn default" runat="server" Style="padding-left: 8px; padding-top: 5px;" Height="28px" Width="28px"><i class="fa fa-calendar"></i></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFinRecurrenciaAdd" runat="server" TargetControlID="TxtFechaFinRecurrencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarioFechaFinRecurrenciaAdd" TargetControlID="TxtFechaFinRecurrencia" PopupButtonID="ImgFechaFinRecurrenciaAdd" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:RequiredFieldValidator ID="RFVFechaFinRecurrenciaAdd" runat="server" ControlToValidate="TxtFechaFinRecurrencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFechaFinRecurrenciaAdd" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFinRecurrenciaAdd" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 5px; margin-bottom: 10px;" />
<div class="col-md-3" style="padding-left: 0px; padding-right: 0px;">
<asp:CheckBox Text="Gasto Recurrente:" ClientIDMode="Static" runat="server" ID="ChkGastoRecurrente" />
</div>
<div class="form-group col-md-4 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: 0px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" ClientIDMode="Static" CssClass="form-control" ID="TxtImporteGastoRecurrente" Width="100px" onkeyup="FormatoMoneda(this)" />
<label style="margin-top: 5px; margin-left: -15px;" for="<%= TxtImporteGastoRecurrente.ClientID.ToString()%>"></label>
<%--<ajax:MaskedEditExtender ID="MEEgastoRecurrente" runat="server" TargetControlID="TxtImporteGastoRecurrente" Mask="999,999.99" MaskType="Number" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:HiddenField runat="server" ID="HdnCveEvento" ClientIDMode="Static" Value="-1" />
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarAgenda" />
<asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" OnClick="BtnEliminar_Click" Text="Eliminar" Style="display: none" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea continuar?" data-btn-ok-label="si" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
@@ -1670,6 +1785,15 @@
$("#ChkGastoRecurrente").prop('checked', false); $("#ChkGastoRecurrente").prop('checked', false);
$("#TxtImporteGastoRecurrente").val(""); $("#TxtImporteGastoRecurrente").val("");
$('#DVOpcionesAgenda').show();
$("#<%=DdlEmpresaCRM.ClientID%>").val('-1').change();
$("#DdlAcercamientoCRM").val('-1').change();
$("#DdlContactoCRM").val('-1').change();
$("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
$("#<%=LblEmpresaCRM.ClientID%>").text("");
} }
function updateEvent(event, element) { function updateEvent(event, element) {
@@ -1751,13 +1875,20 @@
$("#BtnActualizaAdd").click(); $("#BtnActualizaAdd").click();
//Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM
if (event.EmpresaCRM != "") { if (event.EmpresaCRM != "" && event.EmpresaCRM != undefined) {
$("#<%=LblEmpresaCRM.ClientID%>").css("display", "") $("#<%=LblEmpresaCRM.ClientID%>").css("display", "")
$("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM); $("#<%=LblEmpresaCRM.ClientID%>").text("Empresa: "+ event.EmpresaCRM);
} else { } else {
$("#<%=LblEmpresaCRM.ClientID%>").css("display", "none") $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
} }
$('#DVOpcionesAgenda').hide();
$("#<%=DdlEmpresaCRM.ClientID%>").val(event.CveEmpresaCRM);
$("#DdlAcercamientoCRM").val(event.CveAcercamientoCRM);
$("#DdlContactoCRM").val(event.CveContactoCRM);
} }
function RadionButtonSelectedValueSet(name, SelectdValue) { function RadionButtonSelectedValueSet(name, SelectdValue) {
$('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true); $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);

305
Inicio.aspx.vb
View File

@@ -4,6 +4,10 @@ Imports Extensiones
Imports System.Web.Services Imports System.Web.Services
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports System.Drawing Imports System.Drawing
Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
Imports ADSNetLibrary.SIGAPI.Services.CRM
Imports Telerik.Web.UI.Scheduler.Views
Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal
'Imports System.Reflection 'Imports System.Reflection
'Imports Telerik.Web.UI 'Imports Telerik.Web.UI
@@ -177,15 +181,7 @@ Partial Class Inicio
ViewState("FechaSel") = Now.ToShortDateString ViewState("FechaSel") = Now.ToShortDateString
'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse 'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
CargaGraficas()
End If
'CargaTareas()
If UsuarioActual.CveRol = 1 Then
divInd.Visible = True
CargaSubProyectos()
End If
'Ventas no timbradas por centro de costo 'Ventas no timbradas por centro de costo
If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto()
@@ -201,11 +197,15 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
'Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
'If Not EsDEV Then CargaGraficas()
' If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then MuestraInconsistencias() '100 End If
'End If 'CargaTareas()
If UsuarioActual.CveRol = 1 Then
divInd.Visible = True
CargaSubProyectos()
End If
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
@@ -235,9 +235,21 @@ Partial Class Inicio
LnkInconsistencias.Visible = True LnkInconsistencias.Visible = True
End If End If
IniializaDdlsOpcionesAgenda()
End If End If
End Sub End Sub
Private Sub CargaCalendarioGraficas()
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
CargaGraficas()
End If
InicializaCalendar()
End Sub
Private Sub CargaEvaluacionProveedor() Private Sub CargaEvaluacionProveedor()
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
Dim ObjProveedor As New ClsCompProveedores Dim ObjProveedor As New ClsCompProveedores
@@ -741,7 +753,46 @@ Partial Class Inicio
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
CargaTiposAgenda() CargaTiposAgenda()
CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);") CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);")
End Sub End Sub
Private Sub CargaDdlAcercamientoCRM()
DdlAcercamientoCRM.Items.Clear()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero)
Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet)
If objAcercamiento.IsSuccess Then
DdlAcercamientoCRM.DataSource = objAcercamiento.Result
DdlAcercamientoCRM.DataBind()
End If
DdlAcercamientoCRM.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
End Sub
Private Sub CargaDdlContactoCRM()
DdlContactoCRM.Items.Clear()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM)
If objServicio.IsSuccess Then
DdlContactoCRM.DataSource = objServicio.Result
DdlContactoCRM.DataBind()
End If
DdlContactoCRM.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
End Sub
Private Sub CargaTiposAgenda() Private Sub CargaTiposAgenda()
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
@@ -760,6 +811,7 @@ Partial Class Inicio
Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime()
Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime()
Dim validacionesAgendaOpcionesOK = True
RegistraScript("GetView();") RegistraScript("GetView();")
@@ -814,18 +866,107 @@ Partial Class Inicio
Alert("Ocurrió un error al actualizar el evento", TipoMensaje.MsgAdvertencia) Alert("Ocurrió un error al actualizar el evento", TipoMensaje.MsgAdvertencia)
End If End If
Else Else
If ObjEventos.AddEventoAgenda(DdlAgedaTipo.SelectedValue.ToEntero, TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) Then
Alert("El Evento se guardó correctamente", TipoMensaje.MsgInformacion) Dim CveCliente As Integer = -1
Dim CveProveedor As Integer = -1
Dim CvePersonal As Integer = -1
Dim CveEmpresaCRM As Integer = -1
Dim CveContactoCRM As Integer = -1
Dim CveAcercamientoCRM As Integer = -1
Dim Asunto As String = ""
Select Case RBLAgendaOpcion.SelectedValue
Case 1
CveCliente = DdlClientesWS.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveCliente > 0, True, False)
Asunto = $"Cliente: {DdlClientesWS.SelectedText} {TxtAsuntoAgenda.Text}"
Exit Select
Case 2
CveProveedor = DdlProveedor.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveProveedor > 0, True, False)
Asunto = $"Proveedor: {DdlProveedor.SelectedText} {TxtAsuntoAgenda.Text}"
Exit Select
Case 3
CvePersonal = DdlPersonal.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CvePersonal > 0, True, False)
Asunto = $"Personal: {DdlPersonal.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
Exit Select
Case 4
CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero
CveContactoCRM = DdlContactoCRM.SelectedValue.ToEntero
CveAcercamientoCRM = DdlAcercamientoCRM.SelectedValue.ToEntero
validacionesAgendaOpcionesOK = If(CveEmpresaCRM > 0, True, False)
If CveContactoCRM > 0 Then
Asunto = $"Contacto CRM: {DdlContactoCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
End If
If CveAcercamientoCRM > 0 Then
Asunto = $"Acercamiento oportunidad CRM: {DdlAcercamientoCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
End If
If CveEmpresaCRM > 0 And CveAcercamientoCRM = 0 And CveContactoCRM = 0 Then
Asunto = $"Prospecto CRM: {DdlEmpresaCRM.SelectedItem.Text} {TxtAsuntoAgenda.Text}"
End If
Exit Select
Case Else
Asunto = TxtAsuntoAgenda.Text
End Select
If validacionesAgendaOpcionesOK Then
If ObjEventos.AddEventoAgenda(DdlAgedaTipo.SelectedValue.ToEntero, Asunto, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe,
CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveCliente:=CveCliente, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal) Then
Alert("El Evento se guardó correctamente", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al Guardar el evento", TipoMensaje.MsgAdvertencia)
End If
Else Else
Alert("Ocurrió un error al Guardar el evento", TipoMensaje.MsgAdvertencia)
Dim MensajeAdvertencia As String = ""
Select Case RBLAgendaOpcion.SelectedValue
Case 1
MensajeAdvertencia = "Debe de seleccionar un cliente."
Exit Select
Case 2
MensajeAdvertencia = "Debe de seleccionar un proveedor."
Exit Select
Case 3
MensajeAdvertencia = "Debe de seleccionar un miembro de personal."
Exit Select
Case 4
MensajeAdvertencia = "Debe de seleccionar al menos una de las opciones de CRM."
Exit Select
Case Else
End Select
Alert(MensajeAdvertencia, TipoMensaje.MsgAdvertencia)
RegistraScript("if($get('CheckRecurrencia').checked) {$('#UpRecurrencia').show()} else {$('#UpRecurrencia').hide()};", "100")
End If End If
End If End If
ObjEventos.Dispose() ObjEventos.Dispose()
RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234")
LimpiaModalAgenda()
If validacionesAgendaOpcionesOK Then
RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234")
LimpiaModalAgenda()
End If
End Sub End Sub
Private Sub LimpiaModalAgenda() Private Sub LimpiaModalAgenda()
@@ -841,6 +982,8 @@ Partial Class Inicio
RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
TxtFrecuencia.Text = "1" TxtFrecuencia.Text = "1"
LblEmpresaCRM.Text = "" LblEmpresaCRM.Text = ""
UpModalAgenda.Update()
End Sub End Sub
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
@@ -1357,4 +1500,130 @@ Partial Class Inicio
End Sub End Sub
Private Sub IniializaDdlsOpcionesAgenda()
'CLIENTES
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
Else
DdlClientesWS.setEsWebService(False)
CargaClientes()
End If
'PROVEEDORES
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
DdlProveedor.setEsWebService(True)
DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
DdlProveedor.SelectedText = "Todos"
DdlProveedor.SelectedValue = "-1"
Else
DdlProveedor.setEsWebService(False)
DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.ddl.DataBind()
DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
DdlProveedor.ddl.AutoPostBack = False
DdlClientesWS.ddl.AutoPostBack = False
'PERSONAL
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal=1")
DdlPersonal.DataBind()
DdlPersonal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
CargaDdlEmpresaCRM()
RBLAgendaOpcion_SelectedIndexChanged(Nothing, Nothing)
End Sub
Private Sub CargaDdlEmpresaCRM()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1)
Dim objServicio = cRMService.GetEmpresasCRM(parametros)
If objServicio.IsSuccess Then
DdlEmpresaCRM.DataSource = objServicio.Result
DdlEmpresaCRM.DataBind()
DdlEmpresaCRM.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
If objServicio.Result.Count > 0 Then
DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing)
End If
End If
End Sub
Protected Sub DdlEmpresaCRM_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaDdlAcercamientoCRM()
CargaDdlContactoCRM()
UpOpcionesAgenda.Update()
End Sub
Private Sub CargaClientes()
If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.ddl.Items.Clear()
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
End Sub
Protected Sub RBLAgendaOpcion_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlClientesWS.ddl.SelectedValueExist(-1)
DdlClientesWS.txtText.Value = ""
DdlClientesWS.txtValue.Value = "-1"
DdlProveedor.ddl.SelectedValueExist(-1)
DdlProveedor.txtText.Value = ""
DdlProveedor.txtValue.Value = "-1"
DdlPersonal.SelectedValueExist(-1)
DdlEmpresaCRM.SelectedValueExist(-1)
DdlContactoCRM.SelectedValueExist(-1)
DdlAcercamientoCRM.SelectedValueExist(-1)
DVAgendaCliente.Visible = False
DVAgendaProveedor.Visible = False
DVAgendaPersonal.Visible = False
DVAgendaCRM1.Visible = False
DVAgendaCRM2.Visible = False
Select Case RBLAgendaOpcion.SelectedValue.ToEntero
Case 1
DVAgendaCliente.Visible = True
Exit Select
Case 2
DVAgendaProveedor.Visible = True
Exit Select
Case 3
DVAgendaPersonal.Visible = True
Exit Select
Case 4
DVAgendaCRM1.Visible = True
DVAgendaCRM2.Visible = True
Case Else
'Agenda
End Select
UpOpcionesAgenda.Update()
End Sub
End Class End Class