General

AF/OrdenTrabajo.aspx.vb

@@ -106,11 +106,8 @@ Partial Class AF_OrdenTrabajo
 
     Private Sub CargaDatos()
 
-        Dim ObjAF As New ClsAF
 
 
-        ObjAF.Dispose()
-
 
     End Sub
 

App_Code/ClsAF.vb

@@ -4204,20 +4204,22 @@ Public Class ClsAF
 
     End Function
 
-    Public Function GetOrdenesTrabajo(CveTipoServicio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, Folio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_OrdenesTrabajoGet")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
             .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Folio", SqlDbType.Int).Value = Folio
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            '.Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
             .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -4229,7 +4231,7 @@ Public Class ClsAF
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno

Bancos/ProveedoresAbonar.aspx.vb

@@ -2598,7 +2598,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                     If Dep.DtResultados.Rows.Count > 0 Then
 
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus ='True'")
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                         trCuentaDeposito.Visible = True