diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ef22b8974..4c790a109 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1955,11 +1955,8 @@ Partial Class Compras_Compras If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not UsuarioActual.CveUsuario.Contiene(1719, 1721) Then BtnGuardar.Enabled = False '' solo se activa para el usuario Sara.JAM BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante." End If - End If - - Dim SbValRet As New StringBuilder For Each concepto As XmlNode In nodeconceptos ' Obtener la descripción del concepto @@ -1992,6 +1989,34 @@ Partial Class Compras_Compras SbValRet.Append($"Producto: {descripcion} La base e importe del impuesto {impuesto} no coincide Base: {baseValue.ToString()}, Importe Producto: {importeValue.ToString()}
") End If Next + + If UsuarioActual.CveEmpresa = 119 Then + Dim BaseIEPS As Decimal = 0 + Dim BaseIVA As Decimal = 0 + Dim TasaIEPS As String = "" + Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces) + For Each traslado As XmlNode In traslados + ' Obtener los valores de los atributos Base e Importe + Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2) + Dim impuesto As String = ValorXML(traslado, "Impuesto") + + If impuesto = "001" Then + impuesto = "ISR" + ElseIf impuesto = "002" Then + impuesto = "IVA" + BaseIVA += baseValue + ElseIf impuesto = "003" Then + impuesto = "IEPS" + TasaIEPS = ValorXML(traslado, "TasaOCuota") + BaseIEPS += baseValue + End If + Next + ' Validar si Base coincide con Importe + If BaseIVA <> BaseIEPS AndAlso BaseIEPS > 0 Then + 'SbValRet.Append($"La base e importe de la retención del impuesto {impuesto} no coinciden para {descripcion}. Base: {baseValue.ToString()}, Importe: {importeValue.ToString()}
") + SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS}
") + End If + End If End If Next