-- agregar parametro de cvesubproyecto

App_Code/ClsPuntoVenta.vb

@@ -269,7 +269,7 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
-    Public Function AddVtaCortes(FechaInicial As DateTime, ImporteInicial As Decimal, CveUsuario As Integer, Descripcion As String, CveEmpresa As Integer) As Boolean
+    Public Function AddVtaCortes(FechaInicial As DateTime, ImporteInicial As Decimal, CveUsuario As Integer, Descripcion As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_CortesAdd")
 
@@ -278,6 +278,7 @@ Public Class ClsPuntoVenta
             .Add("@ImporteInicial", SqlDbType.Money).Value = ImporteInicial
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
         End With