AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- agregar parametro de cvesubproyecto

Browse Source
This commit is contained in:
rrene
2024-06-11 08:53:26 -07:00
parent d5d458b98c
commit b72b5b617d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPuntoVenta.vb
View File

@@ -269,7 +269,7 @@ Public Class ClsPuntoVenta
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesAdd") DataAdapter("PA_Vta_CortesAdd")
@@ -278,6 +278,7 @@ Public Class ClsPuntoVenta
.Add("@ImporteInicial", SqlDbType.Money).Value = ImporteInicial .Add("@ImporteInicial", SqlDbType.Money).Value = ImporteInicial
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With