From 785948a8cf5c2b6540d89e84b407b31f459b9c18 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 May 2023 14:27:08 -0700 Subject: [PATCH] - mejora en ligas para bancos --- Bancos/FluctuacionCambiaria.aspx | 4 ++ Bancos/FluctuacionCambiaria.aspx.vb | 82 ++++++++++++++++------------- 2 files changed, 49 insertions(+), 37 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index db024ed8d..d222aa756 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -732,6 +732,10 @@
+ + +
+ diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index ec1245098..48bb923cc 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -314,37 +314,16 @@ Partial Class Bancos_FluctuacionCambiaria If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 77, UsuarioActual.CveEmpresa) Then Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal - Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion") - 'Dim Conta As New ClsContabilidad - 'For Each Dr As DataRow In DtTemp.Rows - ' Dim Total As Decimal = 0 - ' Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero - ' If CveCuentaExtranjera > 0 Then - ' If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then - ' If Conta.DtResultados.Rows.Count > 1 Then - ' Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal - ' End If - ' End If - ' End If - ' Dr("Saldo") = Total - ' Total = Total * TCCierreFluctuacion - Total - ' Dim SaldoActualContabilidad As Decimal = 0 - ' Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero - ' If CveCuentaComplementaria > 0 Then - ' If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then - ' If Conta.DtResultados.Rows.Count > 1 Then - ' SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal - ' End If - ' End If - ' End If - - ' Total = Total - SaldoActualContabilidad - ' TotAcumulado += Math.Round(Total, 2) - ' Dr("Fluctuacion") = Total - 'Next - 'DtTemp.AcceptChanges() - 'Conta.Dispose() - + Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion") + + 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) + GvCuentas.DataSource = DtTemp LblTotalBancos.Text = TotAcumulado.FormatoNumero Else @@ -938,8 +917,8 @@ Partial Class Bancos_FluctuacionCambiaria Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs) Dim Total As Decimal = 0 - Dim Conta As New ClsContabilidad - Conta.IniciaTransacSQL() + Dim Conta As New ClsContabilidad + Dim Banco As New ClsBancos(Conta.IniciaTransacSQL()) 'Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa) 'ObjContPaq.IniciaTransacSQL() Dim idCta As Integer = 0 @@ -961,6 +940,15 @@ Partial Class Bancos_FluctuacionCambiaria Dim CveConconceptoBancos As Integer = 204 + If HdnCveFluctuacionBitacora.Value.ToEntero <= 0 Then + HdnCveFluctuacionBitacora.Value = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).ToString + If HdnCveFluctuacionBitacora.Value.ToEntero <= 0 Then + ErrorRegistrar = True + End If + End If + + + 'saco las cuentas de pérdida y ganancia For Each gvr As GridViewRow In GvCuentas.Rows Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos") @@ -1009,10 +997,16 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then - Conta.Commit() - ' ObjContPaq.Commit() - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) - CargaDatosBancosCuentas() + If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 7, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ErrorRegistrar = True + End If + + If Not ErrorRegistrar Then + Conta.Commit() + ' ObjContPaq.Commit() + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + CargaDatosBancosCuentas() + End If Else Conta.RollBack() ' ObjContPaq.Dispose() @@ -1429,4 +1423,18 @@ Partial Class Bancos_FluctuacionCambiaria End If Banco.Dispose() End Sub + + Protected Sub BtnBancosRemove_Click(sender As Object, e As EventArgs) + Dim Banco As New ClsBancos + Banco.IniciaTransacSQL() + + If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnBancoCvePrePoliza.Value.ToEntero, 7, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then + Banco.Commit() + BtnBancosRemove.Visible = False + Alert("Fluctuación eliminada.") + Else + Banco.RollBack() + End If + Banco.Dispose() + End Sub End Class