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/OrdenTrabajo.aspx".ToUpper, 1412)
PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413) PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413)
PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414) PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414)
PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, 1415)
PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, -1)
#End Region #End Region
#Region "Nomina" #Region "Nomina"

24
Bancos/PopIEVentas.aspx
View File

@@ -533,14 +533,26 @@
<td align="center"> <td align="center">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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"> <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 /> <br />
</div> </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>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>

16
Bancos/PopIEVentas.aspx.vb
View File

@@ -1110,6 +1110,22 @@ Partial Class Bancos_PopIEVentas
#Region "G U A R D A R" #Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click 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 FechaFactura As Date = FechaVenta
Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate 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) Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
objGral.Dispose()
'CargaDatos() 'CargaDatos()
End If End If
End Sub End Sub

111
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -751,6 +751,8 @@ Partial Class Inventarios_RecepcionUsados
End Sub End Sub
Private Sub LimpiarMovimiento() Private Sub LimpiarMovimiento()
CveMovimiento = -1 CveMovimiento = -1
CveRemisionRecibida = -1
CargoRemisionDesdeURL = False
If ObjFactura IsNot Nothing Then If ObjFactura IsNot Nothing Then
ObjFactura.Dispose() ObjFactura.Dispose()
@@ -771,7 +773,7 @@ Partial Class Inventarios_RecepcionUsados
RblUsadosAjuste.Enabled = True RblUsadosAjuste.Enabled = True
RblUsadosAjuste.SelectedValue = "0" RblUsadosAjuste.SelectedValue = "0"
CveRemisionRecibida = -1
EsDistribuidor = False EsDistribuidor = False
InicializaClientes(True) InicializaClientes(True)
DdlClientes.Enabled = True DdlClientes.Enabled = True
@@ -831,6 +833,14 @@ Partial Class Inventarios_RecepcionUsados
'CargaInicial() 'CargaInicial()
If Me.ObjRemisionNC IsNot Nothing Then
Me.ObjRemisionNC.Dispose()
Me.ObjRemisionNC = Nothing
End If
DtMovimientos.Rows.Clear()
UpGenerales.Update() UpGenerales.Update()
UpRegistroTipoCambio.Update() UpRegistroTipoCambio.Update()
UPDatos.Update() UPDatos.Update()
@@ -1234,12 +1244,14 @@ Partial Class Inventarios_RecepcionUsados
End If End If
End Sub End Sub
Private Sub BtnGenerarRNC_Click(sender As Object, e As EventArgs) Handles BtnGenerarRNC.Click Private Sub BtnGenerarRNC_Click(sender As Object, e As EventArgs) Handles BtnGenerarRNC.Click
Guardar(True) Guardar(True, RecargarPagina:=True)
End Sub End Sub
Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False) Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False)
If GvM.Rows.Count > 0 Then 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 Resp As Modelos.Factura.MMensajeFactura = Nothing
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL()) Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
@@ -1255,9 +1267,7 @@ Partial Class Inventarios_RecepcionUsados
Dim CveSubProyecto As Integer = -1 Dim CveSubProyecto As Integer = -1
Dim ActivoFijo As Integer = -1 Dim ActivoFijo As Integer = -1
If CveMovimiento > 0 Then If Not CveMovimiento > 0 Then
Else
Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate 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 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)) Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
@@ -1281,22 +1291,23 @@ Partial Class Inventarios_RecepcionUsados
CargaDTDetalleRNC() CargaDTDetalleRNC()
Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL) 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 If Resp.TieneError Then ErrorMovInv = True
Msg.Append("Error al guardar los movimientos de usados")
If Resp.CveVenta > 0 Then
CveVenta = Resp.CveVenta
Else
MsgError.Append("Error al generar la remisión de nota de crédito")
ErrorMovInv = True ErrorMovInv = True
End If End If
If Resp.CveMovimientoUsado <= 0 Then
MsgError.Append("Error al guardar los movimientos de usados")
ErrorMovInv = True
End If
End If End If
Dim Mensaje As String = ""
Dim FolioInv As String = "" Dim FolioInv As String = ""
If GenerarRNC Then If GenerarRNC Then
@@ -1314,7 +1325,7 @@ Partial Class Inventarios_RecepcionUsados
Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G") PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
If CveMovimiento <= 0 Then If CveMovimiento <= 0 Then
Mensaje = "Error al guardar los movimientos" MsgError.Append("Error al guardar los movimientos")
ErrorMovInv = True ErrorMovInv = True
Else Else
FolioInv = ObjInventario.Folio.ToString() FolioInv = ObjInventario.Folio.ToString()
@@ -1322,14 +1333,14 @@ Partial Class Inventarios_RecepcionUsados
For Each Dr As DataRow In DtMovimientos.Rows 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 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 ErrorMovInv = True
Exit For Exit For
End If End If
If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then 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 ErrorMovInv = True
MsgError.Append("Error al actualizar el recibo de los usados")
Exit For Exit For
End If 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, 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 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 ErrorMovInv = True
Exit For Exit For
End If End If
@@ -1354,24 +1365,10 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Next Next
'ACTUALIZA LA POLIZA VIRTUAL DEL LA REMISION If Not ErrorMovInv AndAlso ObjFactura.CveCliente <> CveCliente Then
'If Not ErrorMovInv AndAlso ObjFactura.TipoDocto = "Rem" Then ErrorMovInv = True
' If ObjAcum.GetPolizasVirtuales(ObjFactura.CveVenta) Then MsgError.Append("Error al asignar el cliente")
' Dim DtPoliza As DataTable = ObjAcum.DtResultados.Copy() End If
' 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
''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
If Not ErrorMovInv Then If Not ErrorMovInv Then
@@ -1384,14 +1381,12 @@ Partial Class Inventarios_RecepcionUsados
If Not ErrorMovInv Then If Not ErrorMovInv Then
If Resp IsNot Nothing Then If Resp IsNot Nothing Then
For Each mensaje2 As String In Resp.Mensajes For Each mensaje2 As String In Resp.Mensajes
Msg.AppendFormat("<br>{0}", mensaje2) Msg.AppendFormat("<br>{0}", mensaje2)
Next Next
End If 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/>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))) 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) 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 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 Else
ObjInventario.RollBack() 'deshace lo insertado ObjInventario.RollBack() 'deshace lo insertado
CveMovimiento = 0 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
End If End If
Catch ex As Exception Catch ex As Exception
ObjInventario.RollBack() 'deshace lo insertado ObjInventario.RollBack() 'deshace lo insertado
CveMovimiento = 0 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')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End Try End Try
@@ -1435,15 +1420,19 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False) Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False)
End If
If CveRemisionRecibida > 0 Then
CargaRemisionesPendientes()
UPDatos.Update()
End If
End If
Else Else
Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError) 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')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If End If
LimpiarMovimiento() LimpiarMovimiento()
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) CargaGVM(DtMovimientos)
End Sub End Sub
@@ -1655,7 +1644,7 @@ Partial Class Inventarios_RecepcionUsados
#End Region #End Region
#Region " GVM " #Region " GVM "
Private Sub CargaGVM(DtTemp As DataTable) Private Sub CargaGVM(ByRef DtTemp As DataTable)
GvM.DataSource = DtTemp GvM.DataSource = DtTemp
GvM.DataBind() GvM.DataBind()
@@ -2243,10 +2232,10 @@ Partial Class Inventarios_RecepcionUsados
End Sub End Sub
Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs)
CargaPendientesRecibir() CargaRemisionesPendientes()
End Sub End Sub
Private Sub CargaPendientesRecibir() Private Sub CargaRemisionesPendientes()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then
GVPendientes.DataSource = ObjVentas.DtResultados GVPendientes.DataSource = ObjVentas.DtResultados
@@ -2365,8 +2354,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
If DtUsados IsNot Nothing Then If DtUsados IsNot Nothing Then
AgregarUsado = True
'DivRecepcionApartado.Visible = True
For Each RowUsado As DataRow In DtUsados.Rows For Each RowUsado As DataRow In DtUsados.Rows
Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
@@ -2382,8 +2370,9 @@ Partial Class Inventarios_RecepcionUsados
Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero() 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) AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle)
Next Next
AgregarUsado = False
End If End If
Else Else
Alert("No se pudo recibir la remisión", TipoMensaje.MsgAdvertencia) 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.Data
Imports System.Linq Imports System.Linq
Imports CrystalDecisions.Shared.Json
Imports Extensiones Imports Extensiones
Partial Class AF_HorometroDiario Partial Class AF_HorometroDiario
@@ -60,10 +61,21 @@ Partial Class AF_HorometroDiario
Private Sub CargCombos() 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() DdlAF.DataBind()
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()

3
MQ/TipoOrdenTrabajo.aspx.vb
View File

@@ -307,7 +307,7 @@ Partial Class MQ_TipoOrdenTrabajo
GvMaterial.DataSource = DTMateriales GvMaterial.DataSource = DTMateriales
Else Else
GvMaterial = Nothing GvMaterial.DataSource = Nothing
End If End If
ObjAF.Dispose() ObjAF.Dispose()
@@ -1198,6 +1198,7 @@ Partial Class MQ_TipoOrdenTrabajo
If ErrorProceso Then If ErrorProceso Then
ObjAF.RollBack() ObjAF.RollBack()
CveTipoServicio = -1
Else Else
ObjAF.Commit() ObjAF.Commit()
Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion) Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion)

3
OS/OrdenesServicios.aspx.vb
View File

@@ -3039,6 +3039,9 @@ Partial Class OS_OrdenesServicios
Case 5 Case 5
Opcion = 3 Opcion = 3
Exit Select Exit Select
Case 6
Opcion = 4
Exit Select
Case Else Case Else
Opcion = 1 Opcion = 1
Exit Select 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
Imports Extensiones.ModExtensiones
Partial Class Boletos Partial Class Boletos
Inherits ClsPaginas Inherits ClsPaginas
@@ -28,12 +33,13 @@ Partial Class Boletos
ViewState("CveViaje") = value ViewState("CveViaje") = value
End Set End Set
End Property End Property
Private Property CveRuta As Integer
Private Property Contrato As DataTable
Get Get
Return ViewState("CveRuta").ToString().ToEntero Return CType(ViewState("Contrato"), DataTable)
End Get End Get
Set(value As Integer) Set(value As DataTable)
ViewState("CveRuta") = value ViewState("Contrato") = value
End Set End Set
End Property End Property
#End Region #End Region
@@ -44,7 +50,6 @@ Partial Class Boletos
Response.Redirect("/Transportes/RepViajes.aspx") Response.Redirect("/Transportes/RepViajes.aspx")
End If End If
AsientoSeleccionado = "" AsientoSeleccionado = ""
CveRuta = 0
CveViaje = Request.QueryString("CveViaje").ToEntero CveViaje = Request.QueryString("CveViaje").ToEntero
If CveViaje > 0 Then If CveViaje > 0 Then
CargaDatos() CargaDatos()
@@ -55,43 +60,26 @@ Partial Class Boletos
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Datos Viaje Dim ObjContratos As New ClsContratos
Dim ObjViaje As New ClsTransportes If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then
Dim retornoViaje As Boolean = ObjViaje.GetViajes(CveViaje, UsuarioActual.CveEmpresa) Contrato = ObjContratos.DtResultados
Else
If retornoViaje AndAlso ObjViaje.CveViaje > 0 Then Response.Redirect($"~/Transportes/RepContratos.aspx")
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
End If End If
ObjViaje.Dispose()
TxtRuta.Text = Contrato.Rows(0)("Ruta").ToString
TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString
End Sub End Sub
Protected Sub InicializaCombos() Protected Sub InicializaCombos()
Dim CveRuta As Integer = Contrato.Rows(0)("CveRuta").ToString.ToEntero
'Lista Destinos''carga específicos 'Lista Destinos''carga específicos
End Sub
Protected Sub CargaDestinos()
Dim ObjDestinos As New ClsTransportes() Dim ObjDestinos As New ClsTransportes()
If Not ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then Else
If ObjDestinos.DtResultados.Rows.Count > 0 Then If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -106,6 +94,10 @@ Partial Class Boletos
End If End If
ObjDestinos.Dispose() ObjDestinos.Dispose()
End Sub End Sub
Protected Sub CargaDestinos()
End Sub
Protected Sub CotizarTarifa(sender As Object, e As EventArgs) Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then
@@ -145,7 +137,6 @@ Partial Class Boletos
AsientoSeleccionado = buttonID AsientoSeleccionado = buttonID
End Sub End Sub
Protected Sub AddBoleto(sender As Object, e As EventArgs) Protected Sub AddBoleto(sender As Object, e As EventArgs)
If AsientoSeleccionado = "" Then If AsientoSeleccionado = "" Then
Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia) Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -175,7 +166,6 @@ Partial Class Boletos
CargaDatos() CargaDatos()
UpPanel.Update() UpPanel.Update()
End Try End Try
End Sub End Sub

7
Transportes/RepContratoDetalle.aspx
View File

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

4
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports ADSNetLibrary.Helpers
Imports ADSNetLibrary.SIGAPI.Helpers Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones Imports Extensiones
Partial Class RepContratoDetalle Partial Class RepContratoDetalle
Inherits ClsPaginas Inherits ClsPaginas
Private Property CveContrato As Integer Private Property CveContrato As Integer
@@ -48,6 +49,9 @@ Partial Class RepContratoDetalle
Response.Redirect($"~/Transportes/RepContratos.aspx") Response.Redirect($"~/Transportes/RepContratos.aspx")
End If End If
If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
TabBoletos.Visible = True
End If
LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString

311
Transportes/RepContratos.aspx
View File

@@ -8,172 +8,137 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<%-- <style> <style>
.my-1 { .my-1 {
margin-block: 1rem; margin-block: 1rem;
} }
</style>
.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>--%>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UPPAgregar" runat="server" UpdateMode="Conditional" > <li>
<ContentTemplate> <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
<li> </li>
<asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
</li> <li>
</ContentTemplate> <asp:LinkButton OnClick="ModalPersonalizar" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
</asp:UpdatePanel> </li>
<li> <li>
<asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton> <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton> <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="C" runat="Server">
<%-- Filtros --%> <%-- Filtros --%>
<asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria"> <div class="portlet solid grey-cascade portlet-filter">
<%-- Filtro Visible - Consulta --%>
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <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> <a href="javascript:;" class="expand"></a>
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row" style="height: 32px;">
<%-- Fecha Inicial --%>
<div class="col-md-1 truncate"> <label class="col-md-1 truncate">Fecha Inicial</label>
Fecha Inicio: <div class="col-md-1" style="min-width: 115px">
</div> <div class="input-group input-sm input-small date date-picker "
<div class="col-md-1" style="min-width: 115px"> data-date-format="dd/mm/yyyy"
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;"> style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control"
<span class="input-group-btn "> MaxLength="10"></asp:TextBox>
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <span class="input-group-btn ">
</span> <asp:LinkButton ID="imgCalendario" class="btn default "
</div> Text="<i class='fa fa-calendar'></i>"
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> runat="server"></asp:LinkButton>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> </span>
<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> </div>
<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:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI"
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender> Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left">
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender> </ajax:MaskedEditExtender>
</div> <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI"
<div class="col-md-1 truncate"> PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
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> </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> </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> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%-- Listado de Contratos --%> <%-- Listado de Contratos --%>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -183,7 +148,8 @@
<Columns> <Columns>
<asp:TemplateField HeaderText="Contrato"> <asp:TemplateField HeaderText="Contrato">
<ItemTemplate> <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> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -224,6 +190,25 @@
<asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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"> <asp:TemplateField HeaderText="Estatus" ItemStyle-CssClass="bold">
<ItemTemplate> <ItemTemplate>
@@ -398,6 +383,38 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </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> </asp:Content>

85
Transportes/RepContratos.aspx.vb
View File

@@ -1,5 +1,6 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data
Imports Extensiones Imports Extensiones
Imports Extensiones.ModExtensiones Imports Extensiones.ModExtensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -8,7 +9,14 @@ Partial Class ListadoContratos
Inherits ClsPaginas Inherits ClsPaginas
#Region "Propiedad" #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 #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 System.EventArgs) Handles Me.Load
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
@@ -25,9 +33,9 @@ Partial Class ListadoContratos
DdlTipoAF.DataBind() DdlTipoAF.DataBind()
DdlTipoAF.Items.Insert(0, New ListItem("-", "")) DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
DdlTIpoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTIpoUnidad.DataBind() DdlTipoUnidad.DataBind()
DdlTIpoUnidad.Items.Insert(0, New ListItem("-", "")) DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
'Lista Chofer' 'Lista Chofer'
DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlChofer.DataBind() DdlChofer.DataBind()
@@ -42,16 +50,16 @@ Partial Class ListadoContratos
End If End If
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
DdlEstatusConsulta.DataSource = ObjContratos.DtResultados DdlEstatus.DataSource = ObjContratos.DtResultados
DdlEstatusConsulta.DataBind() DdlEstatus.DataBind()
DdlEstatusConsulta.Items.Insert(0, New ListItem("-", "")) DdlEstatus.Items.Insert(0, New ListItem("-", ""))
End If End If
'Generamos Folio - NumeroContrato 'Generamos Folio - NumeroContrato
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
Dim ObjFolio As New ClsGralFolios Dim ObjFolio As New ClsGralFolios
If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
If ObjFolio.DtResultados.Rows.Count > 0 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}" LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}"
End If End If
End If End If
@@ -114,7 +122,7 @@ Partial Class ListadoContratos
Dim Imagen As New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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 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 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 { Dim params As New List(Of ReportParameter) From {
New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa), New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa),
New ReportParameter("FechaInicio", "-1"), New ReportParameter("FechaInicio", "-1"),
@@ -130,56 +138,15 @@ Partial Class ListadoContratos
End If End If
End Sub End Sub
Protected Sub Consultar(sender As Object, e As EventArgs) 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() UpTitulos.Update()
End Sub 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 End Class

177
Transportes/RepContratosCalendario.aspx
View File

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

18
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -1,7 +1,6 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Data.SqlClient
Imports ADSNetLibrary.SIGAPI.Helpers Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones.ModExtensiones Imports Extensiones.ModExtensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
@@ -34,7 +33,7 @@ Partial Class RepContratosCalendario
txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
If Not IsPostBack Then If Not IsPostBack Then
CargaCombos() InicializaCombos()
InicializaCalendar() InicializaCalendar()
CargaDatos() CargaDatos()
End If End If
@@ -62,23 +61,25 @@ Partial Class RepContratosCalendario
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
End Sub End Sub
Private Sub CargaCombos() Private Sub InicializaCombos()
'Lista de Tipos de activo fijos 'Lista de Tipos de activo fijos
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoAF.Items.Insert(0, New ListItem("-", "")) DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
DdlTipoAF.DataBind() DdlTipoAF.DataBind()
DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoUnidad.DataBind()
DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
'Lista de Activos fijos 'Lista de Activos fijos
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlAF.DataBind() DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("-", "")) DdlAF.Items.Insert(0, New ListItem("-", ""))
'Lista Chofer' 'Lista Chofer'
DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlChofer.DataBind() DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("-", "")) DdlChofer.Items.Insert(0, New ListItem("-", ""))
DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
DdlChofer2.DataBind() DdlChofer2.DataBind()
DdlChofer2.Items.Insert(0, New ListItem("-", "")) DdlChofer2.Items.Insert(0, New ListItem("-", ""))
@@ -114,6 +115,7 @@ Partial Class RepContratosCalendario
RegistraScript("$('#ModalActualizar').modal('show');") RegistraScript("$('#ModalActualizar').modal('show');")
End Sub End Sub
Protected Sub UpdateContrato(sender As Object, e As EventArgs) Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL() ObjContratos.IniciaTransacSQL()
@@ -177,8 +179,4 @@ Partial Class RepContratosCalendario
End If End If
End Sub End Sub
Protected Sub BtnConsultarListado_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
End Class End Class

9
Transportes/RepViajes.aspx
View File

@@ -83,12 +83,11 @@
CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'></asp:Label> CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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> </ItemTemplate>
</asp:TemplateField> </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 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 'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
Dim files As Extensiones.Files = Anexo.getfiles() Dim files As Extensiones.Files = Anexo.getfiles()

1
Ventas/Ventas.aspx
View File

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