Correcion al aplicar "otros ingresos" al guardar reembolso

Compras/ReembolsosComprobaciones.aspx.vb

@@ -280,18 +280,18 @@ Partial Class Compras_ReembolsosComprobaciones
         dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
 
 
-        If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
-            dt = dt.FiltraParametros("CveTipoCuenta = 7")
-        End If
-
-        'cuando es layout
-        If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
-            dt = dt.FiltraParametros("UsaLayout = 1")
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
+            dt = dt.FiltraParametros("CveTipoCuenta = 7")
+        End If
+
+        'cuando es layout
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+            dt = dt.FiltraParametros("UsaLayout = 1")
         End If
 
 
-        If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
-            dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+            dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
         End If
 
         DdlCuenta.DataSource = dt
@@ -774,6 +774,11 @@ Partial Class Compras_ReembolsosComprobaciones
                             End If
 
                             If MsgError = "" Then
+
+                                If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
+                                    MsgError = "Detalle"
+                                End If
+
                                 If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
                                     'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
                                     ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte
@@ -781,10 +786,6 @@ Partial Class Compras_ReembolsosComprobaciones
                                         MsgError = "Detalle"
                                     End If
                                 End If
-
-                                If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
-                                    MsgError = "Detalle"
-                                End If
                             End If
 
                             Dim SaldoExcedente As Decimal = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal