Correciones Compras, Foramto OC 189, Formato CFDI GRales,RepContato detale correciones

Compras/eFacturas.aspx.vb

@@ -1686,7 +1686,7 @@ Partial Class Compras_eFacturas
                     fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "")
                 End If
 
-                If fxml.Contains(fpdf) Then
+                If fxml.Contains(fpdf) Or (ListXML.Count = 1 And ListPDF.Count = 1) Then
                     RutaPDF = fInfoPDF.FullName
                     Exit For
                 End If
@@ -7985,6 +7985,9 @@ Namespace ADS.eFacturas
                             GuardaLogAD(ex.ToString(), ArchivoLog)
                         End Try
 
+
+                    ElseIf Fact.RespuestaInsert = 0 AndAlso Fact.CveFactura > 0 Then
+                        'FIXME OIC
                     Else
                         rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar"
                     End If