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

-- procedimientos con tipo de venta

Browse Source
This commit is contained in:
rrene
2024-05-10 05:59:38 -07:00
parent 190aa55c90
commit 6bc0607579
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsVentas.vb
View File

@@ -6744,7 +6744,8 @@ Public Class ClsVentas
End Function End Function
Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer) As Boolean Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer,
Optional CveClienteSucursal As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ProcedimientosProductosGet") DataAdapter("PA_Vta_ProcedimientosProductosGet")
@@ -6755,6 +6756,8 @@ Public Class ClsVentas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)