-
+ data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
+
@@ -71,17 +71,35 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb
index 96899cc76..24a41e814 100644
--- a/Transportes/ListadoBoletos.aspx.vb
+++ b/Transportes/ListadoBoletos.aspx.vb
@@ -1,8 +1,11 @@
Option Explicit On
Option Strict On
+Imports System.Data
Imports ADSNetLibrary.Helpers
Imports ADSNetLibrary.SIGAPI.Helpers
Imports Extensiones.ModExtensiones
+Imports Microsoft.Reporting.WebForms
+
Partial Class ListadoBoletos
Inherits ClsPaginas
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
ViewState("CveViaje") = value
End Set
End Property
+ Private Property Ruta As String
+ Get
+ Return ViewState("Ruta").ToString()
+ End Get
+ Set(value As String)
+ ViewState("Ruta") = value
+ End Set
+ End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If Request.QueryString("CveViaje") Is Nothing Then
Response.Redirect("/Transportes/ListadoViajes.aspx")
End If
CveViaje = Request.QueryString("CveViaje").ToEntero
+ Ruta = Request.QueryString("Ruta")
+
+ Prueba.Text = Ruta
InicializaCombos()
CargaDatos()
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
End Sub
+ Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+ Dim dtResult As New DataTable()
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+ Dim params As New List(Of ReportParameter)
+
+ params.Add(New ReportParameter("Ruta", Ruta))
+ params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
+ params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
+ params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
+ params.Add(New ReportParameter("HoraSalida", "17:00"))
+ params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
+ params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
+ params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
+ params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
+ params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
+ params.Add(New ReportParameter("Agencia", "Agencia"))
+ params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
+
+ ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+
+ 'Empresas/Grales/Formatos/EntradaSalida.mrt
+ 'Empresas/188/Formatos/Boleto.mrt
+
+ End Sub
+
End Class
\ No newline at end of file
diff --git a/Transportes/ListadoViajes.aspx.vb b/Transportes/ListadoViajes.aspx.vb
index 9aa5d7bfe..9a0ca63a4 100644
--- a/Transportes/ListadoViajes.aspx.vb
+++ b/Transportes/ListadoViajes.aspx.vb
@@ -15,6 +15,14 @@ Partial Class ListadoViajes
ViewState("CveViaje") = value
End Set
End Property
+ Private Property Ruta As String
+ Get
+ Return ViewState("Ruta").ToString()
+ End Get
+ Set(value As String)
+ ViewState("Ruta") = value
+ End Set
+ End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
ViewState("CveViaje") = GvRow.DataKey("CveViaje")
- Page.Response.Write("")
+ ViewState("Ruta") = GvRow.DataKey("Ruta")
Dim fecha As DateTime
If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
Protected Sub GoBoletos(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveViaje As String = GvRow.DataKey("CveViaje")
- Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}", CveViaje))
+ Dim Ruta As String = GvRow.DataKey("Ruta")
+ Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+
End Sub
End Class
diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index fcb3e9ace..7d6d9c0c2 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -225,7 +225,7 @@
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5e5052750..985f84d0e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3418,6 +3418,10 @@ Partial Class Ventas
RegistraScript("$('#TxtCantidad').focus();", "A1")
End If
+ If EsVentaMedica Then
+ TxtPrecio.Enabled = False
+ End If
+
End If
End Sub
@@ -5317,7 +5321,13 @@ Partial Class Ventas
End If
- TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+ If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
+ TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm")
+ DVMEEFechaEje.Visible = False
+ Else
+ TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+ End If
+
'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString())
'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString())
DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString())
@@ -8189,6 +8199,10 @@ Partial Class Ventas
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
End If
+ If EsVentaMedica Then
+ GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
+ End If
+
If CveCicloComercial > 0 Then
For Each gvr As GridViewRow In GvContratoDetalles.Rows
If gvr.RowType = DataControlRowType.DataRow Then
@@ -13519,7 +13533,7 @@ Partial Class Ventas
If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
- GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
+ GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio)
If ErrorList.Count = 0 Then
If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then
@@ -16793,16 +16807,22 @@ Partial Class Ventas
DdlUnidadMedida.DataBind()
DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString())
- If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
- If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
- TxtPrecio.Enabled = True
- Else
- 'TxtPrecio.Enabled = False
- End If
+ If EsVentaMedica Then
+ TxtPrecio.Enabled = False
Else
- TxtPrecio.Enabled = True
+ If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
+ If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
+ TxtPrecio.Enabled = True
+ Else
+ 'TxtPrecio.Enabled = False
+ End If
+ Else
+ TxtPrecio.Enabled = True
+ End If
End If
+
+
Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
@@ -21706,7 +21726,14 @@ Partial Class Ventas
TxtObsPS.Enabled = True
DdlProyecto.Enabled = True
DdlSubProyecto.Enabled = True
- TxtPrecio.Enabled = True
+
+ If EsVentaMedica Then
+ TxtPrecio.Enabled = False
+ Else
+ TxtPrecio.Enabled = True
+ End If
+
+
LbAgregar.Enabled = True
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
LblSubTotal1.Text = TxtSubTotal.Text
@@ -36323,7 +36350,7 @@ Partial Class Ventas
End Sub
- Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
+ Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
Dim Errores As Boolean = False
@@ -36359,18 +36386,22 @@ Partial Class Ventas
Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
If CveOsDetalle > 0 Then
- 'MENSAJE PRINCIPAL
- 'Dim MensajeAlertOS As New StringBuilder
MensajeAlert.AppendFormat(String.Format(" La Orden de Servicio: {0} se generó correctamente. ", ObjOrdenServicio.Folio))
MensajeAlert.AppendFormat("
", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
- 'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
- 'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
Else
errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
Errores = True
End If
+ End If
+ If Not Errores Then
+ Dim ObjEventos As New ClsOIEventos(TransacSQL)
+ Dim LigaVenta As String = String.Format("Pedido en Folio: {1}", CveVentaOS, SerieFolioOS)
+ If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSVentaMedica) Then
+ errorList.Add("Se presento un error al guardar la bitacora de la orden de servicio.")
+ Errores = True
+ End If
End If
Return If(Errores, False, True)