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

Correcion en descarga de evaluacion de proveedores

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-14 17:52:07 -07:00
parent cc0b6f18de
commit 1e205891be
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/Proveedores.aspx.vb
View File

@@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores
End Sub
Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
Try
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim PathRoot As String = Server.MapPath("/")
Dim Documento As String = "CartaProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Documento
Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)
@@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores
End Sub
Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
Try
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim PathRoot As String = Server.MapPath("/")
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Documento
Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)