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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/EvaluacionProveedor.aspx.vb
View File

@@ -85,7 +85,7 @@ Partial Class Compras_EvaluacionProveedor
TxtSerieFolio.Text = ""
TxtPS.Text = ""
TxtCodigo.Text = ""
TxtFecha.Text = Now.ToString("dd/MM/yyyy")
TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
TxtFirma.Text = UsuarioActual.Nombre
TxtCalificacion.Text = ""
@@ -147,14 +147,14 @@ Partial Class Compras_EvaluacionProveedor
TxtRS.Text = Row.DataKey("RazonSocial")
TxtCodigo.Text = Row.DataKey("Codigo")
TxtFecha.Text = Now.ToString("dd/MM/yyyy")
TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
UpEvaluacion.Update()
RegistraScript("$('#DvEvaluacion').modal('show');IniciarCalculo();")
End Sub
Protected Sub BtnEvaluarProveedor_Click(sender As Object, e As EventArgs)
CalcularCalificacion()
Dim Fecha = Now
Dim Fecha = NowADS()
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
Dim Obs = TxtObs.Text.Trim()
@@ -287,7 +287,7 @@ Partial Class Compras_EvaluacionProveedor
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "CartaProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)
@@ -321,7 +321,7 @@ Partial Class Compras_EvaluacionProveedor
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)
@@ -354,7 +354,7 @@ Partial Class Compras_EvaluacionProveedor
ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year.ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", NowADS().Year.ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado))
'ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", UsuarioActual.Nombre))