AF Documentos, AF fecha iamgen, Correciones eFacturas solicitudes pdf sobre escritura

AF/AF.aspx

@@ -1,11 +1,17 @@
 <%@ Page Title="AF - Activo Fijo" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="AF.aspx.vb" Inherits="AF_AF" ValidateRequest="false" EnableEventValidation="false" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
+   
+ 
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
     <asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Activos Fijos"></asp:Literal>&nbsp;<asp:Literal ID="LtlActivoFijo" runat="server"></asp:Literal>
 </asp:Content>
+
+ 
+
 <asp:Content ID="Content6" ContentPlaceHolderID="HB" runat="Server">
+
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
@@ -1012,7 +1018,7 @@
 
                                                                       <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
                                                                           <ItemTemplate>                                                                              
-                                                                              <asp:LinkButton ID="ImgDownLoad" CssClass="btn btn-circle btn-sm  blue" OnClick="ImgDownLoad_Click" runat="server"
+                                                                              <asp:LinkButton ID="ImgDownLoad" CssClass="btn btn-circle btn-sm  blue" OnClick="ImgDownLoad_Click" runat="server" 
                                                                                   Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
                                                                           </ItemTemplate>
                                                                       </asp:TemplateField>
@@ -1591,9 +1597,8 @@
                                                                             </div>
                                                                         </div>
                                                                     </div>
-                                                                </div>
+                                                                </div>                                                                
-                                                                <div class="cbp-l-grid-projects-title uppercase text-center">IMAGEN</div>
+                                                                <div class="cbp-l-grid-projects-desc  uppercase text-center"><%# Container.ItemIndex + 1 %> - <%# CType(Eval("FechaIng"), DateTime).ToString("dd/MM/yyyy") %> </div>
-                                                                <div class="cbp-l-grid-projects-desc  uppercase text-center"><%# Container.ItemIndex + 1 %></div>
                                                             </div>
                                                         </ItemTemplate>
                                                     </asp:Repeater>
@@ -3753,7 +3758,108 @@
         </div>
     </div>
 
-    <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
+    <%--modal parametros documentos--%>
+    <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
+    <asp:UpdatePanel ID="UpdatePanel6" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="modal-content rowpadding">
+                <div class="modal-header">
+                    <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                        <span >&times;</span>
+                    </button>
+                    <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
+                </div>
+                <div class="modal-body">
+
+                    <asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <asp:GridView ID="GvParametros" runat="server" AutoGenerateColumns="False"
+                                DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table  table-hover table-advance  Widthall" GridLines="None">
+                                <Columns>
+
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                    <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Descripción">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                    <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
+                                        <ItemTemplate>
+
+                                            <asp:TextBox ID="TxtParametro" runat="server" Text="" Width="150px" ValidationGroup="GrpDescargaFormato"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="CERFVTxtParametro" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtParametro" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+
+                                </Columns>
+                            </asp:GridView>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+
+
+                </div>
+
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <%--<asp:LinkButton ID="LnkDescargaFormatoParametros" OnClick="LnkDescargaFormatoParametros_Click" ValidationGroup="GrpDescargaFormato" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>--%>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</div>
+
+   <%--modalupluad doc--%>
+     <div id="ModalUploadFirmaContratoDocumento" class="modal ADS fade" role="dialog">
+     <div class="modal-dialog">
+         <div class="modal-content">
+             <div class="modal-header ">
+                 <button type="button" class="close" data-dismiss="modal">&times;</button>
+                 <h4 class="modal-title">
+                     <asp:UpdatePanel ID="UpTituloFirma" runat="server" UpdateMode="Conditional">
+                         <ContentTemplate>
+                             <asp:Literal ID="LtlTitulofirmaContrato" runat="server">Documentación Firma de Contrato </asp:Literal>
+                         </ContentTemplate>
+                     </asp:UpdatePanel>
+                 </h4>
+             </div>
+
+             <div class="modal-body">
+                 <asp:UpdatePanel runat="server" ID="UpModalFirmaContratoDocumento" UpdateMode="Conditional">
+                     <ContentTemplate>
+                         <div class="row">
+                             <div class="col-md-12">
+                                 <asp:TextBox ID="TxtFileFirmaContrato" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                             </div>
+                         </div>
+                     </ContentTemplate>
+                 </asp:UpdatePanel>
+             </div>
+             <div class="modal-footer">
+                 <asp:UpdatePanel runat="server">
+                     <ContentTemplate>
+                         <asp:Button ID="BtnModalFirmaContratoDocumentoUpload" runat="server" ClientIDMode="Static" Text="Aceptar" CssClass="btn btn-primary" />
+                         <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                     </ContentTemplate>
+                 </asp:UpdatePanel>
+             </div>
+         </div>
+     </div>
+ </div>    
+<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
     <%-- <link href="/Metronic/assets/global/plugins/dropzone/css/dropzone.css" rel="stylesheet"/>--%>
@@ -4169,6 +4275,7 @@
 
             setTimeout(function () { startTimer(request); }, 30000); // callback
         }
+        
     </script>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="Css" runat="Server">
@@ -4183,6 +4290,9 @@
         .cbp-popup-lightbox-figure {
             background-color: #FFF;
         }
+         .orange {
+     background-color: orangered;
+ }
     </style>
 </asp:Content>
 

AF/AF.aspx.vb

@@ -7,8 +7,7 @@ Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports ZXing
 Imports Newtonsoft.Json.Linq
-
+Partial Class AF_AF
-Partial Class AF_AF
     Inherits ClsPaginas
 
     'Configuración
@@ -388,6 +387,9 @@ Partial Class AF_AF
                 CargaPlagaEnfermedad()
                 ModalidadesPaginaAF()
 
+                CargaDocumentacion()
+
+
                 'Configuración de Modalidad Update
                 BtnGuardar.Text = "Guardar Cambios"
                 LtlTitulo.Text = "Consulta del Activo Fijo:"
@@ -940,7 +942,7 @@ Partial Class AF_AF
                 TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
                 TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
                 TxtValorCompraMN.Text = ObjActivoFijo.ValorCompraMN.ToString.FormatoNumero
-                If ObjActivoFijo.ValorCompra <> ObjActivoFijo.ValorCompraMN Then DivValorCompraMN.visible = True
+                If ObjActivoFijo.ValorCompra <> ObjActivoFijo.ValorCompraMN Then DivValorCompraMN.Visible = True
 
                 TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
 
@@ -4947,39 +4949,531 @@ Partial Class AF_AF
         RegistraScript("$('#ModalContaCuenta').modal('show');")
 
     End Sub
+#Region "D O C U M E N T O S"
+
+    Private Property DTDocumentacion As DataTable
+        Get
+            If ViewState("DTDocumentacion") Is Nothing Then
+                ViewState("DTDocumentacion") = New DataTable
+            End If
+            Return DirectCast(ViewState("DTDocumentacion"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDocumentacion") = value
+        End Set
+    End Property
+
+    Private Property DocumentoParametros As String
+        Get
+            If ViewState("DocumentoParametros") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("DocumentoParametros").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("DocumentoParametros") = value
+        End Set
+    End Property
 
 
-    'Private Sub CargaDocumentacion()
+    Property CveDocumentacion As Integer
+        Get
+            If ViewState("CveDocumentacion") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveDocumentacion"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveDocumentacion") = value
+        End Set
+    End Property
+    Property CveDocumentacionElectronica As Integer
+        Get
+            If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalClienteDocumentacion") = value
+        End Set
+    End Property
+    Property ActualizarDocumentacion As Boolean
+        Get
+            If ViewState("ActualizarDocumentacion") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("ActualizarDocumentacion"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ActualizarDocumentacion") = value
+        End Set
+    End Property
 
-    '    If CveActivoFijo > 0 Then
+    Property Documentacion As String
-    '        Dim objRH As New ClsEdocumentacion()
+        Get
+            If ViewState("Documentacion") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("Documentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("Documentacion") = value
+        End Set
+    End Property
+    Property AdjuntoDocumentacion As String
+        Get
+            If ViewState("AdjuntoDocumentacion") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("AdjuntoDocumentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("AdjuntoDocumentacion") = value
+        End Set
+    End Property
 
-    '        If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
+    Private Property FechaLimite As Date
-    '            DTDocumentacion = objRH.DtResultados
+        Get
-    '        End If
+            If ViewState("FechaLimite") Is Nothing Then
+                Return NowADS().AddDays(15)
+            Else
+                Return ViewState("FechaLimite").ToString().ToDate
+            End If
+        End Get
+        Set(value As Date)
+            ViewState("FechaLimite") = value
+        End Set
 
-    '        If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
+    End Property
-    '            GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
+
-    '        Else
+    Property ObservacionDocumentacion As String
-    '            GvDocumentosFirma.DataSource = Nothing
+        Get
-    '        End If
+            If ViewState("ObservacionDocumentacion") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("ObservacionDocumentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("ObservacionDocumentacion") = value
+        End Set
+    End Property
+
+    Private Sub CargaDocumentacion()
+
+        If CveActivoFijo > 0 Then
+            Dim objRH As New ClsEdocumentacion()
+
+            If objRH.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1, CveActivoFijo:=CveActivoFijo, Modulo:=9) Then
+                DTDocumentacion = objRH.DtResultados
+            End If
+
+            If DTDocumentacion.Rows.Count > 0 Then
+                GvDocumentos.DataSource = DTDocumentacion
+            Else
+                GvDocumentos.DataSource = Nothing
+            End If
+
+            objRH.Dispose()
+
+            GvDocumentos.DataBind()
+
+            UpGvDocumentos.Update()
+
+        End If
+
+    End Sub
+
+    Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound
 
 
-    '        If DTDocumentacion.FiltraParametros(" Modulo =  7 ").Rows.Count > 0 Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
-    '            GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo =  7 ")
-    '        Else
-    '            GVMaterialidad.DataSource = Nothing
-    '        End If
 
-    '        GVMaterialidad.DataBind()
+            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
-    '        GvDocumentosFirma.DataBind()
+            Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
+
+            Dim ImgDownLoad As LinkButton = e.Row.FCLinkButton("ImgDownLoad")
+            Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
+            Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
+            Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
+            Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
+            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString()
+            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString()
+            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero()
+            Dim separado As Char() = ".".ToString().ToCharArray
+            Dim array() As String = Adjunto.Split(separado)
+            Dim extencion As String = ""
+            Dim existeAdjunto As Boolean = False
+            Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
+            ' FechaVigencia
+
+            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero()
+            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
+
+            txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
+            TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
+
+
+
+            Dim scripMascara As String = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');"
+            RegistraScript(scripMascara)
+            If array.Length > 0 Then
+                extencion = array(array.Length - 1)
+            End If
+
+            If e.Row.DBCampo("Estatus").ToString().ToEntero() = 1 Then
+                chkEstatus.Checked = True
+            Else
+                chkEstatus.Checked = False
+            End If
+
+            If documentacionFormato = "" Then
+                ImgDownLoadFormato.Visible = False
+            Else
+                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
+                ImgDownLoadFormato.Visible = True
+                ScriptManager.GetCurrent(Me.Page).RegisterPostBackControl(ImgDownLoadFormato)
+            End If
+
+            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate.ToString("dd/MM/yyyy")
+
+            If Adjunto.Trim.Length > 0 Then
+
+                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/" & CveActivoFijo & "/" & Adjunto
+                Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "AF/" & CveActivoFijo & "/" & Adjunto
+
+                If File.Exists(linkDescargaArchivo) Then
+
+                    ImgDownLoad.Visible = True
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoad)
+
+                Else
+                    ImgDownLoad.Visible = False
+                End If
+
+            Else
+                ImgDownLoad.Visible = False
+            End If
+
+            If requerido Then
+                ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
+            Else
+                ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
+            End If
+
+        End If
+
+    End Sub
+
+
+
+
+    Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
+        Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
+
+
+        DescarFormato(DocumentacionFormato)
+
+        'Dim ObjEdoc As New ClsEdocumentacion
+
+        'If ObjEdoc.GetDocumentacionParametros(-1, CveDocumentacion, UsuarioActual.CveEmpresa) Then
+        '    If ObjEdoc.DtResultados.Rows.Count > 0 Then
+
+        '        GvParametros.DataSource = ObjEdoc.DtResultados
+        '        ObjEdoc.Dispose()
+
+        '        GvParametros.DataBind()
+        '        UpGvParametros.Update()
+
+        '        DocumentoParametros = DocumentacionFormato
+        '        RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('show')")
+
+        '    Else
+        '        ObjEdoc.Dispose()
+        '        DescarFormato(DocumentacionFormato)
+        '    End If
+        'Else
+        '    ObjEdoc.Dispose()
+        'End If
+
+    End Sub
+
+    Public Sub DescarFormato(documento As String)
+
+        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
+        Dim PathSource As String
+        Dim pathDesti As String
+
+        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
+        pathDesti = PathRoot & "Temp\" & CveActivoFijo & documento
+
+        If File.Exists(pathDesti) Then
+            File.Delete(pathDesti)
+        End If
+
+        File.Copy(PathSource, pathDesti)
+
+        'Dim objDoc As New clsGemBoxDocument(pathDesti)
+        'Dim objRH As New ClsRH
+        'objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
+        'objRH.Dispose()
+
+        'objDoc.Guardar(pathDesti)
+
+        Dim fileinfo As New FileInfo(pathDesti)
+
+        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        DescargarArchivo(fileinfo.FullName)
+        'baseUrl = baseUrl & "/temp/" & fileinfo.Name
+        'RegistraScript("Download('" & baseUrl & "')")
+
+    End Sub
+
+    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim chkEstatus As CheckBox
+        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
+        Documentacion = GvRow.DataKey("Documentacion")
+        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString()
+
+        chkEstatus = GvRow.FCCheckBox("chkEstatus")
+
+
+
+        ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
+        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+
+        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
+
+        LtlTitulofirmaContrato.Text = "Subir " & Documentacion
+
+        UpTituloFirma.Update()
+
+        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+    Protected Sub ImgDownLoad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim Adjunto As String = GvRow.DataKey("Adjunto").ToString()
+        Dim ArchivoPath As String = UsuarioActual.Empresa.Ruta & "AF/" & CveActivoFijo & "/" & Adjunto
+
+        DescargarArchivo(ArchivoPath)
+
+    End Sub
+
+    Protected Sub DescargarArchivo(rutaArchivo As String)
+
+        If System.IO.File.Exists(rutaArchivo) Then
+
+            Dim nombreArchivo As String = System.IO.Path.GetFileName(rutaArchivo)
+            Response.Clear()
+            Response.ContentType = "application/octet-stream"
+            Response.AddHeader("Content-Disposition", "attachment; filename=" & nombreArchivo)
+            Response.AddHeader("Content-Length", New System.IO.FileInfo(rutaArchivo).Length.ToString())
+            Response.WriteFile(rutaArchivo)
+            Response.End()
+
+        Else
+
+        End If
+    End Sub
+
+    Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs)
+
+        'Dim ListaTagsDocumentost As New List(Of TagsDocumentos)
+        'Dim ObjRH As New ClsRH
+        'ListaTagsDocumentost = ObjRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa)
+        'ObjRH.Dispose()
+
+        'For Each GvRow As GridViewRow In GvParametros.Rows
+
+        '    If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then
+        '        ListaTagsDocumentost.Add(New TagsDocumentos(GvRow.DataKey("Parametro"), GvRow.FCTextBox("TxtParametro").Text))
+        '    End If
+        'Next
+        'Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
+        'Dim PathSource As String
+        'Dim pathDesti As String
+
+        'PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
+        'pathDesti = PathRoot & "Temp\" & CveActivoFijo & DocumentoParametros
+
+        'If File.Exists(pathDesti) Then
+        '    File.Delete(pathDesti)
+        'End If
+
+        'File.Copy(PathSource, pathDesti)
+
+        'Dim objDoc As New clsGemBoxDocument(pathDesti)
+        'objDoc.SustituirTags(ListaTagsDocumentost)
+        'objDoc.Guardar(pathDesti)
+
+        'Dim fileinfo As New FileInfo(pathDesti)
+
+        'Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        'baseUrl = baseUrl & "/temp/" & fileinfo.Name
+
+        'RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('hide')", "500")
+        'RegistraScript("Download('" & baseUrl & "')")
+
+
+    End Sub
+
+
+    Protected Sub BtnModalFirmaContratoDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalFirmaContratoDocumentoUpload.Click
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = TxtFileFirmaContrato.getfiles().Archivos
+        Dim Filename As String = ""
+
+
+        For Each fileItem As Archivo In Filesgral
+            Try
+
+                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                Dim tempArray() As String
+                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "AF\" & CveActivoFijo & "\" & Documentacion & "." & FileExtension
+                Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "AF\" & CveActivoFijo & "\" & AdjuntoDocumentacion
+
+                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "AF\" & CveActivoFijo & "\") Then
+                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "AF\" & CveActivoFijo & "\")
+                End If
+
+                If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
+                    File.Delete(rutaAdjuntoAnterior)
+                End If
+
+                If System.IO.File.Exists(rutaDestino) Then
+                    System.IO.File.Delete(rutaDestino)
+                End If
+
+                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
+
+                Dim objRH As New ClsEdocumentacion
+
+
+                If CveDocumentacionElectronica = -1 Then
+                    If objRH.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, CveActivoFijo:=CveActivoFijo) > 0 Then
+
+                    End If
+                Else
+                    If objRH.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, CveActivoFijo:=CveActivoFijo) Then
+
+                    End If
+                End If
+
+                objRH.Dispose()
+
+                GuardarDocumentosFirmaContrato(CveDocumentacion)
+                'CargaDocumentacion()
+
+
+                TxtFileFirmaContrato.Text = ""
+                UpModalFirmaContratoDocumento.Update()
+
+            Catch ex As Exception
+                OnError("Error al cargar archivo", ex)
+            End Try
+
+        Next
+        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal('hide')", "hidemodal7")
+
+    End Sub
+
+    Private Sub GuardarDocumentosFirmaContrato(Optional _CveDocumentacionExcluir As Integer = -1)
+
+        Dim hasError As Boolean = True
+        Dim objDocumentos As New ClsEdocumentacion
+
+        For Each dRow As GridViewRow In GvDocumentos.Rows
+
+
+            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero()
+            Dim _Adjunto As String = dRow.DataKey("Adjunto")
+            'Dim _Documentacion As String = dRow.DataKey("Documentacion")
+            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
+            Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones")
+            Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite")
+            Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia")
+            Dim chkEstatus As CheckBox = dRow.FCCheckBox("chkEstatus")
+            Dim _estatus As Integer
+
+            _estatus = If(dRow.DataKey("Estatus").ToString().ToUpper = "TRUE", 1, 0)
+
+            Dim _FechaVigencia As Date
+            Dim _FechaLimite As Date
+
+            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero()
+            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
+
+            If _TxtFechaVigencia.Text.Length = 10 Then
+                _FechaVigencia = _TxtFechaVigencia.Text.ToDate
+            Else
+                _FechaVigencia = Nothing
+            End If
+
+            If Not AplicaDiasLimite Then
+                _FechaLimite = MinFecha
+            Else
+                _FechaLimite = _TxtFechaLimite.Text.ToDate
+            End If
+
+            If Not AplicaFechaVencimiento Then
+                _FechaVigencia = MinFecha
+            End If
+
+
+            If Not _CveDocumentacionExcluir = _CveDocumentacion Then
+                Try
+                    If _CveDocumentacionElectronica = -1 Then
+
+                        If objDocumentos.DocumentacionElectronicaAdd(_CveDocumentacion, -1, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia, CveActivoFijo:=CveActivoFijo) > 0 Then
+                        Else
+                            hasError = True
+                            Exit For
+                        End If
+
+                    Else
+                        If objDocumentos.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, -1, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia, CveActivoFijo:=CveActivoFijo) Then
+                        Else
+                            hasError = True
+                            Exit For
+                        End If
+                    End If
+
+
+                    hasError = False
+                Catch ex As Exception
+                    hasError = True
+                    Exit For
+                End Try
+            End If
+        Next
+
+        'refrescar grid datos investigacion
+        CargaDocumentacion()
+    End Sub
+#End Region
 
-    '        UpMaterialidad.Update()
-    '        UPGvDocumentosFirma.Update()
-    '        UpGvDocumentosFirma2.Update()
-    '    End If
 
-    'End Sub
 
 
 End Class

AF/CatAF.aspx

@@ -203,7 +203,7 @@
                             <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
                         </div>
                     </div>
-                     <div class="row">
+                     <div class="row" id="DVTipoGrupo" runat="server" visible="false">
                            <div class="col-md-1">Tipo Grupo:</div>
                               <div class="col-md-2">
                                   <asp:DropDownList ID="DdlAFTipoGrupo" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" Width="100%" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal">

AF/CatAF.aspx.vb

@@ -71,6 +71,9 @@ Partial Class AF_CatAF
 
             CargaPersonalizacion()
 
+            If UsuarioActual.CveEmpresa = 13 Then
+                DVTipoGrupo.Visible = True
+            End If
 
 
         End If

App_Code/ClsEdocumentacion.vb

@@ -252,7 +252,8 @@ Public Class ClsEdocumentacion
 #Region "D O C U M E N T A C I O N -  E L E C T R O N I C A"
 
 
-    Public Function DocumentacionElectronicaGet(CvePersonal As Integer, CveCliente As Integer, CveProveedor As Integer, CveEmpresa As Integer, CveDocumentacionTipo As Integer, Optional CveVenta As Integer = -1, Optional Modulo As Integer = 1, Optional Periodo As Integer = -1) As Boolean
+    Public Function DocumentacionElectronicaGet(CvePersonal As Integer, CveCliente As Integer, CveProveedor As Integer, CveEmpresa As Integer, CveDocumentacionTipo As Integer, Optional CveVenta As Integer = -1, Optional Modulo As Integer = 1,
+                                                Optional Periodo As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Edoc_DocumentacionElectronicaGet")
@@ -266,6 +267,7 @@ Public Class ClsEdocumentacion
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
             .Add("@Modulo", SqlDbType.Int).Value = Modulo
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
         End With
 
         Try
@@ -279,7 +281,8 @@ Public Class ClsEdocumentacion
     End Function
 
     Public Function DocumentacionElectronicaAdd(CveDocumentacion As Integer, CvePersonal As Integer, CveCliente As Integer, CveProveedor As Integer, Estatus As Integer, Observacion As String, Adjunto As String,
-                                                CveUsuario As Integer, FechaLimite As Date, Optional FechaVigencia As Date = Nothing, Optional CveVenta As Integer = -1, Optional Observacion2 As String = "-1", Optional Periodo As Integer = 190001) As Integer
+                                                CveUsuario As Integer, FechaLimite As Date, Optional FechaVigencia As Date = Nothing, Optional CveVenta As Integer = -1, Optional Observacion2 As String = "-1",
+                                                Optional Periodo As Integer = 190001, Optional CveActivoFijo As Integer = -1) As Integer
 
         Dim Retorno As Integer = 0
 
@@ -299,6 +302,7 @@ Public Class ClsEdocumentacion
             .Add("@FechaLimite", SqlDbType.Date).Value = FechaLimite
             .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveDocumentacionElectronica", SqlDbType.Int).Direction = ParameterDirection.Output
             'FechaVigencia
         End With
@@ -315,7 +319,8 @@ Public Class ClsEdocumentacion
 
 
     Public Function DocumentacionElectronicaUpdate(CveDocumentacionElectronica As Integer, CveDocumentacion As Integer, CvePersonal As Integer, CveCliente As Integer, CveProveedor As Integer, Estatus As Integer,
-                                                   Observacion As String, Adjunto As String, CveUsuario As Integer, FechaLimite As Date, Optional FechaVigencia As Date = Nothing, Optional Observacion2 As String = "-1") As Boolean
+                                                   Observacion As String, Adjunto As String, CveUsuario As Integer, FechaLimite As Date, Optional FechaVigencia As Date = Nothing, Optional Observacion2 As String = "-1",
+                                                    Optional CveActivoFijo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Edoc_DocumentacionElectronicaUpdate")
@@ -333,6 +338,7 @@ Public Class ClsEdocumentacion
             .Add("@CveUsuario", SqlDbType.VarChar).Value = CveUsuario
             .Add("@FechaLimite", SqlDbType.Date).Value = FechaLimite
             .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             '
         End With
 

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -164,11 +164,10 @@ Partial Class Bancos_CuentasBancariasDetalle
                 If DdlTipoCuenta.SelectedValue.ToEntero = 1 Then 'Caja Chica
                     IdPadre = UsuarioActual.Empresa.Funcionalidad(218).ToEntero
                 Else
-                    Dim tesstr = UsuarioActual.Empresa.Funcionalidad(209)
                     IdPadre = UsuarioActual.Empresa.Funcionalidad(209).ToEntero
                 End If
 
-                If IdPadre = 0 Then IdPadre = -1
+                If IdPadre = 0 Then IdPadre = 1
 
                 If Conta.GetCuentasRecursiva(IdPadre, 1) Then
                     dt = Conta.DtResultados

Compras/eFacturas.aspx.vb

@@ -1758,14 +1758,16 @@ Partial Class Compras_eFacturas
 
                     If RutaPDF = "" Then
 
-                        Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
+
 
                         'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
                         If SobreEscribirPDFSiExiste Then
+                            Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
                             Hilo.Start()
                         Else
                             'si no existe el pdf, lo procesa
-                            If Not File.Exists(RutaPDF) Then
+                            If Not File.Exists(PDfDestino) Then
+                                Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
                                 Hilo.Start()
                             End If
                         End If
@@ -3050,7 +3052,7 @@ Partial Class Compras_eFacturas
                 End If
 
                 If SeVerifico Then
-                    SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1, SobreEscribirPDFSiExiste:=False)
+                    SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1,SobreEscribirPDFSiExiste:=False)
                 End If
 
                 'If UsuarioActual.CveRol = 1 Then

General/CatDocumentacionTipo.aspx

@@ -103,6 +103,7 @@ Catalogo Documentacion Tipo
                                     <asp:ListItem Value="2">Clientes</asp:ListItem>
                                     <asp:ListItem Value="4">Proveedor</asp:ListItem> <%-- Nota: EL tipo Tres es tipo Auditoria de documentos de proveedor usadon el portal prveedor y --%>
                                     <asp:ListItem Value="8">Inicio</asp:ListItem>
+                                    <asp:ListItem Value="9">Activos Fijos</asp:ListItem>
                                 </asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RfvEdocmodulo" InitialValue="-1" runat="server" ControlToValidate="DdlEdocmodulo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modulo''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEdoc"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VcoEdocmodulo" runat="server" HighlightCssClass="vco" TargetControlID="RfvEdocmodulo"></ajax:ValidatorCalloutExtender>