diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ba2f8a32e..de7538cf9 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3634,92 +3634,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #Region "C H E C A D O R E S T A C I O N E S" - Public Function ChecadorEstacionesAdd(CveChecadorTipo As Integer, CveZonaHoraria As Integer, CveUsuario As Integer, CveEmpresa As Integer, ChecadorEstacion As String, Ip As String, Puerto As Integer, Estatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorEstacionesAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecadorTipo", SqlDbType.Int).Value = CveChecadorTipo - .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@ChecadorEstacion", SqlDbType.VarChar).Value = ChecadorEstacion - .Add("@Ip", SqlDbType.VarChar).Value = Ip - .Add("@Puerto", SqlDbType.Int).Value = Puerto - .Add("@Estatus", SqlDbType.Int).Value = Estatus - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al agregar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function ChecadorEstacionesUpdate(CveChecadorEstacion As Integer, CveChecadorTipo As Integer, CveZonaHoraria As Integer, CveUsuario As Integer, CveEmpresa As Integer, ChecadorEstacion As String, Ip As String, Puerto As Integer, Estatus As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorEstacionesUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion - .Add("@CveChecadorTipo", SqlDbType.Int).Value = CveChecadorTipo - .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@ChecadorEstacion", SqlDbType.VarChar).Value = ChecadorEstacion - .Add("@Ip", SqlDbType.VarChar).Value = Ip - .Add("@Puerto", SqlDbType.Int).Value = Puerto - .Add("@Estatus", SqlDbType.Int).Value = Estatus - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function ChecadorEstacionesRemove(CveChecadorEstacion As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorEstacionesRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion - - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function ChecadorEstacionesGet(CveChecadorEstacion As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_RH_ChecadorEstacionesGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveChecadorEstacion", SqlDbType.Int).Value = CveChecadorEstacion - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - - - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el checador de estaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function DdlChecadorTipoGet(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_DdlChecadorTipoGet") diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb index b047848a8..a5af7cd9e 100644 --- a/Inventarios/CatAlmacenes.aspx.vb +++ b/Inventarios/CatAlmacenes.aspx.vb @@ -63,19 +63,19 @@ Partial Class Inventarios_CatAlmacenes End If GvDatos.DataBind() ObjAlmacen.Dispose() - End Sub - - Private Sub CargaAlmacenVirtual() - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - divAlmacenesVirtuales.Visible = True - DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24) - DdlAlmacenesVirtuales.DataBind() - DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If - End Sub - + End Sub + + Private Sub CargaAlmacenVirtual() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + divAlmacenesVirtuales.Visible = True + DdlAlmacenesVirtuales.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24) + DdlAlmacenesVirtuales.DataBind() + DdlAlmacenesVirtuales.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + End Sub + #Region "C O M B O S" - + Private Sub CargaSubProyectos() DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) @@ -92,23 +92,23 @@ Partial Class Inventarios_CatAlmacenes DdlTipoAlmacen.DataBind() End Sub - Private Sub CargaUsuarios() - - Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy - - DT.DefaultView.Sort = "Nombre ASC" - DT = DT.DefaultView.ToTable - - DdlUsuariosAutoriza.DataSource = DT - DdlUsuariosAutoriza.DataBind() - - DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - + Private Sub CargaUsuarios() + + Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy + + DT.DefaultView.Sort = "Nombre ASC" + DT = DT.DefaultView.ToTable + + DdlUsuariosAutoriza.DataSource = DT + DdlUsuariosAutoriza.DataBind() + + DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + End Sub Private Sub CargaCuentasContables() If UsuarioActual.Empresa.TipoContabilizacion = 1 Then - divCuentasCompac.Visible = False + divCuentasCompac.Visible = False pnlCuentassig.Visible = True Using ObjContabilidad As New ClsContabilidad 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero @@ -119,22 +119,22 @@ Partial Class Inventarios_CatAlmacenes End If End Using Else - If UsuarioActual.Empresa.TipoContabilidad = 2 Then - divCuentasCompac.Visible = True - pnlCuentassig.Visible = False - Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) - 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero - If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then - DtCuentasContables = ObjContabilidad.DtResultados - Else - DtCuentasContables = Nothing - End If - End Using - - DdlCuentasContables.DataSource = DtCuentasContables - DdlCuentasContables.DataBind() - End If - + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + divCuentasCompac.Visible = True + pnlCuentassig.Visible = False + Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) + 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero + If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then + DtCuentasContables = ObjContabilidad.DtResultados + Else + DtCuentasContables = Nothing + End If + End Using + + DdlCuentasContables.DataSource = DtCuentasContables + DdlCuentasContables.DataBind() + End If + End If UpAddAlmacen.Update() @@ -167,9 +167,9 @@ Partial Class Inventarios_CatAlmacenes 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center If e.Row.DBCampo("IdCtaContable").ToEntero > 0 Then - e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}") - 'Else - ' e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta" + e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCtaContable")}") + 'Else + ' e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta" End If End If @@ -192,14 +192,14 @@ Partial Class Inventarios_CatAlmacenes e.Row.FCDropDownList("DdlTipoAlmacen").DataSource = GlobalDTTipoAlmacen(-1) e.Row.FCDropDownList("DdlTipoAlmacen").DataBind() - e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen") - - - - - - 'e.Row.FCDropDownList("DdlModalidad").DataSource = - 'e.Row.FCDropDownList("DdlModalidad").DataBind() + e.Row.FCDropDownList("DdlTipoAlmacen").SelectedValue = e.Row.DBCampo("CveTipoAlmacen") + + + + + + 'e.Row.FCDropDownList("DdlModalidad").DataSource = + 'e.Row.FCDropDownList("DdlModalidad").DataBind() e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Solo Existencia", "0")) e.Row.FCDropDownList("DdlModalidad").Items.Add(New ListItem("Contable", "1")) e.Row.FCDropDownList("DdlModalidad").SelectedValue = If(e.Row.DBCampo("Modalidad").ToString = "Contable", "1", "0") @@ -207,20 +207,20 @@ Partial Class Inventarios_CatAlmacenes End If End If - End Sub - + End Sub + #End Region - + #Region "O R D E N A M I E N T O" - 'Private Sub OrdenaDatos() - ' If (GvDatos.Rows.Count > 0) Then - ' GvDatos.UseAccessibleHeader = True - ' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader - ' RegistraScript("OrdenarGV();") - ' End If - 'End Sub + 'Private Sub OrdenaDatos() + ' If (GvDatos.Rows.Count > 0) Then + ' GvDatos.UseAccessibleHeader = True + ' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader + ' RegistraScript("OrdenarGV();") + ' End If + 'End Sub #End Region - + Private Sub RecargaGlobalAlmacenes() GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing 'Dim ObjAlmacen As New ClsInventarios @@ -247,19 +247,19 @@ Partial Class Inventarios_CatAlmacenes Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 Dim CuentaContable As Integer = 0 - Dim CveCuenta As Integer = 0 - - - If pnlCuentassig.Visible Then - CveCuenta = DdlCuentasSig.SelectedValue.ToEntero() - End If - If divCuentasCompac.Visible Then - CuentaContable = DdlCuentasContables.SelectedValue.ToEntero() - End If - - + Dim CveCuenta As Integer = 0 + + + If pnlCuentassig.Visible Then + CveCuenta = DdlCuentasSig.SelectedValue.ToEntero() + End If + If divCuentasCompac.Visible Then + CuentaContable = DdlCuentasContables.SelectedValue.ToEntero() + End If + + If HdnModalidad.Value = "A" Then - If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero()) Then Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion) @@ -288,7 +288,7 @@ Partial Class Inventarios_CatAlmacenes End Sub Public Sub Agregar() - HdnModalidad.Value = "A" + HdnModalidad.Value = "A" UpDatos.Update() If DdlModalidad.SelectedValue = 1 Then DdlCuentasContables.Visible = True @@ -337,17 +337,17 @@ Partial Class Inventarios_CatAlmacenes DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen")) TxtAlmacen.Text = GvRow.DataKey("Almacen") - TxtOrden.Text = GvRow.DataKey("Orden") - DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1")) - DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual")) - - + TxtOrden.Text = GvRow.DataKey("Orden") + DdlUsuariosAutoriza.SelectedValueExist(If(GvRow.DataKey("CveUsuarioAutoriza").ToEntero > 0, GvRow.DataKey("CveUsuarioAutoriza"), "-1")) + DdlAlmacenesVirtuales.SelectedValueExist(GvRow.DataKey("CveAlmacenVirtual")) + + divEstatus.Visible = True ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False) UpAddAlmacen.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen")) - - + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen")) + + End Sub Private Sub LnkAlmacen_Click(sender As Object, e As EventArgs) Handles LnkAlmacen.Click Agregar() diff --git a/RH/CatChecadorEstaciones.aspx b/RH/CatChecadorEstaciones.aspx deleted file mode 100644 index c4b4a5c50..000000000 --- a/RH/CatChecadorEstaciones.aspx +++ /dev/null @@ -1,132 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatChecadorEstaciones.aspx.vb" Inherits="RH_CatChecadorEstaciones" %> - - - - - - - Catálogo Estaciones - - - - - -
  • - Agregar -
    • -     - - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - > - - - - - - - - - - - - -     -     - - - <%--POPUP AGREGAR--%> - -     - - - diff --git a/RH/CatChecadorEstaciones.aspx.vb b/RH/CatChecadorEstaciones.aspx.vb deleted file mode 100644 index 947999c92..000000000 --- a/RH/CatChecadorEstaciones.aspx.vb +++ /dev/null @@ -1,131 +0,0 @@ - -Imports Extensiones -Imports System.Data - -Partial Class RH_CatChecadorEstaciones - Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CargaDdlChecadorTipo() - CargaDdlZonaHoraria() - CargaDatos() - End If - End Sub - - Private Sub CargaDatos() - Dim ObjRH As New ClsRH() - HdnID.Value = -1 - If ObjRH.ChecadorEstacionesGet(HdnID.Value, UsuarioActual.CveEmpresa) Then - GvChecadorEstaciones.DataSource = ObjRH.DtResultados - GvChecadorEstaciones.DataBind() - End If - ObjRH.Dispose() - UpDatos.Update() - End Sub - - Private Sub CargaDdlChecadorTipo() - Dim ObjRH As New ClsRH() - If ObjRH.DdlChecadorTipoGet(UsuarioActual.CveEmpresa) Then - DdlChecadorTipo.DataSource = ObjRH.DtResultados - DdlChecadorTipo.DataBind() - - End If - ObjRH.Dispose() - UpDatos.Update() - End Sub - - Private Sub CargaDdlZonaHoraria() - Dim ObjRH As New ClsRH() - If ObjRH.DdlZonaHorariaGet() Then - DdlZonaHoraria.DataSource = ObjRH.DtResultados - DdlZonaHoraria.DataBind() - - End If - ObjRH.Dispose() - UpDatos.Update() - End Sub - - Private Sub BtnAgregarChecadorEstaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarChecadorEstaciones.Click - Dim ObjRH As New ClsRH - Dim Estatus = 0 - If ChkEstatus.Checked Then Estatus = 1 - If HdnModalidad.Value = "A" Then - If ObjRH.ChecadorEstacionesAdd(DdlChecadorTipo.SelectedValue, DdlZonaHoraria.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtChecadorEstaciones.Text, TxtIp.Text, TxtPuerto.Text, Estatus) Then - CargaDatos() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) - End If - ElseIf HdnModalidad.Value = "U" Then - If ObjRH.ChecadorEstacionesUpdate(HdnID.Value, DdlChecadorTipo.SelectedValue, DdlZonaHoraria.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtChecadorEstaciones.Text, TxtIp.Text, TxtPuerto.Text, Estatus) Then - CargaDatos() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - End If - End If - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChecadorEstaciones")) - ObjRH.Dispose() - UpDatos.Update() - End Sub - - Public Sub Edit_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - HdnModalidad.Value = "U" - HdnID.Value = GvRow.DataKey("CveChecadorEstacion") - UpDatos.Update() - BtnAgregarChecadorEstaciones.Text = "Actualizar" - DdlChecadorTipo.SelectedValueExist(GvRow.DataKey("CveChecadorTipo")) - DdlZonaHoraria.SelectedValueExist(GvRow.DataKey("CveZonaHoraria")) - TxtChecadorEstaciones.Text = GvRow.DataKey("ChecadorEstacion") - TxtIp.Text = GvRow.DataKey("Ip") - TxtPuerto.Text = GvRow.DataKey("Puerto") - ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) - UpAddChecadorEstaciones.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChecadorEstaciones")) - - End Sub - - Public Sub Agregar() - HdnModalidad.Value = "A" - UpDatos.Update() - BtnAgregarChecadorEstaciones.Text = "Agregar" - TxtChecadorEstaciones.Text = "" - TxtIp.Text = "" - TxtPuerto.Text = "" - CargaDdlChecadorTipo() - CargaDdlZonaHoraria() - ChkEstatus.Checked = False - UpAddChecadorEstaciones.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChecadorEstaciones")) - - End Sub - - - Public Sub Delete_Click(sender As Object, e As EventArgs) - Dim ObjRH As New ClsRH() - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - HdnID.Value = GvRow.DataKey("CveChecadorEstacion") - UpDatos.Update() - If ObjRH.ChecadorEstacionesRemove(HdnID.Value) Then - CargaDatos() - - End If - ObjRH.Dispose() - UpDatos.Update() - End Sub - - Private Sub LnkChecadorEstaciones_Click(sender As Object, e As EventArgs) Handles LnkChecadorEstaciones.Click - Agregar() - End Sub - - Private Sub GvChecadorEstaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChecadorEstaciones.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then - e.Row.FCLabel("LblEstatus").Text = "Activo" - e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green - - Else - e.Row.FCLabel("LblEstatus").Text = "Inactivo" - e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red - End If - End If - End Sub -End Class diff --git a/RH/CatChecadores.aspx b/RH/CatChecadores.aspx index 0e7b07707..eda1ec2e2 100644 --- a/RH/CatChecadores.aspx +++ b/RH/CatChecadores.aspx @@ -64,9 +64,19 @@ - + +
    + + + + + + + + +