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

Compras/Compras.aspx.vb

@@ -1783,7 +1783,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")
 
@@ -1811,10 +1811,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

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"

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

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