GPS/CatRemisionesVehiculos.aspx.vb

@@ -42,14 +42,12 @@ Partial Class GPS_CatRemisionesVehiculos
         Dim ObjTSoft As New ClsTSoft
         If ObjTSoft.GetRemisiones(UsuarioActual.CveCliente) Then
             GvRemisiones.DataSource = ObjTSoft.DtResultados
-        Else
-            GvRemisiones.DataSource = Nothing
         End If
         If ObjTSoft.GetEstatusRemisiones() Then
             DdlEstatus.DataSource = ObjTSoft.DtResultados
         End If
-
-        ObjTSoft.Dispose()
+        ObjTSoft.Dispose()
+
         DdlEstatus.DataBind()
         GvRemisiones.DataBind()
         UPConsulta.Update()
@@ -91,16 +89,16 @@ Partial Class GPS_CatRemisionesVehiculos
         UpContratos.Update()
     End Sub
     Protected Sub BtnActualizarEstatus_Click(sender As Object, e As EventArgs)
-        Dim ObjSoft As New ClsTSoft
-        Dim TrackingNo As String = If(TxtTracking.Text <> "", TxtTracking.Text, "-1")
-        Dim NumRemolque As String = If(TxtNoRemolque.Text <> "", TxtNoRemolque.Text, "-1")
 
+        Dim TrackingNo As String = If(TxtTracking.Text <> "", TxtTracking.Text, "-1")
+        Dim NumRemolque As String = If(TxtNoRemolque.Text <> "", TxtNoRemolque.Text, "-1")
+        Dim ObjSoft As New ClsTSoft
         If ObjSoft.UpdateEstatusRemisiones(CveRemision, DdlEstatus.SelectedValue.ToEntero, TrackingNo, NumRemolque) Then
             Alert("El estatus se actualizó correctamente")
-        End If
+        End If
+        ObjSoft.Dispose()
         TxtNoRemolque.Text = ""
         TxtTracking.Text = ""
-        ObjSoft.Dispose()
         CargaDatos()
         RegistraScript("$('#C_BtnCerrarContrato').click();")
     End Sub
@@ -108,17 +106,19 @@ Partial Class GPS_CatRemisionesVehiculos
         RegistraScript("$('#C_BtnCerrarContrato').click();")
     End Sub
     Protected Sub imgHistorial_Click(sender As Object, e As EventArgs)
-        Dim ObjSoft As New ClsTSoft
         Dim Boton = CType(sender, LinkButton)
         Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
-        CveRemision = Boton.CommandArgument.ToEntero
+        CveRemision = Boton.CommandArgument.ToEntero
+
+        Dim ObjSoft As New ClsTSoft
         If ObjSoft.GETRemisionesHistorial(GvRow.DataKey("FolioRemision").ToString, GvRow.DataKey("NoEconomico").ToString) Then
             GVHistorico.DataSource = ObjSoft.DtResultados
         End If
         ObjSoft.Dispose()
+
         H1.InnerText = $"Histórico Remisión: {GvRow.DataKey("FolioRemision").ToString} "
         GVHistorico.DataBind()
         UpHistorico.Update()
-        RegistraScript("$('#dvHistorico').modal();")
+        RegistraScript("$('#dvHistorico').modal('show');")
     End Sub
 End Class