AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora el mensaje para notas de crédito, en descuentos financieros

Browse Source
This commit is contained in:
rrene
2024-09-12 14:48:34 -07:00
parent 04e9410f53
commit 6049b0f6f1
1 changed files with 28 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Compras/Compras.aspx.vb
View File

@@ -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()} <br>")
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()} <br>")
SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>")
End If
End If
End If
Next