From 6c75038e1c69a079c90b3f462dc36aa619457716 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 27 Mar 2024 10:05:02 -0700
Subject: [PATCH] --FIX. Recargar global de sucursales de clientes en
 clientes.aspx. --FIX.Comentar facturacion de sucursales en ventas.aspx.
 --FIX. Filtro para sucursales de cliente en ventas.aspx

---
 Ventas/Clientes.aspx.vb | 9 +++++++--
 Ventas/Ventas.aspx.vb   | 8 ++++----
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 61a5959bd..758792a55 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -3176,6 +3176,8 @@ Partial Class Clientes
 
             ObjCliente.Dispose()
 
+            GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente) = Nothing
+
         Else
             AddSucursalTemp()
         End If
@@ -3190,8 +3192,9 @@ Partial Class Clientes
 
         Me.Actualizar = False
         Me.CveClienteSuc = -1
-        RegistraScript("hideDivEC();")
-
+        RegistraScript("hideDivEC();")
+
+
     End Sub
     Protected Sub LnkAgragarDireccion_Click(sender As Object, e As EventArgs)
 
@@ -3232,6 +3235,8 @@ Partial Class Clientes
                 GVSucursales.EditIndex = -1
                 ViewState("DTSucursalesCliente") = ObjCliente.DtResultados
                 Alert("La Sucursal del Cliente se eliminó correctamente.", TipoMensaje.MsgInformacion)
+
+                GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente) = Nothing
             End If
         Else
             TempDTSucursales.Rows.RemoveAt(e.RowIndex)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1e82369c9..38fdec9d3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7006,7 +7006,7 @@ Partial Class Ventas
                 End If
 
                 DdlSucursalCliente.Items.Clear()
-                Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente)
+                Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
                 If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
                     DdlSucursalCliente.DataSource = dtts
                     DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -7018,9 +7018,9 @@ Partial Class Ventas
                 End If
 
                 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
-                If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
-                    HabilitarFacturacionSucursal()
-                End If
+                'If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
+                '    HabilitarFacturacionSucursal()
+                'End If
 
                 'CargaFolios()