From cbc0fd017f41b680640ae4d2fa26e551e24f3044 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 2 Jun 2023 14:04:53 -0700 Subject: [PATCH] =?UTF-8?q?--=20bancos,=20no=20debe=20de=20limitarse=20sol?= =?UTF-8?q?o=20a=20una=20=20p=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 47361b78d..80e3657eb 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -315,14 +315,14 @@ Partial Class Bancos_FluctuacionCambiaria Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion") + 'bancos no lleva seguimiento + 'HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + 'HdnBancoCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString + 'BtnBancosRemove.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 + 'BtnGeneraBancos.Visible = Not HdnBancoCvePrePoliza.Value.ToEntero > 0 - HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString - HdnBancoCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString - BtnBancosRemove.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 - BtnGeneraBancos.Visible = Not HdnBancoCvePrePoliza.Value.ToEntero > 0 - - HplBancosLiga.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 - HplBancosLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + 'HplBancosLiga.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 + 'HplBancosLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvCuentas.DataSource = DtTemp LblTotalBancos.Text = TotAcumulado.FormatoNumero