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

6
Prospectos/ProspectoExpediente.aspx.vb
View File

@@ -63,7 +63,7 @@ Partial Class Prospectos_ProspectoExpediente
ViewState("CveProspecto") = -1
TxtFechaIngreso.Text = Now.ToShortDateString
TxtFechaIngreso.Text = NowADS().ToShortDateString
End If
@@ -214,8 +214,8 @@ Partial Class Prospectos_ProspectoExpediente
If FechaIngreso = "__/__/____" Then FechaIngreso = "-1"
If TxtFechaIngreso.Text.Trim = Now.ToShortDateString Then
FechaIngreso = Now.ToString
If TxtFechaIngreso.Text.Trim = NowADS().ToShortDateString Then
FechaIngreso = NowADS().ToString
End If
Dim ObjProspectos As New ClsProspectos

6
Prospectos/ProspectosEstructuras.aspx.vb
View File

@@ -73,7 +73,7 @@ Partial Class Prospectos_ProspectosEstructuras
PnlBusquedaGral.Visible = True
Me.Form.DefaultButton = BtnBusqueda.UniqueID
TxtBusqueda.Focus()
TxtFechaIngreso.Text = Now.ToShortDateString
TxtFechaIngreso.Text = NowADS().ToShortDateString
End If
@@ -225,8 +225,8 @@ Partial Class Prospectos_ProspectosEstructuras
If FechaIngreso = "__/__/____" Then FechaIngreso = "-1"
If TxtFechaIngreso.Text.Trim = Now.ToShortDateString Then
FechaIngreso = Now.ToString
If TxtFechaIngreso.Text.Trim = NowADS().ToShortDateString Then
FechaIngreso = NowADS().ToString
End If
Dim ObjProspectos As New ClsProspectos

6
Prospectos/ProspectosRedes.aspx.vb
View File

@@ -64,7 +64,7 @@ Partial Class Prospectos_ProspectosRedes
PnlBusquedaGral.Visible = True
Me.Form.DefaultButton = BtnBusqueda.UniqueID
TxtBusqueda.Focus()
TxtFechaIngreso.Text = Now.ToShortDateString
TxtFechaIngreso.Text = NowADS().ToShortDateString
End If
@@ -218,8 +218,8 @@ Partial Class Prospectos_ProspectosRedes
If FechaIngreso = "__/__/____" Then FechaIngreso = "-1"
If TxtFechaIngreso.Text.Trim = Now.ToShortDateString Then
FechaIngreso = Now.ToString
If TxtFechaIngreso.Text.Trim = NowADS().ToShortDateString Then
FechaIngreso = NowADS().ToString
End If
Dim ObjProspectos As New ClsProspectos

4
Prospectos/ProspectosSIP.aspx.vb
View File

@@ -153,7 +153,7 @@ Partial Class Prospectos_ProspectosSIP
Dim ObjProspectos As New ClsProspectos
If CveProspecto = -1 Then
If ObjProspectos.AddProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
TxtNombres.Text.Trim, Now, "", "", "", 0, TxtCalle.Text.Trim,
TxtNombres.Text.Trim, NowADS(), "", "", "", 0, TxtCalle.Text.Trim,
TxtNumero.Text.Trim, "", TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1, DdlMunicipios.SelectedValue.ToEntero,
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", -1, DdlProspectoClasificacion.SelectedValue.ToEntero, -1, TxtEmpresaNombre.Text.Trim, "", "", "",
TxtEmpresaCalle.Text.Trim, TxtEmpresaNumero.Text.Trim, TxtEmpresaColonia.Text.Trim, "", DdlEmpresaMunicipios.SelectedValue.ToEntero, TxtEmpresaTelefono.Text.Trim, "", "", TxtEmpresaPuesto.Text.Trim, "", False, "", "", "", "", -1, "", -1, -1, -1, "", -1, 0, -1, "", 0, "", DdlVendedor.SelectedValue.ToEntero, DdlCalificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
@@ -164,7 +164,7 @@ Partial Class Prospectos_ProspectosSIP
Else
If ObjProspectos.UpdateProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
TxtNombres.Text.Trim, Now, "", "", "", 0, TxtCalle.Text.Trim,
TxtNombres.Text.Trim, NowADS(), "", "", "", 0, TxtCalle.Text.Trim,
TxtNumero.Text.Trim, "", TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1.ToEntero, DdlMunicipios.SelectedValue.ToEntero,
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", -1, DdlProspectoClasificacion.SelectedValue.ToEntero, -1, TxtEmpresaNombre.Text.Trim, "", "", "",
TxtEmpresaCalle.Text.Trim, TxtEmpresaNumero.Text.Trim, TxtEmpresaColonia.Text.Trim, "", DdlEmpresaMunicipios.SelectedValue.ToEntero, TxtEmpresaTelefono.Text.Trim, "", "", TxtEmpresaPuesto.Text.Trim, "", False, "", "", "", "", -1, "", -1, -1, -1, "", -1, 0, 1, "", 0, "", DdlVendedor.SelectedValue.ToEntero, DdlCalificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProspecto) Then

2
Prospectos/ProspectosValidar.aspx.vb
View File

@@ -190,7 +190,7 @@ Partial Class Prospectos_ProspectosValidar
Dim Prosp As New ClsProspectos
If Prosp.UpdateProspectoProceso(CveProspectoProspectoProceso, RBLSolucion.SelectedValue.ToEntero, Now, IFE) Then
If Prosp.UpdateProspectoProceso(CveProspectoProspectoProceso, RBLSolucion.SelectedValue.ToEntero, NowADS(), IFE) Then
Alert("Registro Guardado", TipoMensaje.MsgInformacion)
LimpiaDatos()
GvBusq.DataBind()

2
Prospectos/RedesIndicadores.aspx.vb
View File

@@ -173,7 +173,7 @@ Partial Class Prospectos_RedesIndicadores
Dim Marcador2 As Integer = 1
Dim Marcador3 As Integer = 1
Dim TotalDias As Integer = (FechaFin - FechaInicio).Days
Dim DiasTranscurridos As Integer = (DateTime.Now - FechaInicio).Days
Dim DiasTranscurridos As Integer = (NowADS() - FechaInicio).Days
Dim Str As New StringBuilder
Dim Total As Integer = 20000

4
Prospectos/RepAgendasBitacoras.aspx.vb
View File

@@ -36,8 +36,8 @@ Partial Class Prospectos_RepAgendasBitacoras
eventos.Dispose()
ddlAgenda.Items.Insert(0, New ListItem("Todos", "-1"))
ddlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
TxtFechaI.Text = Now.AddDays(-1).ToShortDateString
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
ddlTipoEvento.Items.Insert(0, New ListItem("Todos", "-1"))
ddlTipoEvento.Items.Insert(1, New ListItem("Agenda", "2"))

4
Prospectos/RepMetas2.aspx.vb
View File

@@ -171,11 +171,11 @@ Partial Class Prospectos_RepMetas2
e.Row.FCLiteral("LitPor").Text = (e.Row.DBCampo("Hijos").ToDouble / e.Row.DBCampo("MetaGlobal").ToDouble * 100).FormatoNumero(0)
If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso").ToDate < Now.AddDays(-10) Then
If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso").ToDate < NowADS().AddDays(-10) Then
e.Row.Cells(4).ForeColor = System.Drawing.Color.Red
e.Row.Cells(4).ToolTip = "Ultimo ingreso mayor a 10 dias"
End If
If e.Row.DBCampo("FechaIng") <> "" AndAlso e.Row.DBCampo("FechaIng").ToDate < Now.AddDays(-14) AndAlso e.Row.DBCampo("Hijos").ToEntero = 0 Then
If e.Row.DBCampo("FechaIng") <> "" AndAlso e.Row.DBCampo("FechaIng").ToDate < NowADS().AddDays(-14) AndAlso e.Row.DBCampo("Hijos").ToEntero = 0 Then
e.Row.Cells(0).BackColor = System.Drawing.Color.Red
e.Row.Cells(0).ToolTip = String.Format("No se han ingresado hijos. Fecha de ingreso: {0}", e.Row.DBCampo("FechaIng").ToDate.ToShortDateString)
End If

2
Prospectos/RepSimpatizantes.aspx.vb
View File

@@ -132,6 +132,6 @@ Partial Class Prospectos_RepSimpatizantes
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("RepEquipoJGM_" & Now.ToString("yyyy/MM/dd"))
GvDatos.ExportToExcel("RepEquipoJGM_" & NowADS().ToString("yyyy/MM/dd"))
End Sub
End Class