diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 851a7d32a..e2eb1826e 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -533,14 +533,26 @@ + + + + + +
+ + + + +
- +
+ +
+
+ +

-
-
- - -
+ diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index b05648ad7..b7108b91a 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1110,6 +1110,22 @@ Partial Class Bancos_PopIEVentas #Region "G U A R D A R" Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + If ChkComplementoPago.Checked Then + Dim objGral As New ClsGralFolios + Dim SalirDeMetodo As Boolean = False + If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then + If Not objGral.DtResultados.Rows.Count > 0 Then + Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) + SalirDeMetodo = True + End If + End If + objGral.Dispose() + If SalirDeMetodo Then + Exit Sub + End If + End If + + Dim FechaFactura As Date = FechaVenta Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index a22070ac6..e7360a3c1 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -97,9 +97,9 @@ Partial Class Bancos_RepComplementoPago Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) End If End If - - 'CargaDatos() - + objGral.Dispose() + 'CargaDatos() + End If End Sub diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 13e26033c..3546aa177 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3039,6 +3039,9 @@ Partial Class OS_OrdenesServicios Case 5 Opcion = 3 Exit Select + Case 6 + Opcion = 4 + Exit Select Case Else Opcion = 1 Exit Select diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 11ca1db6b..c29ecdb22 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,5 +1,10 @@ -Imports System.Data +Option Explicit On +Option Strict On +Imports System.Data +Imports ADSNetLibrary.Helpers +Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones +Imports Extensiones.ModExtensiones Partial Class Boletos Inherits ClsPaginas @@ -28,12 +33,13 @@ Partial Class Boletos ViewState("CveViaje") = value End Set End Property - Private Property CveRuta As Integer + + Private Property Contrato As DataTable Get - Return ViewState("CveRuta").ToString().ToEntero + Return CType(ViewState("Contrato"), DataTable) End Get - Set(value As Integer) - ViewState("CveRuta") = value + Set(value As DataTable) + ViewState("Contrato") = value End Set End Property #End Region @@ -44,7 +50,6 @@ Partial Class Boletos Response.Redirect("/Transportes/RepViajes.aspx") End If AsientoSeleccionado = "" - CveRuta = 0 CveViaje = Request.QueryString("CveViaje").ToEntero If CveViaje > 0 Then CargaDatos() @@ -55,43 +60,26 @@ Partial Class Boletos End Sub Private Sub CargaDatos() - 'Datos Viaje - Dim ObjViaje As New ClsTransportes - Dim retornoViaje As Boolean = ObjViaje.GetViajes(CveViaje, UsuarioActual.CveEmpresa) - - If retornoViaje AndAlso ObjViaje.CveViaje > 0 Then - CveRuta = ObjViaje.CveRuta - TxtRuta.Text = ObjViaje.Ruta - TxtFecha.Text = ObjViaje.Fecha.ToShortDateString - CargaDestinos() - 'Boletos Vendidos - Dim dt As DataTable - If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) Then 'Poner párametro para estatus y cancelado de viajes - dt = ObjViaje.DtResultados - Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) - For Each dr As DataRow In dt.Rows - Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton) - If lnk IsNot Nothing Then - lnk.Enabled = False - lnk.CssClass = "nodisponible" - lnk.ToolTip = dr("Nombre").ToString - End If - Next - End If + Dim ObjContratos As New ClsContratos + If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then + Contrato = ObjContratos.DtResultados + Else + Response.Redirect($"~/Transportes/RepContratos.aspx") End If - ObjViaje.Dispose() + + TxtRuta.Text = Contrato.Rows(0)("Ruta").ToString + TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString + End Sub Protected Sub InicializaCombos() + Dim CveRuta As Integer = Contrato.Rows(0)("CveRuta").ToString.ToEntero + 'Lista Destinos''carga específicos - - End Sub - - Protected Sub CargaDestinos() Dim ObjDestinos As New ClsTransportes() - - If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then + If Not ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then + Else If ObjDestinos.DtResultados.Rows.Count > 0 Then @@ -106,6 +94,10 @@ Partial Class Boletos End If ObjDestinos.Dispose() End Sub + + Protected Sub CargaDestinos() + + End Sub Protected Sub CotizarTarifa(sender As Object, e As EventArgs) If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then @@ -145,7 +137,6 @@ Partial Class Boletos AsientoSeleccionado = buttonID End Sub Protected Sub AddBoleto(sender As Object, e As EventArgs) - If AsientoSeleccionado = "" Then Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia) Exit Sub @@ -175,7 +166,6 @@ Partial Class Boletos CargaDatos() UpPanel.Update() End Try - End Sub diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 8bf97c7b4..353c09528 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -25,7 +25,6 @@ <%-- Información General --%> - <%-- Datos del Contrato --%>
@@ -184,6 +183,12 @@ + <%-- Boletos --%> + + + + + diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index ad154f5dc..e33e2bc64 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -5,6 +5,7 @@ Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones + Partial Class RepContratoDetalle Inherits ClsPaginas Private Property CveContrato As Integer @@ -48,6 +49,9 @@ Partial Class RepContratoDetalle Response.Redirect($"~/Transportes/RepContratos.aspx") End If + If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then + TabBoletos.Visible = True + End If LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index aab73242d..6668718ee 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -8,172 +8,137 @@ - <%-- --%> + - - -
  • - Agregar Contrato -
    • -     -     -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • +
  • + Agregar Contrato +
    • + +
  • + Personalizar Columnas +
    • +
  • + Generar PDF +
    • +
  • + Generar Excel +
    • <%-- Filtros --%> - - -
    + + +
    + <%-- Filtro Visible - Consulta --%>
    - +
    -
    - -
    - Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    - Fecha Fin: - -
    -
    -
    - - - - -
    - - - - - - -
    - - -
    - - <%-- - - --%> -
    - - - -
    - - -
    - +
    + <%-- Fecha Inicial --%> + +
    +
    + + + + +
    + + +
    - + <%-- Fecha Final --%> + +
    +
    + + + + +
    + + + +
    + <%-- Cliente --%> + +
    + +
    + <%-- Estatus --%> + +
    + + +
    +
    +
    +
    + <%-- Filtro Oculto --%> + -
    - + <%-- Listado de Contratos --%> @@ -183,7 +148,8 @@ - + @@ -224,6 +190,25 @@ + + <%-- Columnas Ocultas --%> + + + + + + + + + + + + + + + + + @@ -398,6 +383,38 @@
    + <%-- Modal para personalizar columnas --%> + + + + + diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 378662391..74b9e4cd8 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -1,5 +1,6 @@ Option Explicit On Option Strict On +Imports System.Data Imports Extensiones Imports Extensiones.ModExtensiones Imports Microsoft.Reporting.WebForms @@ -8,7 +9,14 @@ Partial Class ListadoContratos Inherits ClsPaginas #Region "Propiedad" - + Private Property DtAvanceDocumento As DataTable + Get + Return CType(ViewState("DtAvanceDocumento"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtAvanceDocumento") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") @@ -25,9 +33,9 @@ Partial Class ListadoContratos DdlTipoAF.DataBind() DdlTipoAF.Items.Insert(0, New ListItem("-", "")) - DdlTIpoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) - DdlTIpoUnidad.DataBind() - DdlTIpoUnidad.Items.Insert(0, New ListItem("-", "")) + DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) + DdlTipoUnidad.DataBind() + DdlTipoUnidad.Items.Insert(0, New ListItem("-", "")) 'Lista Chofer' DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataBind() @@ -42,16 +50,16 @@ Partial Class ListadoContratos End If If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - DdlEstatusConsulta.DataSource = ObjContratos.DtResultados - DdlEstatusConsulta.DataBind() - DdlEstatusConsulta.Items.Insert(0, New ListItem("-", "")) + DdlEstatus.DataSource = ObjContratos.DtResultados + DdlEstatus.DataBind() + DdlEstatus.Items.Insert(0, New ListItem("-", "")) End If 'Generamos Folio - NumeroContrato Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero Dim ObjFolio As New ClsGralFolios If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then If ObjFolio.DtResultados.Rows.Count > 0 Then - Dim drr As Data.DataRow = ObjFolio.DtResultados.FiltroPrimero("") + Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("") LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}" End If End If @@ -114,7 +122,7 @@ Partial Class ListadoContratos Dim Imagen As New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Cliente As String = If(DdlClientes.SelectedValue = "-1", "", $" Cliente: {DdlClientes.SelectedText}") - Dim dt As Data.DataTable = ObjContratos.DtResultados + Dim dt As DataTable = ObjContratos.DtResultados Dim params As New List(Of ReportParameter) From { New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa), New ReportParameter("FechaInicio", "-1"), @@ -130,56 +138,15 @@ Partial Class ListadoContratos End If End Sub Protected Sub Consultar(sender As Object, e As EventArgs) - Dim fechaInicial As String = txtFechaI.Text - Dim fechaFinal As String = txtFechaF.Text - - Dim cliente As String = If(DdlClientes.SelectedValue = "", "", $"C.CveCliente = {DdlClientes.SelectedValue} AND") - Dim estatus As String = "" - Dim nombreEstatus As String = "" - Dim innerEstatus As String = "" - - Dim tipoUnidad As String = "" - Dim nombreTipoUnidad As String = "" - Dim innerTipoUnidad As String = "" - - Dim chofer As String = "" - Dim nombreChofer As String = "" - Dim innerChofer As String = "" - - If (DdlEstatusConsulta.SelectedValue <> "") Then - estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND" - nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1" - innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus " - End If - - If (DdlTIpoUnidad.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - If (DdlChofer.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - - 'Dim intervalo As String = If(DdlEstatusConsulta.SelectedValue = "" And DdlClientes.SelectedValue = "", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'") - - - 'Dim query As String = $"SELECT *, ISNULL(Cli.NombreComercial,'') AS NombreComercial {nombreEstatus} FROM Con_Contratos C LEFT JOIN Clientes Cli with(nolock) ON Cli.CveCliente = C.CveCliente {innerEstatus} WHERE {cliente} {estatus} {intervalo}" - - 'Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - ' Using command As New SqlCommand(query, connection) - ' connection.Open() - ' Dim reader As SqlDataReader = command.ExecuteReader() - ' GvContratos.DataSource = reader - ' GvContratos.DataBind() - ' End Using - 'End Using - UpTitulos.Update() End Sub - + Protected Sub ModalPersonalizar(sender As Object, e As EventArgs) + RegistraScript("$('#DivPersonalizar').modal('show')") + End Sub + Protected Sub Personalizar(sender As Object, e As EventArgs) + GvContratos.Columns(6).Visible = ChkChofer.Checked + GvContratos.Columns(7).Visible = ChkChofer2.Checked + GvContratos.Columns(8).Visible = ChkUnidad.Checked + UpTitulos.Update() + End Sub End Class diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 471b4bdec..ab7cca780 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -5,7 +5,20 @@ @@ -28,163 +41,154 @@ <%--Calendario Tab--%> - <%-- Filtros --%> - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - +
    +
    +
    + + +
    +
    +
    + +
    + + + + -
    -
    -
    -
    +
    +
    +
    +
    - -
    + +
    -
    -
    -
    -
    -
    -

     

    -
    -
    -
    -
    -
    -
    -
    -
    -
    -     -     - +
    +
    +
    +
    +
    +

     

    +
    +
    +
    +
    +
    +
    +
    +
    +
    <%--Contratos Tab--%> - + - <%-- Filtros --%> - - -
    + <%-- Filtros --%> + <%-- Filtros --%> + + +
    + <%-- Filtro Visible - Consulta --%>
    -
    - -
    - Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    - Fecha Fin: - -
    -
    -
    - - - - -
    - - - - - - -
    - - -
    - - <%-- - - --%> -
    - - - -
    - - -
    - +
    + <%-- Fecha Inicial --%> + +
    +
    + + + + +
    + + +
    - + <%-- Fecha Final --%> + +
    +
    + + + + +
    + + + +
    + <%-- Cliente --%> + +
    + +
    + <%-- Estatus --%> + +
    + + +
    +
    +
    +
    + <%-- Filtro Oculto --%> + -
    - + <%-- Contratos --%> @@ -195,11 +199,12 @@ - + - + Fecha
    Salida @@ -215,7 +220,7 @@     - + @@ -249,7 +254,7 @@ - + @@ -260,6 +265,7 @@ +     diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 057c83d93..265a14ee4 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -1,7 +1,6 @@ Option Explicit On Option Strict On Imports System.Data -Imports System.Data.SqlClient Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones.ModExtensiones Imports GemBox.Spreadsheet @@ -29,12 +28,12 @@ Partial Class RepContratosCalendario End Property #End Region - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T") If Not IsPostBack Then - CargaCombos() + InicializaCombos() InicializaCalendar() CargaDatos() @@ -54,7 +53,9 @@ Partial Class RepContratosCalendario DtAvance = ObjContratos.DtResultados If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - + DdlEstatus.DataSource = ObjContratos.DtResultados + DdlEstatus.DataBind() + DdlEstatus.Items.Insert(0, New ListItem("-", "")) DdlEstatusContrato.DataSource = ObjContratos.DtResultados DdlEstatusContrato.DataBind() @@ -70,39 +71,30 @@ Partial Class RepContratosCalendario DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True End Sub - Private Sub CargaCombos() + Private Sub InicializaCombos() 'Lista de Tipos de activo fijos DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.Items.Insert(0, New ListItem("-", "")) DdlTipoAF.DataBind() + DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) + DdlTipoUnidad.DataBind() + DdlTipoUnidad.Items.Insert(0, New ListItem("-", "")) 'Lista de Activos fijos DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlAF.DataBind() DdlAF.Items.Insert(0, New ListItem("-", "")) 'Lista Chofer' - DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") + DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataBind() DdlChofer.Items.Insert(0, New ListItem("-", "")) - - DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") + DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer2.DataBind() DdlChofer2.Items.Insert(0, New ListItem("-", "")) - - DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") - DdlChoferFiltro.DataBind() - DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "")) - - DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)") - DdlTipoUnidad.DataBind() - DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1")) - - DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) - DdlEstatusConsulta.DataBind() - DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1")) - - CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) + DdlChoferConsulta.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) + DdlChoferConsulta.DataBind() + DdlChoferConsulta.Items.Insert(0, New ListItem("-", "")) End Sub @@ -116,6 +108,7 @@ Partial Class RepContratosCalendario RegistraScript("$('#ModalActualizar').modal('show');") End Sub + Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() @@ -153,42 +146,8 @@ Partial Class RepContratosCalendario RegistraScript("$('#ModalActualizar').modal('show');") End Sub Protected Sub Consultar(sender As Object, e As EventArgs) - Dim fechaInicial As String = txtFechaI.Text - Dim fechaFinal As String = txtFechaF.Text - Dim cliente As String = If(DdlClientes.SelectedValue = "", "", $"C.CveCliente = {DdlClientes.SelectedValue} AND") - Dim estatus As String = "" - Dim nombreEstatus As String = "" - Dim innerEstatus As String = "" - - Dim tipoUnidad As String = "" - Dim nombreTipoUnidad As String = "" - Dim innerTipoUnidad As String = "" - - Dim chofer As String = "" - Dim nombreChofer As String = "" - Dim innerChofer As String = "" - - If (DdlEstatusConsulta.SelectedValue <> "") Then - estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND" - nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1" - innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus " - End If - - If (DdlTIpoUnidad.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - If (DdlChofer.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - UpTitulos.Update() End Sub - Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) End Sub @@ -213,5 +172,4 @@ Partial Class RepContratosCalendario Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If End Sub - End Class diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx index 7fe762428..387dd678f 100644 --- a/Transportes/RepViajes.aspx +++ b/Transportes/RepViajes.aspx @@ -83,12 +83,11 @@ CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'> - - - + + + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 599476524..58c50a68d 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -615,6 +615,22 @@ Partial Class Ventas_ClientesAbonar Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + If ChkComplementoPago.Checked Then + Dim objGral As New ClsGralFolios + Dim SalirDeMetodo As Boolean = False + If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then + If Not objGral.DtResultados.Rows.Count > 0 Then + Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) + SalirDeMetodo = True + End If + End If + objGral.Dispose() + If SalirDeMetodo Then + Exit Sub + End If + End If + + 'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then Dim files As Extensiones.Files = Anexo.getfiles()