This commit is contained in:
2023-02-17 16:14:34 -07:00
30 changed files with 854 additions and 582 deletions

View File

@@ -0,0 +1,104 @@
<%@ Page Language="C#" AutoEventWireup="true" MasterPageFile="~/Site.master" CodeFile="RepAcumuladoresVigencia.aspx.cs" Inherits="Acumuladores_RepAcumuladoresVigencia" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Reporte de Vigencia de Acumuladores
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<%-- <li>
<asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i>Generar PDF</asp:LinkButton>
</li>--%>
<li>
<asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Exportar Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1 ">Clasificación:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="100%"></asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Text="SubProyecto"></asp:Label>
<div class="col-md-2">
<asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
</div>
<label class="col-md-1 ">Fecha Inicial:</label>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<label class="col-md-1 ">Fecha Final:</label>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
<div class="portlet-body">
</div>
</div>
<div class="row">
<div class="Widthall" style="text-align: right! important;">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvAcum.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 200px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvAcum.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None"
CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" >
<Columns>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />
<asp:BoundField DataField="Codigo" HeaderText="Código" />
<asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />
<asp:BoundField DataField="Serie" HeaderText="Serie" />
<asp:BoundField DataField="Fecha" DataFormatString="{0:d}" HeaderText="Fecha" />
<asp:BoundField DataField="mesestranscurridos" HeaderText="M.Transc." />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,99 @@
using Extensiones;
using System;
using System.Web.UI.WebControls;
public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
{
#region PROPIEDADES
private bool Consultado
{
get { return Consultado = (bool)ViewState["Consultado"]; }
set { ViewState["Consultado"] = value; }
}
#endregion
#region Exporta Excel PDF
protected void LnkExcel_Click(object sender, EventArgs e)
{
if (Consultado)
{
GvAcum.ExportToExcelG("RepAcumuladoresVigencia " + DateTime.Now.ToString("dd-MM-yyyy"), "Reporte de Vigencia de Acumuladores", UsuarioActual);
}
else
{
Alert("Por favor realice una consulta primero.");
}
}
/*
protected void LnkPdf_Click(object sender, EventArgs e)
{
if (Consultado)
{
GvAcum.GenerarReportePDF("Reporte de Autorizaciones de Ventas");
}
else
{
Alert("Por favor realice una consulta primero.");
}
}*/
public override void VerifyRenderingInServerForm(System.Web.UI.Control control)
{
}
#endregion
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
InicializaValores();
}
}
private void InicializaValores()
{
Consultado = false;
CargaCombos();
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-24).ToShortDateString();
txtFechaF.Text = DateTime.Now.LastDayOfMonth().AddMonths(-6).ToShortDateString();
UpFiltros.Update();
}
private void CargaCombos()
{
CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
DdlClasificaciones.DataBind();
DdlClasificaciones.Items.Insert(0, new ListItem("Todos", "-1"));
}
protected void BtnConsultar_Click(object sender, EventArgs e)
{
Consulta();
Consultado = true;
}
private void Consulta()
{
ClsAcumuladores ObjAcum = new ClsAcumuladores();
if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()))
{
GvAcum.DataSource = ObjAcum.DtResultados;
}
ObjAcum.Dispose();
GvAcum.DataBind();
UpDatos.Update();
}
/*protected void GvAcum_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.RowIndex == 0)
{
e.Row.Cells[0].Text = "Total";
e.Row.CssClass = "Totales";
}
}
}*/
}

View File

@@ -1312,11 +1312,35 @@ Public Class ClsAcumuladores
End Try
Return Retorno
End Function
End Function
#Region "VIGENCIA ACUMULADORES"
Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_Inv_ProductosFechasComprasSerie")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@FechaIni", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al consultar los productos por serie.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region " IDisposable Support "
' IDisposable
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then

View File

@@ -9354,6 +9354,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543)
PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
PaginaDict.Add("/Acumuladores/RepPolizasVirtuales.aspx".ToUpper(), 1322)
PaginaDict.Add("/Acumuladores/RepAcumuladoresVigencia.aspx".ToUpper(), 174)
#End Region
'Antes de aquí.
Application("GlobalSIGAppPaginas") = PaginaDict

View File

@@ -1861,6 +1861,9 @@ Partial Class Bancos_ProveedoresAbonar
Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, "Saldado de facturas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each gr As GridViewRow In GvCxP.Rows
If gr.FCCheckBox("Chk").Checked Then
Dim IdCtaContable As Integer = CtaProveedor
@@ -1889,7 +1892,6 @@ Partial Class Bancos_ProveedoresAbonar
Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString)
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
IdCtaContable = IdCtaContComplementaria

View File

@@ -404,6 +404,21 @@ Partial Class Bancos_Transferencias
End If
End If
If MsgError = "" Then
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If
Else
MsgError = "No se pudo validar la prepoliza de cuadre."
End If
End If
If MsgError = "" Then
'Conta ContPAQ
@@ -449,16 +464,7 @@ Partial Class Bancos_Transferencias
If MsgError = "" Then
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If
Else
MsgError = "No se pudo validar la prepoliza de cuadre."
End If
End If
If MsgError = "" Then

View File

@@ -16597,7 +16597,7 @@ Partial Class Compras_Compras
'HACEMOS CALCULOS
SubTotalIVA = TmpDT.SUM("IVA")
SubTotalIEPSIVA = TmpDT.SUM("IEPSPSIVA")
SubTotal = TmpDT.SUM("Total") + TmpDT.SUM("Descuento")
SubTotal = (TmpDT.SUM("Total") + TmpDT.SUM("Descuento")).RoundSQL(6)
RetIVA = TmpDT.SUM("RetIVA")
RetISR = TmpDT.SUM("RetISR")
IEPSPS = TmpDT.SUM("IEPSPS")

View File

@@ -130,6 +130,8 @@ Partial Class Compras_RepNotasCredito
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
Dim MensajeAlert = New StringBuilder
CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, 0, 0, 1, TxtFechaSaldar.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each gr As GridViewRow In GvDatos.Rows
If gr.FCCheckBox("Chk").Checked Then
IdCtaContable = 0
@@ -139,9 +141,6 @@ Partial Class Compras_RepNotasCredito
TCCompra = gr.DataKey("TipoCambio").ToDecimal
CveMoneda = gr.DataKey("CveMoneda").ToEntero
CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaSaldar.Text.ToDate, "Saldado manual", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveMoneda > 1 Then
IdCtaContable = gr.DataKey("IdCtaContExtranjera").ToEntero
ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL

View File

@@ -65,24 +65,25 @@
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" Text="Consultar" CssClass="btn btn-primary" runat="server" OnClick="BtnConsultar_Click" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption ">
<div class="row">
<ul class="list-inline text-size-12">
<div class="row">
<div class="col-md-12">
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
<div class="col-md-1 " runat="server" id="LiEjercicioDdl">
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="false">Ejercicio Fin: </label>
<div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="false">
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LiPeriodoLbl" >Periodo: </label>
<label class="col-md-1" runat="server" id="LiPeriodoLbl">Periodo: </label>
<div class="col-md-1 " runat="server" id="LiPeriodoDdl">
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="100%" CssClass="select2me">
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
@@ -101,39 +102,53 @@
</div>
<label class="col-md-1" runat="server" id="LiSubProyectoLbl">
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
<label class="col-md-1" runat="server" id="LiSubProyectoLbl">
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
</label>
<div class="col-md-2 " runat="server" id="LiSubProyectoDdl">
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%" >
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%">
</asp:DropDownList>
</div>
<label class="col-md-1" style="width: 80px;" runat="server" id="LiDivisorLbl">Divisor: </label>
<div class="col-md-1 " runat="server" id="LiDivisorDdl">
<asp:DropDownList ID="DdlDivisor" runat="server" Width="100%" CssClass="form-control input-sm select2me" >
<asp:ListItem Text="1" Value="1"></asp:ListItem>
<asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
<asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<label class="col-md-1" runat="server" id="LblTri">
Trimestre<br>
Cuatrimestre:
</label>
<div class="col-md-1 " runat="server" id="DVTri">
<asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100%" AutoPostBack="true">
<asp:ListItem Value="0">NO</asp:ListItem>
<asp:ListItem Value="1">Trimestre</asp:ListItem>
<asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
</asp:DropDownList>
</div>
</ul>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
<div class="row">
<div class="col-md-12">
<label class="col-md-1" runat="server" id="LiDivisorLbl">Divisor: </label>
<div class="col-md-1 " runat="server" id="LiDivisorDdl">
<asp:DropDownList ID="DdlDivisor" runat="server" Width="100%" CssClass="form-control input-sm select2me">
<asp:ListItem Text="1" Value="1"></asp:ListItem>
<asp:ListItem Text="1,000" Value="1000"></asp:ListItem>
<asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate" runat="server" id="LblTri">
Trimestre
Cuatrimestre:
</label>
<div class="col-md-1 " runat="server" id="DVTri">
<asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100%" AutoPostBack="true">
<asp:ListItem Value="0">NO</asp:ListItem>
<asp:ListItem Value="1">Trimestre</asp:ListItem>
<asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>

View File

@@ -1958,6 +1958,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ")
DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone()
Dim Row As DataRow = DtIngresosSubProyectoH.NewRow
Dim TotalActual = 0.0, TotalAnterior = 0.0
@@ -1988,81 +1990,80 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
listaCampos.Clear()
If DtIngresosSubProyectoH.Rows.Count > 0 Then
Dim DTProcesaColumnas As DataTable = If(DtIngresosSubProyectoH.Rows.Count > 0, DtIngresosSubProyectoH, DtGastosSubProyectoH)
For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns
For Each dColumn As DataColumn In DTProcesaColumnas.Columns
If IndexData >= 13 Then
If IndexSubProyecto <= IndexSubProyectoMax Then
If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvGastosSubProyectoH.Columns(IndexGv).Visible = True
If IndexSubProyecto <= IndexSubProyectoMax Then
Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
If dColumn.ColumnName = "SinSubProyecto" Then
TxtSub = "Sin SubProyecto"
End If
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
End If
If IndexData >= 13 Then
If IndexSubProyecto <= IndexSubProyectoMax Then
If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
GvGastosSubProyectoH.Columns(IndexGv).Visible = True
If IndexSubProyecto <= IndexSubProyectoMax Then
Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
If dColumn.ColumnName = "SinSubProyecto" Then
TxtSub = "Sin SubProyecto"
End If
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%"
If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then
CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True
CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}"
GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
End If
End If
listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
End If
Else
If IndexGv < GvIngresosSubProyectoH.Columns.Count Then
GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
Else
Exit For
End If
listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
End If
IndexGv = IndexGv + 2
IndexSubProyecto = IndexSubProyecto + 1
IndexMax = IndexMax + 1
Else
If IndexGv < GvIngresosSubProyectoH.Columns.Count Then
GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
Else
Exit For
End If
End If
IndexData = IndexData + 1
If dColumn.ColumnName = "SinSubProyecto" Then
Exit For
End If
IndexGv = IndexGv + 2
IndexSubProyecto = IndexSubProyecto + 1
IndexMax = IndexMax + 1
Next
End If
IndexData = IndexData + 1
If dColumn.ColumnName = "SinSubProyecto" Then
Exit For
End If
Next
If DtIngresosSubProyectoH.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows
@@ -2074,7 +2075,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
End If
End If
Next
@@ -2091,6 +2097,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero
DtIngresosSubProyectoH.Rows.Add(Row)
Else
Row.Item("Nombre") = "INGRESOS "
Row.Item("ImporteActual") = "0.00"
Row.Item("ImporteAcumulado") = "0.00"
Row.Item("CtaMayor") = -1
DtIngresosSubProyectoH.Rows.Add(Row)
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = "0.00"
Row.Item("ImporteAcumulado") = "0.00"
@@ -2113,14 +2128,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
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)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
End If
End If
Next
Row.Item("Nombre") = "Resultado del ejercicio"
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")
Row.Item("CtaMayor") = -2
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero
DTTotalesSubProyectoH.Rows.Add(Row)

View File

@@ -536,16 +536,17 @@
<asp:BoundField HeaderText="Turno" DataField="CobranzaEstatusTurno" Visible="false" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Observación" DataField="CobranzaObservacion" Visible="false" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha Cobranza" DataField="FechaCobranza" DataFormatString="{0:d}" Visible="True" />
<asp:BoundField HeaderText="Horario" DataField="Horario" DataFormatString="{0}" Visible="false" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Dias Pago" DataField="DiasPago" DataFormatString="{0}" Visible="false" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Horario" DataField="Horario" DataFormatString="{0}" Visible="false" />
<asp:BoundField HeaderText="Dias Pago" DataField="DiasPago" DataFormatString="{0}" Visible="false" />
<asp:BoundField HeaderText="Se Envio Mail?" DataField="EnvioMail" DataFormatString="{0}" Visible="false" />
<asp:BoundField HeaderText="Estatus Cliente" DataField="Estatus" Visible="false" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="IEPS" DataField="IEPS" Visible="false" />
<asp:BoundField HeaderText="Dias Trans" DataField="DiasTranscurridos" DataFormatString="{0}" Visible="false" />
<asp:BoundField HeaderText="T.C." DataField="TipoCambio" DataFormatString="{0}" Visible="false" />
<asp:BoundField HeaderText="Fecha Ejecución" DataField="FechaEjecucion" DataFormatString="{0:d}" Visible="false" />
<asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Descripción" DataField="DescripcionVenta" ItemStyle-HorizontalAlign="Center" Visible="false" />
<asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" Visible="false" />
<asp:BoundField HeaderText="Descripción" DataField="DescripcionVenta" Visible="false" />
<asp:BoundField HeaderText="Contrato" DataField="NumeroContrato" Visible="false" />
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -675,7 +676,8 @@
<asp:CheckBox ID="ChkMostrarLineaAdicional" runat="server" Text="&nbsp;Linea Adicional" Checked="false" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkMostrarDescripcionVenta" runat="server" Text="&nbsp;Descripción Venta" Checked="false" /></td>
<td style="text-align: left;"></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkContrato" runat="server" Text="&nbsp;Contrato" Checked="false" /></td>
<td style="text-align: left;"></td>
</tr>

View File

@@ -265,7 +265,7 @@ Partial Class RepCxCDetalle
DdlSubProyecto.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaResponsable
@@ -878,6 +878,12 @@ Partial Class RepCxCDetalle
GvDatos.Columns(46).Visible = False
End If
If ChkContrato.Checked Then
GvDatos.Columns(47).Visible = True
SePersonalizo = 1
Else
GvDatos.Columns(47).Visible = False
End If
If SePersonalizo = 1 Then

View File

@@ -76,7 +76,13 @@
<li>SubProyecto:
<asp:DropDownList ID="DdlSubProyecto" Width="130px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
</li>
<li>Divisor:
</ul>
</div>
</div>
<div class="portlet-body" style="display: none">
<ul class="list-inline" style="font-size: 12px;">
<li>Divisor:
<asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Text="Unidad" Value="1"></asp:ListItem>
<asp:ListItem Text="Miles" Value="1000" Selected="True"></asp:ListItem>
@@ -89,9 +95,8 @@
<asp:ListItem Text="Con saldo" Value="1" Selected="True"></asp:ListItem>
</asp:DropDownList>
</li>
</ul>
</div>
</div>
</ul>
</div>
</div>
</asp:Panel>
</ContentTemplate>

View File

@@ -35,10 +35,6 @@
}
}
#C_myhidenbutton {
display: none;
}
.psagregar {
width: 100%;
text-align: center;
@@ -1790,12 +1786,12 @@
<br />
</div>
<div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="hidden">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<br />
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlProducto2.ClientID.ToString()%>">Clasificación Producto</label>
<%--<br />--%>
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssClass="form-control input-sm select2me" CssStyle="width: 50%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label style="line-height: 0.8" for="<%= DdlProducto2.ClientID.ToString()%>">Producto</label>
<br />
</div>
<div runat="server" id="divUnidadMedida" class="form-group form-md-line-input input-iconright">

View File

@@ -3464,7 +3464,6 @@ Partial Class Inventarios_EntradasSalidas
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
End If
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
TrSubProyectoActivoFijo.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
@@ -3473,6 +3472,11 @@ Partial Class Inventarios_EntradasSalidas
CargaCultivos()
End If
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'citrícola
TrSubProyectoActivoFijo.Visible = True
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
End If
TrActivoFijo.Visible = True
DdlActivoFijo.Items.Clear()

View File

@@ -296,10 +296,14 @@ public partial class Nomina_CatConcepto : ClsPaginas
DdlCtaContable.DataSource = ObjConta.DtResultados;
DdlCtaContable.DataBind();
DdlCtaContableB.DataSource = ObjConta.DtResultados;
DdlCtaContableB.DataBind();
}
}
DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCtaContable.SelectedValueExist("-1");
DdlCtaContableB.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCtaContableB.SelectedValueExist("-1");
}
}

View File

@@ -413,6 +413,14 @@
DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar">
</asp:DropDownList>
</div>
<label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 65px;">Finiquito:</label>
<div class="col-md-1">
<asp:DropDownList ID="ddlfiniquito" runat="server" Style="width: 100% !important;" CssClass="select2me">
<asp:ListItem Text="Mostrar" Value="1"></asp:ListItem>
<asp:ListItem Text="Ocultar" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-2" style="max-width: 160px !important; white-space: nowrap;">
<label class="compoonenlabel">Ver obligaciones:</label>
<asp:CheckBox ID="Chkobligaciones" Text=" " CssClass="chksino" runat="server" />

View File

@@ -249,7 +249,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (!IsPostBack)
{
LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") ||(UsuarioActual.CveRol == 1);
LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1);
if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); }
using (ClsRH objrh = new ClsRH())
{
if (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa))
@@ -555,7 +556,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
LnkFormatoTabular.Visible = true;
HypPDFSTimbrados.Visible = true;
if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador) && objnom.DTSetResultados.Tables.Count > 4)
if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador,Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
{
dtempleados = objnom.DTSetResultados.Tables[3];
dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
@@ -1210,41 +1211,68 @@ public partial class Nomina_Nomina2 : ClsPaginas
objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto" });
}
foreach (GridViewRow gvRow in GvNominas.Rows)
using (ClsRH objrh = new ClsRH())
using (ClsNominas ObjNomina = new ClsNominas())
{
CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero());
LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
string Correo = string.Empty;
string NombreCompleto = string.Empty;
if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
foreach (GridViewRow gvRow in GvNominas.Rows)
{
Correo = drow["Correo"].ToString();
NombreCompleto = drow["NombreCompleto"].ToString();
}
if (CvePersonal > 0 && SeTimbro == 1)
{
if (Correo.Trim().Length > 0)
CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero());
LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
string Correo = string.Empty;
string NombreCompleto = string.Empty;
if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
{
byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
if (pdf != null)
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
// Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
using (ClsRH objrh = new ClsRH())
{
objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
}
}
Correo = drow["Correo"].ToString();
NombreCompleto = drow["NombreCompleto"].ToString();
}
if (CvePersonal > 0 && SeTimbro == 1)
{
if (Correo.Trim().Length > 0)
{
byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
if (pdf != null)
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
{
string Ruta = "";
string PathXML = "";
string PathXMLF = "";
string Xmlname = "";
string XmlnameF = "";
string empleado = "";
Ruta = UsuarioActual.Empresa.Ruta;
PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
Xmlname = $"{ObjNomina.SerieFolio}.xml";
XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
}
if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
}
}
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
// Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
}
}
}
}
}
Alert("se reenviaron los recibos timbrados");
@@ -1298,7 +1326,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto", "RFC", "CURP" });
}
foreach (GridViewRow gvRow in GvNominas.Rows)
using (ClsNominas ObjNomina = new ClsNominas()) {
foreach (GridViewRow gvRow in GvNominas.Rows)
{
CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
@@ -1347,6 +1376,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
{
string Ruta = "";
string PathXML = "";
string PathXMLF = "";
string Xmlname = "";
string XmlnameF = "";
string empleado = "";
Ruta = UsuarioActual.Empresa.Ruta;
PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
Xmlname = $"{ObjNomina.SerieFolio}.xml";
XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
}
if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
}
}
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
//Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
using (ClsRH objrh = new ClsRH())
@@ -1362,6 +1415,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
}
}
if (msggral.Length > 0)
{
@@ -1438,11 +1492,39 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (Correo.Trim().Length > 0)
{
byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
if (pdf != null)
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
using (ClsNominas ObjNomina = new ClsNominas())
{
if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
{
string Ruta = "";
string PathXML = "";
string PathXMLF = "";
string Xmlname = "";
string XmlnameF = "";
string empleado = "";
Ruta = UsuarioActual.Empresa.Ruta;
PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
Xmlname = $"{ObjNomina.SerieFolio}.xml";
XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
}
if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
}
}
}
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
using (ClsRH objrh = new ClsRH())
{
@@ -1522,6 +1604,34 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
using (ClsNominas ObjNomina = new ClsNominas())
{
if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
{
string Ruta = "";
string PathXML = "";
string PathXMLF = "";
string Xmlname = "";
string XmlnameF = "";
string empleado = "";
Ruta = UsuarioActual.Empresa.Ruta;
PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
Xmlname = $"{ObjNomina.SerieFolio}.xml";
XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
}
if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
{
objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
}
}
}
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
using (ClsRH objrh = new ClsRH())
{
@@ -1768,9 +1878,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
protected void LnkCargarNominaNetos_Click(object sender, EventArgs e)
{
LnkCargarNomina_Click(sender, e);
LnkCargarNomina_Click(sender, e);
}
protected void LnkFormatoNetos_Click(object sender, EventArgs e)
protected void LnkFormatoNetos_Click(object sender, EventArgs e)
{
try
{
@@ -2119,7 +2229,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
StringBuilder str = new StringBuilder("0");
bool continuar = true;
str.AppendFormat(",{0}", DdlUnConcepto.SelectedValue.ToEntero());
str.AppendFormat(",{0}", DdlUnConcepto.SelectedValue.ToEntero());
string msgerror = "";
if (dtConceptos == null || dtConceptos.Columns.Count <= 2)
{
@@ -2132,12 +2242,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var libro = wb.AddWorksheet("Nomina");
int column = 1;
int column = 1;
libro.Cell(1, column).Value = "Codigo";
column++;
libro.Cell(1, column).Value = "Empleado";
libro.Column(column).Width = 35;
DataTable dtcP = dtConceptos.FiltraParametros(string.Format(" CveConcepto in({0})", str));
DataTable dtcP = dtConceptos.FiltraParametros(string.Format(" CveConcepto in({0})", str));
foreach (DataRow row in dtcP.Rows)
{
column++;
@@ -2736,7 +2846,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias");
// Carga Motivos Horas Extras
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind();
if (e.Row.DBCampo("CveMotivoHoraExtra") != "-1")
e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra");
@@ -6828,7 +6938,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
if (DdlMotivoHoraExtra.Items.Count == 1)
{
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
DdlMotivoHoraExtra.DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
DdlMotivoHoraExtra.DataBind();
}
@@ -6947,7 +7057,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
while (Neto != NetoSimulado && continuarV)
{
if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto)
if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto,ddlfiniquito.SelectedValue.ToEntero())
&& objnom.DTSetResultados.Tables.Count > 1)
{
dtempleadosSimula = objnom.DTSetResultados.Tables[3];
@@ -8466,7 +8576,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
int CveTipoPeriodo=0;
int CveTipoPeriodo = 0;
using (ClsNominas nom = new ClsNominas())
{
if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0))
@@ -8476,7 +8586,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
CveTipoPeriodo = -nom.DtResultados.Rows[0]["CveTipoPeriodo"].ToString().ToEntero();
}
if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, CveTipoPeriodo))
if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, CveTipoPeriodo))
{
var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");

View File

@@ -1,169 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepConceptosAcumulados.aspx.vb" Inherits="Nomina_RepConceptosAcumulados" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
th[align="left"]{
text-align :left !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<asp:ImageButton ID="ImgImprimir" runat="server" ImageUrl="/Imagenes/btnImprimir.gif" Width="17px" Height="17px" Visible="false" Enabled="false" />
<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte Conceptos Acumulados
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody');</script>
<br />
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Concepto:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Ejercicio:</label>
<div class="col-md-1">
<asp:DropDownList ID="DDlEjercicio" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Text="2016" Value="2016"></asp:ListItem>
<asp:ListItem Text="2017" Value="2017"></asp:ListItem>
<asp:ListItem Text="2018" Value="2018"></asp:ListItem>
<asp:ListItem Text="2019" Value="2019"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Tipo Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%">
<fieldset>
<legend><b>Datos del Concepto</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>Tipo: </td>
<td>
<asp:Label ID="LblTipo" runat="server"></asp:Label></td>
<td width="80px">Codigo: </td>
<td width="140px">
<asp:Label ID="LblCodigo" runat="server"></asp:Label></td>
</tr>
<tr>
<td colspan ="4">
<asp:Label ID="LblFormula" runat="server" Visible="False"></asp:Label></td>
</tr>
</table>
</fieldset>
</td>
<td width="50%"></td>
<td width="50%" style="display :none;">
<fieldset>
<legend><b>Datos del Periodo</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="80px"> </td>
<td>
</td>
</tr>
<tr>
<td width="80px"> </td>
<td>
</td>
</tr>
<tr>
<td width="80px"> </td>
<td width="140px"></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover ScrollAD Widthall"
EmptyDataText="No se encontraron Movimientos de Percepciones y/o Deduciones" data-rows="2" ToolTip="Listado de Percepciones y/o Deducciones" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
Nombre
</HeaderTemplate>
<HeaderStyle HorizontalAlign="Left" />
<ItemTemplate>
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Actual
</HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate>
<asp:Literal ID="LtlActual" runat="server" Text='<%# Eval("Actual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"/>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Anterior
</HeaderTemplate>
<HeaderStyle Width="150px" />
<ItemTemplate>
<asp:Literal ID="LtlAnterior" runat="server" Text='<%# Eval("Anterior", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Anual
</HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate>
<asp:Literal ID="LtlAnual" runat="server" Text='<%# Eval("Anual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -1,133 +0,0 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data
Partial Class Nomina_RepConceptosAcumulados
Inherits ClsPaginas
#Region "Propiedades"
Private ReadOnly Property CveConcepto As Integer
Get
Return ViewState("CveConcepto").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CveTipoPeriodo As Integer
Get
Return ViewState("CveTipoPeriodo").ToString.ToEntero
End Get
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaConceptos()
CargaTiposPeriodos()
If Request("CveConcepto") IsNot Nothing AndAlso IsNumeric(Request("CveConcepto")) AndAlso Request("CveConcepto").ToEntero > 0 Then
ViewState("CveConcepto") = Request("CveConcepto")
DdlConcepto.SelectedValue = CveConcepto.ToString
Else
ViewState("CveConcepto") = -1
End If
If Request("CveTipoPeriodo") IsNot Nothing AndAlso IsNumeric(Request("CveTipoPeriodo")) AndAlso Request("CveTipoPeriodo").ToEntero > 0 Then
ViewState("CveTipoPeriodo") = Request("CveTipoPeriodo")
DdlTipoPeriodo.SelectedValue = CveTipoPeriodo.ToString
Else
ViewState("CveTipoPeriodo") = -1
End If
CargaDatos()
End If
End Sub
Private Sub CargaConceptos()
DdlConcepto.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("", "Concepto")
DdlConcepto.DataBind()
End Sub
Private Sub CargaTiposPeriodos()
Dim ObjTiposPeriodos As New ClsNominas
If ObjTiposPeriodos.GetTiposPeriodos() Then
DdlTipoPeriodo.DataSource = ObjTiposPeriodos.DtResultados
End If
ObjTiposPeriodos.Dispose()
DdlTipoPeriodo.DataBind()
End Sub
Private Sub CargaDatos()
If CveConcepto > 0 And CveTipoPeriodo > 0 Then
Dim ObjNomina As New ClsNominas()
'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
' GvDatos.DataSource = ObjNomina.DtResultados
'Else
' GvDatos.DataSource = Nothing
'End If
ObjNomina.Dispose()
GvDatos.DataBind()
UPDatos.Update()
End If
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Css As String = "Texto"
If e.Row.RowIndex = 0 Then
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(0).Width = Unit.Pixel(200)
'e.Row.Cells(1).Width = Unit.Pixel(100)
'e.Row.Cells(2).Width = Unit.Pixel(100)
'e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.CssClass = "Totales"
Css = "Totales"
End If
End If
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("ReporteConceptosAcumulados" & Now.ToShortDateString)
End Sub
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
ViewState("CveTipoPeriodo") = DdlTipoPeriodo.SelectedValue
'Saca el periodo activo
CargaPeriodos(DDlEjercicio.SelectedValue.ToEntero, DdlTipoPeriodo.SelectedValue.ToEntero)
CargaDatos()
End Sub
Private Sub CargaPeriodos(Ejercicio As Integer, CveTipoPeriodo As Integer)
Dim ObjTiposPeriodos As New ClsNominas
If ObjTiposPeriodos.GetPeriodos(CveTipoPeriodo, UsuarioActual.CveEmpresa, Ejercicio, -1, -1) Then
DdlPeriodo.DataSource = ObjTiposPeriodos.DtResultados
End If
ObjTiposPeriodos.Dispose()
DdlPeriodo.DataBind()
End Sub
Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
ViewState("CveConcepto") = DdlConcepto.SelectedValue
Dim Concepto As DataRow = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("CveConcepto = " & CveConcepto)(0)
LblCodigo.Text = Concepto("Codigo").ToString
LblFormula.Text = Concepto("Formula").ToString
LblTipo.Text = Concepto("TipoD").ToString
CargaDatos()
End Sub
Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
CargaDatos()
End Sub
End Class

View File

@@ -2424,7 +2424,12 @@
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField DataTextField="FolioCompra" Target="_blank" HeaderText="Folio Compra" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra" />
<asp:TemplateField HeaderText="Cantidad OC" ItemStyle-HorizontalAlign="Right">
<asp:BoundField DataField="CantidadOC" HeaderText="Cantidad OC" DataFormatString="{0:n2}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
<asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra" DataFormatString="{0:n2}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
<%-- <asp:TemplateField HeaderText="Cantidad OC" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="LtCantidadOC" runat="server" Text='<%# Eval("CantidadOC")%>'></asp:Literal>
</ItemTemplate>
@@ -2433,7 +2438,7 @@
<ItemTemplate>
<asp:Literal ID="LtCantidadCompra" runat="server" Text='<%# Eval("CantidadCompra")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</asp:TemplateField>--%>
<%--<asp:TemplateField HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="LtPendiente" runat="server" Text='<%# Eval("Pendiente")%>'></asp:Literal>

View File

@@ -266,53 +266,37 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpBusqueda" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6" runat="server">
<div class="row" style="padding-bottom: 13px;">
<div class="col-md-3" runat="server">
</div>
<div class="col-md-6">
<div class="col-md-6">
<div align="Right" id="DivTotalOC" runat="server" visible="false">
<div class="dashboard-stat2 " style="border-style: solid; border-color: whitesmoke; padding-top: 5px;">
<div class="display" style="margin-bottom: 0px">
<div class="number">
<h3 class="font-green-sharp">
<small class="font-green-sharp">$</small>
<span data-counter="counterup" data-value="1349">
<asp:Literal runat="server" ID="LblTotal"></asp:Literal>
</span>
</h3>
<small>TOTAL ORDENES DE COMPRA</small>
</div>
<div class="icon">
<i class="fa fa-money"></i>
</div>
</div>
</div>
<asp:UpdatePanel class="col-md-4" ID="UPPIndicador" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div id="DivIndicadores" align="Right" runat="server" visible="false">
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="col-md-4">
<div id="DivPorAtender" runat="server" visible="false">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPorAtender.ClientID) %>" style="display: inline-block; width: 200px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPorAtender.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div class="col-md-6">
<div id="DivPorAtender" runat="server" visible="false">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPorAtender.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPorAtender.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div id="DivPendiete" runat="server" visible="false">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvPendientes.ClientID) %>" style="display: inline-block; width: 200px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div id="DivPendiete" runat="server" visible="false">
<input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvPendientes.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div id="DivConsultar" runat="server" visible="false">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvConsultar.ClientID) %>" style="display: inline-block; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div id="DivConsultar" runat="server" visible="false">
<input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvConsultar.ClientID) %>" style="display: inline-block; width: 200px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>

View File

@@ -385,10 +385,17 @@ Partial Class RepOC
GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados
DtPorAtender = OC.DtResultados
LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
If UsuarioActual.TienePermisoProceso(227) Then
DivTotalOC.Visible = True
DivIndicadores.Visible = True
DivIndicadores.InnerHtml = String.Empty
Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra")
Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1")
Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2")
Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio)
MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
UPPIndicador.Update()
End If
'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
@@ -603,6 +610,17 @@ Partial Class RepOC
End Sub
#End Region
#Region "Indicadores"
Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String)
Dim htmldiv As New StringBuilder
htmldiv.AppendFormat("{0}<div class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
htmldiv.AppendFormat("<div class='details'><div class='number'>{0}</div><div class='desc'><label class='indicadortipo4 col-md-6 tooltips' data-original-title='{1}'>{2}</label>", Titulo, CT1, C1)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT2, C2)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT3, C3)
htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT4, C4)
htmldiv.AppendFormat("</div></div></div>")
DIV.InnerHtml = htmldiv.ToString
End Sub
#End Region
End Class

View File

@@ -28,9 +28,6 @@
<li>
<asp:LinkButton ID="LnkDescargar" OnClick="LnkDescargar_Click" runat="server"><i class="fa fa-ad-excel"></i> Descargar</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkFormatocMasiva" OnClick="LnkFormatocMasiva_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato carga masiva</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkModalCargaMasiva" OnClick="LnkModalCargaMasiva_Click" runat="server"><i class="fa fa-save"></i> Carga masiva</asp:LinkButton>
</li>
@@ -46,7 +43,6 @@
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescargar" />
<asp:PostBackTrigger ControlID="LnkFormatocMasiva" />
<%-- <asp:PostBackTrigger ControlID="LnkListaRaya" /> --%>
</Triggers>
</asp:UpdatePanel>
@@ -203,7 +199,8 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
Salario
<br />SUA
<br />
SUA
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="lblSalarioSUA" runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label>
@@ -839,7 +836,7 @@
</asp:UpdatePanel>
</div>
<div id="DmodalCargaMasiva" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpCargarm" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -848,10 +845,10 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Carga masiva salario</h4>
<h4 class="modal-title" runat="server" style="text-align: left">Carga masiva</h4>
</div>
<div class="modal-body">
<div class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
@@ -862,43 +859,59 @@
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<asp:LinkButton ID="LnkFormatocMasivaRegistroPatronal" CssClass="btn btn-default" OnClick="LnkFormatocMasivaRegistroPatronal_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato Registro Patronal</asp:LinkButton>
<asp:LinkButton ID="LnkFormatocMasiva" CssClass="btn btn-default" OnClick="LnkFormatocMasiva_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato Salario</asp:LinkButton>
</div>
</div>
</div>
<div class="portlet-body rowpadding ">
<div class="portlet-body rowpadding ">
<div class="row">
<asp:Label ID="Label2" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
<div class="col-md-2" id="Div2" runat="server">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="txtfechacargamasiva" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="lnkcargamasiva" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="txtfechacargamasiva" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtfechacargamasiva" PopupButtonID="lnkcargamasiva" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtfechacargamasiva" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 65px;">Tipo:</label>
<div class="col-md-4">
<asp:DropDownList ID="ddltipoCarga" runat="server" Style="width: 100% !important;" CssClass="select2me">
<asp:ListItem Text="Salario" Value="1"></asp:ListItem>
<asp:ListItem Text="Registro Patronal" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
<asp:Label ID="Label2" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
<div class="col-md-2" id="Div2" runat="server">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="txtfechacargamasiva" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="lnkcargamasiva" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="txtfechacargamasiva" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtfechacargamasiva" PopupButtonID="lnkcargamasiva" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtfechacargamasiva" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtfechacargamasiva" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
</div>
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkProcesarArchvo" OnClick="LnkProcesarArchvo_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkProcesarArchvo" OnClick="LnkProcesarArchvo_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
<Triggers>
<Triggers>
<asp:PostBackTrigger ControlID="LnkFormatocMasiva" />
<asp:PostBackTrigger ControlID="LnkFormatocMasivaRegistroPatronal" />
</Triggers>
</asp:UpdatePanel>
</div>

View File

@@ -2,6 +2,7 @@
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Net.Http.Headers;
using System.Text;
using System.Web;
using System.Web.UI;
@@ -237,12 +238,92 @@ public partial class RH_CalculoSBC : ClsPaginas
UpCargarm.Update();
RegistraScript("$('#DmodalCargaMasiva').modal();");
}
protected void LnkFormatocMasivaRegistroPatronal_Click(object sender, EventArgs e)
{
try
{
bool continuar = true;
string msgerror = "";
if (dtsalario == null || dtsalario.Rows.Count == 0)
{
msgerror = "favor de calcular primero";
continuar = false;
}
if (continuar)
{
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var libro = wb.AddWorksheet("Salario");
int column = 1;
libro.Cell(1, column).Value = "Codigo";
column++;
libro.Cell(1, column).Value = "Empleado";
column++;
libro.Cell(1, column).Value = "RegistroPatronal";
//column++;
//libro.Cell(1, column).Value = "SDI";
libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
int Fila = 1;
foreach (DataRow erow in dtsalario.Rows)
{
Fila++;
column = 1;
libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
column++;
libro.Cell(Fila, column).Value = erow["Nombre"];
column++;
libro.Cell(Fila, column).Value = erow["RegistroPatronal"];
//column++;
//////libro.Cell(Fila, column).Value = erow["SDI"];
////column++;
////libro.Cell(Fila, column).Value = erow["SalarioVariable"];
}
libro.Columns().AdjustToContents();
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
{
input.CopyTo(memoryStream);
}
memoryStream.Position = 0;
Response.Clear();
Response.Buffer = true;
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Plantilla Salario "));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
else
{
Alert(msgerror, TipoMensaje.MsgAdvertencia);
}
}
catch (Exception ex)
{
Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia);
}
}
protected void LnkFormatocMasiva_Click(object sender, EventArgs e)
{
try
{
bool continuar = true;
string msgerror = "";
if (dtsalario == null || dtsalario.Rows.Count == 0)
{
msgerror = "favor de calcular primero";
continuar = false;
}
if (continuar)
{
@@ -274,8 +355,8 @@ public partial class RH_CalculoSBC : ClsPaginas
column++;
libro.Cell(Fila, column).Value = erow["SalarioDiario"];
column++;
libro.Cell(Fila, column).Value = erow["SDI"];
//column++;
//libro.Cell(Fila, column).Value = erow["SDI"];
column++;
libro.Cell(Fila, column).Value = erow["SalarioVariable"];
}
@@ -313,24 +394,26 @@ public partial class RH_CalculoSBC : ClsPaginas
protected void LnkProcesarArchvo_Click(object sender, EventArgs e)
{
DataTable dttempsalario = null;
using (ClsNominas objnom = new ClsNominas())
if (ddltipoCarga.SelectedValue.ToEntero() == 1)
{
if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), txtfechacargamasiva.Text, DdlRegistroPatronal.SelectedValue.ToEntero()))
{
dttempsalario = objnom.DTSetResultados.Tables[0];
}
}
try
{
List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null;
DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true);
StringBuilder str = new StringBuilder();
bool rollback = false;
using (ClsRH objpersonal = new ClsRH())
DataTable dttempsalario = null;
using (ClsNominas objnom = new ClsNominas())
{
if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), txtfechacargamasiva.Text, DdlRegistroPatronal.SelectedValue.ToEntero()))
{
dttempsalario = objnom.DTSetResultados.Tables[0];
}
}
try
{
List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null;
DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true);
StringBuilder str = new StringBuilder();
bool rollback = false;
using (ClsRH objpersonal = new ClsRH())
using (ClsNominas objNomina = new ClsNominas(objpersonal.IniciaTransacSQL()))
{
@@ -380,10 +463,50 @@ public partial class RH_CalculoSBC : ClsPaginas
}
}
}
}
catch (Exception) { }
catch (Exception) { }
RegistraScript("$('#ModalDoctos').modal('hide');");
}
if (ddltipoCarga.SelectedValue.ToEntero() == 2)
{
List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null;
DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true);
StringBuilder str = new StringBuilder();
bool rollback = false;
using (ClsClaseBase objNomina = new ClsClaseBase( ))
using (ClsRH objpersonal = new ClsRH())
{
foreach (DataRow row in DTEXcel.FiltraParametros("LEN(Codigo)>0 ").Rows)
{
string Codigo = row["Codigo"].ToString();
int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero();
string RegistroPatronal = row["RegistroPatronal"].ToString() ;
int CveMetodoPago = 0;
if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) &&
objpersonal.DtResultados.Rows.Count == 1)
{
CvePersonal = objpersonal.CvePersonal;
CveMetodoPago = objpersonal.CveMetodoPago;
}
else
{
CvePersonal = 0;
str.AppendLine(string.Format("No se encontro el codigo {0}<br>", Codigo));
}
if (CvePersonal > 0)
{
objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalRPUpdate {0},'{1}'", CvePersonal, RegistroPatronal));
}
}
}
}
RegistraScript("$('#DmodalCargaMasiva').modal('hide');");
}
protected void LnkDownArchivosSua_Click(object sender, EventArgs e)
{

View File

@@ -5545,8 +5545,7 @@ Partial Class RH_Personal
Dim objConstancias As New ClsConstancias
Dim DocumenBitArray As Byte() = Nothing
Dim RutaDocumento As String = Server.MapPath("~")
'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx")
Dim RutaDocumento As String = DirectorioBaseEmpresas
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero()

View File

@@ -488,7 +488,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo
e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
@@ -514,15 +514,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white");
e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white");

View File

@@ -13,6 +13,15 @@ Partial Class CatMetasVendedores
End Set
End Property
Private Property DtDatos() As DataTable
Get
Return ViewState("DtDatos")
End Get
Set
ViewState("DtDatos") = Value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString
@@ -33,6 +42,7 @@ Partial Class CatMetasVendedores
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then
GvDatos.DataSource = ObjVentas.DtResultados
DtDatos = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
GvDatos.DataBind()
@@ -164,10 +174,26 @@ Partial Class CatMetasVendedores
DtExcel.Columns.Add(New DataColumn("Mes", GetType(String)))
DtExcel.Columns.Add(New DataColumn("Año", GetType(String)))
DtExcel.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
DtExcel.Columns.Add(New DataColumn("Ventas", GetType(Decimal)))
Dim dttE As DataTable = DtDatos.Copy
dttE.TableName = "Metas"
For Each drr As DataRow In DtDatos.Rows
Dim dr As DataRow = DtExcel.NewRow
dr("Vendedor") = drr("Vendedor")
dr("Clasificación Superior") = drr("ClasificacionSup")
dr("Clasificación") = drr("Clasificacion")
dr("Marca") = drr("Marca")
dr("Cantidad") = drr("MetaCantidad")
dr("Importe") = drr("MetaImporte")
dr("Mes") = drr("MesAño").ToString.ToDate.Year
dr("Año") = drr("MesAño").ToString.ToDate.Month
dr("Ventas") = drr("VentaCantidad")
DtExcel.Rows.Add(dr)
Next
Dim FileExcel As New ExcelFile()
Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)

View File

@@ -23,7 +23,7 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
get { return Consultado = (bool)ViewState["Consultado"]; }
set { ViewState["Consultado"] = value; }
}
#endregion
protected void LnkExcel_Click(object sender, EventArgs e)