--Se modificó contratos para que agregara Importe en dólares a Importe en ClsContratos, ImporteMax para los pesos e ImporteMin para el anticipo. Se limpio el campo de DdlClientes al querer guardar un contrato nuevo.

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

Transportes/RepBoletos.aspx

@@ -94,7 +94,7 @@
                         <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar" />
                         <asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar"
-                            ToolTip="Activar" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
+                            CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
                             data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
                             data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" />
                         <asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"

Transportes/RepContratos.aspx

@@ -64,7 +64,7 @@
 
         <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
             CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-            data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF ">
+            data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax ">
             <Columns>
 
                 <asp:TemplateField HeaderText="No. Contrato">
@@ -261,7 +261,7 @@
                                         <div class="row my-1">
                                             <label class="col-md-4 bold">Anticipo:</label>
                                             <div class="col-md-8">
-                                                <asp:TextBox ID="TxtAnticipo" runat="server" type="number"></asp:TextBox>
+                                                <asp:TextBox ID="TxtAnticipo" runat="server" type="decimal"></asp:TextBox>
                                             </div>
                                         </div>
 

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