-- si es bdh, toma el corte de la venta

Bancos/PopIEVentas.aspx.vb

@@ -728,10 +728,6 @@ Partial Class Bancos_PopIEVentas
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte 
-                    CveCorte = dr("CveCorte").ToString.ToEntero
-                End If
-
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
                 'Configuración de Modalidad Update
@@ -745,8 +741,6 @@ Partial Class Bancos_PopIEVentas
                     End If
                 End If
 
-
-
                 MovimientoPagar = New IEMovimiento
                 MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
                 MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
@@ -788,6 +782,10 @@ Partial Class Bancos_PopIEVentas
                     CargaCorteCaja()
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'toma como proridad el que viene de 
+                    CveCorte = dr("CveCorte").ToString.ToEntero
+                End If
+
                 If RFCCliente.ToUpper <> "XAXX010101000" Then
                     Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero