AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

eFacturas correciones decargas sustitucion de pdf

Browse Source
This commit is contained in:
rakcsle
2025-05-21 01:01:07 -07:00
parent e5e1460faa
commit b7b9249bea
3 changed files with 148 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
AF/AF.aspx
View File

@@ -932,6 +932,101 @@
</div> </div>
</div> </div>
<%-- Documentos --%>
<div>
<div class="portlet box blue-hoki" style="width: 100%;">
<div class="portlet-title">
<div class="caption">
<i class="fa fa-clock-o"></i>Documentos
</div>
</div>
<asp:UpdatePanel ID="UpGvDocumentos" class="portlet-body" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDocumentos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite,DocumentacionFormato,FechaVigencia,DiasLimite,AplicaDiasLimite,AplicaFechaVencimiento"
EmptyDataText="No se encontraron registros de documentos" CssClass="table table-hover table-advance Widthall" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="30px">
<ItemTemplate>
<asp:Literal ID="ImgRequired" runat="server"></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Documento">
<ItemTemplate>
<asp:Literal ID="LtlDocumentacion" runat="server" Text='<%# Eval("Documentacion") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Completo" ItemStyle-Width="40px" Visible="false">
<ItemTemplate>
<asp:CheckBox ID="chkEstatus" runat="server" CssClass="make-switchsd"></asp:CheckBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Observaciones" ItemStyle-Width="100">
<ItemTemplate>
<asp:TextBox ID="TxtObservaciones" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="100">
<ItemTemplate>
<asp:TextBox ID="TxtFechaVigencia" Width="100" MaxLength="10" runat="server" Text='<%# Eval("FechaVigencia") %>'></asp:TextBox>
<ajax:CalendarExtender runat="server" ID="Calendario7" TargetControlID="TxtFechaVigencia" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvTxtFechaVigencia" runat="server" ControlToValidate="TxtFechaVigencia" Display="None" ErrorMessage="El campo <b>''Fecha Limite''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRL"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFI5" runat="server" HighlightCssClass="vco" TargetControlID="cvTxtFechaVigencia" Width="350px"></ajax:ValidatorCalloutExtender>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Fecha limite" ItemStyle-Width="100" Visible="true">
<ItemTemplate>
<asp:TextBox ID="TxtFechaLimite" Width="100" onKeyPress="return handleInput(this.value)" MaxLength="100" runat="server" Text='<%# Eval("FechaLimite") %>'></asp:TextBox>
<ajax:CalendarExtender runat="server" ID="Calendario6" TargetControlID="TxtFechaLimite" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI6" Enabled="false" runat="server" ControlToValidate="TxtFechaLimite" Display="None" ErrorMessage="El campo <b>''Fecha limite''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpRL"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI6" runat="server" ControlToValidate="TxtFechaLimite" Display="None" ErrorMessage="El campo <b>''Fecha Limite''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRL"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI4" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI6" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI6" Width="350px"></ajax:ValidatorCalloutExtender>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px">
<ItemTemplate>
<asp:LinkButton ID="ImgDownLoadFormato" CssClass="btn btn-circle btn-sm orange" OnClick="DownLoadFormato_ClickDocumentacion" runat="server"
Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
<ItemTemplate>
<asp:LinkButton ID="ImgUpload" runat="server" OnClick="UploadModal_ClickDocumentacionFirmaContrato" AlternateText="Editar" CausesValidation="False"
CssClass="btn btn-circle btn-sm green" Text="<i title='Subir documento' class='fa fa-upload' title='Subir documento' ></i>" />
</ItemTemplate>
</asp:TemplateField>
<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"
Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>

35
AF/AF.aspx.vb
View File

@@ -4947,4 +4947,39 @@ Partial Class AF_AF
RegistraScript("$('#ModalContaCuenta').modal('show');") RegistraScript("$('#ModalContaCuenta').modal('show');")
End Sub End Sub
'Private Sub CargaDocumentacion()
' If CveActivoFijo > 0 Then
' Dim objRH As New ClsEdocumentacion()
' If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
' DTDocumentacion = objRH.DtResultados
' End If
' If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo = 7 ").Rows.Count > 0 Then
' GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo = 7 ")
' Else
' GvDocumentosFirma.DataSource = Nothing
' End If
' If DTDocumentacion.FiltraParametros(" Modulo = 7 ").Rows.Count > 0 Then
' GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo = 7 ")
' Else
' GVMaterialidad.DataSource = Nothing
' End If
' GVMaterialidad.DataBind()
' GvDocumentosFirma.DataBind()
' UpMaterialidad.Update()
' UPGvDocumentosFirma.Update()
' UpGvDocumentosFirma2.Update()
' End If
'End Sub
End Class End Class

22
Compras/eFacturas.aspx.vb
View File

@@ -1612,7 +1612,7 @@ Partial Class Compras_eFacturas
End Sub End Sub
Private Sub SubirFacturas(ByRef ListComprimidos As List(Of String), ByRef ListXML As List(Of String), ByRef ListPDF As List(Of String), Optional Validada As Integer = 0) Private Sub SubirFacturas(ByRef ListComprimidos As List(Of String), ByRef ListXML As List(Of String), ByRef ListPDF As List(Of String), Optional Validada As Integer = 0, Optional SobreEscribirPDFSiExiste As Boolean = True)
Dim DTLOG As New DataTable Dim DTLOG As New DataTable
DTLOG.Columns.Add("Serie", GetType(String)) DTLOG.Columns.Add("Serie", GetType(String))
DTLOG.Columns.Add("Folio", GetType(String)) DTLOG.Columns.Add("Folio", GetType(String))
@@ -1753,11 +1753,25 @@ Partial Class Compras_eFacturas
If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then
Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
If RutaPDF = "" Then If RutaPDF = "" Then
Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF)) Dim Hilo As New System.Threading.Thread(Sub() ProcesarPDF(UsuarioActual, a, FF))
Hilo.Start()
'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
If SobreEscribirPDFSiExiste Then
Hilo.Start()
Else
'si no existe el pdf, lo procesa
If Not File.Exists(RutaPDF) Then
Hilo.Start()
End If
End If
Else Else
Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
If File.Exists(RutaPDF) Then If File.Exists(RutaPDF) Then
If File.Exists(PDfDestino) Then If File.Exists(PDfDestino) Then
File.Delete(PDfDestino) File.Delete(PDfDestino)
@@ -3036,7 +3050,7 @@ Partial Class Compras_eFacturas
End If End If
If SeVerifico Then If SeVerifico Then
SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1) SubirFacturas(ListComprimidos, ListXML, ListPDF, Validada:=1, SobreEscribirPDFSiExiste:=False)
End If End If
'If UsuarioActual.CveRol = 1 Then 'If UsuarioActual.CveRol = 1 Then