From 12d31c5e3cff6c953bffab80dfe6a0845ddbe73c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 29 Jul 2024 11:33:09 -0700 Subject: [PATCH] =?UTF-8?q?VyA=20identificar=20log=C3=ADstica,=20si=20ocup?= =?UTF-8?q?a=201=20=C3=B3=202=20operadores,=20campo=20nuevo=20nchoferes=20?= =?UTF-8?q?=201=20o=202?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/CalendarEvent.vb | 1 + App_Code/ClsContratos.vb | 11 +- App_Code/ClsPaginas.vb | 2 +- App_Code/ClsVentas.vb | 1 + Ashx/CargaEventos.ashx | 9 +- Bancos/ProveedoresAbonar.aspx | 89 +++++------- Compras/Compras.aspx.vb | 15 ++- Transportes/RepContratosCalendario.aspx | 52 ++++++- Transportes/RepContratosCalendario.aspx.vb | 149 ++++++++++++++++++--- 9 files changed, 235 insertions(+), 94 deletions(-) diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index f0a7a8aca..f9dd8c193 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -64,6 +64,7 @@ Public Class CalendarEvent Public Property CveMoneda As Integer Public Property Moneda As String + Public Property NumChoferes As Integer = 1 End Class diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 6d8b7fdf3..22f47b871 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -193,6 +193,7 @@ Public Class ClsContratos Public Property CvePartida As Integer Public Property CveDestino As Integer Public Property CveMasivo As Integer + Public Property NumChoferes As Integer = 1 #End Region #Region " C O N T R A T O S " @@ -318,7 +319,8 @@ Public Class ClsContratos Me.CantidadPasajeros = Data.Rows(0)("CantidadPasajeros").ToString.ToEntero Me.CvePartida = Data.Rows(0)("CvePartida").ToString.ToEntero Me.CveDestino = Data.Rows(0)("CveDestino").ToString.ToEntero - Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.NumChoferes = Data.Rows(0)("NumChoferes").ToString.ToEntero End If Retorno = True @@ -423,7 +425,8 @@ Public Class ClsContratos Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = -1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, - Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Boolean + Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, + Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = -1, Optional NumChoferes As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosUpdate") @@ -487,6 +490,7 @@ Public Class ClsContratos .Add("@CvePartida", SqlDbType.Int).Value = CvePartida .Add("@CveDestino", SqlDbType.Int).Value = CveDestino .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo + .Add("@NumChoferes", SqlDbType.Int).Value = NumChoferes End With Try SqlAdapter.Fill(Data) @@ -684,7 +688,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer) As Boolean + Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosValUnidadesAgendadasGet") @@ -694,6 +698,7 @@ Public Class ClsContratos .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c1ae046c4..a3a5c5ecd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7881,7 +7881,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) - If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(197, 189)) Then params.Add(New ReportParameter("FolioAdicional", dtOC(0)("FolioAdicional").ToString)) params.Add(New ReportParameter("Vendedor", dtOC(0)("Vendedor").ToString)) params.Add(New ReportParameter("Observacion", dtOC(0)("PrioridadObservacion").ToString)) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5ea5979ef..8c8c7823d 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3401,6 +3401,7 @@ Public Class ClsVentas .Add("@EsFilial", SqlDbType.Int).Value = EsFilial End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 8574dd9a6..692d486d6 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -552,13 +552,20 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero - cevent.backgroundColor = dr("BackgroundColor").ToString cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString cevent.NumeroContrato = dr("NumeroContrato").ToString cevent.Observaciones = dr("Observaciones").ToString cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero cevent.Moneda = dr("Moneda").ToString + cevent.NumChoferes = dr("NumChoferes").ToString.ToEntero + + If dr("CveChofer").ToString.ToEntero <= 0 Or (dr("CveChofer2").ToString.ToEntero <= 0 And cevent.NumChoferes = 2) Or dr("CveAF").ToString.ToEntero <= 0 Then + cevent.backgroundColor = "#bc9b1b" + End If + + + If Not cevent.recurrenciatipo > 0 Then diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 1f8fa17e7..d4318ac11 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -446,10 +446,10 @@ <%-- 11 --%> - + % Desc. - + @@ -721,63 +721,36 @@ //} } - function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk,Text,Tipo) { - - let idTxtDescuento = TxtDescuento.id - let idTxtAbonar = TxtAbonar.id - - let descuentoValue = $("#" + idTxtDescuento).val().trim(); - let descuentoParts = descuentoValue.split('+'); - let abonarConDescuento = 0.0; - - - if (descuentoParts.length === 1) { - - - if (isNaN(parseFloat(descuentoParts[0])) || descuentoParts[0] == "0") { - $("#" + idTxtAbonar).val(saldo.toFixed(2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - } else { - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2),2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } - - } else if (descuentoParts.length === 2) { - - if (isNaN(parseFloat(descuentoParts[0]))) { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento1 = saldo * (parseFloat(descuentoParts[0]) / 100); - - if (isNaN(parseFloat(descuentoParts[1]))) { - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - - let abonarConDescuento2 = abonarConDescuento - (abonarConDescuento * (parseFloat(descuentoParts[1]) / 100)); - - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento2.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - - } else { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } + function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk, Text, Tipo) { + let idTxtDescuento = TxtDescuento.id; + let idTxtAbonar = TxtAbonar.id; + + let descuentoValue = $("#" + idTxtDescuento).val().trim(); + let descuentoParts = descuentoValue.split('+'); + let abonarConDescuento = saldo; + + if (descuentoParts.length === 0 || (descuentoParts.length === 1 && descuentoParts[0] === "")) { + $("#" + idTxtAbonar).val(saldo.toFixed(2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + return; + } + + for (let i = 0; i < descuentoParts.length; i++) { + let descuentoPart = descuentoParts[i].trim(); + + if (isNaN(parseFloat(descuentoPart)) || descuentoPart === "0") { + continue; + } + + let descuento = abonarConDescuento * (parseFloat(descuentoPart) / 100); + abonarConDescuento -= descuento; + } + + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); } + + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0d7f05061..b4e27a62b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4227,12 +4227,14 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + + + '------------------ INICIA VALIDACIONES ------------------ + If Not ValidaPresupuesto(2) Then Exit Sub End If - '------------------ INICIA VALIDACIONES ------------------ - If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -4689,6 +4691,11 @@ Partial Class Compras_Compras Exit Sub End If + If DdlMoneda.SelectedValue.ToEntero > 1 And TxtTC.Text.ToDecimal <= 10 Then + Alert("Al seleccionar dólares, el tipo de cambio debe ser superior a 10.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + '------------------TERMINA VALIDACIONES------------------ @@ -8552,7 +8559,7 @@ Partial Class Compras_Compras If ArrAnticipos.Count > 0 Then For Each Ant As Compras_Compras.Anticipos In ArrAnticipos 'ImporteAnticipo += (Ant.Importe + Ant.ImporteComision) - ImporteAnticipo += (Ant.Importe) + ImporteAnticipo += ((Ant.Importe) + Ant.ImporteComision) Next End If @@ -17103,7 +17110,7 @@ Partial Class Compras_Compras 'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString ViewState("IVAPS") = PS("IVA").ToString If ViewState("IVAPS").ToString.ToEntero() = -1 Then - Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0) + Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)(0) ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() DdlProyecto.SelectedValueExist(Drr("CveProyecto")) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 9eae17ef2..1f8a98c28 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -207,8 +207,8 @@ + GridLines="None" data-sort="true" + DataKeyNames="CveContrato,NumeroContrato,DescripcionContrato,Ubicacion,FechaInicial,FechaFinal,CveCliente,NombreComercial,CveTipoAF,Importe,ImporteMin,ImporteMax,Observaciones,CveAF,CveChofer,CveChofer2,CveContratosEstatus,CantidadPasajeros,CveMoneda,Moneda,CveSubProyecto,NumChoferes"> @@ -421,7 +421,10 @@
+ Width="100%" runat="server" Enabled="true" + AutoPostBack="true" + OnSelectedIndexChanged="DdlTipoAF_SelectedIndexChanged" + >
@@ -447,6 +450,13 @@
+ +
+ +
+
+ +
- + + + +
@@ -515,6 +528,13 @@ + + + + + + + @@ -782,8 +802,21 @@ $('#<%=DdlTipoAF.ClientID%>').val(event.CveTipoAF); $('#<%=DdlSubProyectoModal.ClientID%>').val(event.CveSubProyecto); + $('#<%= HidCveTipoAF.ClientID%>').val( $('#<%=DdlTipoAF.ClientID%>').val() ); + $('#<%=BtnDdlTipoAF.ClientID%>').click(); - // alert(event.Moneda); + $('#HidNumChoferes').val(event.NumChoferes); + + + <%-- if (event.NumChoferes === 2) { + $('#<%= chkSegundoChofer.ClientID %>').prop('checked', true); + $('#<%= DVChofer2.ClientID %>').css('display', 'block'); + + + } else { + $('#<%= chkSegundoChofer.ClientID %>').prop('checked', false); + $('#<%= DVChofer2.ClientID %>').css('display', 'none'); + }--%> if (event.NombreComercial !== null) { @@ -793,6 +826,7 @@ } $('#HidModCveCliente').val(event.CveCliente); + $('#<%=BtnModal.ClientID%>').click(); } @@ -941,6 +975,14 @@ editable: true, minTime: "00:00:00", maxTime: "24:00:00", + eventOverlap: false, // No permitir la superposición de eventos + slotEventOverlap: false, // No permitir la superposición en vistas de agenda + eventRender: function (event, element) { + element.css({ + 'margin-bottom': '1px', // Ajusta el valor según sea necesario + 'margin-left': '1px' // Ajusta el valor según sea necesario + }); + }, events: { url: '/Ashx/CargaEventos.ashx', type: 'GET', diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 5ff342023..c3c4336fe 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -208,24 +208,17 @@ Partial Class RepContratosCalendario e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaInicial").ToDate.Ticks.ToString) End If End Sub - Protected Sub MostrarModal(sender As Object, e As System.EventArgs) + + + Protected Sub UpdateContrato(sender As Object, e As EventArgs) - If HidModClienteNombre.Value = "" Then - HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") + Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1) + + If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar un segundo chofer.", TipoMensaje.MsgAdvertencia) + Exit Sub End If - DdlClientes.SelectedText = HidModClienteNombre.Value - DdlClientes.SelectedValue = HidModCveCliente.Value - - DdlClientes.txtText.Value = HidModClienteNombre.Value - DdlClientes.txtValue.Value = HidModCveCliente.Value - - UpModal.Update() - - RegistraScript("$('#ModalActualizar').modal('show');") - End Sub - - Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim ObjContratos As New ClsContratos Dim DTAgendadados As New DataTable @@ -250,8 +243,12 @@ Partial Class RepContratosCalendario End If + + If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", DdlSubProyectoModal.SelectedValue.ToEntero, - -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then + -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, + CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, + CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then RegistraScript("$('#ModalActualizar').modal('hide');") Alert("Actualizado Correctamente.") End If @@ -263,8 +260,11 @@ Partial Class RepContratosCalendario InicializaCalendar() End Sub - Protected Sub UpdateModal(sender As Object, e As EventArgs) + Protected Sub UpdateModal(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim NumChoferes As Integer = GvRow.DataKey("NumChoferes").ToEntero + TxtFolio.Text = GvRow.DataKey("NumeroContrato") TxtCantidadPasajeros.Text = GvRow.DataKey("CantidadPasajeros") DdlClientes.SelectedValue = GvRow.DataKey("CveCliente") @@ -274,18 +274,117 @@ Partial Class RepContratosCalendario TxtUbicacion.Text = GvRow.DataKey("Ubicacion") TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy HH:mm:ss") TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy HH:mm:ss ") - TxtMoneda.Text = GvRow.DataKey("Moneda") - 'Requeridos - DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) + TxtMoneda.Text = GvRow.DataKey("Moneda") + 'Requeridos + DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer")) - DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) + DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) + + + chkSegundoChofer.Checked = If(NumChoferes = 2, True, False) + DdlEstatusContrato.SelectedValueExist(GvRow.DataKey("CveContratosEstatus")) - DdlSubProyectoModal.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) + DdlSubProyectoModal.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) + + DdlTipoAF.SelectedValueExist(GvRow.DataKey("CveTipoAF")) + DdlTipoAF_SelectedIndexChanged(Nothing, Nothing) + + DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) + CveContrato = GvRow.DataKey("CveContrato").ToEntero + + OcultarMostrarSegundoChofer() + UpCommando.Update() UpModal.Update() RegistraScript("$('#ModalActualizar').modal('show');") + End Sub + + Protected Sub MostrarModal(sender As Object, e As System.EventArgs) + + If HidModClienteNombre.Value = "" Then + HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") + End If + + DdlClientes.SelectedText = HidModClienteNombre.Value + DdlClientes.SelectedValue = HidModCveCliente.Value + + DdlClientes.txtText.Value = HidModClienteNombre.Value + DdlClientes.txtValue.Value = HidModCveCliente.Value + + chkSegundoChofer.Checked = If(HidNumChoferes.Value.ToEntero = 2, True, False) + + OcultarMostrarSegundoChofer() + + UpModal.Update() + + RegistraScript("$('#ModalActualizar').modal('show');") + End Sub + + Protected Sub chkSegundoChofer_CheckedChanged(sender As Object, e As EventArgs) + OcultarMostrarSegundoChofer() + End Sub + + Private Sub OcultarMostrarSegundoChofer() + + If chkSegundoChofer.Checked Then + DVChofer2.Attributes.Add("style", "display:block") + Else + DVChofer2.Attributes.Add("style", "display:none") + End If + + + UpCommando.Update() + UpModal.Update() + End Sub + + Protected Sub DdlTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaAFDdl(DdlTipoAF.SelectedValue.ToEntero) + End Sub + + Protected Sub BtnDdlTipoAF_Click(sender As Object, e As EventArgs) + + CargaAFDdl(HidCveTipoAF.Value.ToEntero) End Sub + + Private Sub CargaAFDdl(CveTipoAF As Integer) + 'Lista de Activos fijos + + DdlAF.ClearSelection() + DdlAF.SelectedValue = Nothing + DdlAF.Items.Clear() + + Dim ObjContratos As New ClsContratos + + + If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato, 2) Then + + If CveTipoAF > 0 Then + DdlAF.DataSource = ObjContratos.DtResultados.FiltraParametros($" CveTipoActivoFijo = {CveTipoAF} ") + Else + DdlAF.DataSource = ObjContratos.DtResultados + End If + + + + End If + ObjContratos.Dispose() + + 'If CveTipoAF > 0 Then + ' DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($" EstadoActivoFijo= 'Activo' AND CveTipoActivoFijo = {CveTipoAF} ") + 'Else + ' DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($" EstadoActivoFijo= 'Activo' ") + 'End If + + DdlAF.DataBind() + DdlAF.Items.Insert(0, New ListItem("-", "-1")) + + + + UpModal.Update() + + End Sub + Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) End Sub @@ -325,4 +424,10 @@ Partial Class RepContratosCalendario Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs) CargaCronograma(DdlTipoVista.SelectedValue.ToEntero) End Sub + + + + + + End Class