From d85b15526a1f3478c85623804e3e4ff36e0a3455 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 20 Feb 2024 17:32:56 -0700 Subject: [PATCH] mejora --- Transportes/RepContratoDetalle.aspx | 284 ++++++++++++++-------------- Transportes/RepContratos.aspx.vb | 5 +- Transportes/RepViajes.aspx.vb | 12 +- 3 files changed, 149 insertions(+), 152 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 27625321e..a6ba710bb 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -10,7 +10,7 @@ @@ -26,163 +26,163 @@ <%-- Información General --%> - <%-- Datos del Contrato --%> -
-
-
- -
-
- Datos del Contrato -
-
- -
-
- - -
- -
- -
- - +
+
+ <%-- Datos del Contrato --%> +
+
+
+ +
+
+ Datos del Contrato +
-
-
- -
- - - - -
-
+
+
+ + +
-
- -
- -
-
+
+ +
+ + +
+
-
- -
- -
-
+
+ +
+ + + + +
+
-
- -
- - - - -
-
+
+ +
+ +
+
-
- -
- - - - -
-
+
+ +
+ +
+
-
- -
- - - - -
-
+
+ +
+ + + + +
+
-
- -
- - - - - -
-
+
+ +
+ + + + +
+
-
- -
- - -
-
+
+ +
+ + + + +
+
-
- -
- - -
-
+
+ +
+ + + + + +
+
-
- -
- - +
+ +
+ + +
+
+ +
+ +
+ + +
+
+ +
+ +
+ + +
+
- - - <%-- Pre init --%> - - - + + <%-- Boletos --%> diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index cb56f8656..7ad7c339e 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -19,8 +19,8 @@ Partial Class ListadoContratos 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") - txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T") + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString + txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString If Not IsPostBack Then InicializaCombos() @@ -56,6 +56,7 @@ Partial Class ListadoContratos GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataBind() End If + ObjContratos.Dispose() 'Generamos Folio - NumeroContrato Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb index fa63cee2f..d7983b520 100644 --- a/Transportes/RepViajes.aspx.vb +++ b/Transportes/RepViajes.aspx.vb @@ -107,6 +107,7 @@ Partial Class ListadoViajes Protected Sub AddViaje(sender As Object, e As EventArgs) 'Generador de Viajes Masivos + Dim CveSubProyecto As Integer = DdlRutas.SelectedValue.ToEntero 'GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero If IsMasivo.Checked = True Then If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia) @@ -127,7 +128,6 @@ Partial Class ListadoViajes Dim ObjContratos As New ClsContratos 'Generamos folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then If ObjFolio.DtResultados.Rows.Count > 0 Then Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("") @@ -136,7 +136,7 @@ Partial Class ListadoViajes End If 'Agregamos contrato ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then ObjContratos.Commit() End If 'Actualizamos Folio @@ -164,13 +164,13 @@ Partial Class ListadoViajes Try 'Agregamos Viaje If BtnGuardar.Text = "Agregar" Then - If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", -1, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then ObjContratos.Commit() Alert("Viaje agregado correctamente.") End If Else 'Actualizamos Viaje - If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then + If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then ObjContratos.Commit() Alert("El viaje se actualizó correctamente.") End If @@ -180,12 +180,8 @@ Partial Class ListadoViajes ObjContratos.RollBack() Finally 'Reiniciamos modal - DdlRutas.Text = "" TxtFechaViaje.Text = "" - DdlPartida.Text = "" - DdlDestino.SelectedValue = "" 'Actualizamos Folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero Dim ObjFolios As New ClsGralFolios If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then ObjFolios.Dispose()