Compras Validacion Combustibles

Compras/Compras.aspx.vb

@@ -3987,21 +3987,10 @@ Partial Class Compras_Compras
 
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
+
+        AjustaCombustibles()
+
         '------------------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
@@ -6508,7 +6497,7 @@ Partial Class Compras_Compras
                                                             End If
                                                         Case 6 'Compra
 
-                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
@@ -8540,6 +8529,61 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+
+    Private Sub AjustaCombustibles()
+
+
+        If Not TmpDT.Columns.Contains("AplicaIEPS") Then
+            TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
+        End If
+
+        If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
+            TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
+        End If
+
+        For Each dRow As DataRow In TmpDT.Rows
+            If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
+                Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
+                dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
+                dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
+            Else
+                dRow("AplicaIEPS") = False
+                dRow("IEPSGrabaIVA") = False
+            End If
+        Next
+
+        Dim DTConsulta As New DataTable
+        DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0  ")
+
+        If DTConsulta.Rows.Count > 0 Then
+
+            Dim IndiceContador As Integer = 0
+            Dim IndiceUltimo As Integer = 0
+
+            For Each dRow As DataRow In TmpDT.Rows
+
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
+                    IndiceUltimo = IndiceContador
+                End If
+
+                IndiceContador = IndiceContador + 1
+
+            Next
+
+
+            Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+            Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
+
+            If Math.Abs(DiferenciaIVas) > 0.01D Then
+                TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
+                TmpDT.AcceptChanges()
+            End If
+
+        End If
+
+
+    End Sub
+
     Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
         Dim ObjProveedores As New ClsCompProveedores()