From 344f2186bc4d1863aab5541aa6c119a99aa7d997 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 1 Aug 2022 20:28:42 -0700
Subject: [PATCH] -

---
 App_Code/ClsVentas.vb | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 13350f597..8058e13d5 100644
--- a/App_Code/ClsVentas.vb
+++ b/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