From fec50f52f96e342296f86ec06e4c855503886512 Mon Sep 17 00:00:00 2001
From: HECTOR JAVIER RODRIGUEZ FLORES <hecttor201@gmail.com>
Date: Thu, 4 Feb 2021 13:04:49 -0700
Subject: [PATCH] Modulo generar depreciacion

---
 AF/RepDepreciacion.aspx    | 38 ++++++++++++++++-
 AF/RepDepreciacion.aspx.vb | 83 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 120 insertions(+), 1 deletion(-)

diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx
index 9d4588dd0..a6faf68bf 100644
--- a/AF/RepDepreciacion.aspx
+++ b/AF/RepDepreciacion.aspx
@@ -42,6 +42,9 @@
     <li>
         <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
     </li>
+    <li>
+        <asp:LinkButton runat="server" ID="BtnDepreciacion" data-toggle="tooltip" data-placement="left" title="Generar Depreciacion" Text="<i class='fa fa-plus'></i> Generar Depreciacion"></asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     <asp:Label ID="LblTitulo" runat="server" Text="Catálogo de Ingreso / Egreso"></asp:Label>
@@ -94,7 +97,7 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciacion" DataKeyNames="CveActivoFijo, TipoActivoFijo" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciacion" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
@@ -172,7 +175,40 @@
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
+        <div id="DivDepreciacion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciacion</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                         <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVProyecto" runat="server" ControlToValidate="DdlProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    <label for="TxtSubProyecto">Proyecto:</label>
 
+                         </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlSubProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <label for="TxtSubProyecto">Sub Proyecto:</label>
+                     
+                        </div>
+     
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGenerarDepreciacion" runat="server" class="btn btn-success" Text="Generar Depreciacion" ValidationGroup="GrpGuardar" />
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb
index e16f547a4..77c32ae7f 100644
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -22,6 +22,76 @@ Partial Class AF_RepDepreciacion
         If GvDatos.Rows.Count = 0 Then Alert("No se encontraron Registros con los filtros actuales.", TipoMensaje.MsgAdvertencia)
     End Sub
 
+    Protected Sub BtnGenerarDepreciacion_Click(sender As Object, e As System.EventArgs) Handles BtnGenerarDepreciacion.Click
+
+
+        If GvDatos.Rows.Count > 0 Then
+            Dim CveActivoFijo As Integer
+            Dim ObjInventario As New ClsInventarios
+            Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
+            Dim ErrorMovInv As Boolean = False
+            Dim ConceptoPoliza As String = String.Format("Depreciacion - {0}", txtFechaI.Text)
+            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+            Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
+            For Each RowsDt As GridViewRow In GvDatos.Rows
+                CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
+                If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then
+
+                    Dim MontoDepreciacion As Double = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble
+                    Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
+
+                    If CvePrePoliza > 0 Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 101, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 51, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                    Else
+                        ErrorMovInv = True
+                        Exit For
+                    End If
+                End If
+
+            Next
+
+            If ErrorMovInv = False Then
+                ObjInventario.Commit()
+                ObjInventario.Dispose()
+                ObjConta.Dispose()
+
+                Dim MensajeAlert As New StringBuilder
+                MensajeAlert.Append("Se ha generado la depreciación")
+                MensajeAlert.AppendFormat("<br/><br/><b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >ver PrePóliza</a></b>", CvePrePoliza)
+
+                Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
+
+            Else
+                ObjInventario.RollBack()
+                ObjInventario.Dispose()
+                ObjConta.Dispose()
+            End If
+
+        Else
+            Alert("Debera consultar la informacion previo a la generacion de la depreciación", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Protected Sub BtnDepreciacion_Click(sender As Object, e As EventArgs) Handles BtnDepreciacion.Click
+        CargaProyecto()
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivDepreciacion"))
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargaSubProyecto()
+    End Sub
+
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
         Dim ObjAF As New ClsAF
@@ -50,6 +120,19 @@ Partial Class AF_RepDepreciacion
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
+    Private Sub CargaProyecto()
+        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        DdlProyecto.DataBind()
+        CargaSubProyecto()
+    End Sub
+
+    Private Sub CargaSubProyecto()
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
 #End Region
 
 #Region "DDLS SELECTED INDEX CHANGED"