Timbrado se quita SA de CV en nombre de empresa de prueabs, ClsPaginas validacion carpeta CBB

App_Code/ClsPaginas.vb

@@ -6956,7 +6956,22 @@ Public Class ClsPaginas
             RFCReceptor = Vta.RFCReceptor
         End If
 
+
+        Dim RutaCarpetaCBB As String = String.Format("{0}CBB\", Ruta)
+        Dim FinfoCarpetaCBB As New IO.DirectoryInfo(RutaCarpetaCBB)
+
+        If Not FinfoCarpetaCBB.Exists Then
+            Try
+                IO.Directory.CreateDirectory(RutaCarpetaCBB)
+            Catch ex As Exception
+                GuardaLogAD($"CveEmpresa {UsuarioActual.CveEmpresa} Vta {Vta.SerieFolio} Error al crear directorio CBB {ex.Message}")
+
+            End Try
+        End If
+
+
         Dim RutaCBB As String = String.Format("{0}CBB\{1}.jpg", Ruta, Vta.SerieFolio)
+
         Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
         Dim ImgCBB As String '= String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
 

App_Code/Timbrado.vb

@@ -5548,7 +5548,7 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
 
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"