-

App_Code/ClsVentas.vb

@@ -2636,13 +2636,20 @@ Public Class ClsVentas
 
 
 
-#Region "Firmas"
-
-    Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+#Region "Relacionadas"
+    ''' <summary>
+    ''' 
+    ''' </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
         DataAdapter("PA_Vta_VentasRelacionadasGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@TipoRelacion", SqlDbType.Int).Value = TipoRelacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try