- filtros

App_Code/ClsVentas.vb

@@ -1664,7 +1664,7 @@ Public Class ClsVentas
                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
                                              Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
                                              Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPSDetalle")
 
@@ -1696,6 +1696,7 @@ Public Class ClsVentas
             .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+            .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
             .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
             .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia