AF Documentos, AF fecha iamgen, Correciones eFacturas solicitudes pdf sobre escritura
This commit is contained in:
rakcsle
120
AF/AF.aspx
120
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> <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 class="cbp-l-grid-projects-title uppercase text-center">IMAGEN</div>
|
||||
<div class="cbp-l-grid-projects-desc uppercase text-center"><%# Container.ItemIndex + 1 %></div>
|
||||
</div>
|
||||
<div class="cbp-l-grid-projects-desc uppercase text-center"><%# Container.ItemIndex + 1 %> - <%# CType(Eval("FechaIng"), DateTime).ToString("dd/MM/yyyy") %> </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 >×</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">×</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>
|
||||
|
||||
|
||||
546
AF/AF.aspx.vb
546
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
|
||||
' Dim objRH As New ClsEdocumentacion()
|
||||
Property Documentacion As String
|
||||
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
|
||||
' DTDocumentacion = objRH.DtResultados
|
||||
' End If
|
||||
Private Property FechaLimite As Date
|
||||
Get
|
||||
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
|
||||
' GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo = 7 ")
|
||||
' Else
|
||||
' GvDocumentosFirma.DataSource = Nothing
|
||||
' End If
|
||||
End Property
|
||||
|
||||
Property ObservacionDocumentacion As String
|
||||
Get
|
||||
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
|
||||
' GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo = 7 ")
|
||||
' Else
|
||||
' GVMaterialidad.DataSource = Nothing
|
||||
' End If
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' GVMaterialidad.DataBind()
|
||||
' GvDocumentosFirma.DataBind()
|
||||
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
|
||||
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
|
||||
@@ -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">
|
||||
|
||||
@@ -71,6 +71,9 @@ Partial Class AF_CatAF
|
||||
|
||||
CargaPersonalizacion()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 Then
|
||||
DVTipoGrupo.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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>
|
||||
|
||||
Reference in New Issue
Block a user