Formatos factura 168 y 170, validacion cfdi ampersand

App_Code/ClsValidaCFDi.vb

@@ -120,7 +120,7 @@ Public Class ClsValidaCFDi
             'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
             If EsValida = 0 Then
 
-                Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor, LRFCReceptor, Importe, True)
+                Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
 
                 If Vigencia IsNot Nothing Then
                     If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then

Compras/eFacturas.aspx.vb

@@ -4622,4 +4622,22 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#DvmodalPersonalizar').modal('show');")
 
     End Sub
-End Class
+End Class
+
+
+
+Public Class GeneralesAPI
+    Inherits ADSNetLibrary.Helpers.Conexiones.SIGAPI.BaseSIGAPI
+
+    Public Sub New(ByVal Optional domainApi As String = "http://localhost:4001/", ByVal Optional token As String = "")
+        MyBase.New(domainApi, token)
+    End Sub
+
+    Public Function GeneraSolicitud() As Object
+        Return getData(Of Object)("GeneraSolicitud", Nothing, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.[GET], False)
+    End Function
+
+    Public Function VerificaSolicitudesNominas() As Object
+        Return getData(Of Object)("VerificaSolicitudesNominas", Nothing, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.[GET], False)
+    End Function
+End Class

CxC/RepCxCDetalle.aspx.vb

@@ -236,7 +236,7 @@ Partial Class RepCxCDetalle
             CargaAsignarCobranza()
             TxtFechaCobranza.Text = Now.ToShortDateString
 
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol = 1 Then
                 DVCartera.Visible = True
             End If