diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 940f0c4c3..a996d38e7 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5887,21 +5887,21 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, + Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, - Optional Estatus As Integer = -1) As Boolean + Optional Estatus As Boolean = False) As Boolean Dim Retorno = False DataAdapter("PA_Conta_ContaEjerciciosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@PeriodoActual", SqlDbType.TinyInt).Value = PeriodoActual .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Estatus", SqlDbType.Int).Value = Estatus - .Add("@FechaIng", SqlDbType.Int).Value = FechaIng + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -5916,20 +5916,20 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, Optional CveCuentaCierre As Integer = -1, - Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Integer = -1) As Boolean + Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = 0, Optional CveCuentaCierre As Integer = -1, + Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Boolean = False) As Boolean Dim Retorno = False - DataAdapter("PA_Conta_ContaEjerciciosAdd") + DataAdapter("PA_Conta_ContaEjerciciosUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@PeriodoActual", SqlDbType.TinyInt).Value = PeriodoActual .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@Estatus", SqlDbType.Bit).Value = Estatus End With Try @@ -5942,13 +5942,13 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function RemoveContaEjercicio(CveEmpresa As Integer) As Boolean + Public Function RemoveContaEjercicio(CveEjercicio As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_ContaEjerciciosDelete") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio End With Try @@ -5961,6 +5961,31 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function CierreEjercicio(CveEmpresa As Integer, Ejercicio As Integer, CveCuentaCierre As Integer, FechaI As String, FechaF As String, CveUsuario As Integer) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_Conta_CierreEjercicio") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #Region " RECONSTRUCCION DE PREPOLIZAS " Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean Dim Retorno = False @@ -6308,7 +6333,7 @@ Public Class ClsContabilidad End Function - Public Function GetEstadosAnuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean + Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal") @@ -6334,5 +6359,34 @@ Public Class ClsContabilidad Return Retorno End Function + + Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Tipo", SqlDbType.Int).Value = Tipo + + End With + + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(DSet) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el Estado de resultados anual horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #End Region End Class \ No newline at end of file diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1fefdd172..1a93bab94 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5138,55 +5138,44 @@ Public Class ClsPaginas 'limpio ReportViwer Dim sw As New System.Diagnostics.Stopwatch() sw.Start() - 'Dim Bytes As Byte() = Nothing - 'Try - ' Dim fllreport As New ADSReportLib.FullTrustReportviewer() - ' fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True) - ' For Each RDS As ReportDataSource In DataSource - ' fllreport.AddDataSources(RDS) - ' Next - ' Dim Warnings As Warning() = Nothing - ' Dim StreamIds As String() = Nothing - ' Dim MimeType As String = Nothing - ' Dim Encoding As String = Nothing - ' Dim Extension As String = Nothing - ' Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) - ' fllreport = Nothing - 'Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException - ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") - ' 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 - ' 'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") - 'Catch ex As Exception - ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") - ''HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 - ''GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") - 'End Try - - If IsNothing(MR) Then MR = New ReportViewer - Dim Bytes As Byte() = Nothing + + + Dim setup As AppDomainSetup = New AppDomainSetup + With setup + .ApplicationBase = Environment.CurrentDirectory + .LoaderOptimization = LoaderOptimization.MultiDomainHost + End With + setup.SetCompatibilitySwitches({"NetFx40_LegacySecurityPolicy"}) + Dim _casPolicyEnabledDomain As AppDomain = AppDomain.CreateDomain("Full Trust", Nothing, setup) + Dim fllreport As ADSReportLib.FullTrustReportviewer = Nothing Try + 'Dim rvNextgenReport2 As WebReportviewer.FullTrustReportviewer = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(WebReportviewer.FullTrustReportviewer).Assembly.CodeBase, GetType(WebReportviewer.FullTrustReportviewer).FullName), WebReportviewer.FullTrustReportviewer) + 'rvNextgenReport2.Initialize(DisplayName, ReportPath, Visible, reportParam, reportRenderFormat, DeviceInfo, repMainContent, repSubContent) + 'For Each _ReportDataSource As ReportDataSource In DataSources + ' rvNextgenReport2.AddDataSources(_ReportDataSource.Name, CType(_ReportDataSource.Value, DataTable)) + 'Next + + 'Return rvNextgenReport2.Render(reportRenderFormat, DeviceInfo) + fllreport = CType(_casPolicyEnabledDomain.CreateInstanceFromAndUnwrap(GetType(ADSReportLib.FullTrustReportviewer).Assembly.CodeBase, GetType(ADSReportLib.FullTrustReportviewer).FullName), ADSReportLib.FullTrustReportviewer) + + Dim bdir As String = AppDomain.CurrentDomain.BaseDirectory + RutaReporte.Replace("/", "\") + If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then + RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) + End If + fllreport.Initialize("DisplayName", RutaReporte, Parametros.AsEnumerable(), New List(Of String()), True) For Each RDS As ReportDataSource In DataSource - MR.LocalReport.DataSources.Add(RDS) + fllreport.AddDataSources(RDS.Name, DirectCast(RDS.Value, DataTable)) Next - 'Dim permissions As New Security.PermissionSet(Security.Permissions.PermissionState.None) - 'permissions.AddPermission(New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.Unrestricted)) - 'permissions.AddPermission(New Security.Permissions.SecurityPermission(Security.Permissions.SecurityPermissionFlag.Execution)) - 'MR.LocalReport.SetBasePermissionsForSandboxAppDomain(permissions) - - MR.LocalReport.ReportPath = RutaReporte - MR.ProcessingMode = ProcessingMode.Local - MR.LocalReport.EnableExternalImages = True - MR.LocalReport.SetParameters(Parametros) - MR.LocalReport.Refresh() Dim Warnings As Warning() = Nothing Dim StreamIds As String() = Nothing Dim MimeType As String = Nothing Dim Encoding As String = Nothing Dim Extension As String = Nothing - Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) - + Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds) + fllreport = Nothing Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 @@ -5195,9 +5184,10 @@ Public Class ClsPaginas GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) } | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}") 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") + Finally + AppDomain.Unload(_casPolicyEnabledDomain) End Try - MR.LocalReport.ReleaseSandboxAppDomain() - MR.Dispose() + If fllreport IsNot Nothing Then fllreport.liberarecursos() sw.Stop() If sw.Elapsed.TotalSeconds > 10 Then diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index ae975c5bc..25548fcf6 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1372,10 +1372,17 @@ Partial Class Bancos_IE BtnGuardar.Enabled = True End Sub - Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged - 'si solo es de egreso el movimiento debe de generar el siguiente folio. + Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged + 'si solo es de egreso el movimiento debe de generar el siguiente folio. + + Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True) + Dim ActualizaCuenta As Boolean = False + + If (Not ExistenComplementosVigentes) And UsuarioActual.TienePermisoProceso(99) And BtnActualizar.Visible = True Then + ActualizaCuenta = True + End If - If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Then + If HdnTipoTransaccion.Value = "Egs" AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Or Opcion = "DevDinC" Or ActualizaCuenta Then Dim Folio As Long Dim Banco As New ClsBancos diff --git a/Bin/ADSReportLib.dll b/Bin/ADSReportLib.dll index d1edd2a16..3431176b1 100644 Binary files a/Bin/ADSReportLib.dll and b/Bin/ADSReportLib.dll differ diff --git a/Bin/ADSReportLib.pdb b/Bin/ADSReportLib.pdb index 9b46fdb6d..be65cba71 100644 Binary files a/Bin/ADSReportLib.pdb and b/Bin/ADSReportLib.pdb differ diff --git a/Bin/Microsoft.ReportViewer.WebForms.dll b/Bin/Microsoft.ReportViewer.WebForms.dll new file mode 100644 index 000000000..8dfaf553b Binary files /dev/null and b/Bin/Microsoft.ReportViewer.WebForms.dll differ diff --git a/Contabilidad2/CatContaEjercicios.aspx b/Contabilidad2/CatContaEjercicios.aspx index 869eb29e1..c61ecab0a 100644 --- a/Contabilidad2/CatContaEjercicios.aspx +++ b/Contabilidad2/CatContaEjercicios.aspx @@ -14,7 +14,7 @@
  • - +
    • @@ -23,8 +23,91 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - \ No newline at end of file + diff --git a/Contabilidad2/CatContaEjercicios.aspx.vb b/Contabilidad2/CatContaEjercicios.aspx.vb index 1ebc78f72..0ca03882f 100644 --- a/Contabilidad2/CatContaEjercicios.aspx.vb +++ b/Contabilidad2/CatContaEjercicios.aspx.vb @@ -5,9 +5,109 @@ Imports Extensiones Partial Class Contabilidad2_CatContaEjercicios Inherits ClsPaginas + Private Property CveEjercicio() As Integer 'Guardamos el ID de registro para saber cual registro Editar + Get + Return If(IsNothing(ViewState("CveEjercicio")), -1, CInt(ViewState("CveEjercicio"))) + End Get + Set + ViewState("CveEjercicio") = Value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - + CargaDatos() End If End Sub + + Private Sub CargaDatos() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetContaEjercicio(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjConta.DtResultados + End If + + If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + DdlCuentas.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + GvDatos.DataBind() + DdlCuentas.DataBind() + DdlCuentas.Items.Insert(0, New ListItem("seleccione", "-1")) + End Sub + + Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click + TxtEjercicio.Text = "" + ChkEstatus.Checked = 0 + DdlPeriodoActual.SelectedValue = 0 + UpModalModulos.Update() + RegistraScript("$('#ModalCat').modal();") + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click + Dim ObjConta As New ClsContabilidad + Dim errorString As String = "" + If LbAgregar.Text = "Agregar" Then + If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text, + PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then + errorString = "Error al agregar" + End If + ElseIf LbAgregar.Text = "Actualizar" Then + If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, + CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then + errorString = "Error al actualizar" + End If + End If + ObjConta.Dispose() + RegistraScript("$('#ModalCat').modal('hide');") + CargaDatos() + UpDatos.Update() + If errorString.Length > 0 Then + Alert(errorString) + Else + If LbAgregar.Text = "Agregar" Then + Alert("Agregado correctamente") + ElseIf LbAgregar.Text = "Actualizar" Then + Alert("Actualizado correctamente") + End If + End If + End Sub + + Protected Sub ActualizaModulo(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero + TxtEjercicio.Text = GvRow.DataKey("Ejercicio") + ChkEstatus.Checked = GvRow.DataKey("Estatus") + DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero") + DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre") + LbAgregar.Text = "Actualizar" + UpModalModulos.Update() + RegistraScript("$('#ModalCat').modal();") + End Sub + + Protected Sub EliminarRow(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim ObjConta As New ClsContabilidad + If ObjConta.RemoveContaEjercicio(GvRow.DataKey("CveEjercicio").ToEntero) Then + Alert("eliminado correctamente") + End If + ObjConta.Dispose() + CargaDatos() + UpDatos.Update() + End Sub + + Protected Sub PolizaCierre(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim ObjConta As New ClsContabilidad + Dim FechaI As String = $"01/01/{DateTime.Now.Year}" + Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}" + Dim CvePrePolizaCierre As Integer = -1 + CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, GvRow.DataKey("Ejercicio").ToEntero, GvRow.DataKey("CveCuentaCierre").ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal) + If CvePrePolizaCierre > 0 Then + If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=GvRow.DataKey("Ejercicio").ToEntero, PeriodoActual:=GvRow.DataKey("PeriodoActualNumero").ToEntero, + CveCuentaCierre:=GvRow.DataKey("CveCuentaCierre").ToEntero, CvePrePoliza:=CvePrePolizaCierre, Estatus:=GvRow.DataKey("Estatus")) Then + Alert("Cierre de ejercicio correcto") + End If + End If + ObjConta.Dispose() + End Sub End Class diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 8bd7dba81..fcaacad9a 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -14,7 +14,7 @@
  • - +
    • diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 04fb69647..8078f7a8f 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -61,7 +61,7 @@
    - +
    @@ -764,17 +764,247 @@ - - - - - - + + + + + + + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + --%> + <%----%> + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + --%> + + <%-- --%> + + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     +
    + + + + + + + + + + + + + + + +     +     diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 984447a36..e9db997b4 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -171,6 +171,62 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Set End Property +#End Region + +#Region " S U B P R O Y E C T O H O R I Z O N T A L " + + Private Property DtDatosSubProyectoH As DataTable + Get + DtDatosSubProyectoH = DirectCast(ViewState("DtDatosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosSubProyectoH") = value + End Set + End Property + + Private Property DtIngresosSubProyectoH As DataTable + Get + DtIngresosSubProyectoH = DirectCast(ViewState("DtIngresosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosSubProyectoH") = value + End Set + End Property + + Private Property DtGastosSubProyectoH As DataTable + Get + DtGastosSubProyectoH = DirectCast(ViewState("DtGastosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosSubProyectoH") = value + End Set + End Property + + Private Property DTTotalesSubProyectoH As DataTable + Get + DTTotalesSubProyectoH = DirectCast(ViewState("DTTotalesSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTTotalesSubProyectoH") = value + End Set + End Property + + Private Property DTSubProyectosCabecerasH As DataTable + + Get + DTSubProyectosCabecerasH = DirectCast(ViewState("DTSubProyectosCabecerasH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTSubProyectosCabecerasH") = value + End Set + + End Property + #End Region @@ -188,6 +244,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'TxtFechaFin.Text = Date.Now.ToShortDateString CargaEjercicios() + DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubproyecto.DataBind() + ' CargaDatos() End If End Sub @@ -312,7 +371,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'SUBPROYECTO If Tab.ActiveTabIndex = 3 Then - + CargaDatosSubProyectoH() End If @@ -520,7 +579,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtDatosMesH IsNot Nothing Then CargaGridsMesH() - SumaTotalesMesH() + SumaTotalesMesH() + Else + End If End Sub @@ -615,23 +676,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row = DTTotalesMesH.NewRow - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") + Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") + Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") + Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") + Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") + Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") + Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") + Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") + Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") + Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") Row.Item("Nombre") = "Resultados del Ejercicio:" 'Row.Item("ImporteActual") = TotalActual.ToString 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString 'Row.Item("PorcentajeAcumulado") = "100.00" 'Row.Item("CtaMayor") = -1 @@ -750,7 +811,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnuallHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosAnualH = Nothing @@ -926,13 +987,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal IndexData = 13 For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") Next Row.Item("Nombre") = "Resultados del Ejercicio:" 'Row.Item("ImporteActual") = TotalActual.ToString 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") 'Row.Item("PorcentajeAcumulado") = "100.00" 'Row.Item("CtaMayor") = -1 @@ -1038,7 +1099,293 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region +#Region "S U B P R O Y E C T O H O R I Z O N T A L" + Private Sub CargaDatosSubProyectoH() + + + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") + + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + + + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) + DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatosSubProyectoH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then + CargaGridsSubProyectoH() + SumaTotalesSubProyectoH() + End If + + End Sub + + Private Sub CargaGridsSubProyectoH() + + DtIngresosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='H' ") + DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") + DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() + + Dim Row As DataRow = DtIngresosSubProyectoH.NewRow + + Dim TotalActual = 0.0, TotalAnterior = 0.0 + + + Dim IndexData As Integer = 0 + Dim IndexGv As Integer = 1 + Dim IndexMax As Integer = 1 + Dim IndexSubProyecto = 0 + Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 + Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx + + If DtIngresosSubProyectoH.Rows.Count > 0 Then + + + + + For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns + + If IndexData >= 13 Then + + If IndexSubProyecto <= IndexSubProyectoMAx Then + + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvIngresosSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + + If IndexSubProyecto <= IndexSubProyectoMAx Then + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + End If + + Else + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + End If + + IndexGv = IndexGv + 1 + IndexSubProyecto = IndexSubProyecto + 1 + IndexMax = IndexMax + 1 + + End If + IndexData = IndexData + 1 + Next + + + For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 13 + For IndexData = 13 To IndexTotatles + Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("CtaMayor") = -1 + DtIngresosSubProyectoH.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosSubProyectoH.Rows.Add(Row) + End If + + Dim T1 = TotalActual, T2 = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosSubProyectoH.NewRow + + If DtGastosSubProyectoH.Rows.Count > 0 Then + + + IndexData = 0 + IndexGv = 1 + IndexMax = 0 + IndexSubProyecto = 0 + + For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns + If IndexData >= 13 Then + If IndexSubProyecto <= IndexSubProyectoMAx Then + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvGastosSubProyectoH.Columns(IndexGv).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + Else + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + End If + + IndexGv = IndexGv + 1 + IndexSubProyecto = IndexSubProyecto + 1 + End If + IndexData = IndexData + 1 + Next + + + + For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 13 + For IndexData = 13 To IndexTotatles + Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = TotalActual + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("CtaMayor") = -1 + DtGastosSubProyectoH.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastosSubProyectoH.Rows.Add(Row) + End If + + If DtIngresosSubProyectoH.Rows.Count > 0 Then + + Row = DTTotalesSubProyectoH.NewRow + + + + IndexData = 13 + For IndexData = 13 To IndexTotatles + Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "Resultados del Ejercicio:" + 'Row.Item("ImporteActual") = TotalActual.ToString + 'Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + 'Row.Item("PorcentajeAcumulado") = "100.00" + 'Row.Item("CtaMayor") = -1 + + DTTotalesSubProyectoH.Rows.Add(Row) + + End If + + GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH + GvIngresosSubProyectoH.DataBind() + + GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH + GvGastosSubProyectoH.DataBind() + + GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH + GvTotalesSubProyectoH.DataBind() + + UpDatosSubProyectoH.Update() + + End Sub + + Private Sub SumaTotalesSubProyectoH() + 'Llena Lb´s Totales + '********************************************************************************* + LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero + LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero + + LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) + LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) + + + End Sub + + Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales3" + e.Row.ControlStyle.Font.Bold = True + End If + + 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + 'End If + + 'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + ' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + 'End If + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + 'e.Row.CssClass = "SubTotales" + e.Row.ControlStyle.Font.Bold = True + End If + + 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + 'End If + + 'If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + ' e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + 'End If + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.Header Then + ' e.Row.Attributes.Add("style", "display:none") + End If + + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.Attributes.Add("style", "Font-weight: bold") + End If + + End Sub + +#End Region End Class diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 5154c9604..29ed2e629 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -1,16 +1,16 @@ -Imports System.Data -Imports System.Globalization -Imports Extensiones -Imports System.Web.Services -Imports Newtonsoft.Json -Imports System.Drawing - -'Imports System.Reflection -'Imports Telerik.Web.UI - -Partial Class Inicio - Inherits ClsPaginas - +Imports System.Data +Imports System.Globalization +Imports Extensiones +Imports System.Web.Services +Imports Newtonsoft.Json +Imports System.Drawing + +'Imports System.Reflection +'Imports Telerik.Web.UI + +Partial Class Inicio + Inherits ClsPaginas + Private Dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"} @@ -51,12 +51,11 @@ Partial Class Inicio Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "") End Try Return retorno - End Function - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + End Function + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - 'Dim obj As Object = GetType(HttpRuntime).GetProperty("CacheInternal", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.[Static]).GetValue(Nothing, Nothing) - 'Dim obj2 As Object() = CType(obj.[GetType]().GetField("_caches", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance).GetValue(obj), Object()) + If Not IsNothing(Request("logout")) AndAlso Request("logout").ToString() = "1" Then Usuario.CerrarSession() Exit Sub @@ -74,7 +73,7 @@ Partial Class Inicio End Using GvFoliosSAT.DataBind() End If - 'Reporte de ventas pendientes de cancelar + 'Reporte de ventas pendientes de cancelar If UsuarioActual.TienePermisoProceso(288) Then Using objventas As New ClsVentas If (GetFacturasCanceladasPendientesWS(objventas, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, False)) AndAlso objventas.DtResultados.Rows.Count > 0 Then @@ -85,70 +84,70 @@ Partial Class Inicio End If 'RESTRICCION AD - If Not IsNothing(Request("ADCod")) Then - 'viene el msg encriptado, para sacar el modulo - Dim Codigo As String = Decripta(Request("ADCod")) - Dim Msg As String = "" - If Codigo.Substring(0, 10) = "CveModulo=" Then - Msg = "No tiene permisos de acceso al módulo:" & GlobalDTModulos().FiltroPrimeroValor("Modulo", Codigo) - End If - Alert(Msg, TipoMensaje.MsgAdvertencia) - End If - - 'tiene prioridad que cambie de contrase;a primero antes de redireccionar a su pagina - If UsuarioActual.Contraseña = (ContraseñaPredeterminadaEncriptada) OrElse UsuarioActual.ActCambiarContraseña Then - Response.Redirect("/Sistemas/CatContrasenia.aspx") - End If - - If UsuarioActual.Portal Then - Response.Redirect("/Portal/ConsultaCliente.aspx") - End If - - If UsuarioActual.CvePlataforma = 6 Then - Response.Redirect("/PortalCliente/PortalCliente.aspx") - End If - - If UsuarioActual.CvePlataforma = 7 Then - Response.Redirect("/PortalProveedor/PortalProveedor.aspx") - End If - - If UsuarioActual.CveEmpresa = 66 Then - LtlTitulo.Text = "Sistema Integral de Información Gluyas" - End If - - If UsuarioActual.Empresa.UsaContabilidad Then - Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) - 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") - NotificacionesPendientes(ObjNotificacion) - End If - ObjPolizas.Dispose() - End If - - 'C A R G A - A L E R T A S - O R D E N E S D E C O M P R A - If UsuarioActual.CveUsuario <> 1459 Then - Dim OC As New ClsOC - If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) 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") - NotificacionesPendientes(ObjNotificacion) - End If - End If - OC.Dispose() - End If - - - ViewState("FechaSel") = Now.ToShortDateString - 'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse - - If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then - CargaGraficas() - End If - - CargaTareas() - If UsuarioActual.CveRol = 1 Then - divInd.Visible = True - CargaSubProyectos() + If Not IsNothing(Request("ADCod")) Then + 'viene el msg encriptado, para sacar el modulo + Dim Codigo As String = Decripta(Request("ADCod")) + Dim Msg As String = "" + If Codigo.Substring(0, 10) = "CveModulo=" Then + Msg = "No tiene permisos de acceso al módulo:" & GlobalDTModulos().FiltroPrimeroValor("Modulo", Codigo) + End If + Alert(Msg, TipoMensaje.MsgAdvertencia) + End If + + 'tiene prioridad que cambie de contrase;a primero antes de redireccionar a su pagina + If UsuarioActual.Contraseña = (ContraseñaPredeterminadaEncriptada) OrElse UsuarioActual.ActCambiarContraseña Then + Response.Redirect("/Sistemas/CatContrasenia.aspx") + End If + + If UsuarioActual.Portal Then + Response.Redirect("/Portal/ConsultaCliente.aspx") + End If + + If UsuarioActual.CvePlataforma = 6 Then + Response.Redirect("/PortalCliente/PortalCliente.aspx") + End If + + If UsuarioActual.CvePlataforma = 7 Then + Response.Redirect("/PortalProveedor/PortalProveedor.aspx") + End If + + If UsuarioActual.CveEmpresa = 66 Then + LtlTitulo.Text = "Sistema Integral de Información Gluyas" + End If + + If UsuarioActual.Empresa.UsaContabilidad Then + Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) + 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") + NotificacionesPendientes(ObjNotificacion) + End If + ObjPolizas.Dispose() + End If + + 'C A R G A - A L E R T A S - O R D E N E S D E C O M P R A + If UsuarioActual.CveUsuario <> 1459 Then + Dim OC As New ClsOC + If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) 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") + NotificacionesPendientes(ObjNotificacion) + End If + End If + OC.Dispose() + End If + + + ViewState("FechaSel") = Now.ToShortDateString + 'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse + + If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then + CargaGraficas() + End If + + CargaTareas() + If UsuarioActual.CveRol = 1 Then + divInd.Visible = True + CargaSubProyectos() End If 'Ventas no timbradas por centro de costo @@ -160,1005 +159,1005 @@ Partial Class Inicio End If If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE() - If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() - - Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion - If Not EsDEV Then + If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() + + Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion + If Not EsDEV Then If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100) Then MuestraInconsistencias() '100 - End If - - 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD - - InicializaCalendar() - - If UsuarioActual.CveEmpresa = 72 Then - DivDirectorioTelefonico.Visible = True - CargaDirectorioTelefonico() - Else - DivDirectorioTelefonico.Visible = False - End If - - 'CARGA COMUNICADO - If UsuarioActual.TienePermisoProceso(224) Then - LnkAgregar.Visible = True - End If - - CargaComunicado() - - 'Evaluacion del proveedor - CargaEvaluacionProveedor() - - End If - - End Sub - Private Sub CargaEvaluacionProveedor() - If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then - Dim ObjProveedor As New ClsCompProveedores - If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then - If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then - Dim Mensaje As String = "Hay evaluaciones de proveedores pendientes por aceptar. ¿Desea evaluar las evaluaciones de proveedor pendientes?" - Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" - - Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") - End If - End If - ObjProveedor.Dispose() - End If - - End Sub - - Private Sub MuestraVentasPUE() - Dim objVentas As New ClsVentas + End If + + 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD + + InicializaCalendar() + + If UsuarioActual.CveEmpresa = 72 Then + DivDirectorioTelefonico.Visible = True + CargaDirectorioTelefonico() + Else + DivDirectorioTelefonico.Visible = False + End If + + 'CARGA COMUNICADO + If UsuarioActual.TienePermisoProceso(224) Then + LnkAgregar.Visible = True + End If + + CargaComunicado() + + 'Evaluacion del proveedor + CargaEvaluacionProveedor() + + End If + + End Sub + Private Sub CargaEvaluacionProveedor() + If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then + Dim ObjProveedor As New ClsCompProveedores + If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then + If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then + Dim Mensaje As String = "Hay evaluaciones de proveedores pendientes por aceptar. ¿Desea evaluar las evaluaciones de proveedor pendientes?" + Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" + + Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") + End If + End If + ObjProveedor.Dispose() + End If + + End Sub + + Private Sub MuestraVentasPUE() + Dim objVentas As New ClsVentas Dim FechaInicio As Date = Now.AddYears(-2) LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString - If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - If objVentas.DtResultados.Rows.Count > 0 Then - GvVtaPUE.DataSource = objVentas.DtResultados - - RegistraScript("$('#ModalVentasPUE').modal('show');", "showmodal4Incons") - End If - End If - - objVentas.Dispose() - GvVtaPUE.DataBind() - End Sub - - Private Sub MuestraComprasPUE() + If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If objVentas.DtResultados.Rows.Count > 0 Then + GvVtaPUE.DataSource = objVentas.DtResultados + + RegistraScript("$('#ModalVentasPUE').modal('show');", "showmodal4Incons") + End If + End If + + objVentas.Dispose() + GvVtaPUE.DataBind() + End Sub + + Private Sub MuestraComprasPUE() Dim objCompras As New ClsCompras Dim FechaInicio As Date = Now.AddYears(-2) - LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString - If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - If objCompras.DtResultados.Rows.Count > 0 Then - GvCompPUE.DataSource = objCompras.DtResultados - - RegistraScript("$('#ModalComprasPUE').modal('show');", "showmodal3Incons") - End If - End If - - objCompras.Dispose() - GvCompPUE.DataBind() - End Sub - - Private Sub MuestraInconsistencias() - Dim ObjP As New ClsContabilidad - If ObjP.GetInconsistencias() Then - If ObjP.DtResultados.Rows.Count > 0 Then - LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count - GvIncons.DataSource = ObjP.DtResultados - - RegistraScript("$('#ModalInconsistencias').modal('show');", "showmodalIncons") - End If - End If - - ObjP.Dispose() - GvIncons.DataBind() - End Sub - - Private Sub MuestraNoTimbradasCentroCosto() - Dim ObjSub As New ClsSubProyectos - If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa) Then - If ObjSub.DtResultados.Rows.Count > 0 Then - LblNoTimbradas.Text = ObjSub.DtResultados.Rows.Count - GvNoTimbradasCentroCosto.DataSource = ObjSub.DtResultados - - RegistraScript("$('#ModalNoTimbradasCentroCosto').modal('show');", "showmodal2Incons") - End If - End If - ObjSub.Dispose() - GvNoTimbradasCentroCosto.DataBind() - End Sub - - Private Sub CargaSubProyectos() - DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlSubproyectos.DataBind() - DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubproyectos.SelectedIndex = 0 - End Sub - - Private Sub CargaGraficas() - - ' sino tiene permisos, no genera trabajo - If Not (UsuarioActual.TienePermisoIndicador(1) OrElse UsuarioActual.TienePermisoIndicador(2) OrElse - UsuarioActual.TienePermisoIndicador(3) OrElse UsuarioActual.TienePermisoIndicador(4) OrElse - UsuarioActual.TienePermisoIndicador(5) OrElse UsuarioActual.TienePermisoIndicador(6) OrElse - UsuarioActual.TienePermisoIndicador(7) OrElse UsuarioActual.TienePermisoIndicador(8)) Then - Exit Sub - End If - - DivIndicadores.InnerHtml = "" - Dim dtIndicadores As DataTable = Nothing - Dim dtVentas As DataTable = Nothing - Dim dtBancos As DataTable = Nothing - Dim dtRH As DataTable = Nothing - Dim dtBancosCuentas As DataTable = Nothing - - Dim Gral As New ClsGenerales - Dim ds As DataSet = Gral.GetIndicadores(UsuarioActual.CveEmpresa) - - If ds IsNot Nothing AndAlso ds.Tables.Count > 0 Then - - dtIndicadores = ds.Tables(0) - dtBancos = ds.Tables(1) - dtBancosCuentas = ds.Tables(2) - dtVentas = ds.Tables(3) - dtRH = ds.Tables(4) - - Graficas.Visible = True - DivIndicadores.Visible = True - - End If - Gral.Dispose() - - If dtIndicadores IsNot Nothing AndAlso dtIndicadores.Rows.Count > 0 Then - - Dim dr As DataRow = dtIndicadores.Rows(0) - - Select Case DdlFiltroIndicador.SelectedValue - Case "Ger" - - - If UsuarioActual.TienePermisoIndicador(1) Then - MuestraIndicador(DivIndicadores, "blue", "fa fa-automobile", "Ventas", dr("TotalVentas").ToString.FormatoNumero(0), "/Ventas/RepVentas.aspx", "Mes actual", dr("TotalVentasAcumulado").ToString.FormatoNumero(0), "link", "Anual") - End If - - If UsuarioActual.TienePermisoIndicador(2) Then - MuestraIndicador(DivIndicadores, "red-intense", "fa fa-bar-chart-o", "Compras", dr("TotalCompras").ToString.FormatoNumero(0), "/Compras/RepCompras.aspx", "Total Compras", dr("CxPVencido").ToString.FormatoNumero(0), "link", "Saldo Vencido", dr("CxPPorVencer").ToString.FormatoNumero(0), "link", "Saldo por vencer") - End If - - If UsuarioActual.TienePermisoIndicador(3) Then - MuestraIndicador(DivIndicadores, "green-haze", "fa fa-shopping-cart", "Bancos", String.Format("${0}", dr("TotalBancos").ToString.FormatoNumero), "/Bancos/RepSaldos.aspx", "") - End If - - If UsuarioActual.TienePermisoIndicador(4) Then - MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Crédito", String.Format("${0}", dr("TotalCredito").ToString.FormatoNumero), "", "") - End If - - If UsuarioActual.TienePermisoIndicador(5) Then - MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Inventario", String.Format("${0}", dr("TotalAlmacen").ToString.FormatoNumero), "/Inventarios/RepAlmacen.aspx", "") - End If - - If UsuarioActual.TienePermisoIndicador(6) Then - MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Impuestos", String.Format("${0}", dr("TotalImpuestos").ToString.FormatoNumero), "", "") - - End If - If UsuarioActual.TienePermisoIndicador(13) Then - MuestraIndicador(DivIndicadores, "blue", "fa fa-globe", "Orden Producción", String.Format("{0}%", dr("TotalPorcentaje").ToString.FormatoNumero), "/CGame/RepAvance.aspx?Opcion=1", "") - - End If - End Select - - If UsuarioActual.CveRol = 1 Then - - Select Case DdlFiltroIndicador.SelectedValue - Case "RH" - MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.") - MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Faltas", dr("RH_FaltasAnual").ToString.FormatoNumero(0), "", "Anual", dr("RH_FaltasMensual").ToString.FormatoNumero(0), "link", "Faltas Mensual", dr("RH_FaltasDia").ToString.FormatoNumero(0), "link", "Faltas de hoy") - MuestraIndicador(DivIndicadores, "red-intense", "fa fa-globe", "Ausentismo", "8.23%", "", "") - MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Rotación", "18.23%", "", "") - MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Uniformes", "Diciembre: 29", "", "") - 'MuestraGrafica(div_RHInd1, dtRH, "Sucursal", "Personal", "", "", "gh21", "") - GeneraGraficaRH(dtRH, "Personal Requerido", "por centro de costo") - GeneraGraficaRH2(dtRH, "Personal Actual", "por centro de costo") - divGraficas1.Visible = True - Case "Ger" - MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.") - - End Select - - End If - - 'End If - - End If - - If UsuarioActual.TienePermisoIndicador(7) Then - DvGraVentas.Visible = True - MuestraGrafica(div_ventas, dtVentas, "NombreMes", "Importe", "", "", "gh2", "$M") - Else - DvGraVentas.Visible = False - End If - - If UsuarioActual.TienePermisoIndicador(8) Then - DvGraBancos.Visible = True - - If dtBancos IsNot Nothing Then - MuestraGrafica(div_bancos, dtBancos, dtBancosCuentas, "NombreMes", "Importe", "", "", "gh1", "$", dtBancos.AVG("Importe").ToString.FormatoNumero) - End If - Else - DvGraBancos.Visible = False - End If - - Select Case DdlFiltroIndicador.SelectedValue - Case "Ger" - DvGraBancos.Visible = True - DvGraVentas.Visible = True - DivRHInd.Visible = False - Case "RH" - DivRHInd.Visible = True - DvGraBancos.Visible = False - DvGraVentas.Visible = False - End Select - - dtIndicadores = Nothing - dtBancos = Nothing - dtBancosCuentas = Nothing - dtVentas = Nothing - dtRH = Nothing - - End Sub - - Private Sub GeneraGraficaRH(data As DataTable, Titulo As String, SubTitulo As String) - 'remueve la columna CveSucursal - data.Columns.RemoveAt(0) - - Dim json As String = ToJsonString(GraficaStandarB(data, "column", Titulo, $"
    {SubTitulo}
    ", False)) - Dim json2 As String = ToJsonString(GraficaStandar(data, "column", Titulo, $"
    {SubTitulo}
    ", True)) - 'Literal1.Text = json - RegistraScript(String.Format("function CargaGrafica() {{$('#{2}').highcharts({0});}}function CargaGrafica2() {{$('#{2}').highcharts({1});}} CargaGrafica();", json, json2, div_RHInd1.ClientID), "grh1") - - End Sub - - Private Sub GeneraGraficaRH2(data As DataTable, Titulo As String, SubTitulo As String) - 'remueve la columna CveSucursal - 'data.Columns.RemoveAt(0) - data.Columns.RemoveAt(2) - - Dim json As String = ToJsonString(GraficaStandarB(data, "column", Titulo, $"
    {SubTitulo}
    ", False)) - 'Dim json2 As String = ToJsonString(GraficaStandar(data, "column", Titulo, $"
    {SubTitulo}
    ", True)) - 'Literal1.Text = json - RegistraScript(String.Format("function CargaGrafica3() {{$('#{2}').highcharts({0});}}function CargaGrafica4() {{$('#{2}').highcharts({1});}} CargaGrafica3();", json, "", divRHGrafica2.ClientID), "grh2") - - End Sub - - Private Sub CargaTareas() - Dim ObjProspectos As New ClsOIEventos - - Dim FechaI, FechaF As DateTime - Dim CveEventoEstatus As Integer = -1 - FechaI = Now.AddDays(-180) - FechaF = Now - If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then - - Dim DT As DataTable = ObjProspectos.DtResultados.Clone - - If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario))) - If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario))) - - GvT.DataSource = DT - End If - - ObjProspectos.Dispose() - GvT.DataBind() - End Sub - Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Select Case UsuarioActual.CveUsuario.ToString - Case e.Row.DBCampo("CveUsuarioPara") - 'etiqueta de 'asignado' - e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning " - e.Row.FCLabel("LblTipo").Text = "por hacer " - Case e.Row.DBCampo("CveUsuarioDe") - e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" - e.Row.FCLabel("LblTipo").Text = "Asigné" - End Select - End If - End Sub - Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String, Link As String, TitleComentario As String) - Dim htmldiv As New StringBuilder - htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) - htmldiv.AppendFormat("
    {0}
    Ver Más
    ", Link) - DIV.InnerHtml = htmldiv.ToString - End Sub - Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String) - Dim htmldiv As New StringBuilder - htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) - htmldiv.AppendFormat("
    {0}
    ", Titulo) - htmldiv.AppendFormat("", CT1, C1) - htmldiv.AppendFormat("", CT2, C2) - htmldiv.Append("
    Ver Más ") - htmldiv.AppendFormat("
    • {1}
    • {3}
      • ", CL1, CT1, CL2, CT2) - htmldiv.Append("
    ") - DIV.InnerHtml = htmldiv.ToString - End Sub - Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String, C3 As String, CL3 As String, CT3 As String) - Dim htmldiv As New StringBuilder - htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) - htmldiv.AppendFormat("
    {0}
    ", Titulo) - htmldiv.AppendFormat("", CT1, C1) - htmldiv.AppendFormat("", CT2, C2) - htmldiv.AppendFormat("", CT3, C3) - htmldiv.Append("
    Ver Más ") - htmldiv.AppendFormat("
    • {1}
    • {3}
    • {5}
      • ", CL1, CT1, CL2, CT2, CL3, CT3) - htmldiv.Append("
    ") - DIV.InnerHtml = htmldiv.ToString - End Sub - Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String, C3 As String, CL3 As String, CT3 As String, C4 As String, CL4 As String, CT4 As String) - Dim htmldiv As New StringBuilder - htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) - htmldiv.AppendFormat("
    {0}
    ", Titulo, CT1, C1) - htmldiv.AppendFormat("", CT2, C2) - htmldiv.AppendFormat("", CT3, C3) - htmldiv.AppendFormat("", CT4, C4) - htmldiv.AppendFormat("
    Ver Más
    ", CL1) - DIV.InnerHtml = htmldiv.ToString - End Sub - Private Sub MuestraGrafica(divcontainer As HtmlGenericControl, DTDatos As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Optional Indicador As String = "gh", Optional XReferencia As String = "", Optional YReferencia As String = "") - Dim Info As String = "" - Dim SBJSScript As New StringBuilder - If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then - For Each DbRow As DataRow In DTDatos.Rows - Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) - Next - Info = Info.Remove(Info.Length - 1, 1) - SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia) - Else - SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, " ", XReferencia) - End If - RegistraScript(SBJSScript.ToString, Indicador) - End Sub - Private Sub MuestraGrafica(divcontainer As HtmlGenericControl, DTDatos As DataTable, DTPie As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Indicador As String, XReferencia As String, Promedio As String, Optional YReferencia As String = "") - Dim SBPie1 As New StringBuilder - Dim SBPie2 As New StringBuilder - Dim Info As String = "" - Dim SBJSScript As New StringBuilder - If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then - For Each DbRow As DataRow In DTDatos.Rows - Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) - Next - Info = Info.Remove(Info.Length - 1, 1) - End If - For Each DbRow As DataRow In DTPie.Rows - If DbRow("Importe").ToString.ToDouble > 0 Then SBPie1.AppendFormat("{{ name:'{1}- {2}',y:{0} }},", DbRow("Importe"), DbRow("Banco"), DbRow("NumCuenta")) - Next - - 'pesos y dolares - Dim Dolares As Double = DTPie.SUM("Importe", "CveMoneda = 2") - - If Dolares > 0 Then - SBPie2.AppendFormat("{{ name:'Dólares',y:{0} }},", Dolares) - SBPie2.AppendFormat("{{ name:'Pesos',y:{0} }},", DTPie.SUM("Importe", "CveMoneda = 1")) - End If - - If SBPie1.Length > 2 Then SBPie1 = SBPie1.Remove(SBPie1.Length - 1, 1) - If SBPie2.Length > 2 Then SBPie2 = SBPie2.Remove(SBPie2.Length - 1, 1) - SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, SBPie1, SBPie2) - - RegistraScript(SBJSScript.ToString, Indicador) - End Sub - Private Sub MuestraGrafica(DTDatos As DataTable, ColTitle As String, ColValue As String, TipoDato As String, DivId As String) - Dim Info As String = "" - If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then - For Each DbRow As DataRow In DTDatos.Rows - Info = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info) - Next - - Info = Info.Remove(Info.Length - 1, 1) - Dim SBJSScript As New StringBuilder - SBJSScript.AppendFormat("var datos=[{0}];graficaindex(datos,'{1}','{2}');", Info, DivId, TipoDato) - RegistraScript(SBJSScript.ToString, "g1") - End If - - End Sub - Private Sub MuestraGrafica(DTDatos As DataTable, DTDatos2 As DataTable, ColTitle As String, ColValue As String, TipoDato As String, DivId As String) - Dim Info As String = "" - Dim Info2 As String = "" - For Each DbRow As DataRow In DTDatos.Rows - Info = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info) - Next - For Each DbRow As DataRow In DTDatos2.Rows - Info2 = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info2) - Next - Info2 = Info2.Remove(Info2.Length - 1, 1) - Info = Info.Remove(Info.Length - 1, 1) - Dim SBJSScript As New StringBuilder - SBJSScript.AppendFormat("var datos=[{0}];var datos2=[{3}];graficaindex2(datos,'{1}','{2}',datos2);", Info, DivId, TipoDato, Info2) - RegistraScript(SBJSScript.ToString, "g2") - End Sub - Private Sub MuestraGraficaRM(divcontainer As HtmlGenericControl, DTDatos As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Optional Indicador As String = "gh", Optional XReferencia As String = "", Optional YReferencia As String = "") - Dim Info As String = "" - Dim SBJSScript As New StringBuilder - If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then - For Each DbRow As DataRow In DTDatos.Rows - Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) - Next - Info = Info.Remove(Info.Length - 1, 1) - SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia) - Else - SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, " ", XReferencia) - End If - RegistraScript(SBJSScript.ToString, Indicador) - End Sub - Private Function CargaSesionesActivas() As String - Dim SBSesiones As New StringBuilder - Try - - Dim DicSesiones As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) - - If DicSesiones IsNot Nothing Then - For Each DicItem As KeyValuePair(Of String, HttpSessionState) In DicSesiones - 'gv.Add(New String() With { _ - ' Key .SessionId = item.Key, _ - ' Key .SessionKey = Nothing, _ - ' Key .SessionValue = Nothing _ - '}) - SBSesiones.Append(DicItem.Key) - If DicItem.Value IsNot Nothing AndAlso DicItem.Value.Count > 0 Then - For Each DicKey As String In DicItem.Value.Keys - SBSesiones.Append(DicItem.Key) - SBSesiones.Append(DicKey) - SBSesiones.Append(If(DicItem.Value(DicKey) IsNot Nothing, DicItem.Value(DicKey).ToString(), String.Empty)) - 'gv.Add(New String() With { _ - ' Key .SessionId = item.Key, _ - ' Key .SessionKey = key, _ - ' Key .SessionValue = If(item.Value(key) IsNot Nothing, item.Value(key).ToString(), String.Empty) _ - '}) - Next - End If - SBSesiones.Append("
    ") - Next - - 'sessionValuesGrid.DataSource = gv - 'sessionValuesGrid.DataBind() - End If - Catch - End Try - Return SBSesiones.ToString + LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString + If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If objCompras.DtResultados.Rows.Count > 0 Then + GvCompPUE.DataSource = objCompras.DtResultados + + RegistraScript("$('#ModalComprasPUE').modal('show');", "showmodal3Incons") + End If + End If + + objCompras.Dispose() + GvCompPUE.DataBind() + End Sub + + Private Sub MuestraInconsistencias() + Dim ObjP As New ClsContabilidad + If ObjP.GetInconsistencias() Then + If ObjP.DtResultados.Rows.Count > 0 Then + LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count + GvIncons.DataSource = ObjP.DtResultados + + RegistraScript("$('#ModalInconsistencias').modal('show');", "showmodalIncons") + End If + End If + + ObjP.Dispose() + GvIncons.DataBind() + End Sub + + Private Sub MuestraNoTimbradasCentroCosto() + Dim ObjSub As New ClsSubProyectos + If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa) Then + If ObjSub.DtResultados.Rows.Count > 0 Then + LblNoTimbradas.Text = ObjSub.DtResultados.Rows.Count + GvNoTimbradasCentroCosto.DataSource = ObjSub.DtResultados + + RegistraScript("$('#ModalNoTimbradasCentroCosto').modal('show');", "showmodal2Incons") + End If + End If + ObjSub.Dispose() + GvNoTimbradasCentroCosto.DataBind() + End Sub + + Private Sub CargaSubProyectos() + DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubproyectos.DataBind() + DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSubproyectos.SelectedIndex = 0 + End Sub + + Private Sub CargaGraficas() + + ' sino tiene permisos, no genera trabajo + If Not (UsuarioActual.TienePermisoIndicador(1) OrElse UsuarioActual.TienePermisoIndicador(2) OrElse + UsuarioActual.TienePermisoIndicador(3) OrElse UsuarioActual.TienePermisoIndicador(4) OrElse + UsuarioActual.TienePermisoIndicador(5) OrElse UsuarioActual.TienePermisoIndicador(6) OrElse + UsuarioActual.TienePermisoIndicador(7) OrElse UsuarioActual.TienePermisoIndicador(8)) Then + Exit Sub + End If + + DivIndicadores.InnerHtml = "" + Dim dtIndicadores As DataTable = Nothing + Dim dtVentas As DataTable = Nothing + Dim dtBancos As DataTable = Nothing + Dim dtRH As DataTable = Nothing + Dim dtBancosCuentas As DataTable = Nothing + + Dim Gral As New ClsGenerales + Dim ds As DataSet = Gral.GetIndicadores(UsuarioActual.CveEmpresa) + + If ds IsNot Nothing AndAlso ds.Tables.Count > 0 Then + + dtIndicadores = ds.Tables(0) + dtBancos = ds.Tables(1) + dtBancosCuentas = ds.Tables(2) + dtVentas = ds.Tables(3) + dtRH = ds.Tables(4) + + Graficas.Visible = True + DivIndicadores.Visible = True + + End If + Gral.Dispose() + + If dtIndicadores IsNot Nothing AndAlso dtIndicadores.Rows.Count > 0 Then + + Dim dr As DataRow = dtIndicadores.Rows(0) + + Select Case DdlFiltroIndicador.SelectedValue + Case "Ger" + + + If UsuarioActual.TienePermisoIndicador(1) Then + MuestraIndicador(DivIndicadores, "blue", "fa fa-automobile", "Ventas", dr("TotalVentas").ToString.FormatoNumero(0), "/Ventas/RepVentas.aspx", "Mes actual", dr("TotalVentasAcumulado").ToString.FormatoNumero(0), "link", "Anual") + End If + + If UsuarioActual.TienePermisoIndicador(2) Then + MuestraIndicador(DivIndicadores, "red-intense", "fa fa-bar-chart-o", "Compras", dr("TotalCompras").ToString.FormatoNumero(0), "/Compras/RepCompras.aspx", "Total Compras", dr("CxPVencido").ToString.FormatoNumero(0), "link", "Saldo Vencido", dr("CxPPorVencer").ToString.FormatoNumero(0), "link", "Saldo por vencer") + End If + + If UsuarioActual.TienePermisoIndicador(3) Then + MuestraIndicador(DivIndicadores, "green-haze", "fa fa-shopping-cart", "Bancos", String.Format("${0}", dr("TotalBancos").ToString.FormatoNumero), "/Bancos/RepSaldos.aspx", "") + End If + + If UsuarioActual.TienePermisoIndicador(4) Then + MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Crédito", String.Format("${0}", dr("TotalCredito").ToString.FormatoNumero), "", "") + End If + + If UsuarioActual.TienePermisoIndicador(5) Then + MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Inventario", String.Format("${0}", dr("TotalAlmacen").ToString.FormatoNumero), "/Inventarios/RepAlmacen.aspx", "") + End If + + If UsuarioActual.TienePermisoIndicador(6) Then + MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Impuestos", String.Format("${0}", dr("TotalImpuestos").ToString.FormatoNumero), "", "") + + End If + If UsuarioActual.TienePermisoIndicador(13) Then + MuestraIndicador(DivIndicadores, "blue", "fa fa-globe", "Orden Producción", String.Format("{0}%", dr("TotalPorcentaje").ToString.FormatoNumero), "/CGame/RepAvance.aspx?Opcion=1", "") + + End If + End Select + + If UsuarioActual.CveRol = 1 Then + + Select Case DdlFiltroIndicador.SelectedValue + Case "RH" + MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.") + MuestraIndicador(DivIndicadores, "grey-cascade", "fa fa-globe", "Faltas", dr("RH_FaltasAnual").ToString.FormatoNumero(0), "", "Anual", dr("RH_FaltasMensual").ToString.FormatoNumero(0), "link", "Faltas Mensual", dr("RH_FaltasDia").ToString.FormatoNumero(0), "link", "Faltas de hoy") + MuestraIndicador(DivIndicadores, "red-intense", "fa fa-globe", "Ausentismo", "8.23%", "", "") + MuestraIndicador(DivIndicadores, "purple-plum", "fa fa-globe", "Rotación", "18.23%", "", "") + MuestraIndicador(DivIndicadores, "yellow", "fa fa-globe", "Uniformes", "Diciembre: 29", "", "") + 'MuestraGrafica(div_RHInd1, dtRH, "Sucursal", "Personal", "", "", "gh21", "") + GeneraGraficaRH(dtRH, "Personal Requerido", "por centro de costo") + GeneraGraficaRH2(dtRH, "Personal Actual", "por centro de costo") + divGraficas1.Visible = True + Case "Ger" + MuestraIndicador(DivIndicadores, "green-haze", "fa fa-bar-chart-o", "Plantilla", dr("RH_Personal_Total").ToString, "", "Total Personal", dr("RH_Personal_Adm").ToString.FormatoNumero(0), "link", "Per. Adm.", dr("RH_Personal_Guardia").ToString.FormatoNumero(0), "link", "Per. Guardia.") + + End Select + + End If + + 'End If + + End If + + If UsuarioActual.TienePermisoIndicador(7) Then + DvGraVentas.Visible = True + MuestraGrafica(div_ventas, dtVentas, "NombreMes", "Importe", "", "", "gh2", "$M") + Else + DvGraVentas.Visible = False + End If + + If UsuarioActual.TienePermisoIndicador(8) Then + DvGraBancos.Visible = True + + If dtBancos IsNot Nothing Then + MuestraGrafica(div_bancos, dtBancos, dtBancosCuentas, "NombreMes", "Importe", "", "", "gh1", "$", dtBancos.AVG("Importe").ToString.FormatoNumero) + End If + Else + DvGraBancos.Visible = False + End If + + Select Case DdlFiltroIndicador.SelectedValue + Case "Ger" + DvGraBancos.Visible = True + DvGraVentas.Visible = True + DivRHInd.Visible = False + Case "RH" + DivRHInd.Visible = True + DvGraBancos.Visible = False + DvGraVentas.Visible = False + End Select + + dtIndicadores = Nothing + dtBancos = Nothing + dtBancosCuentas = Nothing + dtVentas = Nothing + dtRH = Nothing + + End Sub + + Private Sub GeneraGraficaRH(data As DataTable, Titulo As String, SubTitulo As String) + 'remueve la columna CveSucursal + data.Columns.RemoveAt(0) + + Dim json As String = ToJsonString(GraficaStandarB(data, "column", Titulo, $"
    {SubTitulo}
    ", False)) + Dim json2 As String = ToJsonString(GraficaStandar(data, "column", Titulo, $"
    {SubTitulo}
    ", True)) + 'Literal1.Text = json + RegistraScript(String.Format("function CargaGrafica() {{$('#{2}').highcharts({0});}}function CargaGrafica2() {{$('#{2}').highcharts({1});}} CargaGrafica();", json, json2, div_RHInd1.ClientID), "grh1") + + End Sub + + Private Sub GeneraGraficaRH2(data As DataTable, Titulo As String, SubTitulo As String) + 'remueve la columna CveSucursal + 'data.Columns.RemoveAt(0) + data.Columns.RemoveAt(2) + + Dim json As String = ToJsonString(GraficaStandarB(data, "column", Titulo, $"
    {SubTitulo}
    ", False)) + 'Dim json2 As String = ToJsonString(GraficaStandar(data, "column", Titulo, $"
    {SubTitulo}
    ", True)) + 'Literal1.Text = json + RegistraScript(String.Format("function CargaGrafica3() {{$('#{2}').highcharts({0});}}function CargaGrafica4() {{$('#{2}').highcharts({1});}} CargaGrafica3();", json, "", divRHGrafica2.ClientID), "grh2") + + End Sub + + Private Sub CargaTareas() + Dim ObjProspectos As New ClsOIEventos + + Dim FechaI, FechaF As DateTime + Dim CveEventoEstatus As Integer = -1 + FechaI = Now.AddDays(-180) + FechaF = Now + If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then + + Dim DT As DataTable = ObjProspectos.DtResultados.Clone + + If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} ", UsuarioActual.CveUsuario))) + If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} ", UsuarioActual.CveUsuario))) + + GvT.DataSource = DT + End If + + ObjProspectos.Dispose() + GvT.DataBind() + End Sub + Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvT.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Select Case UsuarioActual.CveUsuario.ToString + Case e.Row.DBCampo("CveUsuarioPara") + 'etiqueta de 'asignado' + e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning " + e.Row.FCLabel("LblTipo").Text = "por hacer " + Case e.Row.DBCampo("CveUsuarioDe") + e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" + e.Row.FCLabel("LblTipo").Text = "Asigné" + End Select + End If + End Sub + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String, Link As String, TitleComentario As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
    {0}
    Ver Más
    ", Link) + DIV.InnerHtml = htmldiv.ToString + End Sub + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
    {0}
    ", Titulo) + htmldiv.AppendFormat("", CT1, C1) + htmldiv.AppendFormat("", CT2, C2) + htmldiv.Append("
    Ver Más ") + htmldiv.AppendFormat("
    • {1}
    • {3}
      • ", CL1, CT1, CL2, CT2) + htmldiv.Append("
    ") + DIV.InnerHtml = htmldiv.ToString + End Sub + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String, C3 As String, CL3 As String, CT3 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
    {0}
    ", Titulo) + htmldiv.AppendFormat("", CT1, C1) + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", CT3, C3) + htmldiv.Append("
    Ver Más ") + htmldiv.AppendFormat("
    • {1}
    • {3}
    • {5}
      • ", CL1, CT1, CL2, CT2, CL3, CT3) + htmldiv.Append("
    ") + DIV.InnerHtml = htmldiv.ToString + End Sub + Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CL1 As String, CT1 As String, C2 As String, CL2 As String, CT2 As String, C3 As String, CL3 As String, CT3 As String, C4 As String, CL4 As String, CT4 As String) + Dim htmldiv As New StringBuilder + htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) + htmldiv.AppendFormat("
    {0}
    ", Titulo, CT1, C1) + htmldiv.AppendFormat("", CT2, C2) + htmldiv.AppendFormat("", CT3, C3) + htmldiv.AppendFormat("", CT4, C4) + htmldiv.AppendFormat("
    Ver Más
    ", CL1) + DIV.InnerHtml = htmldiv.ToString + End Sub + Private Sub MuestraGrafica(divcontainer As HtmlGenericControl, DTDatos As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Optional Indicador As String = "gh", Optional XReferencia As String = "", Optional YReferencia As String = "") + Dim Info As String = "" + Dim SBJSScript As New StringBuilder + If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then + For Each DbRow As DataRow In DTDatos.Rows + Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) + Next + Info = Info.Remove(Info.Length - 1, 1) + SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia) + Else + SBJSScript.AppendFormat("graficahighcharts('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, " ", XReferencia) + End If + RegistraScript(SBJSScript.ToString, Indicador) + End Sub + Private Sub MuestraGrafica(divcontainer As HtmlGenericControl, DTDatos As DataTable, DTPie As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Indicador As String, XReferencia As String, Promedio As String, Optional YReferencia As String = "") + Dim SBPie1 As New StringBuilder + Dim SBPie2 As New StringBuilder + Dim Info As String = "" + Dim SBJSScript As New StringBuilder + If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then + For Each DbRow As DataRow In DTDatos.Rows + Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) + Next + Info = Info.Remove(Info.Length - 1, 1) + End If + For Each DbRow As DataRow In DTPie.Rows + If DbRow("Importe").ToString.ToDouble > 0 Then SBPie1.AppendFormat("{{ name:'{1}- {2}',y:{0} }},", DbRow("Importe"), DbRow("Banco"), DbRow("NumCuenta")) + Next + + 'pesos y dolares + Dim Dolares As Double = DTPie.SUM("Importe", "CveMoneda = 2") + + If Dolares > 0 Then + SBPie2.AppendFormat("{{ name:'Dólares',y:{0} }},", Dolares) + SBPie2.AppendFormat("{{ name:'Pesos',y:{0} }},", DTPie.SUM("Importe", "CveMoneda = 1")) + End If + + If SBPie1.Length > 2 Then SBPie1 = SBPie1.Remove(SBPie1.Length - 1, 1) + If SBPie2.Length > 2 Then SBPie2 = SBPie2.Remove(SBPie2.Length - 1, 1) + SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, SBPie1, SBPie2) + + RegistraScript(SBJSScript.ToString, Indicador) + End Sub + Private Sub MuestraGrafica(DTDatos As DataTable, ColTitle As String, ColValue As String, TipoDato As String, DivId As String) + Dim Info As String = "" + If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then + For Each DbRow As DataRow In DTDatos.Rows + Info = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info) + Next + + Info = Info.Remove(Info.Length - 1, 1) + Dim SBJSScript As New StringBuilder + SBJSScript.AppendFormat("var datos=[{0}];graficaindex(datos,'{1}','{2}');", Info, DivId, TipoDato) + RegistraScript(SBJSScript.ToString, "g1") + End If + + End Sub + Private Sub MuestraGrafica(DTDatos As DataTable, DTDatos2 As DataTable, ColTitle As String, ColValue As String, TipoDato As String, DivId As String) + Dim Info As String = "" + Dim Info2 As String = "" + For Each DbRow As DataRow In DTDatos.Rows + Info = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info) + Next + For Each DbRow As DataRow In DTDatos2.Rows + Info2 = String.Format("{2}['{0}',{1}],", DbRow(ColTitle), DbRow(ColValue), Info2) + Next + Info2 = Info2.Remove(Info2.Length - 1, 1) + Info = Info.Remove(Info.Length - 1, 1) + Dim SBJSScript As New StringBuilder + SBJSScript.AppendFormat("var datos=[{0}];var datos2=[{3}];graficaindex2(datos,'{1}','{2}',datos2);", Info, DivId, TipoDato, Info2) + RegistraScript(SBJSScript.ToString, "g2") + End Sub + Private Sub MuestraGraficaRM(divcontainer As HtmlGenericControl, DTDatos As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Optional Indicador As String = "gh", Optional XReferencia As String = "", Optional YReferencia As String = "") + Dim Info As String = "" + Dim SBJSScript As New StringBuilder + If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then + For Each DbRow As DataRow In DTDatos.Rows + Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info) + Next + Info = Info.Remove(Info.Length - 1, 1) + SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia) + Else + SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}');", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, " ", XReferencia) + End If + RegistraScript(SBJSScript.ToString, Indicador) + End Sub + Private Function CargaSesionesActivas() As String + Dim SBSesiones As New StringBuilder + Try + + Dim DicSesiones As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) + + If DicSesiones IsNot Nothing Then + For Each DicItem As KeyValuePair(Of String, HttpSessionState) In DicSesiones + 'gv.Add(New String() With { _ + ' Key .SessionId = item.Key, _ + ' Key .SessionKey = Nothing, _ + ' Key .SessionValue = Nothing _ + '}) + SBSesiones.Append(DicItem.Key) + If DicItem.Value IsNot Nothing AndAlso DicItem.Value.Count > 0 Then + For Each DicKey As String In DicItem.Value.Keys + SBSesiones.Append(DicItem.Key) + SBSesiones.Append(DicKey) + SBSesiones.Append(If(DicItem.Value(DicKey) IsNot Nothing, DicItem.Value(DicKey).ToString(), String.Empty)) + 'gv.Add(New String() With { _ + ' Key .SessionId = item.Key, _ + ' Key .SessionKey = key, _ + ' Key .SessionValue = If(item.Value(key) IsNot Nothing, item.Value(key).ToString(), String.Empty) _ + '}) + Next + End If + SBSesiones.Append("
    ") + Next + + 'sessionValuesGrid.DataSource = gv + 'sessionValuesGrid.DataBind() + End If + Catch + End Try + Return SBSesiones.ToString End Function -#Region " FULL CALENDAR " - Private Sub InicializaCalendar() - RegistraScript("InitCalendar();") - - HdnU.Value = UsuarioActual.CveUsuario.ToString - HdnE.Value = UsuarioActual.CveEmpresa.ToString - - DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True - CargaTiposAgenda() - CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);") - End Sub - Private Sub CargaTiposAgenda() - Dim ObjEventos As New ClsOIEventos - - If ObjEventos.GetAgendaTipo() Then - DdlAgedaTipo.DataSource = ObjEventos.DtResultados - DdlAgedaTipo.DataBind() - DdlAgedaTipo.Items.Insert(0, New ListItem("Seleccione", "-1")) - Else - Alert("Ocurrió un error al obtener los tipos de agenda. Por favor recargue la página", TipoMensaje.MsgError) - End If - - ObjEventos.Dispose() - End Sub - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - Dim ObjEventos As New ClsOIEventos - - Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() - Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() - - RegistraScript("GetView();") - - Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" - If CheckRecurrencia.Checked Then - RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero - Frecuencia = TxtFrecuencia.Text.ToEntero - - 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA - Select Case RecurrenciaTipo - Case 3 - Dim StringDias = "" - For Each item As ListItem In CheckDiasSemana.Items - If item.Selected Then - If StringDias.Length > 0 Then - StringDias += "," - End If - StringDias += item.Value - End If - Next - If StringDias.Length > 0 Then - DiasSemana = StringDias - End If - End Select - - - 'If RBSinFechaFinAdd.Checked Then - ' RecurrenciaFin = "-1" - 'Else - If RBNumeroOcurrencias.Checked Then - RecurrenciaFin = TxtNumeroOcurrencias.Text - ElseIf RBFechaFin.Checked Then - RecurrenciaFin = TxtFechaFinRecurrencia.Text - Else - RecurrenciaFin = "-1" - End If - Else - If HdnCveEvento.Value.ToEntero > 0 Then - Frecuencia = -2 : DiasSemana = "-2" : Dias = -2 : Mes = -2 : RecurrenciaFin = "-2" - End If - End If - - '11/05/2018 - GASTO RECURRENTE - Dim CveTipoEvento As Integer = IIf(ChkGastoRecurrente.Checked, 10, 2).ToString().ToEntero() - Dim Importe As Double = Convert.ToDouble(IIf(ChkGastoRecurrente.Checked, TxtImporteGastoRecurrente.Text, "-1")) - - If HdnCveEvento.Value.ToEntero > 0 Then - If ObjEventos.UpdateEvento(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, DdlAgedaTipo.SelectedValue.ToEntero, -1, FechaInicio, FechaFin, -1, "-1", HdnCveEvento.Value.ToEntero, "-1", - RecurrenciaTipo, Frecuencia, DiasSemana, Dias, Mes, RecurrenciaFin, Importe:=Importe) Then - Alert("El Evento se actualizó correctamente", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al actualizar el evento", TipoMensaje.MsgAdvertencia) - End If - Else - If ObjEventos.AddEventoAgenda(DdlAgedaTipo.SelectedValue.ToEntero, TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) Then - - Alert("El Evento se guardó correctamente", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al Guardar el evento", TipoMensaje.MsgAdvertencia) - End If - End If - - ObjEventos.Dispose() - RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234") - LimpiaModalAgenda() - - End Sub - Private Sub LimpiaModalAgenda() - TxtDescripcionAgenda.Text = "" - TxtAsuntoAgenda.Text = "" - DdlPrioridad.SelectedValue = "1" - TxtNumeroOcurrencias.Text = "" - TxtFechaFinRecurrencia.Text = "" - RBFechaFin.Checked = False - RBNumeroOcurrencias.Checked = False - RBLRecurrencia.SelectedValue = "1" - CheckDiasSemana.ClearSelection() - RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) - TxtFrecuencia.Text = "1" - End Sub - - Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) - - Dim ObjEventos As New ClsOIEventos - RegistraScript("GetView();") - - If ObjEventos.RemoveEvento(HdnCveEvento.Value.ToEntero, UsuarioActual.CveEmpresa) Then - RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234") - Alert("El evento se eliminó correctamente", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al eliminar el evento, por favor intente de nuevo.", TipoMensaje.MsgError) - End If - - ObjEventos.Dispose() - End Sub - - - Public Shared Function EliminaEvento(CveEvento As Integer, CveEmpresa As Integer) As String - Dim ObjEventos As New ClsOIEventos - - ObjEventos.RemoveEvento(CveEvento, CveEmpresa) - - ObjEventos.Dispose() - Return CveEvento.ToString - End Function - - - Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String - Dim ObjEventos As New ClsOIEventos - - Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime - Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime - - If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then - End If - - ObjEventos.Dispose() - Return "a" - End Function - Protected Sub RBLRecurrencia_SelectedIndexChanged(sender As Object, e As EventArgs) - Select Case RBLRecurrencia.SelectedValue.ToEntero - Case 1 - LblTextoFrecuencia.Text = "Hora(s)" - TrDiasSemanaAdd.Style("display") = "none" - Case 2 - LblTextoFrecuencia.Text = "Dia(s)" - TrDiasSemanaAdd.Style("display") = "none" - Case 3 - LblTextoFrecuencia.Text = "Semana(s)" - TrDiasSemanaAdd.Style("display") = "block" - - 'Chequea los dias seleccionados en la recurrencia - For Each item As ListItem In CheckDiasSemana.Items - If HdnDiasSemanaAgendar.Value.Contains(item.Value) Then - item.Selected = True - Else - item.Selected = False - End If - Next - Case 4 - LblTextoFrecuencia.Text = "Mes(es)" - TrDiasSemanaAdd.Style("display") = "none" - Case 5 - LblTextoFrecuencia.Text = "Año(s)" - TrDiasSemanaAdd.Style("display") = "none" - Case Else - End Select - UpRecurrencia.Update() - End Sub - Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs) - RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) - End Sub -#End Region +#Region " FULL CALENDAR " + Private Sub InicializaCalendar() + RegistraScript("InitCalendar();") - Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged - CargaTareas() - End Sub - Protected Sub DdlFiltroIndicador_SelectedIndexChanged(sender As Object, e As EventArgs) - - End Sub - Protected Sub BtnIndicador_Click(sender As Object, e As EventArgs) + HdnU.Value = UsuarioActual.CveUsuario.ToString + HdnE.Value = UsuarioActual.CveEmpresa.ToString + + DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True + CargaTiposAgenda() + CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);") + End Sub + Private Sub CargaTiposAgenda() + Dim ObjEventos As New ClsOIEventos + + If ObjEventos.GetAgendaTipo() Then + DdlAgedaTipo.DataSource = ObjEventos.DtResultados + DdlAgedaTipo.DataBind() + DdlAgedaTipo.Items.Insert(0, New ListItem("Seleccione", "-1")) + Else + Alert("Ocurrió un error al obtener los tipos de agenda. Por favor recargue la página", TipoMensaje.MsgError) + End If + + ObjEventos.Dispose() + End Sub + Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) + Dim ObjEventos As New ClsOIEventos + + Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() + Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() + + RegistraScript("GetView();") + + Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" + If CheckRecurrencia.Checked Then + RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero + Frecuencia = TxtFrecuencia.Text.ToEntero + + 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA + Select Case RecurrenciaTipo + Case 3 + Dim StringDias = "" + For Each item As ListItem In CheckDiasSemana.Items + If item.Selected Then + If StringDias.Length > 0 Then + StringDias += "," + End If + StringDias += item.Value + End If + Next + If StringDias.Length > 0 Then + DiasSemana = StringDias + End If + End Select + + + 'If RBSinFechaFinAdd.Checked Then + ' RecurrenciaFin = "-1" + 'Else + If RBNumeroOcurrencias.Checked Then + RecurrenciaFin = TxtNumeroOcurrencias.Text + ElseIf RBFechaFin.Checked Then + RecurrenciaFin = TxtFechaFinRecurrencia.Text + Else + RecurrenciaFin = "-1" + End If + Else + If HdnCveEvento.Value.ToEntero > 0 Then + Frecuencia = -2 : DiasSemana = "-2" : Dias = -2 : Mes = -2 : RecurrenciaFin = "-2" + End If + End If + + '11/05/2018 - GASTO RECURRENTE + Dim CveTipoEvento As Integer = IIf(ChkGastoRecurrente.Checked, 10, 2).ToString().ToEntero() + Dim Importe As Double = Convert.ToDouble(IIf(ChkGastoRecurrente.Checked, TxtImporteGastoRecurrente.Text, "-1")) + + If HdnCveEvento.Value.ToEntero > 0 Then + If ObjEventos.UpdateEvento(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, DdlAgedaTipo.SelectedValue.ToEntero, -1, FechaInicio, FechaFin, -1, "-1", HdnCveEvento.Value.ToEntero, "-1", + RecurrenciaTipo, Frecuencia, DiasSemana, Dias, Mes, RecurrenciaFin, Importe:=Importe) Then + Alert("El Evento se actualizó correctamente", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al actualizar el evento", TipoMensaje.MsgAdvertencia) + End If + Else + If ObjEventos.AddEventoAgenda(DdlAgedaTipo.SelectedValue.ToEntero, TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe) Then + + Alert("El Evento se guardó correctamente", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al Guardar el evento", TipoMensaje.MsgAdvertencia) + End If + End If + + ObjEventos.Dispose() + RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234") + LimpiaModalAgenda() + + End Sub + Private Sub LimpiaModalAgenda() + TxtDescripcionAgenda.Text = "" + TxtAsuntoAgenda.Text = "" + DdlPrioridad.SelectedValue = "1" + TxtNumeroOcurrencias.Text = "" + TxtFechaFinRecurrencia.Text = "" + RBFechaFin.Checked = False + RBNumeroOcurrencias.Checked = False + RBLRecurrencia.SelectedValue = "1" + CheckDiasSemana.ClearSelection() + RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) + TxtFrecuencia.Text = "1" End Sub -#Region "DIRECTORIO TELEFONICO" - Private Sub CargaDirectorioTelefonico() - Dim ObjPersonal As New ClsRH - - Me.RegistraScript("$get('DivActualizarEvento').style.display = 'true';") - '$get('DivActualizarEvento').style.display = 'none'; - - If ObjPersonal.DirectorioTelefonicoGet(UsuarioActual.CveEmpresa) Then - GvDirectorio.DataSource = ObjPersonal.DtResultados - End If - - GvDirectorio.Columns(2).Visible = False - - ' 8/10/2018 - Se omite validacion de visibilidad de Columna Telefono Personal solo para usuario Dennise Cruz - 'If UsuarioActual.CveUsuario = 1781 Then - ' GvDirectorio.Columns(5).Visible = True - 'Else - ' GvDirectorio.Columns(5).Visible = False - 'End If - - ObjPersonal.Dispose() - GvDirectorio.DataBind() - UPDatosDirectorio.Update() - End Sub - - Protected Sub GvDirectorio_RowDataBound(sender As Object, e As GridViewRowEventArgs) - - If e.Row.RowType = DataControlRowType.DataRow Then - If String.IsNullOrEmpty(e.Row.DBCampo("CvePersonal")) Then - e.Row.Style("background-color") = "#F1B168" - 'e.Row.FCHyperLink("HypDeptoPersonal").Style("text-decoration") = "none" - 'e.Row.FCHyperLink("HypDeptoPersonal").ForeColor = Drawing.Color.Black - Else - 'e.Row.FCHyperLink("HypDeptoPersonal").NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal")) - End If - End If - - - End Sub -#End Region + Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) -#Region "Metodos Graficar" - Public Function GraficaLineas(data As DataTable, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional SinCols As String = "0", Optional VerValor As Boolean = False, Optional G1 As Boolean = False) As HighChart - Dim grafica As New HighChart - If Not IsNothing(data) Then - - grafica.chart = New Chart - grafica.chart.type = "line" - grafica.title = New Title - grafica.title.text = Titulo - grafica.subtitle = New Title - grafica.subtitle.text = Subtitulo - grafica.subtitle.useHTML = True - grafica.yAxis = New Axis - grafica.yAxis.title = New Title - grafica.yAxis.title.text = " " - grafica.xAxis = New Axis - If VerValor Then - grafica.plotOptions = New PlotOptions - grafica.plotOptions.line = New Line - grafica.plotOptions.line.dataLabels = New DataLabels - grafica.plotOptions.line.dataLabels.enabled = True - End If - grafica.xAxis.categories = New List(Of String) - - Dim index As Integer = 0 - Dim contador As Integer = 0 - For Each col As DataColumn In data.Columns - - If contador = 0 Then - index = contador - Else - grafica.xAxis.categories.Add(col.ColumnName) - End If - contador += 1 - - Next - grafica.series = New List(Of Series) - - For Each row As DataRow In data.Rows - Dim serie As New Series - serie.data = New List(Of Object) - Dim anterior As Double = 0 - For i As Integer = 0 To data.Columns.Count - 1 - If i = index Then - serie.name = row(i).ToString() - Else - Dim actual = row(i).ToString().ToDouble - serie.data.Add(actual) - anterior = actual - End If - Next - grafica.series.Add(serie) - Next - - End If - Return grafica - End Function - Public Function GraficaStandar(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart - Dim grafica As New HighChart - If Not IsNothing(data) Then - - grafica.chart = New Chart - grafica.chart.type = charttype - grafica.title = New Title - grafica.title.text = Titulo - grafica.subtitle = New Title - grafica.subtitle.text = Subtitulo - grafica.subtitle.useHTML = True - grafica.yAxis = New Axis - grafica.yAxis.title = New Title - grafica.yAxis.title.text = " " - grafica.xAxis = New Axis - grafica.xAxis.categories = New List(Of String) - - Dim index As Integer = 0 - Dim contador As Integer = 0 - - If charttype = "bar" Then - For Each col As DataRow In data.Rows - grafica.xAxis.categories.Add(col(0).ToString) - contador += 1 - - Next - grafica.series = New List(Of Series) - - For i As Integer = 1 To data.Columns.Count - 1 - Dim serie As New Series - serie.data = New List(Of Object) - serie.name = data.Columns(i).ColumnName - For Each row As DataRow In data.Rows - serie.data.Add(row(i).ToString().ToDouble) - Next - If VerValor Then - - serie.dataLabels = New DataLabels - serie.dataLabels.enabled = True - End If - grafica.series.Add(serie) - Next - - Else - For Each col As DataColumn In data.Columns - - If contador = 0 Then - index = contador - Else - grafica.xAxis.categories.Add(col.ColumnName) - End If - contador += 1 - - Next - grafica.series = New List(Of Series) - - For Each row As DataRow In data.Rows - Dim serie As New Series - serie.data = New List(Of Object) - For i As Integer = 0 To data.Columns.Count - 1 - If i = index Then - serie.name = row(i).ToString() - Else - serie.data.Add(row(i).ToString().ToDouble) - End If - Next - If VerValor Then - - serie.dataLabels = New DataLabels - serie.dataLabels.enabled = True - End If - grafica.series.Add(serie) - Next - End If - End If - Return grafica - End Function - Public Function GraficaStandarB(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart - Dim grafica As New HighChart - If Not IsNothing(data) Then - - grafica.chart = New Chart - grafica.chart.type = charttype - grafica.title = New Title - grafica.title.text = Titulo - grafica.subtitle = New Title - grafica.subtitle.text = Subtitulo - grafica.subtitle.useHTML = True - grafica.yAxis = New Axis - grafica.yAxis.title = New Title - grafica.yAxis.title.text = " " - grafica.xAxis = New Axis - grafica.xAxis.categories = New List(Of String) - - Dim index As Integer = 0 - Dim contador As Integer = 0 - - If charttype = "bar" Then - For Each col As DataRow In data.Rows - - grafica.xAxis.categories.Add(col(0).ToString) - contador += 1 - - Next - grafica.series = New List(Of Series) - - For i As Integer = 1 To data.Columns.Count - 1 - Dim serie As New Series - serie.data = New List(Of Object) - serie.name = data.Columns(i).ColumnName - For Each row As DataRow In data.Rows - serie.data.Add(row(i).ToString().ToDouble) - Next - If VerValor Then - - serie.dataLabels = New DataLabels - serie.dataLabels.enabled = True - End If - grafica.series.Add(serie) - Next - - Else - For Each col As DataRow In data.Rows - - grafica.xAxis.categories.Add(col(0).ToString) - contador += 1 - - Next - grafica.series = New List(Of Series) - For x As Integer = 1 To data.Columns.Count - 1 - Dim serie As New Series - serie.data = New List(Of Object) - serie.name = data.Columns(x).ColumnName - For i As Integer = 0 To data.Rows.Count - 1 - serie.data.Add(data.Rows(i)(x).ToString().ToDouble) - Next - grafica.series.Add(serie) - Next - - End If - End If - Return grafica - End Function - - Public Function GraficaStacked(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart - - Dim grafica As HighChart - grafica = GraficaStandar(data, charttype, Titulo, Subtitulo, VerValor) - If IsNothing(grafica.plotOptions) Then - grafica.plotOptions = New PlotOptions() - End If - If IsNothing(grafica.plotOptions.column) Then - grafica.plotOptions.column = New Column - End If - grafica.plotOptions.column.stacking = "normal" - - If VerValor Then - grafica.yAxis.stackLabels = New DataLabels - grafica.yAxis.stackLabels.enabled = True - 'grafica.yAxis.stackLabels.color = "#FFFFFF" - grafica.yAxis.stackLabels.rotation = -90 - grafica.yAxis.stackLabels.y = -35 - End If - Return grafica - - End Function - Public Function ToJsonString(obj As Object) As String - Dim settings As New JsonSerializerSettings - settings.NullValueHandling = NullValueHandling.Ignore - settings.Formatting = Formatting.Indented - Return JsonConvert.SerializeObject(obj, settings).ToString + Dim ObjEventos As New ClsOIEventos + RegistraScript("GetView();") + + If ObjEventos.RemoveEvento(HdnCveEvento.Value.ToEntero, UsuarioActual.CveEmpresa) Then + RegistraScript("Calendario();SetView();$('#ModalAgenda').modal('hide');", "1234") + Alert("El evento se eliminó correctamente", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al eliminar el evento, por favor intente de nuevo.", TipoMensaje.MsgError) + End If + + ObjEventos.Dispose() + End Sub + + + Public Shared Function EliminaEvento(CveEvento As Integer, CveEmpresa As Integer) As String + Dim ObjEventos As New ClsOIEventos + + ObjEventos.RemoveEvento(CveEvento, CveEmpresa) + + ObjEventos.Dispose() + Return CveEvento.ToString End Function -#End Region - Protected Sub LnkIndicador_Click(sender As Object, e As EventArgs) - CargaGraficas() + + Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String + Dim ObjEventos As New ClsOIEventos + + Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime + Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime + + If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then + End If + + ObjEventos.Dispose() + Return "a" + End Function + Protected Sub RBLRecurrencia_SelectedIndexChanged(sender As Object, e As EventArgs) + Select Case RBLRecurrencia.SelectedValue.ToEntero + Case 1 + LblTextoFrecuencia.Text = "Hora(s)" + TrDiasSemanaAdd.Style("display") = "none" + Case 2 + LblTextoFrecuencia.Text = "Dia(s)" + TrDiasSemanaAdd.Style("display") = "none" + Case 3 + LblTextoFrecuencia.Text = "Semana(s)" + TrDiasSemanaAdd.Style("display") = "block" + + 'Chequea los dias seleccionados en la recurrencia + For Each item As ListItem In CheckDiasSemana.Items + If HdnDiasSemanaAgendar.Value.Contains(item.Value) Then + item.Selected = True + Else + item.Selected = False + End If + Next + Case 4 + LblTextoFrecuencia.Text = "Mes(es)" + TrDiasSemanaAdd.Style("display") = "none" + Case 5 + LblTextoFrecuencia.Text = "Año(s)" + TrDiasSemanaAdd.Style("display") = "none" + Case Else + End Select + UpRecurrencia.Update() + End Sub + Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs) + RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) + End Sub +#End Region + + Protected Sub ChkOIAsigne_CheckedChanged(sender As Object, e As EventArgs) Handles ChkOIAsigne.CheckedChanged, ChkOIPorHacer.CheckedChanged + CargaTareas() + End Sub + Protected Sub DdlFiltroIndicador_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub + Protected Sub BtnIndicador_Click(sender As Object, e As EventArgs) + End Sub + +#Region "DIRECTORIO TELEFONICO" + Private Sub CargaDirectorioTelefonico() + Dim ObjPersonal As New ClsRH + + Me.RegistraScript("$get('DivActualizarEvento').style.display = 'true';") + '$get('DivActualizarEvento').style.display = 'none'; + + If ObjPersonal.DirectorioTelefonicoGet(UsuarioActual.CveEmpresa) Then + GvDirectorio.DataSource = ObjPersonal.DtResultados + End If + + GvDirectorio.Columns(2).Visible = False + + ' 8/10/2018 - Se omite validacion de visibilidad de Columna Telefono Personal solo para usuario Dennise Cruz + 'If UsuarioActual.CveUsuario = 1781 Then + ' GvDirectorio.Columns(5).Visible = True + 'Else + ' GvDirectorio.Columns(5).Visible = False + 'End If + + ObjPersonal.Dispose() + GvDirectorio.DataBind() + UPDatosDirectorio.Update() + End Sub + + Protected Sub GvDirectorio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + If String.IsNullOrEmpty(e.Row.DBCampo("CvePersonal")) Then + e.Row.Style("background-color") = "#F1B168" + 'e.Row.FCHyperLink("HypDeptoPersonal").Style("text-decoration") = "none" + 'e.Row.FCHyperLink("HypDeptoPersonal").ForeColor = Drawing.Color.Black + Else + 'e.Row.FCHyperLink("HypDeptoPersonal").NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal")) + End If + End If + + + End Sub +#End Region + +#Region "Metodos Graficar" + Public Function GraficaLineas(data As DataTable, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional SinCols As String = "0", Optional VerValor As Boolean = False, Optional G1 As Boolean = False) As HighChart + Dim grafica As New HighChart + If Not IsNothing(data) Then + + grafica.chart = New Chart + grafica.chart.type = "line" + grafica.title = New Title + grafica.title.text = Titulo + grafica.subtitle = New Title + grafica.subtitle.text = Subtitulo + grafica.subtitle.useHTML = True + grafica.yAxis = New Axis + grafica.yAxis.title = New Title + grafica.yAxis.title.text = " " + grafica.xAxis = New Axis + If VerValor Then + grafica.plotOptions = New PlotOptions + grafica.plotOptions.line = New Line + grafica.plotOptions.line.dataLabels = New DataLabels + grafica.plotOptions.line.dataLabels.enabled = True + End If + grafica.xAxis.categories = New List(Of String) + + Dim index As Integer = 0 + Dim contador As Integer = 0 + For Each col As DataColumn In data.Columns + + If contador = 0 Then + index = contador + Else + grafica.xAxis.categories.Add(col.ColumnName) + End If + contador += 1 + + Next + grafica.series = New List(Of Series) + + For Each row As DataRow In data.Rows + Dim serie As New Series + serie.data = New List(Of Object) + Dim anterior As Double = 0 + For i As Integer = 0 To data.Columns.Count - 1 + If i = index Then + serie.name = row(i).ToString() + Else + Dim actual = row(i).ToString().ToDouble + serie.data.Add(actual) + anterior = actual + End If + Next + grafica.series.Add(serie) + Next + + End If + Return grafica + End Function + Public Function GraficaStandar(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart + Dim grafica As New HighChart + If Not IsNothing(data) Then + + grafica.chart = New Chart + grafica.chart.type = charttype + grafica.title = New Title + grafica.title.text = Titulo + grafica.subtitle = New Title + grafica.subtitle.text = Subtitulo + grafica.subtitle.useHTML = True + grafica.yAxis = New Axis + grafica.yAxis.title = New Title + grafica.yAxis.title.text = " " + grafica.xAxis = New Axis + grafica.xAxis.categories = New List(Of String) + + Dim index As Integer = 0 + Dim contador As Integer = 0 + + If charttype = "bar" Then + For Each col As DataRow In data.Rows + grafica.xAxis.categories.Add(col(0).ToString) + contador += 1 + + Next + grafica.series = New List(Of Series) + + For i As Integer = 1 To data.Columns.Count - 1 + Dim serie As New Series + serie.data = New List(Of Object) + serie.name = data.Columns(i).ColumnName + For Each row As DataRow In data.Rows + serie.data.Add(row(i).ToString().ToDouble) + Next + If VerValor Then + + serie.dataLabels = New DataLabels + serie.dataLabels.enabled = True + End If + grafica.series.Add(serie) + Next + + Else + For Each col As DataColumn In data.Columns + + If contador = 0 Then + index = contador + Else + grafica.xAxis.categories.Add(col.ColumnName) + End If + contador += 1 + + Next + grafica.series = New List(Of Series) + + For Each row As DataRow In data.Rows + Dim serie As New Series + serie.data = New List(Of Object) + For i As Integer = 0 To data.Columns.Count - 1 + If i = index Then + serie.name = row(i).ToString() + Else + serie.data.Add(row(i).ToString().ToDouble) + End If + Next + If VerValor Then + + serie.dataLabels = New DataLabels + serie.dataLabels.enabled = True + End If + grafica.series.Add(serie) + Next + End If + End If + Return grafica + End Function + Public Function GraficaStandarB(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart + Dim grafica As New HighChart + If Not IsNothing(data) Then + + grafica.chart = New Chart + grafica.chart.type = charttype + grafica.title = New Title + grafica.title.text = Titulo + grafica.subtitle = New Title + grafica.subtitle.text = Subtitulo + grafica.subtitle.useHTML = True + grafica.yAxis = New Axis + grafica.yAxis.title = New Title + grafica.yAxis.title.text = " " + grafica.xAxis = New Axis + grafica.xAxis.categories = New List(Of String) + + Dim index As Integer = 0 + Dim contador As Integer = 0 + + If charttype = "bar" Then + For Each col As DataRow In data.Rows + + grafica.xAxis.categories.Add(col(0).ToString) + contador += 1 + + Next + grafica.series = New List(Of Series) + + For i As Integer = 1 To data.Columns.Count - 1 + Dim serie As New Series + serie.data = New List(Of Object) + serie.name = data.Columns(i).ColumnName + For Each row As DataRow In data.Rows + serie.data.Add(row(i).ToString().ToDouble) + Next + If VerValor Then + + serie.dataLabels = New DataLabels + serie.dataLabels.enabled = True + End If + grafica.series.Add(serie) + Next + + Else + For Each col As DataRow In data.Rows + + grafica.xAxis.categories.Add(col(0).ToString) + contador += 1 + + Next + grafica.series = New List(Of Series) + For x As Integer = 1 To data.Columns.Count - 1 + Dim serie As New Series + serie.data = New List(Of Object) + serie.name = data.Columns(x).ColumnName + For i As Integer = 0 To data.Rows.Count - 1 + serie.data.Add(data.Rows(i)(x).ToString().ToDouble) + Next + grafica.series.Add(serie) + Next + + End If + End If + Return grafica + End Function + + Public Function GraficaStacked(data As DataTable, charttype As String, Optional Titulo As String = "", Optional Subtitulo As String = "", Optional VerValor As Boolean = False) As HighChart + + Dim grafica As HighChart + grafica = GraficaStandar(data, charttype, Titulo, Subtitulo, VerValor) + If IsNothing(grafica.plotOptions) Then + grafica.plotOptions = New PlotOptions() + End If + If IsNothing(grafica.plotOptions.column) Then + grafica.plotOptions.column = New Column + End If + grafica.plotOptions.column.stacking = "normal" + + If VerValor Then + grafica.yAxis.stackLabels = New DataLabels + grafica.yAxis.stackLabels.enabled = True + 'grafica.yAxis.stackLabels.color = "#FFFFFF" + grafica.yAxis.stackLabels.rotation = -90 + grafica.yAxis.stackLabels.y = -35 + End If + Return grafica + + End Function + Public Function ToJsonString(obj As Object) As String + Dim settings As New JsonSerializerSettings + settings.NullValueHandling = NullValueHandling.Ignore + settings.Formatting = Formatting.Indented + Return JsonConvert.SerializeObject(obj, settings).ToString + End Function + +#End Region + Protected Sub LnkIndicador_Click(sender As Object, e As EventArgs) + CargaGraficas() End Sub -#Region "COMUNICADO" - Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs) - RegistraScript("$('#DvModalComunicado').modal('show');") - End Sub - Protected Sub CargaComunicado() - - Dim ObjEmpresa As ClsSisEmpresas = New ClsSisEmpresas - - DivComunicado.InnerHtml = "" - - If ObjEmpresa.GetComunicado(UsuarioActual.CveEmpresa) Then - If ObjEmpresa.DtResultados.Rows.Count > 0 And ObjEmpresa.DtResultados(0)("Comunicado").ToString() <> "" Then - DivComunicado.Visible = True - Dim Comunicado As String = ObjEmpresa.DtResultados(0)("Comunicado").ToString() - - Dim ListaComunicados As String() = Comunicado.Split("|") - Dim Turno As Integer = 1 - For Each s As String In ListaComunicados - If (Turno Mod 2) = 0 Then - MuestraComunicado(DivComunicado, "purple-plum", "fa fa-bullhorn", "", s.ToString()) - Else - MuestraComunicado(DivComunicado, "grey-cascade", "fa fa-bullhorn", "", s.ToString()) - End If - - Turno += 1 - Next - - TxtComunicado.Text = ObjEmpresa.DtResultados(0)("Comunicado").ToString() - - Else - DivComunicado.Visible = False - 'DivComunicadoTexto.InnerHtml = "" - TxtComunicado.Text = "" - End If - End If - - ObjEmpresa.Dispose() - End Sub - - Protected Sub BtnActualizarComunicado_Click(sender As Object, e As EventArgs) - Dim ObjEmpresa As ClsSisEmpresas = New ClsSisEmpresas - - If ObjEmpresa.UpdateComunicado(UsuarioActual.CveEmpresa, TxtComunicado.Text) Then - Alert("Comunicado Actualizado Correctamente", TipoMensaje.MsgInformacion) - RegistraScript("$('#DvModalComunicado').modal('hide');") - End If - ObjEmpresa.Dispose() - CargaComunicado() - UPComunicado.Update() - End Sub - - Private Sub MuestraComunicado(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String) - Dim htmldiv As New StringBuilder - 'htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) - 'htmldiv.AppendFormat("
    ", "") - - htmldiv.AppendFormat("{2}

    {0} {1}

    ", Titulo, Comentario, DIV.InnerHtml, Icono) - - DIV.InnerHtml = htmldiv.ToString +#Region "COMUNICADO" + Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs) + RegistraScript("$('#DvModalComunicado').modal('show');") End Sub -#End Region - Protected Sub BtnEvaluarProveedores_Click(sender As Object, e As EventArgs) - - End Sub -End Class + Protected Sub CargaComunicado() + + Dim ObjEmpresa As ClsSisEmpresas = New ClsSisEmpresas + + DivComunicado.InnerHtml = "" + + If ObjEmpresa.GetComunicado(UsuarioActual.CveEmpresa) Then + If ObjEmpresa.DtResultados.Rows.Count > 0 And ObjEmpresa.DtResultados(0)("Comunicado").ToString() <> "" Then + DivComunicado.Visible = True + Dim Comunicado As String = ObjEmpresa.DtResultados(0)("Comunicado").ToString() + + Dim ListaComunicados As String() = Comunicado.Split("|") + Dim Turno As Integer = 1 + For Each s As String In ListaComunicados + If (Turno Mod 2) = 0 Then + MuestraComunicado(DivComunicado, "purple-plum", "fa fa-bullhorn", "", s.ToString()) + Else + MuestraComunicado(DivComunicado, "grey-cascade", "fa fa-bullhorn", "", s.ToString()) + End If + + Turno += 1 + Next + + TxtComunicado.Text = ObjEmpresa.DtResultados(0)("Comunicado").ToString() + + Else + DivComunicado.Visible = False + 'DivComunicadoTexto.InnerHtml = "" + TxtComunicado.Text = "" + End If + End If + + ObjEmpresa.Dispose() + End Sub + + Protected Sub BtnActualizarComunicado_Click(sender As Object, e As EventArgs) + Dim ObjEmpresa As ClsSisEmpresas = New ClsSisEmpresas + + If ObjEmpresa.UpdateComunicado(UsuarioActual.CveEmpresa, TxtComunicado.Text) Then + Alert("Comunicado Actualizado Correctamente", TipoMensaje.MsgInformacion) + RegistraScript("$('#DvModalComunicado').modal('hide');") + End If + ObjEmpresa.Dispose() + CargaComunicado() + UPComunicado.Update() + End Sub + + Private Sub MuestraComunicado(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, Comentario As String) + Dim htmldiv As New StringBuilder + 'htmldiv.AppendFormat("{0}
    ", DIV.InnerHtml, Color, Icono) + 'htmldiv.AppendFormat("
    ", "") + + htmldiv.AppendFormat("{2}

    {0} {1}

    ", Titulo, Comentario, DIV.InnerHtml, Icono) + + DIV.InnerHtml = htmldiv.ToString + End Sub +#End Region + Protected Sub BtnEvaluarProveedores_Click(sender As Object, e As EventArgs) + + End Sub +End Class diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 8a36b2419..afcd7d2e8 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -260,6 +260,15 @@ Partial Class Inventarios_RecepcionEntrega End Set End Property + Private Property EsDevolucionDirecta As Boolean + Get + Return CBool(If(ViewState("EsDevolucionDirecta") Is Nothing, 0, ViewState("EsDevolucionDirecta"))) + End Get + Set(value As Boolean) + ViewState("EsDevolucionDirecta") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -639,6 +648,19 @@ Partial Class Inventarios_RecepcionEntrega Alert("La Venta original de la Devolución no tiene salida de Almacén.", TipoMensaje.MsgAdvertencia) End If + If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then + Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"}) + If DtMov.Rows.Count > 0 Then + Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero() + DdlAlmacen.Items.Clear() + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}") + DdlAlmacen.DataBind() + + DdlAlmacen.SelectedValueExist(CveAlmacenDev) + EsDevolucionDirecta = True + End If + End If + Else Alert("Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If @@ -1896,6 +1918,11 @@ Partial Class Inventarios_RecepcionEntrega CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero End If + 'DEVOLUCION DIRECTA A ENTREGA POR ADELANTADO + If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then + ConceptoMovimiento = 41 + End If + CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7") Folio = ObjInventario.Folio