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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-02-15 14:03:28 -07:00
parent 3540e12580 2cbe246cf8
commit ef9c727c65
4 changed files with 106 additions and 22 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)