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

-

Browse Source
This commit is contained in:
rrene
2024-02-16 11:25:30 -07:00
parent 0a9f6f4041 ee5fa45b9a
commit 3530de022e
18 changed files with 452 additions and 422 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPaginas.vb
View File

@@ -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"

24
Bancos/PopIEVentas.aspx
View File

@@ -533,14 +533,26 @@
<td align="center">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<table>
<tr>
<td>
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
</td>
<td>
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
</td>
</tr>
</table>
<div class="row">
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
<div class="col-md-6">
</div>
<div class="col-md-6">
</div>
<br />
</div>
<div class="roe">
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</td>

16
Bancos/PopIEVentas.aspx.vb
View File

@@ -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

6
Bancos/RepComplementoPago.aspx.vb
View File

@@ -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

111
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -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("<br>{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("<br>{0}", mensaje2)
Next
End If
End If
If Not ErrorMovInv Then
Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}' target='_blank'>{0}</a></b>", FolioInv, CveMovimiento)
Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
@@ -1399,27 +1394,17 @@ Partial Class Inventarios_RecepcionUsados
If IDPoliza > 0 Then Msg = Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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)

14
MQ/HorometroDiario.aspx.vb
View File

@@ -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()

3
MQ/TipoOrdenTrabajo.aspx.vb
View File

@@ -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)

3
OS/OrdenesServicios.aspx.vb
View File

@@ -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

66
Transportes/Boletos.aspx.vb
View File

@@ -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

7
Transportes/RepContratoDetalle.aspx
View File

@@ -25,7 +25,6 @@
<ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
<%-- Información General --%>
<ajax:TabPanel runat="server" HeaderText="Información General" CssClass="tabBodyOverride">
<ContentTemplate>
<%-- Datos del Contrato --%>
<div class="portlet light bordered">
@@ -184,6 +183,12 @@
<ContentTemplate>
</ContentTemplate>
</ajax:TabPanel>
<%-- Boletos --%>
<ajax:TabPanel runat="server" HeaderText="Boletos" CssClass="row" Visible="false" ID="TabBoletos">
<ContentTemplate>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>

4
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -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

311
Transportes/RepContratos.aspx
View File

@@ -8,172 +8,137 @@
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<%-- <style>
<style>
.my-1 {
margin-block: 1rem;
}
.consulta {
background-color: #95A5A6;
padding: 1rem 1rem;
margin-bottom: 1rem;
}
.consulta_linea {
display: flex;
justify-content: space-between;
align-items: center;
margin-block: .5rem;
gap: 1rem;
}
.consulta_campo {
display: flex;
gap: 1rem;
align-items: center;
}
.consulta_campo label {
color: white;
}
.expandir {
width: 2.5rem;
font-size: 2.5rem;
font-weight: 900;
color: white;
}
</style>--%>
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UPPAgregar" runat="server" UpdateMode="Conditional" >
<ContentTemplate>
<li>
<asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
<li>
<asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
</li>
<li>
<asp:LinkButton OnClick="ModalPersonalizar" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="C" runat="Server">
<%-- Filtros --%>
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn
btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1 truncate">
Fecha Inicio:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">
Fecha Fin:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 ">Cliente:</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="Dropdownlost1" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<%-- <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
</div>
<label class="col-md-1 ">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatusConsulta" runat="server" Class="table-group-action-input form-control input-inline select2me"
DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus"
AppendDataBoundItems="true" Width="200px">
</asp:DropDownList>
</div>
<div class="row" style="height: 32px;">
<%-- Fecha Inicial --%>
<label class="col-md-1 truncate">Fecha Inicial</label>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker "
data-date-format="dd/mm/yyyy"
style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control"
MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default "
Text="<i class='fa fa-calendar'></i>"
runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI"
Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
</ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI"
PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<%-- Fecha Final --%>
<label class="col-md-1 truncate">Fecha Fin</label>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker "
data-date-format="dd/mm/yyyy"
style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control"
MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default "
Text="<i class='fa fa-calendar'></i>"
runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF"
Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
</ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF"
PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<%-- Cliente --%>
<label class="col-md-1">Cliente</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="86%"
data-metodo="getcliente"
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
CssStyle="width: 86%;"
UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
</div>
<%-- Estatus --%>
<label class="col-md-1 ">Estatus:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEstatus" data-text="Todos" AppendDataBoundItems="true"
DataTextField="ContratoEstatus" DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me
Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
</div>
</div>
</div>
<%-- Filtro Oculto --%>
<div class="portlet-body row" style="display: none">
<%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me
Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
<%-- Tipo de Unidad --%>
<label class="col-md-1 ">Tipo de Unidad</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me
Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
<%-- Chofer --%>
<label class="col-md-1 ">Chofer:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlChofer" data-text="Todos" AppendDataBoundItems="true"
DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me
Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<label class="col-md-1 ">Centro Costos:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" runat="server"
DataTextField="" DataValueField=""
AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
<label class="col-md-1 ">Tipo Unidad:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTIpoUnidad" runat="server"
DataTextField="TipoActivoFijo"
DataValueField="CveTipoActivoFijo"
AppendDataBoundItems="true"
Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
<label class="col-md-1 ">Chofer:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlChofer" runat="server"
DataValueField="CvePersonal"
DataTextField="NombreCompleto"
AppendDataBoundItems="true"
Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:UpdatePanel>
<%-- Listado de Contratos --%>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -183,7 +148,8 @@
<Columns>
<asp:TemplateField HeaderText="Contrato">
<ItemTemplate>
<asp:Hyperlink runat="server" Text='<%# Eval("NumeroContrato") %>' NavigateUrl='<%# Eval("CveContrato", "RepContratoDetalle.aspx?CveContrato={0}") %>' ></asp:Hyperlink>
<asp:HyperLink runat="server" NavigateUrl='<%# "~/Transportes/RepContratoDetalle.aspx?CveContrato=" + If(Eval("CveContrato") IsNot DBNull.Value, Eval("CveContrato").ToString(), String.Empty) %>'
Text='<%# Eval("NumeroContrato") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
@@ -224,6 +190,25 @@
<asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- Columnas Ocultas --%>
<asp:TemplateField HeaderText="Chofer 1" Visible="false">
<ItemTemplate>
<asp:Label ID="LbChofer" runat="server" Text='<%# Eval("NombreChofer") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Chofer 2" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtChofer2" runat="server" Text='<%# Eval("NombreChofer2") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Unidad" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="bold">
<ItemTemplate>
@@ -398,6 +383,38 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<%-- Modal para personalizar columnas --%>
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate>
<div id="DivPersonalizar" class="modal fade" role="dialog">
<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">Personalizar Columnas</h4>
</div>
<div class="modal-body">
<asp:CheckBox ID="ChkChofer" runat="server" Text="Chofer" /><br>
<asp:CheckBox ID="ChkChofer2" runat="server" Text="Chofer 2" /><br>
<asp:CheckBox ID="ChkUnidad" runat="server" Text="Unidad" /><br>
</div>
<div class="modal-footer">
<div class="row">
<div class="col-md-6">
<asp:Button runat="server" CssClass="btn btn-success" OnClick="Personalizar" Text="Personalizar">
</asp:Button>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

85
Transportes/RepContratos.aspx.vb
View File

@@ -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", "", $"&emsp;<b>Cliente:</b>&nbsp;{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

177
Transportes/RepContratosCalendario.aspx
View File

@@ -5,7 +5,20 @@
<asp:Content ID="Content1" ContentPlaceHolderID="Css" runat="Server">
<style type="text/css">
.tipo_vista {
display: flex;
align-items: center;
gap: 2rem;
}
.my-1 {
margin-block: 1rem;
}
.miGrid {
color: white;
text-align: center;
}
</style>
</asp:Content>
@@ -28,61 +41,57 @@
<%--Calendario Tab--%>
<ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario">
<ContentTemplate>
<%-- Filtros --%>
<asp:UpdatePanel ID="UPPVista" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row" style="height: 32px;">
<label class="col-md-1">Tipo Vista: </label>
<div class="col-md-2">
<asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
<asp:ListItem Text="Fecha de Salida" Value="fecha" Selected="True" />
<asp:ListItem Text="Duración" Value="duracion" />
</asp:RadioButtonList>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row" style="height: 32px;">
<label class="col-md-1">Tipo Vista: </label>
<div class="col-md-2">
<asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
<asp:ListItem Text="Duración" Value="duracion" />
<asp:ListItem Text="Fecha de Salida" Value="fecha" Selected="True" />
</asp:RadioButtonList>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
<div class="row">
<div class="col-md-12 col-sm-12">
<div class="portlet light calendar ">
<div class="tipo_vista">
<div>
<h4 class="bold ribbon-color-success">&nbsp;</h4>
</div>
</div>
<div class="portlet-body">
<div id="calendar">
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row">
<div class="col-md-12 col-sm-12">
<div class="portlet light calendar ">
<div class="tipo_vista">
<div>
<h4 class="bold ribbon-color-success">&nbsp;</h4>
</div>
</div>
<div class="portlet-body">
<div id="calendar">
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<%--Contratos Tab--%>
<ajax:TabPanel ID="TabContratos" runat="server" HeaderText="Contratos">
<ajax:TabPanel ID="TabPanel1" runat="server" HeaderText="Contratos">
<ContentTemplate>
<%-- Filtros --%>
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria2">
<%-- Filtros --%>
<%-- Filtros --%>
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultarListado" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultarListado_Click" />
@@ -143,43 +152,36 @@
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<label class="col-md-1 ">
<asp:Label ID="LblSubProyecto" runat="server" Text=""></asp:Label></label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyectos" runat="server"
DataValueField="CveSubProyecto" DataTextField="SubProyecto"
AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
<label class="col-md-1 ">Tipo Unidad:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoUnidad" runat="server"
DataTextField="TipoActivoFijo"
DataValueField="CveTipoActivoFijo"
AppendDataBoundItems="true"
Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
<label class="col-md-1 ">Chofer:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlChoferFiltro" runat="server"
DataValueField="CvePersonal"
DataTextField="NombreCompleto"
AppendDataBoundItems="true"
Class="table-group-action-input form-control input-inline select2me"
Width="200px">
</asp:DropDownList>
</div>
</div>
</div>
<%-- Filtro Oculto --%>
<div class="portlet-body row" style="display: none">
<%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
<%-- Tipo de Unidad --%>
<label class="col-md-1 ">Tipo de Unidad</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
<%-- Chofer --%>
<label class="col-md-1 ">Chofer:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlChoferConsulta" data-text="Todos" AppendDataBoundItems="true"
DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:UpdatePanel>
<%-- Contratos --%>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -190,11 +192,12 @@
<Columns>
<asp:TemplateField HeaderText="Contrato">
<ItemTemplate>
<asp:Hyperlink runat="server" Text='<%# Eval("NumeroContrato") %>' NavigateUrl='<%# Eval("CveContrato", "RepContratoDetalle.aspx?CveContrato={0}") %>' ></asp:Hyperlink>
<asp:HyperLink runat="server" NavigateUrl='<%# "~/Transportes/RepContratoDetalle.aspx?CveContrato=" + If(Eval("CveContrato") IsNot DBNull.Value, Eval("CveContrato").ToString(), String.Empty) %>'
Text='<%# Eval("NumeroContrato") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="120px">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
<HeaderTemplate>
Fecha<br />
Salida
@@ -210,7 +213,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cliente">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cliente">
<ItemTemplate>
<asp:Literal ID="LtNombreComercial" runat="server" Text='<%# Eval("NombreComercial") %>'></asp:Literal>
</ItemTemplate>
@@ -244,7 +247,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus">
<asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="bold">
<ItemTemplate>
<asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
</asp:Label>

18
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -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

9
Transportes/RepViajes.aspx
View File

@@ -83,12 +83,11 @@
CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate>
<asp:LinkButton ID="BtnViaje" runat="server" AlternateText="Viaje"
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-arrow-right'></i>"
/>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate>
<asp:HyperLink runat="server" NavigateUrl='<%# "~/Transportes/Boletos.aspx?CveViaje=" + If(Eval("CveContrato") IsNot DBNull.Value, Eval("CveContrato").ToString(), String.Empty) %>'
Text="<i class='fa fa-ticket'></i>" ToolTip="Boletos"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>

16
Ventas/ClientesAbonar.aspx.vb
View File

@@ -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()

1
Ventas/Ventas.aspx
View File

@@ -7029,7 +7029,6 @@
<div class="col-md-4">
<asp:DropDownList ID="DdlNCNivelImporte" OnSelectedIndexChanged="DdlNCNivelImporte_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" CssClass="select2me">
<asp:ListItem Selected="True" Text="Nivel Total" Value="1"></asp:ListItem>
<asp:ListItem Text="Nivel SubTotal" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-2">