--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

@@ -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)

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
+                'If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
-                    HabilitarFacturacionSucursal()
+                '    HabilitarFacturacionSucursal()
-                End If
+                'End If
 
                 'CargaFolios()