diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c16b91bb9..090a76161 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10391,8 +10391,7 @@ Public Class ClsPaginas PaginaDict.Add("/MQ/OrdenTrabajo.aspx".ToUpper, 1412) PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413) PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414) - - PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, -1) + PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, 1415) #End Region #Region "Nomina" 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/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index a78ec0fb7..ef2bf7701 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -751,6 +751,8 @@ Partial Class Inventarios_RecepcionUsados End Sub Private Sub LimpiarMovimiento() CveMovimiento = -1 + CveRemisionRecibida = -1 + CargoRemisionDesdeURL = False If ObjFactura IsNot Nothing Then ObjFactura.Dispose() @@ -771,7 +773,7 @@ Partial Class Inventarios_RecepcionUsados RblUsadosAjuste.Enabled = True RblUsadosAjuste.SelectedValue = "0" - CveRemisionRecibida = -1 + EsDistribuidor = False InicializaClientes(True) DdlClientes.Enabled = True @@ -831,6 +833,14 @@ Partial Class Inventarios_RecepcionUsados 'CargaInicial() + + If Me.ObjRemisionNC IsNot Nothing Then + Me.ObjRemisionNC.Dispose() + Me.ObjRemisionNC = Nothing + End If + + DtMovimientos.Rows.Clear() + UpGenerales.Update() UpRegistroTipoCambio.Update() UPDatos.Update() @@ -1234,12 +1244,14 @@ Partial Class Inventarios_RecepcionUsados End If End Sub Private Sub BtnGenerarRNC_Click(sender As Object, e As EventArgs) Handles BtnGenerarRNC.Click - Guardar(True) + Guardar(True, RecargarPagina:=True) End Sub Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False) If GvM.Rows.Count > 0 Then - Dim Msg As New StringBuilder() + Dim MsgError As New StringBuilder() + Dim Msg As New StringBuilder + Dim Resp As Modelos.Factura.MMensajeFactura = Nothing Dim ObjInventario As New ClsInventarios Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL()) @@ -1255,9 +1267,7 @@ Partial Class Inventarios_RecepcionUsados Dim CveSubProyecto As Integer = -1 Dim ActivoFijo As Integer = -1 - If CveMovimiento > 0 Then - Else - + If Not CveMovimiento > 0 Then Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero)) Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero)) @@ -1281,22 +1291,23 @@ Partial Class Inventarios_RecepcionUsados CargaDTDetalleRNC() Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL) - 'For Each mensaje2 As String In Resp.Mensajes - ' Msg.AppendFormat("
{0}", mensaje2) - 'Next - If Resp.TieneError Then ErrorMovInv = True - 'Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia)) - CveVenta = Resp.CveVenta - If Resp.CveMovimientoUsado <= 0 Then - Msg.Append("Error al guardar los movimientos de usados") + If Resp.TieneError Then ErrorMovInv = True + + If Resp.CveVenta > 0 Then + CveVenta = Resp.CveVenta + Else + MsgError.Append("Error al generar la remisión de nota de crédito") ErrorMovInv = True End If + If Resp.CveMovimientoUsado <= 0 Then + MsgError.Append("Error al guardar los movimientos de usados") + ErrorMovInv = True + End If End If - Dim Mensaje As String = "" Dim FolioInv As String = "" If GenerarRNC Then @@ -1314,7 +1325,7 @@ Partial Class Inventarios_RecepcionUsados Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G") If CveMovimiento <= 0 Then - Mensaje = "Error al guardar los movimientos" + MsgError.Append("Error al guardar los movimientos") ErrorMovInv = True Else FolioInv = ObjInventario.Folio.ToString() @@ -1322,14 +1333,14 @@ Partial Class Inventarios_RecepcionUsados For Each Dr As DataRow In DtMovimientos.Rows If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - Mensaje = "Error al guardar los movimientos" + MsgError.Append("Error al guardar los movimientos") ErrorMovInv = True Exit For End If If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then - Mensaje = "Error al actualizar el recibo de los usados" ErrorMovInv = True + MsgError.Append("Error al actualizar el recibo de los usados") Exit For End If @@ -1346,7 +1357,7 @@ Partial Class Inventarios_RecepcionUsados If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, Puntos, Cargo, Bonificacion, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, NowADS(), CveMovimiento:=CveMovimiento) Then - Mensaje = "Error al guardar Movimientos de distribuidor" + MsgError.Append("Error al guardar Movimientos de distribuidor") ErrorMovInv = True Exit For End If @@ -1354,24 +1365,10 @@ Partial Class Inventarios_RecepcionUsados End If Next - 'ACTUALIZA LA POLIZA VIRTUAL DEL LA REMISION - 'If Not ErrorMovInv AndAlso ObjFactura.TipoDocto = "Rem" Then - ' If ObjAcum.GetPolizasVirtuales(ObjFactura.CveVenta) Then - ' Dim DtPoliza As DataTable = ObjAcum.DtResultados.Copy() - ' For Each RowPoliza As DataRow In DtPoliza.Rows - ' If Not ObjAcum.UpdatePolizaVirtual(RowPoliza("CvePolizaVirtual").ToString().ToEntero, DdlMarcaRem.SelectedValue.ToEntero(), TxtFechaVigencia.Text.ToDateTime()) Then - ' Mensaje = "Error al guardar la póliza virtual" - ' ErrorMovInv = True - ' Exit For - ' End If - ' Next - - ' DtPoliza.Dispose() - ' Else - ' Mensaje = "Error al obtener la póliza virtual" - ' ErrorMovInv = True - ' End If - 'End If + If Not ErrorMovInv AndAlso ObjFactura.CveCliente <> CveCliente Then + ErrorMovInv = True + MsgError.Append("Error al asignar el cliente") + End If ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC If Not ErrorMovInv Then @@ -1384,14 +1381,12 @@ Partial Class Inventarios_RecepcionUsados If Not ErrorMovInv Then + If Resp IsNot Nothing Then For Each mensaje2 As String In Resp.Mensajes Msg.AppendFormat("
{0}", mensaje2) Next End If - End If - - If Not ErrorMovInv Then Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", FolioInv, CveMovimiento) Msg.AppendFormat("

Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) @@ -1399,27 +1394,17 @@ Partial Class Inventarios_RecepcionUsados If IDPoliza > 0 Then Msg = Msg.AppendFormat("

Ver Póliza", IDPoliza) ObjInventario.Commit() ' aplica los movimientos insertados - - 'Limpia Valores cuando inserta de campos especiales - If UsuarioActual.CveEmpresa = 66 Then - DdlSubProyecto.SelectedValueExist("-1") - End If - - ' EnvioCorreo() - - CargaPendientesRecibir() - UPDatos.Update() - Else ObjInventario.RollBack() 'deshace lo insertado CveMovimiento = 0 - Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError) + MsgError.Append("Ocurrió un error al registrar.") + Alert(MsgError.ToString(), TipoMensaje.MsgError) End If End If Catch ex As Exception ObjInventario.RollBack() 'deshace lo insertado CveMovimiento = 0 - Alert("Ocurrió un Error inesperado en el registro" & ex.Message, TipoMensaje.MsgError) + Alert("Ocurrió un error inesperado en el registro" & ex.Message, TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End Try @@ -1435,15 +1420,19 @@ Partial Class Inventarios_RecepcionUsados End If Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False) - End If + If CveRemisionRecibida > 0 Then + CargaRemisionesPendientes() + UPDatos.Update() + End If + End If Else Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End If LimpiarMovimiento() - CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) + CargaGVM(DtMovimientos) End Sub @@ -1655,7 +1644,7 @@ Partial Class Inventarios_RecepcionUsados #End Region #Region " GVM " - Private Sub CargaGVM(DtTemp As DataTable) + Private Sub CargaGVM(ByRef DtTemp As DataTable) GvM.DataSource = DtTemp GvM.DataBind() @@ -2243,10 +2232,10 @@ Partial Class Inventarios_RecepcionUsados End Sub Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs) - CargaPendientesRecibir() + CargaRemisionesPendientes() End Sub - Private Sub CargaPendientesRecibir() + Private Sub CargaRemisionesPendientes() Dim ObjVentas As New ClsVentas If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then GVPendientes.DataSource = ObjVentas.DtResultados @@ -2365,8 +2354,7 @@ Partial Class Inventarios_RecepcionUsados End If If DtUsados IsNot Nothing Then - - 'DivRecepcionApartado.Visible = True + AgregarUsado = True For Each RowUsado As DataRow In DtUsados.Rows Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() @@ -2382,8 +2370,9 @@ Partial Class Inventarios_RecepcionUsados Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero() AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle) - Next + + AgregarUsado = False End If Else Alert("No se pudo recibir la remisión", TipoMensaje.MsgAdvertencia) diff --git a/MQ/HorometroDiario.aspx.vb b/MQ/HorometroDiario.aspx.vb index d4c1749d1..7b4ca2a7b 100644 --- a/MQ/HorometroDiario.aspx.vb +++ b/MQ/HorometroDiario.aspx.vb @@ -2,6 +2,7 @@ Imports System.Data Imports System.Linq +Imports CrystalDecisions.Shared.Json Imports Extensiones Partial Class AF_HorometroDiario @@ -60,10 +61,21 @@ Partial Class AF_HorometroDiario Private Sub CargCombos() - DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) + Dim ObjActivosFijos As New ClsAF + + + If ObjActivosFijos.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then + DdlAF.DataSource = ObjActivosFijos.DtResultados.FiltraParametros(" MedidaVehicular in (2, 3) ") + Else + DdlAF.DataSource = Nothing + End If + + DdlAF.DataBind() + + DdlSubProyecto.Items.Clear() DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() diff --git a/MQ/TipoOrdenTrabajo.aspx.vb b/MQ/TipoOrdenTrabajo.aspx.vb index e734ff8f2..42f9edbfc 100644 --- a/MQ/TipoOrdenTrabajo.aspx.vb +++ b/MQ/TipoOrdenTrabajo.aspx.vb @@ -307,7 +307,7 @@ Partial Class MQ_TipoOrdenTrabajo GvMaterial.DataSource = DTMateriales Else - GvMaterial = Nothing + GvMaterial.DataSource = Nothing End If ObjAF.Dispose() @@ -1198,6 +1198,7 @@ Partial Class MQ_TipoOrdenTrabajo If ErrorProceso Then ObjAF.RollBack() + CveTipoServicio = -1 Else ObjAF.Commit() Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion) 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 e29c96c02..5d866cce3 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -5,7 +5,20 @@ @@ -28,61 +41,57 @@ <%--Calendario Tab--%> - <%-- Filtros --%> - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - +
    +
    +
    + + +
    +
    +
    + +
    + + + + -
    -
    -
    -
    +
    +
    +
    +
    - -
    + +
    -
    -
    -
    -
    -
    -

     

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

     

    +
    +
    +
    +
    +
    +
    +
    +
    +
    <%--Contratos Tab--%> - + - <%-- Filtros --%> - - -
    + <%-- Filtros --%> + <%-- Filtros --%> + + +
    + <%-- Filtro Visible - Consulta --%>
    @@ -143,43 +152,36 @@
    - + <%-- Filtro Oculto --%> +
    -     + <%-- Contratos --%> @@ -190,11 +192,12 @@ - + - + Fecha
    Salida @@ -210,7 +213,7 @@     - + @@ -244,7 +247,7 @@ - + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 7db256019..cbd2ceb86 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 @@ -34,7 +33,7 @@ Partial Class RepContratosCalendario txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString If Not IsPostBack Then - CargaCombos() + InicializaCombos() InicializaCalendar() CargaDatos() End If @@ -62,23 +61,25 @@ 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("-", "")) @@ -114,6 +115,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() @@ -177,8 +179,4 @@ Partial Class RepContratosCalendario End If End Sub - - Protected Sub BtnConsultarListado_Click(sender As Object, e As EventArgs) - CargaDatos() - 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() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 8d2ce4861..4adeb74f4 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7029,7 +7029,6 @@
    -