-- cambios de Ruta a SubProyecto

Transportes/RepContratoDetalle.aspx.vb

@@ -48,35 +48,36 @@ Partial Class RepContratoDetalle
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
             Contrato = ObjContratos.DtResultados
+            If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
+                LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
+                DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
+                DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
+                TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
+                TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
+                TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
+                TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
+                TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
+                TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
+                DdlTipoAF.SelectedValue = Contrato.Rows(0)("CveTipoAF").ToString
+                TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
+                TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
+                TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
+                'Boletos Vendidos
+                If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
+                    TabBoletos.Visible = True
+                    Dim ObjTransportes As New ClsTransportes
+                    If ObjTransportes.GetViajesPasajeros(CveContrato) Then
+                        GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
+                    End If
+                    ObjTransportes.Dispose()
+                    GvViajesPasajeros.DataBind()
+                End If
+            End If
         Else
+            ObjContratos.Dispose()
             Response.Redirect($"~/Transportes/RepContratos.aspx")
         End If
-
-
-        LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
-        DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
-        DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
-        TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString
-        TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
-        TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
-        TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
-        TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
-        TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
-        DdlTipoAF.SelectedValue = Contrato.Rows(0)("CveTipoAF").ToString
-        TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
-        TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
-        TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
-        'Boletos Vendidos
-        If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
-            TabBoletos.Visible = True
-        End If
-
-        Dim ObjTransportes As New ClsTransportes
-        If ObjTransportes.GetViajesPasajeros(CveContrato) Then
-            GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
-            GvViajesPasajeros.DataBind()
-            ObjTransportes.Dispose()
-        End If
+        ObjContratos.Dispose()
     End Sub
 
     Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)