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

-- option explcit

Browse Source
This commit is contained in:
rrene
2024-01-25 07:24:55 -07:00
parent 7334bfa575
commit 153ec58591
1 changed files with 21 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Inicio.aspx.vb
View File

@@ -1,16 +1,10 @@
Imports System.Data Imports System.Data
Imports System.Globalization
Imports Extensiones Imports Extensiones
Imports System.Web.Services Imports System.Web.Services
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports System.Drawing
Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
Imports ADSNetLibrary.SIGAPI.Services.CRM Imports ADSNetLibrary.SIGAPI.Services.CRM
Imports Telerik.Web.UI.Scheduler.Views Imports ADSNetLibrary.SIGAPI.Models.CRM.Response
Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal
'Imports System.Reflection
'Imports Telerik.Web.UI
Partial Class Inicio Partial Class Inicio
Inherits ClsPaginas Inherits ClsPaginas
@@ -31,7 +25,7 @@ Partial Class Inicio
theDataSet.ReadXml(theReader) theDataSet.ReadXml(theReader)
If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then
Dim sb = New StringBuilder() Dim sb As New StringBuilder()
For Each item As DataRow In theDataSet.Tables(0).Rows For Each item As DataRow In theDataSet.Tables(0).Rows
sb.AppendFormat("{0};", item("Uuid").ToString()) sb.AppendFormat("{0};", item("Uuid").ToString())
@@ -161,7 +155,7 @@ Partial Class Inicio
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then
Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx")
NotificacionesPendientes(ObjNotificacion) NotificacionesPendientes(ObjNotificacion)
End If End If
ObjPolizas.Dispose() ObjPolizas.Dispose()
@@ -172,7 +166,7 @@ Partial Class Inicio
Dim OC As New ClsOC Dim OC As New ClsOC
If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then
If (OC.DtResultados.Rows.Count > 0) Then If (OC.DtResultados.Rows.Count > 0) Then
Dim ObjNotificacion = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx")
NotificacionesPendientes(ObjNotificacion) NotificacionesPendientes(ObjNotificacion)
End If End If
End If End If
@@ -263,7 +257,7 @@ Partial Class Inicio
If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then
Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?" Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?"
Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;") Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;")
End If End If
@@ -350,7 +344,7 @@ Partial Class Inicio
Private Sub MuestraPsProximosAVencer() Private Sub MuestraPsProximosAVencer()
Dim ObjInventarios = New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then
If ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.DtResultados.Rows.Count > 0 Then
@@ -359,11 +353,9 @@ Partial Class Inicio
Else Else
GvModalPSPorCaducar.DataSource = Nothing GvModalPSPorCaducar.DataSource = Nothing
End If End If
Else Else
GvModalPSPorCaducar.DataSource = Nothing GvModalPSPorCaducar.DataSource = Nothing
End If End If
ObjInventarios.Dispose() ObjInventarios.Dispose()
GvModalPSPorCaducar.DataBind() GvModalPSPorCaducar.DataBind()
@@ -772,10 +764,8 @@ Partial Class Inicio
Private Sub CargaDdlAcercamientoCRM() Private Sub CargaDdlAcercamientoCRM()
DdlAcercamientoCRM.Items.Clear() DdlAcercamientoCRM.Items.Clear()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim aceramientoGet As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero)
Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero)
Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet) Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet)
If objAcercamiento.IsSuccess Then If objAcercamiento.IsSuccess Then
DdlAcercamientoCRM.DataSource = objAcercamiento.Result DdlAcercamientoCRM.DataSource = objAcercamiento.Result
@@ -788,8 +778,8 @@ Partial Class Inicio
Private Sub CargaDdlContactoCRM() Private Sub CargaDdlContactoCRM()
DdlContactoCRM.Items.Clear() DdlContactoCRM.Items.Clear()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Dim contactoEmpresaCRM As New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM) Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM)
If objServicio.IsSuccess Then If objServicio.IsSuccess Then
@@ -818,13 +808,13 @@ Partial Class Inicio
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() Dim FechaInicio As DateTime = TxtFechaInicioAgenda.Text.ToDateTime()
Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() Dim FechaFin As DateTime = TxtFechaFinAgenda.Text.ToDateTime()
Dim validacionesAgendaOpcionesOK = True Dim validacionesAgendaOpcionesOK As Boolean = True
RegistraScript("GetView();") RegistraScript("GetView();")
Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1"
If CheckRecurrencia.Checked Then If CheckRecurrencia.Checked Then
RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero
Frecuencia = TxtFrecuencia.Text.ToEntero Frecuencia = TxtFrecuencia.Text.ToEntero
@@ -832,7 +822,7 @@ Partial Class Inicio
'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA
Select Case RecurrenciaTipo Select Case RecurrenciaTipo
Case 3 Case 3
Dim StringDias = "" Dim StringDias As String = ""
For Each item As ListItem In CheckDiasSemana.Items For Each item As ListItem In CheckDiasSemana.Items
If item.Selected Then If item.Selected Then
If StringDias.Length > 0 Then If StringDias.Length > 0 Then
@@ -1022,8 +1012,8 @@ Partial Class Inicio
Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime Dim FechaInicio As DateTime = DateTimeOffset.Parse(ClsEvent.start).DateTime
Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime Dim FechaFin As DateTime = DateTimeOffset.Parse(ClsEvent.end).DateTime
If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then
End If End If
@@ -1162,7 +1152,7 @@ Partial Class Inicio
If i = index Then If i = index Then
serie.name = row(i).ToString() serie.name = row(i).ToString()
Else Else
Dim actual = row(i).ToString().ToDouble Dim actual As Double = row(i).ToString().ToDouble
serie.data.Add(actual) serie.data.Add(actual)
anterior = actual anterior = actual
End If End If
@@ -1450,7 +1440,7 @@ Partial Class Inicio
If UsuarioActual.CveEmpresa = 140 Then If UsuarioActual.CveEmpresa = 140 Then
DVDescargasBDH.Visible = True DVDescargasBDH.Visible = True
Dim TmpDT = New DataTable() Dim TmpDT As New DataTable()
Dim ObjDoc As New ClsEdocumentacion Dim ObjDoc As New ClsEdocumentacion
If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then
@@ -1541,8 +1531,8 @@ Partial Class Inicio
Private Sub CargaDdlEmpresaCRM() Private Sub CargaDdlEmpresaCRM()
Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) Dim parametros As New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1)
Dim objServicio = cRMService.GetEmpresasCRM(parametros) Dim objServicio = cRMService.GetEmpresasCRM(parametros)
If objServicio.IsSuccess Then If objServicio.IsSuccess Then
@@ -1554,9 +1544,6 @@ Partial Class Inicio
If objServicio.Result.Count > 0 Then If objServicio.Result.Count > 0 Then
DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing) DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing)
End If End If
End If End If
End Sub End Sub