From 8a601da15042252a083d04eb77d54688bf0e7348 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:58:32 -0700
Subject: [PATCH 1/4] -- htmldoce en xml. y caracteres especiales

---
 Compras/Compras.aspx.vb | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5b1539e65..95498367e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1782,7 +1782,7 @@ Partial Class Compras_Compras
                     CargaComprobanteXML(XMLDoc)
 
                     If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then
-                        Dim Xml As New StringBuilder
+                        Dim Xml As String
                         Dim nodo As XmlNode = XMLDoc.DocumentElement
                         Dim Version = ValorXML(nodo, "version")
 
@@ -1810,10 +1810,17 @@ Partial Class Compras_Compras
                         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
 
                         Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
+                        Xml = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
+                        Xml = Xml.Replace("</cfdi:", "</")
+                        Xml = Xml.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "")
+                        Xml = Xml.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "")
+                        Xml = Xml.Replace("&quot;", "") 'comillas
+                        Xml = System.Web.HttpUtility.HtmlDecode(Xml.ToString)
+                        Xml = Xml.Replace(Chr(13), "") 'salto de linea
+                        Xml = Xml.Replace(Chr(10), "")
+                        Xml = Xml.Replace("&", "") 'adicional, si hay otros
 
-                        Xml.Append(Replace(Replace(Replace(Replace(Replace(nodeconceptos.OuterXml, "<cfdi:", "<"), "</cfdi:", "</"), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", ""), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", ""), "&quot;", ""))
-
-                        If ObjeFacturas.GetFacturasComparacionXML(Version, System.Web.HttpUtility.HtmlDecode(Xml.ToString).Replace(Chr(13), "").Replace(Chr(10), ""), UsuarioActual.CveEmpresa) Then
+                        If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
                             SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL

From 082c2b2af8b1db2fc8649cb7df66fd5c254e90b1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:58:46 -0700
Subject: [PATCH 2/4] - cvepersonal, en comprobaciones5

---
 Compras/ReembolsosComprobaciones.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 3bcb32ef6..914246a36 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -736,6 +736,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveIE = CveIEPago
                             Pago.CveMonedaPago = CveMonedaPago
                             Pago.TCPago = TipoCambioPago
+                            Pago.CvePersonal =CvePersonal
 
                             'Otros Ingresos
                             If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
@@ -808,7 +809,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.ImportePago = ImporteMovto
                             Pago.CveIE = CveIEExcedente
                             Pago.CveMonedaPago = CveMoneda
-
+                            Pago.CvePersonal = CvePersonal
 
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, Referencia, 30, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CveCuenta:=CveCuentaBancaria) Then
                                 MsgError = "no se pudo insertar el detalle de la poliza"

From f36027d3def1bafbc7fbafec9a48e2756769612b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:58:52 -0700
Subject: [PATCH 3/4] -- concepto de gasto

---
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2b6a245a2..1e0a49b93 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1660,7 +1660,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
             End If
 
-            If AplicaBancos Then
+            If AplicaBancos AndAlso Not AplicaComplementaria Then
                 If DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero <= 0 Then
                     Alert("seleccione las opciones de bancos ")
                     Retorno = False

From e0b8968264f1ecf194c262e41019fcaee4df6be2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:59:00 -0700
Subject: [PATCH 4/4] -

---
 Contabilidad2/CatCuentasAsignaciones.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 083e76f5e..3e26bae19 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -205,9 +205,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
             If CveConceptoContable = 51 Then
                 divTipoGasto.Visible = True
+                DdlTipoGasto.Items.Clear()
                 DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
                 DdlTipoGasto.DataBind()
-                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
+                DdlTipoGasto.Items.Add(New ListItem("-", "-1"))
             End If
             If Dr("CveTipoSaldo").ToString = "1" Then
                 divRegeneraCuenta.Visible = True