Empresas Zona Horaria
This commit is contained in:
rakcsle
@@ -747,9 +747,9 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
|
||||
|
||||
txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString ' String.Format("01/01/{0}", If(Now.Month > 6, Now.Year, Now.Year - 1))
|
||||
txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString ' String.Format("01/01/{0}", If(NowADS().Month > 6, NowADS().Year, NowADS().Year - 1))
|
||||
|
||||
txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
|
||||
txtFechaF.Text = NowADS().ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
|
||||
|
||||
Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta)
|
||||
Ejecutable = "F:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
|
||||
@@ -763,8 +763,8 @@ Partial Class Compras_eFacturas
|
||||
DdlClasificacionProv.DataBind()
|
||||
DdlClasificacionProv.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
TxtFechaBitInicio.Text = Now.ToString("dd/MM/yyyy")
|
||||
TxtFechaBitFin.Text = Now.ToString("dd/MM/yyyy")
|
||||
TxtFechaBitInicio.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
TxtFechaBitFin.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
|
||||
TxtFolio.Focus()
|
||||
|
||||
@@ -841,7 +841,7 @@ Partial Class Compras_eFacturas
|
||||
FechaI = MinFecha
|
||||
FechaF = MaxFecha
|
||||
txtFechaI.Text = MinFecha.ToString
|
||||
txtFechaF.Text = Now.ToShortDateString
|
||||
txtFechaF.Text = NowADS().ToShortDateString
|
||||
End If
|
||||
|
||||
Dim DtPagos As DataTable = Nothing
|
||||
@@ -1488,7 +1488,7 @@ Partial Class Compras_eFacturas
|
||||
params.Add(New ReportParameter("FechaInicio", FechaI))
|
||||
params.Add(New ReportParameter("FechaFin", FechaF))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", $"file//:{Imagen.FullName}"))
|
||||
@@ -1499,9 +1499,9 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If Tab.ActiveTabIndex = 2 Then
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{NowADS().ToString("yyyyMMyyddmmss")}", Tipo)
|
||||
Else
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{NowADS().ToString("yyyyMMyyddmmss")}", Tipo)
|
||||
End If
|
||||
|
||||
|
||||
@@ -1577,7 +1577,7 @@ Partial Class Compras_eFacturas
|
||||
'ListaComprimidos.Add(filePath)
|
||||
''CREO DIRECTORIO ALEATORIO
|
||||
'Dim Aleatorio As New Random
|
||||
'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
|
||||
'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", NowADS().Ticks, Aleatorio.Next(100, 999))
|
||||
'Directory.CreateDirectory(TempDirectorio)
|
||||
'ListaDirectoriosTemporales.Add(TempDirectorio)
|
||||
''AGREGA DIRECTORIO A LA LISTA
|
||||
@@ -1631,12 +1631,12 @@ Partial Class Compras_eFacturas
|
||||
|
||||
Dim Correo As New ClsSisMail
|
||||
|
||||
'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & Now.ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
|
||||
'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
|
||||
|
||||
|
||||
|
||||
|
||||
If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & Now.ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
|
||||
If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
|
||||
|
||||
sw.Stop()
|
||||
swTiempo.AppendFormat("EnvioCorreo: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
|
||||
@@ -1776,8 +1776,8 @@ Partial Class Compras_eFacturas
|
||||
Dim ArchivoW As StreamWriter
|
||||
Dim strLineaTMP As String
|
||||
|
||||
' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
|
||||
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
|
||||
' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
|
||||
strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, NowADS().ToShortDateString, NowADS().ToShortTimeString)
|
||||
Try
|
||||
ArchivoW = New StreamWriter(String.Format("{0}\Logefacturas.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
|
||||
Catch ex As UnauthorizedAccessException
|
||||
@@ -1957,7 +1957,7 @@ Partial Class Compras_eFacturas
|
||||
Catch exx As XmlException
|
||||
Valor = Nothing
|
||||
'Using file__1 As New System.IO.StreamWriter([String].Format("{0}\UtileriasLOG.txt", Path.GetDirectoryName(Application.StartupPath)), True, System.Text.Encoding.UTF8)
|
||||
' file__1.WriteLine("{DateTime.Now}: {exx.Message}")
|
||||
' file__1.WriteLine("{NowADS()}: {exx.Message}")
|
||||
' file__1.Close()
|
||||
' file__1.Dispose()
|
||||
'End Using
|
||||
@@ -2106,7 +2106,7 @@ Partial Class Compras_eFacturas
|
||||
'Mensajes.AppendFormat("{0}|{1}|{2}|{3}|{4}|{5}{6}&", ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate().ToShortDateString(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble().FormatoNumero(),
|
||||
'"Factura no timbrada correctamente.", "")
|
||||
'CargaMensaje(ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble(), "Factura no timbrada correctamente.",
|
||||
'"", DateTime.Now)
|
||||
'"", NowADS())
|
||||
End If
|
||||
|
||||
'limpio los valores porque realmente no es una factura
|
||||
@@ -2432,7 +2432,7 @@ Partial Class Compras_eFacturas
|
||||
Dim NombreArchivo As String = TmpArchivoPDF
|
||||
Dim CadenaOriginal As String = (Convert.ToString((Convert.ToString((Convert.ToString("||1.0|") & FolioFiscal) + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|") & SelloCFDi) + "|") & NoSerieCertificado) + "||"
|
||||
Dim RutaFormato As String = String.Format("{0}Empresas\Grales\Formatos\CFDI.rdlc", ModExtensiones.DirectorioBaseEmpresas)
|
||||
'Dim ArchivoTempXLS As String = String.Format("{0}\GenSis{1}-{2}", Path.GetDirectoryName(ArchivoBaseXLS), Now.Ticks, Path.GetFileName(ArchivoBaseXLS))
|
||||
'Dim ArchivoTempXLS As String = String.Format("{0}\GenSis{1}-{2}", Path.GetDirectoryName(ArchivoBaseXLS), NowADS().Ticks, Path.GetFileName(ArchivoBaseXLS))
|
||||
|
||||
Dim Fiscal As String = String.Format("Domicilio Fiscal {0}{1} {2}{0}Col.{3}{0}CP. {4} {5},{6},{7}", vbCr, DomFisCalle, DomFisNoExt, DomFisCol, DomFisCP,
|
||||
DomFisMun, DomFisEst, DomFisPais)
|
||||
@@ -4335,7 +4335,7 @@ Partial Class Compras_eFacturas
|
||||
'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ")
|
||||
Dim Respuesta As Boolean = False
|
||||
|
||||
Dim Inicio As DateTime = DateTime.Now
|
||||
Dim Inicio As DateTime = NowADS()
|
||||
Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf()
|
||||
Dim logotipo As Byte() = Nothing
|
||||
|
||||
@@ -4343,7 +4343,7 @@ Partial Class Compras_eFacturas
|
||||
Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {
|
||||
.DomicilioReceptor = ""
|
||||
})
|
||||
Dim Fin As DateTime = DateTime.Now
|
||||
Dim Fin As DateTime = NowADS()
|
||||
|
||||
If result IsNot Nothing Then
|
||||
File.WriteAllBytes(PDFRutaArchivo, result)
|
||||
|
||||
Reference in New Issue
Block a user