- mejora en ligas para bancos

Bancos/FluctuacionCambiaria.aspx

@@ -732,6 +732,10 @@
                             </div> 
                             <div class="col-md-6" style="text-align: right!important">
                                 <asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
+                                 <asp:HiddenField ID="HdnBancoCvePrePoliza" runat="server" />
+                                <asp:HyperLink ID="HplBancosLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
+                                <asp:Button ID="BtnBancosRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnBancosRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
+
                             </div>
 
                         </div> 

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 <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", 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 <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", 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