-- filtro por subproyecto

2022-04-04 11:35:12 -07:00
parent 9bf97dcfea
commit eab24d4172
1 changed files with 2 additions and 1 deletions
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -222,13 +222,14 @@ Public Class ClsPuntoVenta
        Return Retorno
    End Function

-    Public Function GetCortesDetalleVentas(CveCorte As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_Vta_CortesDetalleVentasGet")

        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With