Tomar corte del usuario actual al generar devolucion de efectivo

Bancos/IE.aspx.vb

@@ -1307,16 +1307,25 @@ Partial Class Bancos_IE
         GvRH.DataBind()
         UpGvRH.Update()
     End Sub
-    Private Sub CargaCorteCaja(CveCuenta As Integer)
+    Private Sub CargaCorteCaja()
         'Checar si hay un Turno Abierto
         Dim ObjPVenta As New ClsPuntoVenta
 
-        If ObjPVenta.GetCortesPorCuenta(CveCuenta, UsuarioActual.CveEmpresa) Then
-
-            CveCorte = ObjPVenta.CveCorte
-
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                CveCorte = ObjPVenta.CveCorte
+            End If
         End If
         ObjPVenta.Dispose()
+
+        'Dim ObjPVenta As New ClsPuntoVenta
+
+        'If ObjPVenta.GetCortesPorCuenta(CveCuenta, UsuarioActual.CveEmpresa) Then
+
+        '    CveCorte = ObjPVenta.CveCorte
+
+        'End If
+        'ObjPVenta.Dispose()
     End Sub
 
 #Region "   CARGA PROVEEDOR   "
@@ -1671,7 +1680,7 @@ Partial Class Bancos_IE
 
             'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE 
             If Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
-                CargaCorteCaja(DdlCuenta.SelectedValue.ToEntero)
+                CargaCorteCaja()
             End If
 
             If dr("UsaTarjeta").ToString = "True" Then