From b986927a823742002b7e770b81b9cbf6993e6c4b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Mar 2024 22:38:56 -0700
Subject: [PATCH] -- globaldt sucursalesclientes

---
 App_Code/ClsPaginas.vb | 29 +++++++++++++++++++++++++++--
 1 file changed, 27 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 72c01ec75..6a15b925d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1247,9 +1247,9 @@ Public Class ClsPaginas
             End If
             If EsPersonaFisica <> -1 Then
                 Dim Tipo As New StringBuilder
-                If EsPersonaFisica = 1 Then Tipo.Append("AplicaPersonaFisica = 1") Else Tipo.Append("AplicaPersonaMoral = 1")
+                If EsPersonaFisica = 1 Then Tipo.Append("AplicaPersonaFisica = 1 ") Else Tipo.Append("AplicaPersonaMoral = 1 ")
                 If RegimenFiscalReceptor <> "-1" Then
-                    Tipo.AppendFormat("AND RegimenFiscalReceptor LIKE '%{0}%'", RegimenFiscalReceptor)
+                    Tipo.AppendFormat(" AND RegimenFiscalReceptor LIKE '%{0}%'", RegimenFiscalReceptor)
                 End If
                 Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Tipo.ToString(), " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
                 GlobalDTSATUsosCFDI = Dv.ToTable
@@ -2245,6 +2245,31 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
+
+    Public Shared Property GlobalDTClientesSucursales(CveEmpresa As Integer, Optional CveCliente As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTClientesSucursales-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjClientes As New ClsClientes
+                If ObjClientes.GetClienteSucursales(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados.Copy()
+                ObjClientes.Dispose()
+            End If
+            Dim filtros As New List(Of String)
+
+            If CveCliente >= 0 Then filtros.Add($"CveCliente = {CveCliente}")
+            If filtros.Count > 0 Then
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
+                GlobalDTClientesSucursales = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTClientesSucursales = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTClientesSucursales-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
     Public Shared Property GlobalDTEstatusOrdenServicios(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTEstatusOrdenServicios-{CveEmpresa}"