-- pago de compra, que sea acreditable o no, segun la forma de pago

App_Code/ClsPaginas.vb

@@ -9634,6 +9634,8 @@ Public Class ClsPaginas
 
         End If
 
+        If Pago.AplicaAcreditable Then
+
             'si tiene iva y su proporcion
             If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
@@ -9724,6 +9726,8 @@ Public Class ClsPaginas
 
             End If
 
+        End If
+
         'si tiene otros gastos/ingresos
         ImporteMovimiento = Pago.OtroGastoIngreso
         If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
@@ -9779,6 +9783,7 @@ Public Class ClsPaginas
 
 
     Public Class CompraPago
+        Public Property TipoPago As String = "B" ' B - Bancos, A - Anticipos, E - ExC, NC - Nota de crédito
         Public Fecha As Date
         Public Property CveIE As Integer = -1
         Public Property CvePersonal As Integer = -1
@@ -9789,6 +9794,7 @@ Public Class ClsPaginas
         Public Property OtroGastoIngreso As Decimal = 0
         Public Property CveConceptoPago As Integer = -1 'no definido de inicio
         Public Property CveCreditoDetalle As Integer = -1
+        Public Property AplicaAcreditable As Boolean = True
 
     End Class