10.A. Formato de devolución como la entrada de almacén por compra.

Compras/ReembolsosComprobaciones.aspx.vb

@@ -680,6 +680,11 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.TCPago = TipoCambioPago
                             Pago.CvePersonal =CvePersonal
                             ImportePagoTotal = ImportePagoTotal + ImporteMovto
+
+                            If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                                Pago.AplicaAcreditable = False
+                            End If
+
                             'Otros Ingresos
                             If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                 Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal
@@ -756,6 +761,10 @@ Partial Class Compras_ReembolsosComprobaciones
                                 MsgError = "no se pudo insertar el detalle de la poliza"
                             End If
 
+                            If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                                Pago.AplicaAcreditable = False
+                            End If
+
                             If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
                                 MsgError = "Detalle"
                             End If