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

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

Compras/ReembolsosComprobaciones.aspx

@@ -244,7 +244,7 @@
                                         <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
                                     </div>
                                 </div>
-                                <div class="row" runat="server" id="rowComisiones" visible="false">
+                                <div class="row" runat="server" >
                                     <label class="col-md-2" runat="server" id="lblpagocomisiones">Otros Ingresos:</label>
                                     <div class="col-md-3">
                                         <asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />

Compras/ReembolsosComprobaciones.aspx.vb

@@ -112,11 +112,11 @@ Partial Class Compras_ReembolsosComprobaciones
                     CbPermitirExcedente.Visible = False
                 End If
 
-                If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
-                    rowComisiones.Visible = True
-                End If
+            ' If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
+            'rowComisiones.Visible = True
+            '     End If
 
-                If UsuarioActual.CveEmpresa = 119 Then
+            If UsuarioActual.CveEmpresa = 119 Then
                     ChkReembolsarSinBancos.Visible = True
                 End If