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