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

Compras/ReembolsosComprobaciones.aspx.vb

@@ -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