From 423d8fd60d0796b04ce42245879e852672efa706 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 22 May 2025 11:06:18 -0700 Subject: [PATCH] AF Documentos, AF fecha iamgen, Correciones eFacturas solicitudes pdf sobre escritura --- AF/AF.aspx | 120 +++- AF/AF.aspx.vb | 546 +++++++++++++++++- AF/CatAF.aspx | 2 +- AF/CatAF.aspx.vb | 3 + App_Code/ClsEdocumentacion.vb | 12 +- Bancos/CuentasBancariasDetalle.aspx.vb | 3 +- Compras/eFacturas.aspx.vb | 8 +- .../26_CompromisoAsistenciaISSPE.docx | Bin 12283 -> 0 bytes General/CatDocumentacionTipo.aspx | 1 + 9 files changed, 655 insertions(+), 40 deletions(-) delete mode 100644 Empresas/7/Formatos/26_CompromisoAsistenciaISSPE.docx diff --git a/AF/AF.aspx b/AF/AF.aspx index 16220043b..f80e7a164 100644 --- a/AF/AF.aspx +++ b/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" %> + +   + + + +
  • @@ -1012,7 +1018,7 @@ - @@ -1591,9 +1597,8 @@ - -
    IMAGEN
    -
    <%# Container.ItemIndex + 1 %>
    + +
    <%# Container.ItemIndex + 1 %> - <%# CType(Eval("FechaIng"), DateTime).ToString("dd/MM/yyyy") %>
    @@ -3753,7 +3758,108 @@ - + <%--modal parametros documentos--%> + + + <%--modalupluad doc--%> + + <%-- --%> @@ -4169,6 +4275,7 @@ setTimeout(function () { startTimer(request); }, 30000); // callback } + @@ -4183,6 +4290,9 @@ .cbp-popup-lightbox-figure { background-color: #FFF; } + .orange { + background-color: orangered; + } diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 45d284ece..32714e22c 100644 --- a/AF/AF.aspx.vb +++ b/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 = " " + Else + ' ImgRequired.Text = " " + 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 \ No newline at end of file diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index 93612f568..5feeabdb5 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -203,7 +203,7 @@ -
    +
    Tipo Grupo:
    diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index c35689853..594d4b956 100644 --- a/AF/CatAF.aspx.vb +++ b/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 diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb index d2f56e68f..2786b035e 100644 --- a/App_Code/ClsEdocumentacion.vb +++ b/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 diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index ce0870a00..83eec7caa 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/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 diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index eda8a2cb2..7176a8e4e 100644 --- a/Compras/eFacturas.aspx.vb +++ b/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 diff --git a/Empresas/7/Formatos/26_CompromisoAsistenciaISSPE.docx b/Empresas/7/Formatos/26_CompromisoAsistenciaISSPE.docx deleted file mode 100644 index e4f718eb82f7b76454ef5eca2afd7035d92c259c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12283 zcmeHt1zR0S*X==q6I>7OB*4KTcyM=jcXxMp4^FUPK|+EAC%C)22X_m0PiDTklgT^x z{(TkxdWAsESPI}?YM5ahB7vVySGZvnBdQsPu8JY!gh zf*-J1)^1u>px&)e+SAI_!UA9FzDGw)s+nc;u@xu7HJ*2xR5weJ4%YvI8L{uZHM;tC8EDARHdseEfD@H8V08D$6ema@rGiIZ(S2phj z2>W&x?`>|O0D$LbD1iJwT#_gOzy1WwGg+|5A%a~}&(Xx%3B>U8`d?T4U+jOs{PmBC z9hRMpNCGE8k3r)t3JV>$1+pNcu|?c@SU4>SX^h1=%h{(#p1C+NDh3o_c#DIfZU@ZLd3yn#nEum0W{f{8T!K4;3G6)t05}LYJ4a*CpH5+OOh_mJOV_B_)F;E zhcDOLs>CG@#`GIc9V^qEM*Z0rM>`_jqNluy-}gD9evhv5ntkP7N>p|H7S&44>VWVS zZi2p+uC8^?n5C@L)K!3RKBwXsQ&?@XF&6==3Ez7uP)uCV4r`ApjE$~Klw-=S8?!8) zd=6uGr7Ei16p9xI-!>FizG%V;rLw*Ay^3eglk z99EIVEPDlsfk-n(;z^XWVqZaDYlhl6*+5p=&p6DenFn8Y8Ja1uTAuAmIWv@O(h>|Gq(+~jnbZwTv!&A}f7ALFOO-A)B&rbNHjo zLaSY0G=epLAX-Iq#vF{oH?<^q@~P3}*vD)Vq;ti5th^roX1-J>>t^&=ZR=2MtE>)V z*tyGoBr7S9D(-sATg|6{Ha|k~C1n{(Wx-uxivW7%t0^4y+~R)rHLAH9rp+M+0P|dh zzH+Zrt@S(9MX6V|l1=XwpOjfHsT`wdgC+>S3hODoBuHjuNu{%S<%^BXWro%FASOBV zqN>M4V$NG#012V$BY-1MuTk+d@GcImQy(ghGkiN*hDJL@g9$CIKV>bKc{szN6U;4F zTfiZ{Cx5sq{CZ}HI(-aXI^WPBajj$$7QPqmLIRJT;a6`Ll#k4sGvsqT(bBA)@N_0` z7sQlGS&5wVp#Q_Odaxsr2IoPt!RckzOWLdo&#n(?c3rkKn`WEWCoLC!zM-G5Aw8g zqpeg{3@e9nNDtN=H2g#z>Q{tCCCT3!eUO(%>!mqKNEIY^L;=;JPrZV!r|66}!B>cY z7CPJZn;XVOD)2plo}k(ZFI=GM5{6WR!+yb4s^ zp`KEiMs$<|BfUiFr#Gdf#mDPLy0PC`T{;a*#LHh#D040}Kp073rz%J&yc$Qcb;tkG zl-Tn*^CqgaXXAQsROygcfbgh3NFT$rUdKD652Z4!Va0`Ek$<{Zm5 z@d~0%*B9qikJcKVP&F&3Dom&#GDvaH68V&DV~T_=z`d_v=*1`=jMDGuvwvJbsfv?*^)uJ*8E9vrvD$@tru+mH6U$u78 zc_<7l1k2*fB%x#8y}_N{eewhaRY#F%g%8?Mp-9d#1P|PV(?drwkJN`usUrkvThmZ< zKUfWvh&mvAg$YcvHy`E5<%+lZSMQBP@sLZQ&S1_LguE3f1uw%D;`eGjpx1^e_NG0zLqM_1CEDY;Iy>0{Y|1^mC>@)R2h+a^SY& z{2=aHB8)r2^P@Y1@v^42aZQSMQFKf;+rl$pBWFo;n++C_kZr+4u-MBBSn;GO3V^}) z+>6r?H=iU{kYF*2v;Hd8_%e8c?c>#1a}`lb)us66SI;9lsx{~$q{%|7>B>25fe1OM ztYDpk6?bI|Eq{kJ==d>cmx>pLGqsO#{EY}V?!ku8!9L%v^=BhFbB|QYhj51Db@Et} z!&_-(jQT{_kjvj9$c3z?DIe4=f9ye}#unG7TZ#=qhC^-O%{C;~xDUA}MSDgcF%FWO zAm1a{W~a2a*G|&2?%+ub#1L;x#ie~;Y~-HUtl%AKU#LISHTbiw`!rj`=wb;vfg+tY)9TkS&D>fEXRdRYt@yXlr@VKDi)cybAA8%rNhlizXk zp3QuU)w|!%2x`@7Tdec7ys9(%X+c7Lqyc;~mX46LrpxH~DMB(E|WcCc3=}LHU=w_Kh<87Ml^Z&Aa)Cd zF=N0)k3Z45xX`Mm03>n)-^8XnKbE5bq;4+%6dbY0UX~HmsVSyayO5+r?uVW?%gIJ5 z1&nfn7i)XX(M^c!5f;{V^n;yu(jUF79rr}U3p~QYlRHrKptfEWf1{HN5UKR@}Aa>o4nEI0uYR(Qdg4c;G&_@QetNehu654b#Mg&)G^VwQ*mwfbl2~ zn+?41)nfyRQh4&kenw?4=U4fy*{x+CzjFrR%PY6h;fy9I2@WU_`A!Qa&~36Y*sikz zv0iKv;CI`|>wmHJ5?!ks@Tgb!{O;(v+1hS#vKZ@VoVNFH&u-4z0a0rWM2k*yl_>3(x+YgO8d=D zjoFMytvs3@mi0J^87w8)OO%hw^DH z$5>*Tud$EoBCjS|U`d6hizRn6 zYI3L+!?2B6SEXFgmC9?B@D1HkOJEiC_pLnjJ17U8Y>W|16=$j(wC0VlZE1LAt2_oX zf+3})TB3Q|(X;(ZwNH!3)f=n?O%twOF_NP$z}h^m&#;d_jLap!#W5L(W{0L*Jy*-bH~{3 zn^dfRmk=%y%TB9Ecfx%n-0K*0Id-(xfWpIu?x*|MWL!!q)xy_5B(`{OdN!TJT0Fd{ zZ@&Y2m??4kFX?1NNvuTDm*^AuZD%$;m}_FiB^wf}#bx!A>T&p=FL%^6?O#qG!s&=> zMS3P2W>0P#8y@h&8IC5yMCcbplf0}q~y;3PkBoL)DcdE2&vx+F#&RzhOy^MZIC#{jzL zkIA@%Qpg{A%6qUSCXF{B=&CL2VmSroEZ2B0rH2FFFB*Mi5hhtIpqP_47av?kF0GTb zQ077%dQ#y!S$mW?c?%=^6tawc#`Bu1c?Cnr64ta_B4#{QlB>Xds$idEJ9SP22Gm*) z=fnQ7PG>YfgaUH(z66CMGH|q+?Qk1s6It-mLi&7O0KqKU0MphxyZ*S#Ag14L-mD?{ zQpk!>C~kdgHKAh`y}i+JE3Pj(Gbxk}b=EN5SH9XF!)oL*6t7??rLZrX7(1E`85gNN zJ_=Zf!?KUN|3C!SJ^qyKK#gJ%jPjz^;Y@-SM`hAE$E4eF-ei9qf>zh;?m=U#%|=z^ z$ui~U?7k%bQs~+ZLoG*;d|ZPrq6CS&AcnXTqe>xt(M?*k8Il0@6m`B%1-f_hWp$u^ zYY$PBz;_n~Mbj&UjOrbrp=;2pZYR&{Zr^A7lfh9G#y0%v{g=G>`P`PmDHb_5snU&B zRQXGF)9jiO1o|lNRVU(LG4@%Lch$L?H^vNSDdZ`?2NK#n9hPhe_*{2x}KGErGgoPlNKK9Eu=^@q74G?|L7Ms5#87!b9HWo?73bMvF zVF7hoz{7+c)1z}Uv@|PZm6MO%Ks^ahVRalwgsN~PCFqu6Tna73zNB1Q?}8m5c!IVN zeev}IMS%Tcr-hxGdb&}pk?3OJ$0t}xf(ZJnK2G@uy|1_R`KIE%M-s}N;rs{ayF(ke zW4HL6CS=!A?H@$ksg{syZm~hv7_2AZFBXiHr`4wT9kPetk!5dxzVPOioxF6+0!`lC zx-fxy?hYNK0f{&P9vFndOHA~?mY1gB9SmgyLu-?t z{=by8YPraW*>eKx1)F!@Q)5(IQL4015zsLwvPUGKV5}wW7afbvVb^9f->R9mTgp&11!aer0X?ndb-5aF&y5bvOKd#mo z{N}2lgG)v5!+zI{IB?^sODaa#EKh}y!2D6myyYTugqsxNbVM|cr!$4uaN+^lIQjIY zHle9|I&DGtw=lKw5?tmTmklJgQ*JZ+Dwwpy}@bvMFcSnB7yu}Ncf8qMRkFXJ6Zf!i6tq8nH& z&lij^Tv)U7B1d95n~$AluDxQ2Rk#NMkXA)0q9(BsEq!a?SS z5P?VgmrFciqVX_qPvDtP^Yh?s7|PuPxp$gnu(z5Fa71-Lp7`0KNE%B03H*)!Q`Sjx zosqx=Ge7_=mSg_K05=murC;WNC%0Lwg;2kl`3eUBl;v`z8y2uC|;N=m~`H5(YVkQRaC+XpC#5G+a7NkW+J0vtbjCv z1t{&FOl{3+E-tX;)HEW#HRzO%F_q(sii$Q!P4w@#Nh!n6=M+V?3WtC}>}|&r?Pye5 z4+F4zFHN;olzfcOX%T8G-0Y=n!%(GG?Uli_udGS3e;b;Z{HDJJ6!4;!KP$7k!Z2p4827vM?Xgo9>r9%$pLl_gq~X9fM?=T4rtG29US>5MNDACdLxUa(X68jo3+#j5YRkiw7j#qx zDU2f<%=`vJY7Y-cx`7wCi9Klv!7+o)GX1NJ*d|fg;ZBxX`%?_gWN1jpPA(Ocwpl!` z<`_*hkuN%Lf>rY}?i3h_G3{0+{6tccTG|?_WOFV#mFGOj(a(#0Cx=p`2&)r91}F_) zEt7)6i6EN8VaP!N$S(-A<%6X%@Fmsj$>7qz2YM@LLuBeVT&J)LcmArKkG0^5vAgpFR z3?yP>u=ZMdva6Opv~|r6*g2w~zgKFy5=;y!cVvp;-fK@)SKjjb!ia7!*G7@1o9k*5 zwC}ZJSHQpK>z>)HJ%sp!4|F}OaC|m?`tMZ5^~3@Fr0PAGs%XDb)yU5Ak5T`>Tm=&q zd_*TI$bq+Pdsk&1UP`UjyS^7sWkP4;kuW5K+0?Q@DY3Sh#O`TrS?&pq;<$q6dy(Xo*?+4|P=FA*%s<;3-tXq4o4l|FZ8)bK7t5}`47yx<%tEoi_-a;XX* zNzA%R{Gop?>d%7o29qSa+W~VE@t_^^+EPgAP6Yd#3Vvn2&ZlBI)k}SiRE0OT@@;<6 z{HY+jVHF`#t18_0blY?e-?rn6Zqa}A5w*4ke7$av^BzKyFP6TxMVW%bvWJ@ybW~Y@ zIU1-v^D2=vX}BT_8ZsiFV-e(j&N>S32q<>4T%Kq<5e4{ttdzZ%nvQ{q&3~etFCqQG z%B!_v3&(S+N?Gwq$As6{Q)viXmF2PbC_Ym-0Xljdw4w@fbV&=a$YI}|#- zVeP`$i+R`V%a5!!R2q|)TT^>`O9Ldm8Gv)NF^Y?WIEwaA>)?4qxk~h)o1n2Ky}aSD zyY1OxikH5QDe&nzGNyLd)DUt)coCOR*5{AMjweSHeU7Q3bg8ubnLHQP=LcbJ&qwci zZ#13=F6hSmS-oavtK0mTOBpTUL>S(YZRHxPQ}7JiJSd;3W0+)Aba9ni#0ipqX*Bd-6#M2dJe5$#Jxl-vn8mG58CV8lCjac|8 za561iax6^aR-A+97t+-uDX%Z&b~6|Ufl>UC;?f^XqvoG42Xg87G6@K#q!^?TH3tn- zS7ry@>)bAKO{FgLolowU=rqlb=YvaI?!LljsdB46*&H7K*rsk;XG08GeyO#iO}&3; zyeeR1;O$`lQ2BIP!N@xlsjUk9CckrE_@ojs7N2OYp%wgT- zx0Bg=N%5i>Cw33B`cj+`53)*O%(E|N-OiL`Pe$F7CwOsngMMva`t|7HOcM5=QRK|n z5jW_5JYb&JeoEBMWG?7e!$8fn!!c}f06v)^XR1g#cUN(;Y)UYCMN|)qk-n4`o|#*; zH9a$2J*t-na(P!E6SmBR#_CxKQCHRGP0lWiEzT~)cR%oRP)vmLr-%k;LQLrpgaOA1 z!sf>a!rp;T74V5MMj)17@Ftc=)QP|%a&3#**~EZ+9))mzWpvpm`gHS{kK)$BjTqvg zp$XQT|M>W9Ij+fz^JepysO1s-$cm>v%kstSf~f`Hf{7IEh4Kzh-`%7;z7*RawgxMY z)7WODF*Q8ncAqL?xY(qiDgVg`s+HpNribmoR{@5gq6ScM1Rx!WF$MP+Ik%S#I zNUTxB?eA#0S*qUsSaL$L>2uEVO7Jii33PCdPQ%Cj>O3*wO;uEhNC=t1GglV_X~L)! zF5d(xdpTs7YtGiA`g(3s0-%YbICq3URW!|z#tEoG?wI} zT`7x@?^j2PPT86GDqd-UZ|Z;EVA*)LEl2Rw33)rsFadp!kI7PZzTAFy9qRTOxP;b! zSpUFfhQGwzeT=151?i;P2wYq;J9On6`2MD$fb)ZmxblT(CK--rm565a$ryIbfHsgQ zp@p4?EXc-vliszUxZgC;RYYlYC`x3-LQ@Lgc;QV{l%pW`iVYocu7MVmHbP3m{Cl8O ze23n!^Gu%v)47e-n^ps@8F#G~f)w#gHBxv@yus4|Q`}ZhU8kbKny~RgDZJkE1Tp6> zk4ocoE15xJbqN@aC#M?SPttRmr6IV!B~_pjSPpAm&oEmfDnt zDSPVK4@0bkLQoGh7urE?E$5wa*6b0H+0eaRGfXbG3B zN`--2xRxHzJEMsG%ECfTD$UJdl)J)RZ=`0n3xnFVJhi>2Hc>jP`_7;ACDSehl|M9+ z2e8QkO}jVRcnJ8Xd{Q9#)ALp%mva2RDCq!Y!hrlT=IcFjXdg3voa&#y(>K#XdQ8+od-Kg5=S1&U`n{?4fra0)p7oQ1XW=Lc$STY(UUosdh zSke2I{D~(}$uac?L`lZXL>Dayk64h{@vVflno$v=XEkrqKc-El7y{^5B@0iU0m-Vb z>>=uTOWimy>94Sz9`g4&zh3MQdgqBQ?G|o9QtDV4P{=)2_(pCeP5a*G65DN3cbNeN9bad=P0ctRv88gbx~{4G*L#h5hE2gD4gsyJ|_#6 zjQ141->H^*=(b+tiD|#N?k6li*!H+n?-|@#G)3Y%x)WKdI@fPq$U3q!l)ZKnoq6H) z+WH2j>BmE%Z%)zc!%(q&@%_+mVYIR@!(bPqZC?-{y<8cg&`jusB41~ha}~2S>#yjW z3`nrgw1XAZ%&jB4e>jaO4I2^WJQ~cEiP;rzoouCBfOfO310}F0=+L?^yc3}>hu$?X zuf!H`3H9h9&dO73WNB>#bQ9rKL2(-(`!dUVb1Cg<<4Dw_`*lhuY( z!(+GFxW@XBS82uTAjv}H?D#TFufZ~g`Pi3$XQ=@#sF#q#@D#8mii97LwO&HnFN4R! z{uM0S;II&&waFN{056=Oxg=Ds2Iu?dZ7e0fPFtaJrEec{0i=d z`BmZj7z8x)0zq(zJ!B}$tLR=lte$&ZEJg2V1lm8JgAuQU|E%UYa+JNUD;k3NMS&F3 zMmbynI6Z%14i)uT82e7CK>|wv#NamHk_*>v#j|Rn%A7cjlXuZ+C;j!s=FVVbG$~ z#l0dI95h<`YwLyIGk8C_jz0&>CGnk$y(=>#J!De?@Z;mdkCYNz6?wCuV|s}Bq_0Fn ze;z4l9k0iOe;Fj^6I6L+;-eJFM-Z^qYVZM#$0_(GW+ujduG`1RnH=@nezk82E|_qM zgNOq%4vK}dEt-#LPL4YBUJ4=)LZKh=c!)VBgHT&vvL@ec-nrG$6JO@&XGmZ zRp&scs0MCRvwgu+we%}!gjX*m?U1tcKYNFt-&_<*!(Y1I9-e}aUafeKGGZI}ZVIpo zViWd|LRRoq>=XiH#M>p2!5}fB_-tIiQqln}%kc9geA(k_MIp%lDb-bkif)@i-KJ*~ zzLP*MGyXCa@BfEMp0``3m3~o=ij-`r!?a@6 zRD)%ynx%H_Rw}+4y^BOld1_eRKumZQ19we3D43nSJ!s7P`Mvya8RprCDL_m)x|{)j9P~VYr!i_At=xcXkc~7spmC!0~f@ktIiDixLXRh$0U@ESogm)g?BdMyvkCDNIH3G<2@e5D57v|ZJxls$WcBOuFFDilQvWpY z&z#O*!AaoVi(fK4e+T|E+3i>0XRsdj|4V)Q-O}#~P=DLn1E+%jM>^E+@ZWdx|AyF&?K=oi`UclhsO@89rN-2Z|9L;C$4|GQN9H@+R5o$$x& ze-jRWxA0Gi>~A~(fIt8M{4SXNj{c`=@hiHP=oj=~8piMN-vi0N4H%IA)qDRptdy5} U0j9^#{9!~u2bk0p^gr+Z4?R7Clientes Proveedor <%-- Nota: EL tipo Tres es tipo Auditoria de documentos de proveedor usadon el portal prveedor y --%> Inicio + Activos Fijos