From a082e4c8e58d20a1dae39c0d4b9b87f5255d4524 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 2 Dec 2019 12:46:50 -0700 Subject: [PATCH 1/2] =?UTF-8?q?par=C3=A1metro=20de=20subproyecto=20al=20ob?= =?UTF-8?q?tener=20folio?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsGralFolios.vb | 3 ++- Ventas/Clientes.aspx | 6 +++--- Ventas/Clientes.aspx.vb | 4 ++-- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb index 2700007a1..d65f873ba 100644 --- a/App_Code/ClsGralFolios.vb +++ b/App_Code/ClsGralFolios.vb @@ -124,12 +124,13 @@ Public Class ClsGralFolios End Sub #End Region - Public Function GetFolios(Optional TipoDocto As String = "-1", Optional CveEmpresa As Integer = -1) As Boolean + Public Function GetFolios(Optional TipoDocto As String = "-1", Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_FoliosGet") With SqlAdapter.SelectCommand.Parameters .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 13029ef05..8c43686a8 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -594,7 +594,7 @@
- +
@@ -3938,7 +3938,7 @@ $ - + @@ -5561,7 +5561,7 @@