From 97ff4bff4d10a5def602d354a93140e2b43cd694 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 3 Sep 2020 17:19:03 -0700
Subject: [PATCH] General

---
 AF/OrdenTrabajo.aspx.vb          | 3 ---
 App_Code/ClsAF.vb                | 8 +++++---
 Bancos/ProveedoresAbonar.aspx.vb | 2 +-
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb
index 632937a24..7eb814f2b 100644
--- a/AF/OrdenTrabajo.aspx.vb
+++ b/AF/OrdenTrabajo.aspx.vb
@@ -106,11 +106,8 @@ Partial Class AF_OrdenTrabajo
 
     Private Sub CargaDatos()
 
-        Dim ObjAF As New ClsAF
 
 
-        ObjAF.Dispose()
-
 
     End Sub
 
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 1457316a7..b9df20682 100644
--- a/App_Code/ClsAF.vb
+++ b/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
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index b5a36f751..0cfc4dcad 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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