-- mejoras en fluctuaciones

-- candado de no eliminar en regprepolizas, si tiene fluctuación

Bancos/FluctuacionCambiaria.aspx.vb

@@ -168,7 +168,11 @@ Partial Class Bancos_FluctuacionCambiaria
             Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion < 0").Abs
             Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion > 0")
 
-            Dim Final As Double = GanaciaAux - PerdidaAux
+            Dim Final As Double = GanaciaAux - PerdidaAux
+            HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
 
             IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
 
@@ -255,6 +259,11 @@ Partial Class Bancos_FluctuacionCambiaria
         If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 6, UsuarioActual.CveEmpresa) Then
             GvAcreedores.DataSource = ObjBancos.DtResultados
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
+            BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
+            BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0
+
         Else
             GvAcreedores.DataSource = Nothing
             Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
@@ -344,7 +353,6 @@ Partial Class Bancos_FluctuacionCambiaria
                     ErrorRegistrar = True
                     Exit For
                 End If
-
             Next
 
             Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
@@ -353,9 +361,11 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If Not ErrorRegistrar Then
             Conta.Commit()
+            BtnGeneraCompras.Visible = False
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
-            Conta.RollBack()
+            Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
         Conta.Dispose()
     End Sub
@@ -448,13 +458,14 @@ Partial Class Bancos_FluctuacionCambiaria
             ErrorRegistrar = True
         End If
 
-
         If Not ErrorRegistrar Then
             Conta.Commit()
+            BtnGeneraVentas.Visible = False
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
 
         Else
             Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
         Conta.Dispose()
     End Sub
@@ -731,7 +742,6 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         Dim idCta As Integer = 0
-        Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
         Dim idCtaPerdida, IdCtaGanancia As Integer
         Dim TipoMovto As Boolean = False
@@ -750,23 +760,21 @@ Partial Class Bancos_FluctuacionCambiaria
         Total = LblTotalAcreedores.Text.ToDecimal
         If Total > 0 Then
             CveConceptoContable = 64
-            CveCuenta = CveCuentaGanancia
             idCta = IdCtaGanancia
             TipoMovto = True
         Else
             CveConceptoContable = 65
-            CveCuenta = CveCuentaPerdida
             idCta = idCtaPerdida
             TipoMovto = False
         End If
 
         Dim TCUltimaFluctuacion As Decimal = GlobalTipoCambio(FechaUltimoDiaMes).ToDecimal()
 
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Acreedores", CveConceptoContable, "Fluctuación Acreedores", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
-        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 6, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         If CveBitacora <= 0 Then
             ErrorRegistrar = True
         End If
@@ -778,26 +786,26 @@ Partial Class Bancos_FluctuacionCambiaria
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
 
-            'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
-            '    ErrorRegistrar = True
-            '    Exit For
-            'End If
-
+            If Not Conta.UpdateTCValuacion(-1, gvr.DataKey("CveCompra").ToEntero, gvr.DataKey("CveIE").ToEntero, TCUltimaFluctuacion, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+                Exit For
+            End If
         Next
 
-        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
-
+        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 6, CveBitacora, UsuarioActual.CveEmpresa)
 
         If Not ErrorRegistrar Then
             Conta.Commit()
+            BtnGeneraAcreedores.Visible = False
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()
+            Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
         Conta.Dispose()
         Banco.Dispose()
@@ -884,4 +892,30 @@ Partial Class Bancos_FluctuacionCambiaria
         Banco.Dispose()
 
     End Sub
+
+    Protected Sub BtnClientesRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnClienteCvePrePoliza.Value.ToEntero, 2, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
+
+    Protected Sub BtnAcreedoresRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        Banco.IniciaTransacSQL()
+
+        If Banco.FluctuacionesBitacoraPrePolizaRemove(HdnAcreedorCvePrePoliza.Value.ToEntero, 6, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            Banco.Commit()
+            Alert("Flucturación eliminada.")
+        Else
+            Banco.RollBack()
+        End If
+        Banco.Dispose()
+    End Sub
 End Class