-

App_Code/ClsInventarios.vb

@@ -962,7 +962,7 @@ Public Class ClsInventarios
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
                                   Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "",
                                   Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1016,6 +1016,7 @@ Public Class ClsInventarios
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
+            .Add("@CveOP", SqlDbType.Int).Value = CveOP
         End With
 
         Try

Compras/Compras.aspx.vb

@@ -18133,9 +18133,9 @@ Partial Class Compras_Compras
         Dim IEPSPS = (TxtIEPSModal.Text.ToDouble / 100)
         Dim IEPSPSIVA = 0
 
-        'If Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
+        If Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
-        'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total
+            'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total
-        DrPS("IVA") = IVA * Total
+            DrPS("IVA") = IVA * Total
             DrPS("IVAPorcentaje") = IVA
             DrPS("RetIVA") = RetIVA * Total
             DrPS("RetIVAPorcentaje") = RetIVA
@@ -18146,9 +18146,9 @@ Partial Class Compras_Compras
             DrPS("IEPSPSIVA") = IEPSPSIVA * Total
             DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA
             AplicaCalculaTotales = True
-            'End If
+        End If
 
-            TmpDT.AcceptChanges()
+        TmpDT.AcceptChanges()
 
         AddPS2(AplicaCalculaTotales)
         CargaGvInv()