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

Compras/Compras.aspx.vb

@@ -10,6 +10,7 @@ Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
 Imports MoreLinq
+Imports ClbNegBICFDv3_3
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -1341,7 +1342,7 @@ Partial Class Compras_Compras
                     CambiaEjercicioAC()
                 End If
                 UpConsignaciones.Update()
-                UpINV.Update()
+                UpInv.Update()
                 'DdlIVA.Visible = True ' cuando es compra manual
                 'If UsuarioActual.CveEmpresa = 126 Then
                 '    CargaOrdenCorte()
@@ -1735,6 +1736,50 @@ Partial Class Compras_Compras
                             End If
 
                         End If
+
+
+
+                        Dim SbValRet As New StringBuilder
+                        For Each concepto As XmlNode In nodeconceptos
+                            ' Obtener la descripción del concepto
+                            Dim descripcion As String = ValorXML(concepto, "Descripcion")
+                            Dim importeValue As Decimal = Decimal.Parse(ValorXML(concepto, "Importe"))
+
+                            ' Seleccionar el nodo de Impuestos dentro de Concepto, si existe
+                            Dim impuestosNode As XmlNode = concepto.SelectSingleNode("cfdi:Impuestos", namespaces)
+
+                            If Not impuestosNode Is Nothing Then
+                                ' Seleccionar los nodos de Retencion dentro de Impuestos
+                                Dim retenciones As XmlNodeList = impuestosNode.SelectNodes("cfdi:Retenciones/cfdi:Retencion", namespaces)
+                                For Each retencion As XmlNode In retenciones
+                                    ' Obtener los valores de los atributos Base e Importe
+                                    Dim baseValue As Decimal = Decimal.Parse(ValorXML(retencion, "Base"))
+                                    Dim impuesto As String = ValorXML(retencion, "Impuesto")
+
+                                    If impuesto = "001" Then
+                                        impuesto = "Retención ISR"
+                                    ElseIf impuesto = "002" Then
+                                        impuesto = "Retención IVA"
+                                    ElseIf impuesto = "003" Then
+                                        impuesto = "IEPS"
+                                    End If
+
+
+                                    ' Validar si Base coincide con Importe
+                                    If baseValue <> importeValue 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 e importe  del impuesto {impuesto} no coincide Base: {baseValue.ToString()}, Importe Producto: {importeValue.ToString()} <br>")
+                                    End If
+                                Next
+                            End If
+                        Next
+
+                        If SbValRet.ToString.Trim.Length > 0 Then
+                            Alert(SbValRet.ToString, TipoMensaje.MsgAdvertencia)
+                        End If
+
+
+
                     Else
                         CargaConceptosXML(XMLDoc)
                     End If
@@ -20091,6 +20136,10 @@ Partial Class Compras_Compras
         DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
+
+    Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class