From f1f49c8f17bcb2df173c74f741993c274bea9c9c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 8 Mar 2022 22:41:39 -0700
Subject: [PATCH] Tomar corte del usuario actual al generar devolucion de
 efectivo

---
 Bancos/IE.aspx.vb | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 8be4b0926..ae4c77908 100644
--- a/Bancos/IE.aspx.vb
+++ b/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