AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- bancos, no debe de limitarse solo a una póliza

Browse Source
This commit is contained in:
rrene
2023-06-02 14:04:53 -07:00
parent 693f37a2c7
commit cbc0fd017f
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -315,14 +315,14 @@ Partial Class Bancos_FluctuacionCambiaria
Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion") 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 'HplBancosLiga.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0
HdnBancoCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString 'HplBancosLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", 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)
GvCuentas.DataSource = DtTemp GvCuentas.DataSource = DtTemp
LblTotalBancos.Text = TotAcumulado.FormatoNumero LblTotalBancos.Text = TotAcumulado.FormatoNumero