From fe1c2c1948841bafdbc57b50fb486b5c1b652623 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 12 Jan 2024 17:29:20 -0700 Subject: [PATCH] =?UTF-8?q?--Se=20modific=C3=B3=20contratos=20para=20que?= =?UTF-8?q?=20agregara=20Importe=20en=20d=C3=B3lares=20a=20Importe=20en=20?= =?UTF-8?q?ClsContratos,=20ImporteMax=20para=20los=20pesos=20e=20ImporteMi?= =?UTF-8?q?n=20para=20el=20anticipo.=20Se=20limpio=20el=20campo=20de=20Ddl?= =?UTF-8?q?Clientes=20al=20querer=20guardar=20un=20contrato=20nuevo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/Boletos.aspx.vb | 2 +- Transportes/RepBoletos.aspx | 2 +- Transportes/RepContratos.aspx | 4 ++-- Transportes/RepContratos.aspx.vb | 17 ++++++++++++++--- 4 files changed, 18 insertions(+), 7 deletions(-) diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 8958a0446..17c035f09 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -157,6 +157,7 @@ Partial Class Boletos Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If retorno > 1 Then + Alert("Boleto generado correctamente") ObjTransporte.Commit() End If Catch ex As Exception @@ -164,7 +165,6 @@ Partial Class Boletos Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) Finally ObjTransporte.Dispose() - Response.Redirect($"/Transportes/Boletos.aspx?CveViaje={CveViaje}") End Try End Sub diff --git a/Transportes/RepBoletos.aspx b/Transportes/RepBoletos.aspx index 5255ff9a3..382af7e19 100644 --- a/Transportes/RepBoletos.aspx +++ b/Transportes/RepBoletos.aspx @@ -94,7 +94,7 @@ + data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax "> @@ -261,7 +261,7 @@
- +
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 3877a3cdb..a39ff2de3 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -47,6 +47,10 @@ Partial Class ListadoContratos TxtObservaciones.Text = "" TxtUbicacion.Text = "" DdlTransporte.SelectedValue = "" + DdlClientes.SelectedText = "" + TxtDolares.Text = "" + TxtPesos.Text = "" + TxtAnticipo.Text = "" BtnGuardar.Text = "Guardar" myModalLabel.InnerHtml = "Agregar Contrato" @@ -77,7 +81,7 @@ Partial Class ListadoContratos End If 'Agregar contrato If BtnGuardar.Text = "Guardar" Then - CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) + CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) End If If CveContratoHijo > 0 Then @@ -87,7 +91,7 @@ Partial Class ListadoContratos 'Actualizar contrato If BtnGuardar.Text = "Editar" Then - retorno = ObjContratos.UpdateContratos(CveContrato, "", TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1) + retorno = ObjContratos.UpdateContratos(CveContrato, "", TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1) End If If retorno Then @@ -100,8 +104,11 @@ Partial Class ListadoContratos TxtFechaRegreso.Text = "" TxtObservaciones.Text = "" TxtUbicacion.Text = "" - DdlClientes.SelectedValue = "" + DdlClientes.SelectedText = "" DdlTransporte.SelectedValue = "" + TxtDolares.Text = "" + TxtPesos.Text = "" + TxtAnticipo.Text = "" BtnGuardar.Text = "Guardar" Catch ex As Exception Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) @@ -129,6 +136,10 @@ Partial Class ListadoContratos TxtObservaciones.Text = GvRow.DataKey("DescripcionContrato") TxtUbicacion.Text = GvRow.DataKey("Ubicacion") DdlTransporte.SelectedValue = GvRow.DataKey("CveTipoAF") + TxtDolares.Text = GvRow.DataKey("Importe") + TxtPesos.Text = GvRow.DataKey("ImporteMax") + TxtAnticipo.Text = GvRow.DataKey("ImporteMin") + If DateTime.TryParse(GvRow.DataKey("FechaInicial").ToString, fechaInicial) And DateTime.TryParse(GvRow.DataKey("FechaFinal").ToString, fechaFinal) Then TxtFechaSalida.Text = fechaInicial.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") TxtFechaRegreso.Text = fechaFinal.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")