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

28
Compras/Proveedores.aspx.vb
View File

@@ -449,7 +449,7 @@ Partial Class Compras_Proveedores
Private Property FechaLimite As Date
Get
If ViewState("FechaLimite") Is Nothing Then
Return Date.Now.AddDays(15)
Return NowADS().AddDays(15)
Else
Return ViewState("FechaLimite").ToString.ToDate
End If
@@ -546,7 +546,7 @@ Partial Class Compras_Proveedores
ImgAddObs.Visible = False
ChkEstado.Checked = True : ChkEstado.Enabled = False
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveProveedor") = -1
DivSucursales.Visible = False
@@ -625,8 +625,8 @@ Partial Class Compras_Proveedores
End If
TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
TxtFechaFCredito.Text = Now.ToShortDateString
TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString
TxtFechaFCredito.Text = NowADS().ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
TabEvaluacion.Visible = True
@@ -734,7 +734,7 @@ Partial Class Compras_Proveedores
Private Function CargadeFactura(CveFactura As Integer) As Integer
Dim ObjeFacturas As New ClsCompras
If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-2), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-2), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
Dim XMLDoc As New XmlDocument
Try
@@ -2229,7 +2229,7 @@ Partial Class Compras_Proveedores
Dim Para As String = TxtCorreoCobranza.Text.Trim
Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
Dim ObjMail As New ClsSisMail()
@@ -3730,7 +3730,7 @@ Partial Class Compras_Proveedores
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", NowADS().ToShortDateString, FF)))
lista.Add(New CrystalParametro("NombreProveedor", LtlProveedor.Text))
lista.Add(New CrystalParametro("DireccionProveedor", TxtDireccion.Text))
lista.Add(New CrystalParametro("ProveedorRFC", TxtRFC.Text))
@@ -3885,7 +3885,7 @@ Partial Class Compras_Proveedores
' ' ArchivoTemp.Delete()
' ' Dim Descargas As New StringBuilder()
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/CxP-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/CxP-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, NowADS().Ticks)
' ' Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
' ' Msg.Alert(Msg, TipoMensaje.MsgInformacion)
' 'Catch ex As Exception
@@ -4010,7 +4010,7 @@ Partial Class Compras_Proveedores
' ' ArchivoTemp.Delete()
' ' Dim Descargas As New StringBuilder()
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Anticipos-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Anticipos-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, NowADS().Ticks)
' ' Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
' ' Msg.Alert(Msg, TipoMensaje.MsgInformacion)
' 'Catch ex As Exception
@@ -4081,7 +4081,7 @@ Partial Class Compras_Proveedores
params.Add(New ReportParameter("FechaInicio", FI))
params.Add(New ReportParameter("FechaFin", FF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
params.Add(New ReportParameter("DireccionProveedor", TxtDireccion.Text))
params.Add(New ReportParameter("ProveedorRFC", TxtRFC.Text))
@@ -4482,7 +4482,7 @@ Partial Class Compras_Proveedores
params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", NowADS().ToDateTime.ToShortDateString))
End If
ObjProveedores.Dispose()
@@ -4949,7 +4949,7 @@ Partial Class Compras_Proveedores
DtVencido = ObjProveedores.DtResultados
End If
If ObjFinanzas.GetRotacionCarteraProveedores(TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa, 1, "-1", " -1", CveProveedor, Now) Then
If ObjFinanzas.GetRotacionCarteraProveedores(TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa, 1, "-1", " -1", CveProveedor, NowADS()) Then
DtRotacion = ObjFinanzas.DtResultados
End If
@@ -5377,7 +5377,7 @@ Partial Class Compras_Proveedores
TxtSerieFolio.Text = ""
TxtPS.Text = ""
TxtCodigoE.Text = ""
TxtFechaE.Text = Now.ToString("dd/MM/yyyy")
TxtFechaE.Text = NowADS().ToString("dd/MM/yyyy")
TxtFirma.Text = ""
TxtCalificacion.Text = ""
@@ -6050,7 +6050,7 @@ Partial Class Compras_Proveedores
params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & NowADS().ToString("yyyyMMddhhmmss"), Formato:=Formato)
Else
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
End If