From b3bdf46fb11f4a45b90fccf058caabb936fa1253 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Sep 2022 15:03:12 -0700 Subject: [PATCH] =?UTF-8?q?--=20quitar=20c=C3=B3digo=20viejo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsBancos.vb | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 551fca6ab..84b511339 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1673,27 +1673,6 @@ Public Class ClsBancos Return Retorno End Function - Public Function UpdateBancos_IETipoCambio(TipoCambio As Double, CveIE As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Banc_IETipoCambioUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el tipo cambio del IE.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function Public Function UpdateBancosTipoCambioValuacion(TipoCambio As Decimal, CveIE As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False