diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7960d2da9..f56cf82e1 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -322,7 +322,7 @@
Descripción:
- +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4e68296a1..0e2e4d47f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -15,8 +15,6 @@ Imports MoreLinq Partial Class Compras_Compras Inherits ClsPaginas - - #Region "Propiedades" 'Local @@ -1568,9 +1566,7 @@ Partial Class Compras_Compras Dim RFC As String = "" If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador - ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero Dim XMLDoc As New XmlDocument @@ -1600,8 +1596,6 @@ Partial Class Compras_Compras If UsuarioActual.CveEmpresa < 2 Then Valida.EsValida = 1 End If - - EnListadoEFOS = Valida.EnListaEFOS If EnListadoEFOS Then @@ -1631,10 +1625,8 @@ Partial Class Compras_Compras Else Alert("Los servicios de validacion de facturas del SAT, no están activados.", TipoMensaje.ToastError, "", 0) End If - UpPSS.Update() - If Validada And Not EnListadoEFOS Then Try XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "")) @@ -1650,23 +1642,19 @@ Partial Class Compras_Compras CreaDTConceptos() CargaComprobanteXML(XMLDoc) - If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then + If NuevaValidacionXML = 1 OrElse (Version = "3.3" OrElse Version = "4.0") Then Dim Xml As String Dim nodo As XmlNode = XMLDoc.DocumentElement Dim Version = ValorXML(nodo, "version") - - Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) - If Version = "3.2" Then Prefijo = "cfd" cfdVer = "http://www.sat.gob.mx/cfd/2" ElseIf Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" - Else ' se considera que es la version 4.0 cfdVer = "http://www.sat.gob.mx/cfd/4" End If @@ -1691,10 +1679,8 @@ Partial Class Compras_Compras Xml = Xml.Replace("
", "") 'salto de linea html Xml = Xml.Replace("<br>", "") Xml = Xml.Replace("<", "") - Xml = Xml.Replace("&", "") 'adicional, si hay otros - If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then TmpDT = ObjeFacturas.DtResultados TmpDT.Columns.Add("CveSATPSActualizado") @@ -1716,6 +1702,7 @@ Partial Class Compras_Compras Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:

{0}", ProductosCodigoSATNoPermitidos.ToString) Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False + BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante." End If End If @@ -1823,11 +1810,8 @@ Partial Class Compras_Compras TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) End If TmpDT.AcceptChanges() - ValidacionesTotalesXml() - Else - 'PRUEBA 'http://rm/Compras/Compras.aspx?CveFactura=122518 Emp: 48 @@ -1841,12 +1825,6 @@ Partial Class Compras_Compras AgregarConceptoIEPS(TrasladoIEPS, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero) ' TrasladoIEPS = 0 End If - - 'AGREGA IEPS COMO IMPORTE GENERAL - 'If TrasladoIEPS > 0 And Not UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then - ' IEPS = TrasladoIEPS - 'End If - 'en otro impuesto lo esta registrando en ajuste en automatico If OtrosImpuestos > 0 Then AjustaUltimoConcepto = True @@ -1862,12 +1840,9 @@ Partial Class Compras_Compras End If Dim SubTotalReal As Decimal = 0 - SubTotalReal = Math.Round(Total + RetencionISR + RetencionIVA - IVA + Descuentos - TrasladoIEPS, 2) ' NO se incluye otros impuestos para ajustar esa cifra - Dim DiferenciaTotales As Decimal = SubTotalReal - Math.Round(SubTotalConceptos, 2) - If DiferenciaTotales <> 0 Then 'Verificamos IEPS y Otros Impuestos 'restricccion general, que si el subtotal de los conceptos no cuadra con Total + RetISR + RetIVA - IVA <> SubTotalConeptos, ajuste al final @@ -1892,12 +1867,9 @@ Partial Class Compras_Compras Row.FCLinkButton("imgE").Visible = False Row.FCLinkButton("imgD").Visible = False Next - End If - End If TrasladoIEPS = 0 : OtrosImpuestos = 0 : SubTotal2 = SubTotal - Else PnlAjusteProductos.Visible = True Dim Porcentaje As Double = If(SubTotalConceptos > 0, Math.Round((SubTotalConceptos - SubTotalReal) / SubTotalConceptos * 100, 2), 0) @@ -1912,8 +1884,6 @@ Partial Class Compras_Compras Next End If End If - - 'Si no hay diferencias pero tenemos descuento, se ofrece la opcion para ajustar el gasto If Descuentos > 0 Then @@ -1933,7 +1903,6 @@ Partial Class Compras_Compras Row.FCLinkButton("imgD").Visible = False Next End If - End If SubTotal2 = SubTotalReal - Descuentos @@ -1946,7 +1915,6 @@ Partial Class Compras_Compras Alert(Msg, TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False End If - 'AJUSTAMOS SUBTOTAL EN CASO DE SER DIFERENTE AL SUBTOTAL2 DEL XML (TOTAL - IVA) If SubTotal2 <> SubTotal Then SubTotal = SubTotalConceptos @@ -1978,16 +1946,10 @@ Partial Class Compras_Compras If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True HFDiferenciaCompra.Value = TxtTotal.Text - - 'LblRetIVA.Text = TmpDT.MAX("PorcentajeRetIVA").ToString '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%" - 'LblRetISR.Text = TmpDT.MAX("PorcentajeRetISR").ToString '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3) - 'ASIGNA VALORES ORIGINALES PARA GUARDAR AsignaValoresOriginales(SubTotal, SubTotal2, IVA, RetencionIVA, RetencionISR, Total) End If - - TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda)) @@ -2003,7 +1965,6 @@ Partial Class Compras_Compras LblMoneda.Text = Moneda LblMoneda.ForeColor = Drawing.Color.Red End If - End If If DdlMoneda.SelectedValue.ToEntero > 1 Then @@ -2017,7 +1978,6 @@ Partial Class Compras_Compras Else TxtFecha.Attributes.Add("onblur", "CambiaFechaTC();") End If - End If If TipoCambio > 0 And DdlMoneda.SelectedValue.ToEntero > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4")) @@ -2031,14 +1991,11 @@ Partial Class Compras_Compras Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If - End If - Else Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If - 'GvPS.DataSource = 'DTConceptos 'GvPS.DataBind() End If @@ -2072,7 +2029,6 @@ Partial Class Compras_Compras If Cambio Then DdlRetIVAConcepto.Items.Clear() - If RFCProv.Length = 13 Then ' personal fisica If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) @@ -2109,7 +2065,6 @@ Partial Class Compras_Compras End If End If UpPS.Update() - End Sub Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1) If TrRetISR.Visible Then @@ -2133,9 +2088,6 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End If - - - End If UpPS.Update() End Sub @@ -7094,8 +7046,8 @@ Partial Class Compras_Compras If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then + If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then ErrorCreditosCompra = True End If Else