Clientes se retiran campos CveMetodoPago, NumCtaPago, ConvenioCIE desde base de datos, Validacion fecha de pago no debe ser menor a factura, ProveedoresAbonar, ClientesAbonar, PooIEVentas, PopIECopmpras

Compras/Compras.aspx.vb

@@ -3988,6 +3988,20 @@ Partial Class Compras_Compras
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
         '------------------INICIA VALIDACIONES------------------
+
+        Dim TempIva As Decimal
+        For Each drowv As DataRow In TmpDT.Rows
+            TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
+        Next
+
+        Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
+
+        If Math.Abs(DifGenelraIvas) > 0.2 Then
+            Alert($"Los importes  no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         Dim EstatusCredito As Integer = 0
         Dim CveSubProyecto As Integer = 0
         'Credito Multiple