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

.

Browse Source
This commit is contained in:
rrene
2023-02-11 16:53:20 -07:00
parent 44e8cd3070 e66d428ee7
commit c118f9c317
17 changed files with 257 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
AF/CatClasificacionesCaracteristicas.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT 'Carga Globals para DT
CargaTiposActivosFijos() CargaTiposActivosFijos()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
End If End If
End Sub End Sub
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
ObjAF.Dispose() ObjAF.Dispose()
End Sub End Sub
Private Sub CargaCaracteristicasClasificaciones()
Dim ObjAF As New ClsAF
If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados
Else
Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
End If
ObjAF.Dispose()
End Sub
Private Sub CargaCaracteristicas()
'Dim ObjAF As New ClsAF
'If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
' GlobalDTAFCaracteristicas = ObjAF.DtResultados
'Else
' Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
'End If
'ObjAF.Dispose()
End Sub
#Region "CLASIFICACIONES" #Region "CLASIFICACIONES"
Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
Dim ObjCaracteristicaClasificacion As New ClsAF Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
UpTitulosCL.Update() UpTitulosCL.Update()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region "CARGA DATOS" #Region "CARGA DATOS"
Public Sub CargaDatosCL() Public Sub CargaDatosCL()
Dim ObjCaracteristicaClasificacion As New ClsAF
If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados
Else
Me.GvDatosCL.DataSource = Nothing
End If
ObjCaracteristicaClasificacion.Dispose()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
Else Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -264,11 +229,11 @@ Partial Class AF_CatClasificacionesCaracteristicas
Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCA.Update() UpTitulosCA.Update()
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,15 +246,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region " CARGA DATOS" #Region " CARGA DATOS"
Public Sub CargaDatosCA() Public Sub CargaDatosCA()
Dim ObjCaracteristicas As New ClsAF
If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Else
Me.GvDatosCA.DataSource = Nothing
End If
ObjCaracteristicas.Dispose()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
Else Else
@@ -373,7 +329,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ObjCaracteristicas As New ClsAF Dim ObjCaracteristicas As New ClsAF
If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -411,7 +366,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
@@ -741,21 +696,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
Private Sub CargaGrid(Orden As String, gvi As Integer) Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then If gvi = 0 Then
If Orden <> String.Empty Then If Orden <> String.Empty Then
Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows) GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
GvDatosCL.DataSource = DV.ToTable()
DV.Dispose()
Else Else
GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable) GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
End If End If
GvDatosCL.DataBind() GvDatosCL.DataBind()
UpDatosCL.Update() UpDatosCL.Update()
ElseIf gvi = 1 Then ElseIf gvi = 1 Then
If Orden <> String.Empty Then If Orden <> String.Empty Then
Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows) GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
GvDatosCA.DataSource = DV.ToTable()
DV.Dispose()
Else Else
GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable) GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
End If End If
GvDatosCA.DataBind() GvDatosCA.DataBind()
UpDatosCA.Update() UpDatosCA.Update()

3
App_Code/ClsContabilidad.vb
View File

@@ -3843,6 +3843,8 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
Dim Retorno = False Dim Retorno = False
@@ -5533,6 +5535,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
Dim Retorno = False Dim Retorno = False

23
App_Code/ClsNominas.vb
View File

@@ -261,6 +261,29 @@ Public Class ClsNominas
End Try End Try
Return retorno Return retorno
End Function End Function
'Reporte Conceptos Acumulados
Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ConceptosAcumuladosGetRep")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.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 Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure) DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure)

4
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

@@ -54,7 +54,7 @@ Partial Class MovimientosconProveedores
End Property End Property
Private Property CveSubProyecto As Integer Private Property CveSubProyecto As Integer
Get Get
CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero CveSubProyecto = ViewState("CveSubProyecto").ToString
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveSubProyecto") = value ViewState("CveSubProyecto") = value
@@ -189,7 +189,7 @@ Partial Class MovimientosconProveedores
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
End If End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0") DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")

75
Nomina/ConceptoNomina.aspx
View File

@@ -200,12 +200,6 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
<asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright"> <div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label> <asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
@@ -216,6 +210,73 @@
</div> </div>
</div> </div>
<div class="portlet smmallpadding light bordered" id="Div1" runat="server">
<div class="portlet-title">
<div class="caption uppercase " style="position: relative;">
<i class="fa fa-info-circle font-yellow-gold"></i>
<span class="caption-subject font-yellow-gold bold uppercase">Provisión </span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-6">
<label class=" " style="margin-top: 12px;margin-bottom: 12px;" >Contabiliza:</label><br />
<asp:CheckBox ID="ChkContabiliza" CssClass="chksino" Text=" " runat="server" />
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Tipo Provisión" AssociatedControlID="DdlTipoProvision"></asp:Label>
<asp:DropDownList ID="DdlTipoProvision" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value ="1" Text="Normal" />
<asp:ListItem Value ="2" Text="Diferente Cta. con valor negativo" />
</asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
<asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbono"></asp:Label>
<asp:DropDownList ID="ddlCargooAbono" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value ="0" Text="Cargo" />
<asp:ListItem Value ="1" Text="Abono" />
</asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cuenta contable B" AssociatedControlID="DdlCtaContableB"></asp:Label>
<asp:DropDownList ID="DdlCtaContableB" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbonoB"></asp:Label>
<asp:DropDownList ID="ddlCargooAbonoB" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
<asp:ListItem Value ="0" Text="Cargo" />
<asp:ListItem Value ="1" Text="Abono" />
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</div> </div>
<div class="col-md-5"> <div class="col-md-5">
@@ -348,7 +409,7 @@
<div class="row"> <div class="row">
<label class="col-md-3 truncate ">Movimiento Permanente:</label> <label class="col-md-3 truncate ">Movimiento Permanente:</label>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged ="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" /> <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
</div> </div>
</div> </div>
</div> </div>

12
Nomina/ConceptoNomina.aspx.cs
View File

@@ -464,11 +464,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
ChkEstado.Checked = drow["Estado"].Equals("Activo"); ChkEstado.Checked = drow["Estado"].Equals("Activo");
ChkSistema.Checked = drow["Sistema"].Equals("Sí"); ChkSistema.Checked = drow["Sistema"].Equals("Sí");
ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]); DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]);
DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]);
ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]);
ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]);
DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]); DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]);
//DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
if (DdlCtaContable.DataValueField == "Id") if (DdlCtaContable.DataValueField == "Id")
@@ -479,6 +483,14 @@ public partial class Nomina_CatConcepto : ClsPaginas
{ {
DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
} }
if (DdlCtaContableB.DataValueField == "Id")
{
DdlCtaContableB.SelectedValueExist(drow["IdCtaContableB"]);
}
else
{
DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]);
}
//if (UsuarioActual.Empresa.TipoContabilidad == 1) //if (UsuarioActual.Empresa.TipoContabilidad == 1)
//{ //{
//} //}

4
Nomina/Nomina.aspx.cs
View File

@@ -8466,15 +8466,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
DateTime fechai = TxtRIFechaInicio.Text.ToDateTime(); DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
DateTime fechaf = TxtRIFechaFin.Text.ToDateTime(); DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
int CveTipoPeriodo=0;
using (ClsNominas nom = new ClsNominas()) using (ClsNominas nom = new ClsNominas())
{ {
if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0)) if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0))
{ {
fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime(); fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime();
fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime(); fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime();
CveTipoPeriodo = -nom.DtResultados.Rows[0]["CveTipoPeriodo"].ToString().ToEntero();
} }
if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, -4)) if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, CveTipoPeriodo))
{ {
var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias"); var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");

9
Nomina/ReportedeAcumulados.aspx
View File

@@ -321,7 +321,14 @@
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSucursal" runat="server"></asp:Literal> <asp:Literal ID="LtlSucursal" runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="1500px" HorizontalAlign="Left" /> <ItemStyle Width="150px" HorizontalAlign="Left" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>NSS</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlNSS" Text='<%# Eval("NumeroSS")%>' runat="server"></asp:Literal>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Left" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Registro Patronal</HeaderTemplate> <HeaderTemplate>Registro Patronal</HeaderTemplate>

53
Nomina/ReportedeAcumulados.aspx.cs
View File

@@ -196,7 +196,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
//string ctipo = "P"; //string ctipo = "P";
int CurrentColumn = 4; int CurrentColumn = 5;
BoundField bf; BoundField bf;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows) foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows)
{ {
@@ -407,13 +407,28 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
libro.Cell(1, column).Value = " "; libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Codigo"; libro.Cell(2, column).Value = "Codigo";
libro.Cell(3, column).Value = " "; libro.Cell(3, column).Value = " ";
column++; column++;
libro.Cell(1, column).Value = " "; libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Empleado"; libro.Cell(2, column).Value = "Empleado";
libro.Cell(3, column).Value = " "; libro.Cell(3, column).Value = " ";
libro.Column(column).Width = 35; libro.Column(column).Width = 35;
column++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Sucursal";
libro.Cell(3, column).Value = " ";
libro.Column(column).Width = 35;
column++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "NSS";
libro.Cell(3, column).Value = " ";
libro.Column(column).Width = 35;
column++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Registro Patronal";
libro.Cell(3, column).Value = " ";
libro.Column(column).Width = 35;
int iniciotipe = column; int iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows) foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
{ {
@@ -520,11 +535,17 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
} }
column = 1; column = 1;
libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]); libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]);
column++; column++;
if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); } if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; } if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
libro.Cell(Fila, column).Value = erow["Nombre"]; libro.Cell(Fila, column).Value = erow["Nombre"];
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows) column++;
libro.Cell(Fila, column).Value = erow["SubProyecto"];
column++;
libro.Cell(Fila, column).Value =string.Format("'{0}", erow["NumeroSS"]);
column++;
libro.Cell(Fila, column).Value = erow["RegistroPatronal"];
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
{ {
column++; column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]); string Concepto = string.Format("V_{0}", row["CveConcepto"]);
@@ -594,11 +615,11 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
if (newsubproyecto) if (newsubproyecto)
{ {
libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228)); libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
libro.Range(Fila - 3, 3, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00"; libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila - 3, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number; libro.Range(Fila - 3,6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
} }
libro.Range(Fila , 3, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00"; libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number; libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
} }

5
OI/Circular.aspx
View File

@@ -68,11 +68,12 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario,FechaIng" EmptyDataText="No se encontraron Circulares"
ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None"> ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: left; width: 100%" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" /> <asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
<asp:HyperLinkField HeaderText="Usuario" DataTextField="Usuario" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" /> <asp:HyperLinkField HeaderText="Usuario" DataTextField="Usuario" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
<asp:HyperLinkField HeaderText="Fecha Ing." DataTextField="FechaIng" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" ItemStyle-Width="250px" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

3
OI/Circular.aspx.vb
View File

@@ -30,7 +30,7 @@ Partial Class OI_Circular
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjOI As New ClsOIEventos Dim ObjOI As New ClsOIEventos
@@ -40,6 +40,7 @@ Partial Class OI_Circular
End If End If
ObjOI.Dispose() ObjOI.Dispose()
GvDatos.DataBind() GvDatos.DataBind()
UpDatos.Update()
End Sub End Sub
Protected Sub btConsultar_Click() Handles btConsultar.Click Protected Sub btConsultar_Click() Handles btConsultar.Click

28
OI/CircularDetalleB.aspx
View File

@@ -108,14 +108,14 @@
<h3 class="panel-title">Asunto</h3> <h3 class="panel-title">Asunto</h3>
</div> </div>
<div class="bodycorreos"> <div class="bodycorreos">
<asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control "></asp:TextBox> <asp:TextBox ID="TxtAsunto" text="Circular " runat="server" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="pnlCorreo" style="margin-bottom: 5px;"> <div class="pnlCorreo" style="margin-bottom: 5px;">
<div class="headerCorreo headerCorreoCCP" style="background-color: transparent;"> <div class="headerCorreo headerCorreoCCP" style="background-color: transparent; float:right;">
<h3 class="panel-title ">Adjuntar Archivos:</h3> <h3 class="panel-title ">Adjuntar Archivos:</h3>
<asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
@@ -137,6 +137,7 @@
<div class="text-center"> <div class="text-center">
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" /> <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" />
<asp:Button ID="BtnCancelar" PostBackUrl="Circular.aspx" runat="server" CssClass="btn btn-danger" Style="margin-left: 20px!important;" Text="Cancelar" Visible="true"/>
<asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> <asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</div> </div>
@@ -173,7 +174,7 @@
<div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server"> <div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged" AutoPostBack="true" /> <asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged" AutoPostBack="true"/>
<asp:Label runat="server" Text="Perfil:" AssociatedControlID="DdlRoles"></asp:Label> <asp:Label runat="server" Text="Perfil:" AssociatedControlID="DdlRoles"></asp:Label>
</div> </div>
</div> </div>
@@ -221,8 +222,8 @@
<div class="row" > <div class="row" >
<div class="row col-md-12" align="right" style="margin-top:5px!important"> <div class="row col-md-12" align="right" style="margin-top:5px!important">
<input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="filtrarx()" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="filtrarx()" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
</div> </div>
@@ -315,7 +316,6 @@
function chkAll_OncLick(chk) { function chkAll_OncLick(chk) {
$('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked); $('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked);
} }
//function showhideUser() { //function showhideUser() {
// // alert(CveRol); // // alert(CveRol);
@@ -346,12 +346,20 @@
// }); // });
// input.addClass('ConEvento'); // input.addClass('ConEvento');
//} //}
//function ADSReady() { function filtrarx() {
//console.log('Entre 3')
//var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id"));
//console.log(filtro)
FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val());
}
function ADSBegin() {
// loadeventos(); // loadeventos();
// showhideUser() // showhideUser()
//} }
//inicializa tablas select2me etc etc.....
function ADSReady() {
filtrarx();
}
</script> </script>
</asp:Content> </asp:Content>

24
OI/CircularDetalleB.aspx.cs
View File

@@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
ClsOIEventos ObjOI = new ClsOIEventos(); ClsOIEventos ObjOI = new ClsOIEventos();
if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa,DdlRoles.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero())) if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero()))
{ {
if (ObjOI.DtResultados.Rows.Count >= 1000) if (ObjOI.DtResultados.Rows.Count >= 1000)
@@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = dt; GVUsuarios.DataSource = dt;
Alert($"{ObjOI.DtResultados.Rows.Count } registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia); Alert($"{ObjOI.DtResultados.Rows.Count} registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia);
} }
else else
{ {
@@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = null; GVUsuarios.DataSource = null;
} }
RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";"); RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";");
ObjOI.Dispose(); ObjOI.Dispose();
GVUsuarios.DataBind(); GVUsuarios.DataBind();
UpModalSeleccionCorreos.Update(); UpModalSeleccionCorreos.Update();
} }
protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -301,7 +298,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate)) if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate))
{ {
GuardarArchivo(CveCircular); GuardarArchivo(CveCircular);
Alert("Actualizado correctamente"); Alert("La circular se ha actualizado correctamente.");
} }
} }
else else
@@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
if (CircularInsertado > 0) if (CircularInsertado > 0)
{ {
GuardarArchivo(CircularInsertado); GuardarArchivo(CircularInsertado);
Alert("Ingresado correctamente"); Alert("La circular se ha guardado correctamente.");
CveCircular = CircularInsertado; CveCircular = CircularInsertado;
if (CveCircular > 0) if (CveCircular > 0)
@@ -443,7 +440,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text); MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
Contador += 1; Contador += 1;
} }
Alert("El correo se envió correctamente"); Alert("El correo se envió correctamente.");
} }
catch (Exception ) catch (Exception )
{ {
@@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e) protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e)
{ {
ConsultaCorreos(); //ConsultaCorreos();
} // Filtro las filas según el dropdown option
//RegistraScript("console.log('Entre 1')");
//RegistraScript($"FiltrarTablaStrMulti('{GVUsuarios.ClientID}', null, sotext('{DdlRoles.ClientID}'), $('#TxtBusquedaCorreos').val());");
}
protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e)
{ {
ConsultaCorreos(); ConsultaCorreos();
} }
@@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e) protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
{ {
// ConsultaCorreos(); ConsultaCorreos();
} }
protected void LnlActualizarCorreos_Click(object sender, EventArgs e) protected void LnlActualizarCorreos_Click(object sender, EventArgs e)

11
RH/CatTurno.aspx
View File

@@ -39,7 +39,7 @@
</div> </div>
<table id="thheader" style="display: none;"> <table id="thheader" style="display: none;">
<tr> <tr>
<th colspan="4"></th> <th colspan="6"></th>
<th class="bright bleft" colspan="2">Entrada</th> <th class="bright bleft" colspan="2">Entrada</th>
<th class="bright bleft">Salida</th> <th class="bright bleft">Salida</th>
<th colspan="4"></th> <th colspan="4"></th>
@@ -50,9 +50,16 @@
DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta"> DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta">
<Columns> <Columns>
<asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" /> <%--<asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" />--%>
<asp:BoundField DataField="HorarioDe" HeaderText="Hr. Entrada" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="HorarioDe" HeaderText="Hr. Entrada" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="HorarioA" HeaderText="Hr. Salida" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="HorarioA" HeaderText="Hr. Salida" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="ComidaDe" HeaderText="Hr.Comida E" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="ComidaA" HeaderText="Hr. Comida S" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comida">
<ItemTemplate>
<asp:Label ID="LblEstatusZ" runat="server" Text='<%# Eval("SComida") %>'>></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ToleranciaERetardo" HeaderStyle-CssClass=" bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="ToleranciaERetardo" HeaderStyle-CssClass=" bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="ToleranciaEFalta2" HeaderStyle-CssClass="bright " HeaderText="Retardo" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="ToleranciaEFalta2" HeaderStyle-CssClass="bright " HeaderText="Retardo" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="ToleranciaSFalta" HeaderStyle-CssClass="bright bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="ToleranciaSFalta" HeaderStyle-CssClass="bright bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />

41
Scripts/custom.js
View File

@@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) {
function log(mensaje) { function log(mensaje) {
console.log(mensaje); console.log(mensaje);
} }
function soval(dropdown) {
return $('option:selected', '#' + dropdown).val();
}
function sotext(dropdown) {
return $('option:selected', '#' + dropdown).text();
}
function FiltrarTabla(idtxt, idtable, idcontador) { function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); } if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); }
else { else {
@@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length); $('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
} }
} }
function FiltrarTablaStr(str, idtable, idcontador) {
if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); }
else {
$('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
$('table#' + idtable + ' tr:contains("' + str + '")').css('display', '');
$('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
}
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) {
if (arguments.length <= 2) { return; }
let strc = '';
for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) {
let str = arguments[i];
if (str != '' && str != 'Todos') {
strc += ':contains("' + str + '")';
}
}
$('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
$('table#' + idtable + ' tr' + strc).css('display', '');
$('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
if (idcontador) {
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
}
function FiltrarTablaClass(idtxt, idtable, idcontador, resta) { function FiltrarTablaClass(idtxt, idtable, idcontador, resta) {
if (resta == null) { if (resta == null) {
resta =1 resta =1

14
Ventas/Clientes.aspx.vb
View File

@@ -1130,10 +1130,6 @@ Partial Class Clientes
End If End If
End If End If
ObjCliente.Dispose() ObjCliente.Dispose()
DdlSucursalCliente.DataBind() DdlSucursalCliente.DataBind()
@@ -1148,9 +1144,9 @@ Partial Class Clientes
DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.DataBind()
DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClienteSucursalEnvio.SelectedValue = "-1" DdlClienteSucursalEnvio.SelectedValue = "-1"
End Sub
Private Sub CargaSubProyectosSuscursales()
CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
End Sub End Sub
Private Sub CargaGridRetenciones() Private Sub CargaGridRetenciones()
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -1161,10 +1157,6 @@ Partial Class Clientes
ObjClientes.Dispose() ObjClientes.Dispose()
GvRetenciones.DataBind() GvRetenciones.DataBind()
End Sub End Sub
Private Sub CargaCuentasEquipos() Private Sub CargaCuentasEquipos()
Dim Objeto As New ClsGenerales Dim Objeto As New ClsGenerales
If Objeto.GetCuentasEquipos(CveCliente, -1) Then If Objeto.GetCuentasEquipos(CveCliente, -1) Then

2
Ventas/Ventas.aspx.vb
View File

@@ -35386,7 +35386,7 @@ Partial Class Ventas
DdlRegimenFiscalCliente.DataBind() DdlRegimenFiscalCliente.DataBind()
Else Else
Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal") Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
Dim Val As String Dim Val As String = ""
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
'verifico que sino existe el valor. lo limpie 'verifico que sino existe el valor. lo limpie