Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1769,7 +1769,7 @@ Partial Class Compras_Compras
 
                 If Validada And Not EnListadoEFOS Then
                     Try
-                        XMLDoc.Load(Archivo)
+                        XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", ""))
                     Catch ex As Exception
                         Try
                             Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
@@ -1820,13 +1820,21 @@ Partial Class Compras_Compras
                         Xml = Xml.Replace(Chr(13), "") 'salto de linea
                         Xml = Xml.Replace(Chr(10), "")
                         Xml = Xml.Replace("<br />", "") 'salto de linea html
+                        Xml = Xml.Replace("&lt;br&gt;", "")
+                        Xml = Xml.Replace("&lt;", "")
+
                         Xml = Xml.Replace("&", "") 'adicional, si hay otros
 
+
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
                             SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
 
+                            If Not TmpDT.Columns.Contains("Amortizacion") Then
+                                TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                            End If
+
                             AddPS2(False)
 
                             'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
@@ -1939,6 +1947,11 @@ Partial Class Compras_Compras
 
                     If Version = "3.3" Or Version = "4.0" Then
 
+                        If Not TmpDT.Columns.Contains("Amortizacion") Then
+                            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                        End If
+                        TmpDT.AcceptChanges()
+
                         ValidacionesTotalesXml()
 
                     Else
@@ -2264,6 +2277,10 @@ Partial Class Compras_Compras
 
     Private Sub ValidacionesTotalesXml()
 
+        If Not TmpDT.Columns.Contains("Amortizacion") Then
+            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+        End If
+
         Dim Msg As String = ""
         Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2)
         Dim DescuentosTemp = TmpDT.SUM("Descuento")
@@ -8088,11 +8105,15 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
                                     End If
 
-                                    If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                        TieneError = True
-                                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+
+                                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                        If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                            TieneError = True
+                                            Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                                        End If
                                     End If
 
+
                                     If Not TieneError Then
                                         ObjCompras.Commit()
                                         If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()