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

-

Browse Source
This commit is contained in:
rrene
2022-08-01 20:28:42 -07:00
parent aa8ea75c25
commit 344f2186bc
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
App_Code/ClsVentas.vb
View File

@@ -2636,13 +2636,20 @@ Public Class ClsVentas
#Region "Firmas" #Region "Relacionadas"
''' <summary>
Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer) As Boolean '''
''' </summary>
''' <param name="CveVenta"></param>
''' <param name="CveEmpresa"></param>
''' <param name="TipoRelacion"> 1. Relacion de Padres, 2. Relacion sobre hijos</param>
''' <returns></returns>
Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer, Optional TipoRelacion As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasRelacionadasGet") DataAdapter("PA_Vta_VentasRelacionadasGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@TipoRelacion", SqlDbType.Int).Value = TipoRelacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try