From 6bc06075797db2f563b9d6566c6d918a583d9584 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 10 May 2024 05:59:38 -0700
Subject: [PATCH] -- procedimientos con tipo de venta

---
 App_Code/ClsVentas.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1d1a578d1..ab0b16d22 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6744,7 +6744,8 @@ Public Class ClsVentas
 
     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
         DataAdapter("PA_Vta_ProcedimientosProductosGet")
@@ -6755,6 +6756,8 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
+            .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
         End With
         Try
             SqlAdapter.Fill(Data)