fluctuacion cambiaria

App_Code/ClsBancos.vb

@@ -3352,8 +3352,8 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer
-        Dim Retorno As Boolean = False
+        Dim Retorno As Integer = 0
 
         DataAdapter("PA_Banc_FluctuacionesBitacoraAdd")
 
@@ -3363,11 +3363,13 @@ Public Class ClsBancos
             .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@vCveFluctuacionBitacora", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = SqlAdapter.SelectCommand.Parameters("@vCveFluctuacionBitacora").Value.ToString.ToEntero
+
         Catch ex As Exception
             OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
@@ -3394,6 +3396,52 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
+
+    Public Function UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = True
+
+        DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+            .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+            .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function FluctuacionesBitacoraPrePolizaRemove(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = True
+
+        DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+            .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+            .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #End Region
 
 #Region "B A N C O S - T A R J E T A S  C R E D I T O S"

Bancos/FluctuacionCambiaria.aspx

@@ -151,6 +151,7 @@
             </div>
             <div style="float: right; margin-right: 10px;">
                 <asp:Label runat="server" ID="LtlUltimaFluctuacion" Font-Italic="True"></asp:Label>
+                <asp:HiddenField ID="HdnCveFluctuacionBitacora" runat="server" />
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -159,7 +160,7 @@
     <asp:UpdatePanel ID="UpTabs" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <ajax:TabContainer runat="server" ID="T">
-                <ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Compras">
+                <ajax:TabPanel runat="server" ID="TabCompras" HeaderText="Proveedores">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpIndicadores" UpdateMode="Conditional" runat="server" Visible="False">
                             <ContentTemplate>
@@ -222,8 +223,7 @@
 
 
                         <div class="row">
-
+                             
-
                             <div class="col-md-5 form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control  marginFixRow" Width="96%"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVTxtConceptoCompras" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCompras"
@@ -244,15 +244,14 @@
                             <div class="col-md-6" style="text-align: right!important">
                                 <asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
                             </div>
+                             <div> <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
+                                 <asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" OnClick="BtnProveedoresRemove_Click" /></div>
 
                         </div>
-
+                         
-
-
-
                         <br />
                         <asp:GridView ID="GvCompras" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveCompra,CveProveedor,Fluctuacion,SerieFolio,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria"
+                            DataKeyNames="CveCompra,CveProveedor,TipoCambio, Fluctuacion,SerieFolio, CveConceptoContable,FluctuacionTotal,PerdidaGanancia,IdCtaContComplementaria"
                             EmptyDataText="No se Encontraron compras pendientes de pagar." ToolTip="Listado de Compras"
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
@@ -267,7 +266,7 @@
                         <%--<asp:Label ID="LblTotalCompras" runat="server" Text=""></asp:Label>--%>
                     </ContentTemplate>
                 </ajax:TabPanel>
-                <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Ventas">
+                <ajax:TabPanel runat="server" ID="TabVentas" HeaderText="Clientes">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpIndicadoresVentas" UpdateMode="Conditional" runat="server" Visible="false">
                             <ContentTemplate>
@@ -308,6 +307,7 @@
                                         <div class="widget-thumb text-uppercase  bordered">
                                             <h4 class="widget-thumb-heading">
                                                 <asp:Label ID="LblVentasPerdidaGanancia" runat="server" Text=""></asp:Label></h4>
+                                            
                                             <div class="widget-thumb-wrap">
                                                 <i id="IImagenFinalVentas" runat="server" class=""></i>
                                                 <div class="widget-thumb-body">
@@ -322,7 +322,7 @@
                                                 </div>
                                             </div>
                                         </div>
-                                    </div>
+                                    </div>                                   
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
@@ -353,7 +353,7 @@
 
                             <div class="col-md-6" style="text-align: right!important">
                                 <asp:Button Text="Generar Clientes" runat="server" ID="BtnGeneraVentas" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
-                            </div>
+                            </div>                           
 
                         </div>
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -131,6 +131,8 @@ Partial Class Bancos_FluctuacionCambiaria
             Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion")
 
             Dim Final As Double = GanaciaAux - PerdidaAux
+            HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
+            HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
 
             IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
 
@@ -280,8 +282,8 @@ Partial Class Bancos_FluctuacionCambiaria
     Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
 
         Dim Total As Decimal = 0
-        Dim Conta As New ClsContabilidad
+        Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         Dim idCta As Integer = 0
@@ -316,7 +318,12 @@ Partial Class Bancos_FluctuacionCambiaria
 
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Compras", CveConceptoContable, "Fluctuación Compras", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
-        End If
+        End If
+
+        'Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        'If CveBitacora <= 0 Then
+        '    ErrorRegistrar = True
+        'End If
 
 
         'saco las cuentas de pérdida y ganancia
@@ -326,18 +333,20 @@ Partial Class Bancos_FluctuacionCambiaria
 
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 201, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total) Then
                 ErrorRegistrar = True
                 Exit For
             End If
 
-            If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+            'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
-                ErrorRegistrar = True
+            '    ErrorRegistrar = True
-                Exit For
+            '    Exit For
-            End If
+            'End If
 
         Next
 
+        'Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
+
         If Not ErrorRegistrar Then
             Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
@@ -393,13 +402,17 @@ Partial Class Bancos_FluctuacionCambiaria
         End If
 
         Dim Conta As New ClsContabilidad
-        Conta.IniciaTransacSQL()
+        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
         Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
             ErrorRegistrar = True
         End If
 
+        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+
         Dim CveConconceptoCliente As Integer = 203
 
         'saco las cuentas de pérdida y ganancia
@@ -414,10 +427,10 @@ Partial Class Bancos_FluctuacionCambiaria
                 CveConconceptoCliente = 203
             End If
 
-            If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
+            'If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then
-                ErrorRegistrar = True
+            '    ErrorRegistrar = True
-                Exit For
+            '    Exit For
-            End If
+            'End If
 
             'movimiento de complementaria
             If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
@@ -981,4 +994,13 @@ Partial Class Bancos_FluctuacionCambiaria
 #End Region
 
 
+    Protected Sub BtnProveedoresRemove_Click(sender As Object, e As EventArgs)
+        Dim Banco As New ClsBancos
+        If Not Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, 1, UsuarioActual.CveEmpresa) Then
+            Alert("Flucturación eliminada.")
+        End If
+        Banco.Dispose()
+
+
+    End Sub
 End Class