Promociones, LibroMayorCI
This commit is contained in:
rakcsle
@@ -10127,6 +10127,7 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/Contabilidad/RepFisImpuestos.aspx".ToUpper(), 432)
|
PaginaDict.Add("/Contabilidad/RepFisImpuestos.aspx".ToUpper(), 432)
|
||||||
PaginaDict.Add("/Contabilidad/LibroDiario.aspx".ToUpper(), 620)
|
PaginaDict.Add("/Contabilidad/LibroDiario.aspx".ToUpper(), 620)
|
||||||
PaginaDict.Add("/Contabilidad/LibroMayor.aspx".ToUpper(), 619)
|
PaginaDict.Add("/Contabilidad/LibroMayor.aspx".ToUpper(), 619)
|
||||||
|
PaginaDict.Add("/Contabilidad/LibroMayorCI.aspx".ToUpper(), 619)
|
||||||
PaginaDict.Add("/Contabilidad/Reportes/RepCuadreContaAdmon.aspx".ToUpper(), -1)
|
PaginaDict.Add("/Contabilidad/Reportes/RepCuadreContaAdmon.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx".ToUpper(), -1)
|
PaginaDict.Add("/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/Contabilidad/ComparacionesContabilidad.aspx".ToUpper(), 330)
|
PaginaDict.Add("/Contabilidad/ComparacionesContabilidad.aspx".ToUpper(), 330)
|
||||||
@@ -10168,7 +10169,7 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/Contabilidad/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
|
PaginaDict.Add("/Contabilidad/RepEstadoResultadosHorizontal.aspx".ToUpper(), 420)
|
||||||
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
|
PaginaDict.Add("/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/Contabilidad/CatBloqueoDiario.aspx".ToUpper(), 680)
|
PaginaDict.Add("/Contabilidad/CatBloqueoDiario.aspx".ToUpper(), 680)
|
||||||
PaginaDict.Add("/Contabilidad/LibroMayor2.aspx".ToUpper(), 1353)
|
'PaginaDict.Add("/Contabilidad/LibroMayor2.aspx".ToUpper(), 1353)
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroMayor.aspx.vb" Inherits="Contabilidad_LibroMayor" %>
|
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroMayor.aspx.vb" Inherits="Conta_LibroMayor" EnableEventValidation="false" %>
|
||||||
|
|
||||||
<asp:Content ContentPlaceHolderID="Css" runat="server">
|
<asp:Content ContentPlaceHolderID="Css" runat="server">
|
||||||
<style>
|
<style>
|
||||||
@@ -8,109 +8,258 @@
|
|||||||
overflow: hidden;
|
overflow: hidden;
|
||||||
text-overflow: ellipsis;
|
text-overflow: ellipsis;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
table {
|
||||||
|
border: none !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
tr {
|
||||||
|
border: none !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
td {
|
||||||
|
border: none !important;
|
||||||
|
}
|
||||||
</style>
|
</style>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||||
<asp:UpdatePanel runat="server">
|
<asp:UpdatePanel ID="UpAcciones" runat="server" >
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="ImgExcel" Visible="false" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
|
<asp:LinkButton ID="ImgExcel" runat="server" Visible="true"><i class="fa fa-file-excel-o" ></i> Generar EXCEL</asp:LinkButton>
|
||||||
</li>
|
|
||||||
<li>
|
|
||||||
<asp:LinkButton ID="Imprimir" Visible="false" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
|
|
||||||
</li>
|
</li>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
<Triggers>
|
<Triggers>
|
||||||
<asp:PostBackTrigger ControlID="ImgExcel" />
|
<asp:PostBackTrigger ControlID="ImgExcel" />
|
||||||
<asp:PostBackTrigger ControlID="Imprimir" />
|
|
||||||
</Triggers>
|
</Triggers>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
<%-- <li>
|
||||||
|
<asp:LinkButton ID="Imprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
|
||||||
|
</li>--%>
|
||||||
|
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||||
Libro Mayor
|
Libro Mayor
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
|
||||||
|
|
||||||
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
|
||||||
<div class="portlet solid grey-cascade portlet-filter">
|
<div class="portlet solid grey-cascade portlet-filter">
|
||||||
<div class="portlet-title portlet-filterT smalltitle">
|
<div class="portlet-title portlet-filterT smalltitle">
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
<asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-primary" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
|
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="Valida" />
|
||||||
|
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
|
||||||
|
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||||
</div>
|
</div>
|
||||||
<div class="titlefiltros caption ">
|
<div class="titlefiltros caption ">
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-1" style="width: 90px; padding-right: 2px;">Fecha Inicio:</label>
|
|
||||||
<div class="col-md-2" style="width: 140px;">
|
|
||||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
|
|
||||||
<asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
|
||||||
<span class="input-group-btn ">
|
|
||||||
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
|
||||||
</span>
|
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
|
||||||
<ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
|
||||||
|
|
||||||
<asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene 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="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
|
|
||||||
<div class="col-md-2" style="width: 140px;">
|
|
||||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
|
|
||||||
<asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
|
||||||
<span class="input-group-btn ">
|
|
||||||
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
|
||||||
</span>
|
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
|
||||||
<ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
|
||||||
|
|
||||||
<asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene 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="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<%-- <label class="col-md-2" style="width: 60px;">Moneda:</label>
|
|
||||||
<div class="col-md-1">
|
<div class="col-md-1">
|
||||||
<asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static">
|
Cuenta:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-3">
|
||||||
|
<asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="false">
|
||||||
|
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</div>--%>
|
<asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1">
|
||||||
|
Fecha Inicio:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width: 115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" 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: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="GrpConsulta"></asp:RequiredFieldValidator>
|
||||||
|
<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="GrpConsulta"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1">
|
||||||
|
Fecha Fin:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" style="min-width: 115px">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" 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: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="GrpConsulta"></asp:RequiredFieldValidator>
|
||||||
|
<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="GrpConsulta"></asp:CompareValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-1 ">
|
||||||
|
Tipo Movto
|
||||||
|
</div>
|
||||||
|
<div class="col-md-3 ">
|
||||||
|
<asp:DropDownList ID="DdlOpcionCuentas" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
|
||||||
|
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1 " id="tdTipoReporte" visible="false" runat="server">
|
||||||
|
Tipo
|
||||||
|
</div>
|
||||||
|
<div class="col-md-2" id="tdTipoReporte2" visible="false" runat="server">
|
||||||
|
<asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server" Width="100%">
|
||||||
|
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-1" id="divProyecto" runat="server">
|
||||||
|
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
<div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
|
||||||
<%-- <br />
|
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||||
<div class="text-right">Buscar :
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
<input type="text" id="Buscar" style="margin-right: 30px;" />
|
</div>
|
||||||
</div>--%>
|
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
|
||||||
|
|
||||||
|
|
||||||
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
|
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
|
||||||
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
|
<div style='color:red'></div>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server"
|
||||||
|
CssClass="table table-striped table-advance table-hover " AutoGenerateColumns="False"
|
||||||
|
EmptyDataText="No se encontrarios movimientos."
|
||||||
|
DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
<asp:TemplateField ControlStyle-CssClass="Widthall">
|
||||||
<asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
|
<HeaderTemplate>
|
||||||
<asp:BoundField HeaderText="Poliza" DataField="Folio" />
|
|
||||||
<asp:BoundField HeaderText="Descripción" DataField="Concepto" />
|
<table width="100%" style="border: none">
|
||||||
<asp:BoundField HeaderText="Cargos" DataField="Cargos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
<tr>
|
||||||
<asp:BoundField HeaderText="Abonos" DataField="Abonos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
<td colspan="3"><font size="2">Cuenta</font></td>
|
||||||
<asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
<td colspan="1"><font size="2">Nombre</font></td>
|
||||||
|
<td colspan="4"></td>
|
||||||
|
<td><font size="2">Saldo Inicial</font></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td width="60px" align="center">Fecha</td>
|
||||||
|
<td width="60px" align="center">Tipo</td>
|
||||||
|
<td width="60px" align="center">Número</td>
|
||||||
|
<td width="300px" align="left">Concepto</td>
|
||||||
|
<td width="100px" align="center">Referencia</td>
|
||||||
|
<td width="100px" align="center">Referencia Movto</td>
|
||||||
|
<td width="100px" align="center"><asp:Label ID="LblSubProyecto" runat="server"></asp:Label> </td>
|
||||||
|
<td width="100px" align="center">Cargos</td>
|
||||||
|
<td width="100px" align="center">Abonos</td>
|
||||||
|
<td width="100px" align="center">Saldo</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
</HeaderTemplate>
|
||||||
|
|
||||||
|
|
||||||
|
<ItemTemplate>
|
||||||
|
<table width="100%" style="border: none">
|
||||||
|
|
||||||
|
<tr runat="server" id="tr1">
|
||||||
|
<td colspan="3" align="left" width="180px">
|
||||||
|
<asp:Label ID="LbCuenta" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td colspan="1" align="left" width="300px">
|
||||||
|
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td colspan="2" width="200px"></td>
|
||||||
|
<td style="font-weight: normal;" align="right" width="100px">Saldo Inicial:
|
||||||
|
</td>
|
||||||
|
<td style="font-weight: normal;" align="right" width="100px">
|
||||||
|
<asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
<tr runat="server" id="tr2">
|
||||||
|
<td width="60px" style="border: 0px;" align="center">
|
||||||
|
<asp:Literal ID="LbFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
|
||||||
|
</td>
|
||||||
|
<td width="60px" style="border: 0px;" align="center">
|
||||||
|
<asp:Literal ID="LbTipo" runat="server" Text='<%# Eval("TipoPoliza")%>'></asp:Literal>
|
||||||
|
</td>
|
||||||
|
<td width="60px" style="border: 0px;" align="center">
|
||||||
|
<asp:HyperLink ID="HLPoliza" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||||
|
</td>
|
||||||
|
|
||||||
|
<td width="300px" align="left">
|
||||||
|
<div class="truncate" style="width: 300px;">
|
||||||
|
<asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>' title='<%# Eval("Concepto")%>'></asp:Label>
|
||||||
|
</div>
|
||||||
|
</td>
|
||||||
|
<td width="100px">
|
||||||
|
<asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td width="60px" style="border: 0px;" align="center">
|
||||||
|
<asp:Literal ID="LtlRefMovto" runat="server" Text='<%# Eval("ReferenciaAdmin")%>'></asp:Literal>
|
||||||
|
</td>
|
||||||
|
<td width="100px">
|
||||||
|
<asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td width="100px" align="right">
|
||||||
|
<asp:Label ID="LbCargos" runat="server"></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td width="100px" align="right">
|
||||||
|
<asp:Label ID="LbAbonos" runat="server"></asp:Label>
|
||||||
|
</td>
|
||||||
|
<td width="100px" align="right">
|
||||||
|
<asp:Label ID="LbSaldo" runat="server"></asp:Label>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
|
||||||
|
</table>
|
||||||
|
</ItemTemplate>
|
||||||
|
<ItemStyle />
|
||||||
|
</asp:TemplateField>
|
||||||
</Columns>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
|
|
||||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
||||||
</asp:Content>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
|||||||
@@ -2,22 +2,40 @@
|
|||||||
Option Strict On
|
Option Strict On
|
||||||
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
|
Imports ADServerControl.DragableList
|
||||||
|
Imports System.IO
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports Microsoft.Reporting.WebForms
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
Imports ClosedXML.Excel
|
||||||
|
Imports System.Drawing
|
||||||
|
|
||||||
Partial Class Contabilidad_LibroMayor
|
Partial Class Conta_LibroMayor
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
|
||||||
#Region "PROPIEDADES"
|
#Region "PROPIEDADES"
|
||||||
Private Property DtDatos As DataTable
|
Private Property DtDatos As DataTable
|
||||||
Get
|
Get
|
||||||
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
If ViewState("DtDatos") Is Nothing Then
|
||||||
|
ViewState("DtDatos") = New DataTable
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return DirectCast(ViewState("DtDatos"), DataTable)
|
||||||
End Get
|
End Get
|
||||||
|
|
||||||
Set(ByVal value As DataTable)
|
Set(ByVal value As DataTable)
|
||||||
ViewState("DtDatos") = value
|
ViewState("DtDatos") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
Private Property DtTotales As DataTable
|
||||||
|
Get
|
||||||
|
DtTotales = DirectCast(ViewState("DtTotales"), DataTable)
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(ByVal value As DataTable)
|
||||||
|
ViewState("DtTotales") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
Private Property FechaInicio As Date
|
Private Property FechaInicio As Date
|
||||||
Get
|
Get
|
||||||
FechaInicio = ViewState("FechaInicio").ToString.ToDate
|
FechaInicio = ViewState("FechaInicio").ToString.ToDate
|
||||||
@@ -34,147 +52,312 @@ Partial Class Contabilidad_LibroMayor
|
|||||||
ViewState("FechaFin") = value
|
ViewState("FechaFin") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Private Property TotalPadre As Boolean
|
||||||
|
Get
|
||||||
|
TotalPadre = CBool(ViewState("TotalPadre"))
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
ViewState("TotalPadre") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property DTCuentas As DataTable
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("DTCuentas"), DataTable)
|
||||||
|
End Get
|
||||||
|
Set(value As DataTable)
|
||||||
|
ViewState("DTCuentas") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property TipoReporte As String
|
||||||
|
Get
|
||||||
|
TipoReporte = ViewState("TP").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("TP") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property Cuenta As String
|
||||||
|
Get
|
||||||
|
Return ViewState("Cuenta").ToString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("Cuenta") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
|
|
||||||
InicializaValores()
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then Response.Redirect($"/Contabilidad/LibroMayorCI.aspx")
|
||||||
|
|
||||||
|
Dim ErrorParametros As Boolean = True
|
||||||
|
|
||||||
|
CargaTipoCuentas()
|
||||||
|
|
||||||
|
|
||||||
|
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
|
||||||
|
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
|
||||||
|
|
||||||
|
|
||||||
|
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
|
||||||
|
If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
|
||||||
|
|
||||||
|
FechaFin = Request("FF").ToDate
|
||||||
|
txtFechaF.Text = FechaFin.ToShortDateString
|
||||||
|
|
||||||
|
DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero)
|
||||||
|
|
||||||
|
|
||||||
|
If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
|
||||||
|
FechaInicio = Request("FI").ToDate
|
||||||
|
txtFechaI.Text = FechaInicio.ToShortDateString
|
||||||
|
Else
|
||||||
|
FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
|
||||||
|
txtFechaF.Text = FechaInicio.ToShortDateString
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
|
||||||
|
DdlProyecto.SelectedValueExist(Request("CveProyecto"))
|
||||||
|
DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
|
||||||
|
DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
ErrorParametros = False
|
||||||
|
|
||||||
|
If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
|
||||||
|
TipoReporte = Request("TP").ToString
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
|
||||||
BtnConsultar.Enabled = True
|
|
||||||
Else
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
|
||||||
BtnConsultar.Enabled = True
|
|
||||||
Else
|
|
||||||
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If Not ErrorParametros Then
|
||||||
|
TotalPadre = True
|
||||||
|
TipoReporte = "1"
|
||||||
|
CargaDatos()
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub InicializaValores()
|
|
||||||
|
|
||||||
TxtFechaDel.Text = $"01/01/{NowADS().Year}"
|
|
||||||
TxtFechaAl.Text = NowADS().ToShortDateString
|
|
||||||
|
|
||||||
'DdlMoneda.DataSource = GlobalDTMonedas
|
|
||||||
'DdlMoneda.DataBind()
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||||
CargaDatos()
|
If DdlCuentas.SelectedValue.ToEntero = -2 Then
|
||||||
|
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
|
||||||
|
Else
|
||||||
|
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
||||||
|
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
||||||
|
|
||||||
|
CargaDatos()
|
||||||
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "C A R G A - D A T O S"
|
#Region "C A R G A - D A T O S"
|
||||||
Private Sub CargaDatos()
|
|
||||||
|
|
||||||
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
|
Private Sub CargaTipoCuentas()
|
||||||
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
|
|
||||||
|
|
||||||
|
Dim ObjTipoCuenta As New ClsContabilidad
|
||||||
|
DdlCuentas.Enabled = True
|
||||||
|
|
||||||
|
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
DTCuentas = ObjTipoCuenta.DtResultados
|
||||||
|
DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
|
||||||
|
|
||||||
|
|
||||||
Dim ObjConta As New ClsContabilidad
|
|
||||||
If ObjConta.GetLibroMayorSIG(-1, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
|
|
||||||
DtDatos = ObjConta.DtResultados
|
|
||||||
Else
|
|
||||||
DtDatos = Nothing
|
|
||||||
End If
|
|
||||||
ObjConta.Dispose()
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
|
||||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
||||||
If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
|
|
||||||
DtDatos = ObjConta.DtResultados
|
|
||||||
Else
|
|
||||||
DtDatos = Nothing
|
|
||||||
End If
|
|
||||||
ObjConta.Dispose()
|
|
||||||
End If
|
End If
|
||||||
|
ObjTipoCuenta.Dispose()
|
||||||
|
DdlCuentas.DataBind()
|
||||||
|
|
||||||
|
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
|
||||||
|
|
||||||
If DtDatos IsNot Nothing Then
|
|
||||||
ImgExcel.Visible = True
|
|
||||||
Imprimir.Visible = True
|
|
||||||
CargaGrid()
|
|
||||||
Else
|
|
||||||
ImgExcel.Visible = False
|
|
||||||
Imprimir.Visible = False
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||||
|
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
|
||||||
|
End Sub
|
||||||
|
Private Sub CargaDatos(Optional RenderGv As Boolean = True)
|
||||||
|
|
||||||
|
Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
|
||||||
|
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
|
||||||
|
TipoReporte = DdlTipoReporte.SelectedValue.ToString
|
||||||
|
|
||||||
|
Cuenta = DdlCuentas.SelectedItem.ToString
|
||||||
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
If ObjConta.GetLibroMayor2(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
|
||||||
|
DtDatos = ObjConta.DtResultados
|
||||||
|
DtTotales = DtDatos.Clone
|
||||||
|
|
||||||
|
If RenderGv Then
|
||||||
|
CargaGrid()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
DtDatos = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjConta.Dispose()
|
||||||
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
Private Sub InsertaTotales()
|
||||||
|
Dim i As Integer = 0
|
||||||
|
Dim Aumento As Integer = 0
|
||||||
|
Dim Row As DataRow
|
||||||
|
Dim Row2 As DataRow
|
||||||
|
|
||||||
|
'Llena DtTotales
|
||||||
|
For Each dr As DataRow In DtDatos.Rows
|
||||||
|
If dr("Concepto").ToString = "" Then
|
||||||
|
|
||||||
|
Row = DtTotales.NewRow
|
||||||
|
|
||||||
|
Row("CveCuenta") = -1
|
||||||
|
Row("CargosMovto") = If("1" = "1", dr("Cargos"), dr("CargosME"))
|
||||||
|
Row("AbonosMovto") = If("1" = "1", dr("Abonos"), dr("AbonosME"))
|
||||||
|
Row("Saldo") = dr("SaldoActual")
|
||||||
|
Row("CtaMayor") = dr("CtaMayor")
|
||||||
|
Row("Concepto") = String.Format("Total {0}:", dr("Nombre"))
|
||||||
|
Row("Nombre") = dr("Nombre")
|
||||||
|
DtTotales.Rows.Add(Row)
|
||||||
|
Row("Clasificacion") = i
|
||||||
|
End If
|
||||||
|
|
||||||
|
i += 1
|
||||||
|
Next
|
||||||
|
|
||||||
|
'Inserta Totales en DtDatos
|
||||||
|
For Each dr As DataRow In DtTotales.Rows
|
||||||
|
i = 0
|
||||||
|
|
||||||
|
If dr("CtaMayor").ToString = "1" Then
|
||||||
|
DtDatos.ImportRow(dr)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dr("CtaMayor").ToString = "2" Then
|
||||||
|
For index As Integer = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
|
||||||
|
If DtDatos.Rows(index)("Nombre").ToString <> dr("Nombre").ToString Then
|
||||||
|
i = index
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Row2 = DtDatos.NewRow
|
||||||
|
Row2.ItemArray = dr.ItemArray
|
||||||
|
|
||||||
|
DtDatos.Rows.InsertAt(Row2, i + Aumento)
|
||||||
|
Aumento += 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#Region "G R I D - GV DATOS"
|
#Region "G R I D - GV DATOS"
|
||||||
Private Sub CargaGrid()
|
Private Sub CargaGrid()
|
||||||
GvDatos.DataSource = DtDatos
|
GvDatos.DataSource = DtDatos
|
||||||
|
'GvDatos.Dispose()
|
||||||
GvDatos.DataBind()
|
GvDatos.DataBind()
|
||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||||
|
|
||||||
|
If e.Row.RowType = DataControlRowType.Header Then
|
||||||
|
e.Row.FCLabel("LblSubProyecto").Text = LblSubProyecto.Text
|
||||||
|
End If
|
||||||
|
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
If e.Row.DBCampo("Concepto") = "" Then
|
||||||
|
e.Row.ControlStyle.Font.Bold = True
|
||||||
|
e.Row.ControlStyle.Height = 35
|
||||||
|
|
||||||
'0 Fecha
|
'Cuando es Titulo
|
||||||
'1 TipoPol
|
If e.Row.DBCampo("SaldoActual") = "" Then
|
||||||
'2 Folio
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Visible = False
|
||||||
'3 Concepto
|
|
||||||
'4 Cargos
|
|
||||||
'5 Abonos
|
|
||||||
'6 Saldo
|
|
||||||
|
|
||||||
'CABECERA
|
|
||||||
If e.Row.DBCampo("TipoRenglon") = "1" Then
|
|
||||||
e.Row.Font.Bold = True
|
|
||||||
e.Row.Cells(0).Text = ""
|
|
||||||
e.Row.Cells(1).Text = ""
|
|
||||||
e.Row.Cells(2).Text = ""
|
|
||||||
e.Row.Cells(3).Text = e.Row.DBCampo("Nombre")
|
|
||||||
e.Row.Cells(4).Text = ""
|
|
||||||
e.Row.Cells(5).Text = "Saldo inicial:"
|
|
||||||
e.Row.Cells(6).Text = e.Row.DBCampo("SaldoInicial").FormatoNumero
|
|
||||||
e.Row.CssClass = "Totales"
|
|
||||||
End If
|
|
||||||
|
|
||||||
'DETALLE
|
'Cuando Es Total
|
||||||
If e.Row.DBCampo("TipoRenglon") = "2" Then
|
Else
|
||||||
|
CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
||||||
|
|
||||||
|
'Anterior para TotalPadre
|
||||||
|
'If e.Row.DBCampo("CtaMayor").ToString = "2" And (e.Row.DBCampo("Nivel3").ToString <> "" Xor e.Row.DBCampo("Orden").ToString.Length = 18) Then
|
||||||
|
' e.Row.FCLabel("LbReferencia").Text = "Total:"
|
||||||
|
'Else
|
||||||
|
' e.Row.FCLabel("LbConcepto").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
If TotalPadre Then
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "1px"
|
||||||
|
'CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells.Remove(CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3))
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Align = "Right"
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "400px"
|
||||||
|
If e.Row.RowIndex + 1 = DtDatos.Rows.Count Then
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Attributes.Add("style", "border-top: 1px solid black;")
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(5).Attributes.Add("style", "border-top: 1px solid black;")
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(6).Attributes.Add("style", "border-top: 1px solid black;")
|
||||||
|
End If
|
||||||
|
e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
|
||||||
|
|
||||||
|
|
||||||
|
Else
|
||||||
|
TotalPadre = True
|
||||||
|
e.Row.FCLabel("LbReferencia").Font.Bold = False
|
||||||
|
e.Row.FCLabel("LbReferencia").Text = "Total:"
|
||||||
|
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Align = "Right"
|
||||||
|
End If
|
||||||
|
|
||||||
|
'e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", If(e.Row.DBCampo("CtaMayor").ToString = "2", "", e.Row.DBCampo("Nombre").ToString))
|
||||||
|
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("SaldoActual").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
TotalPadre = False
|
||||||
|
e.Row.ControlStyle.Font.Bold = False
|
||||||
|
CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
||||||
|
e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", e.Row.DBCampo("CvePoliza"))
|
||||||
|
|
||||||
|
If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
If e.Row.DBCampo("Saldo").ToDouble <> 0 Then e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("Saldo").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'SUBTOTAL
|
|
||||||
If e.Row.DBCampo("TipoRenglon") = "3" Then
|
'COLOREA NEGATIVOS
|
||||||
e.Row.Font.Bold = True
|
If e.Row.FCLabel("LbCargos").Text.ToDouble < 0 Then
|
||||||
e.Row.Cells(1).Text = ""
|
e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
|
||||||
e.Row.Cells(2).Text = ""
|
Else
|
||||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
|
e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Black
|
||||||
e.Row.Cells(3).Text = "SubTotal:"
|
|
||||||
e.Row.Cells(6).Text = ""
|
|
||||||
e.Row.CssClass = "SubTotales"
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'TOTAL
|
If e.Row.FCLabel("LbAbonos").Text.ToDouble < 0 Then
|
||||||
If e.Row.DBCampo("TipoRenglon") = "4" Then
|
e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
|
||||||
e.Row.Font.Bold = True
|
Else
|
||||||
e.Row.Cells(0).Text = ""
|
e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Black
|
||||||
e.Row.Cells(1).Text = ""
|
End If
|
||||||
e.Row.Cells(2).Text = ""
|
|
||||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
|
If e.Row.FCLabel("LbSaldo").Text.ToDouble < 0 Then
|
||||||
e.Row.Cells(3).Text = $"Total ({e.Row.DBCampo("Nombre")}):"
|
e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Red
|
||||||
e.Row.Cells(6).Text = ""
|
Else
|
||||||
e.Row.CssClass = "Totales"
|
e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Black
|
||||||
|
End If
|
||||||
|
|
||||||
|
If e.Row.FCLabel("LbSaldoInicial").Text.ToDouble < 0 Then
|
||||||
|
e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
|
||||||
|
Else
|
||||||
|
e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Black
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
@@ -182,37 +365,382 @@ Partial Class Contabilidad_LibroMayor
|
|||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
Protected Sub Imprimir_click(sender As Object, e As EventArgs)
|
||||||
|
If DdlCuentas.SelectedValue.ToEntero = -1 Then
|
||||||
|
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
|
||||||
|
Else
|
||||||
|
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
||||||
|
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
||||||
|
|
||||||
#Region " IMPRIMIR "
|
DtDatos = DtDatos
|
||||||
|
ImprimirReporte()
|
||||||
#End Region
|
End If
|
||||||
|
|
||||||
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
|
|
||||||
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
|
|
||||||
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
|
|
||||||
DtDatos = DtDatos
|
|
||||||
ImprimirReporte()
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||||
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
|
ImprimirReporte("Excel")
|
||||||
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
|
|
||||||
DtDatos = DtDatos
|
|
||||||
ImprimirReporte("EXCEL")
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
|
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
|
||||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
|
||||||
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
||||||
|
|
||||||
Dim lista = New List(Of CrystalParametro)
|
Dim WBLibroMayor = New ClosedXML.Excel.XLWorkbook
|
||||||
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
|
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
|
||||||
lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
|
|
||||||
lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
|
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
||||||
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
|
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
||||||
lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
|
||||||
|
DtDatos.Rows.Clear()
|
||||||
|
CargaDatos(False)
|
||||||
|
|
||||||
|
If DtDatos.Rows.Count > 0 Then
|
||||||
|
Dim sp As String = If(DdlSubproyecto.SelectedValue.ToEntero > 0, DdlSubproyecto.SelectedItem.Text, "")
|
||||||
|
WBLibroMayor.AddWorksheet(WSDocumento(sp, DtDatos))
|
||||||
|
WBLibroMayor.Worksheet(1).Name = $"LibroMayor"
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim msB = New MemoryStream()
|
||||||
|
WBLibroMayor.SaveAs(msB)
|
||||||
|
|
||||||
|
Dim BB As Byte() = msB.ToArray
|
||||||
|
msB.Dispose()
|
||||||
|
|
||||||
|
Response.Clear()
|
||||||
|
Response.Buffer = True
|
||||||
|
Response.AddHeader("content-disposition", "attachment; filename=Balanza_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
|
||||||
|
Response.ContentType = "application/vnd.ms-excel"
|
||||||
|
Response.BinaryWrite(BB)
|
||||||
|
|
||||||
|
Response.End()
|
||||||
|
|
||||||
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroMayor.rpt"), DtDatos, lista, "LibroMayor", Formato), "LibroMayor", Formato)
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Function WSDocumento(SubProyecto As String, DtDatos As DataTable) As IXLWorksheet
|
||||||
|
|
||||||
|
|
||||||
|
Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook
|
||||||
|
Dim WBReporte = New ClosedXML.Excel.XLWorkbook()
|
||||||
|
WBReporte.Worksheets.Add("1")
|
||||||
|
|
||||||
|
Dim WSReporte = WBReporte.Worksheet(1)
|
||||||
|
|
||||||
|
Dim RutaLogo As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
|
||||||
|
If File.Exists(RutaLogo) Then
|
||||||
|
|
||||||
|
Dim imagePath As String = RutaLogo
|
||||||
|
Dim img As Bitmap = New Bitmap(imagePath)
|
||||||
|
Dim picture = WSReporte.AddPicture(img).MoveTo(WSReporte.Cell("A1"))
|
||||||
|
picture.Scale(0.5)
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim Tamaniofuente As Integer = 13
|
||||||
|
Dim Range = WSReporte.Range("A1:D1")
|
||||||
|
|
||||||
|
WSReporte.Style.Font.FontSize = 10
|
||||||
|
WSReporte.Style.Font.FontName = "Arial Narrow"
|
||||||
|
|
||||||
|
WSReporte.Style.Alignment.WrapText = True
|
||||||
|
|
||||||
|
Range.Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
|
||||||
|
WSReporte.Range("A1:J1").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
WSReporte.Range("A2:J2").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
WSReporte.Range("A3:J3").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
WSReporte.Range("A4:J4").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
WSReporte.Range("A5:J5").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
||||||
|
|
||||||
|
WSReporte.Range("A1:A5").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
||||||
|
|
||||||
|
WSReporte.Column(1).Width = 15
|
||||||
|
WSReporte.Column(2).Width = 15
|
||||||
|
WSReporte.Column(3).Width = 14
|
||||||
|
WSReporte.Column(4).Width = 70
|
||||||
|
WSReporte.Column(5).Width = 35
|
||||||
|
WSReporte.Column(6).Width = 20
|
||||||
|
WSReporte.Column(7).Width = 14
|
||||||
|
WSReporte.Column(8).Width = 14
|
||||||
|
WSReporte.Column(9).Width = 14
|
||||||
|
WSReporte.Column(10).Width = 14
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Cell(1, 1).Value = UsuarioActual.Empresa.Empresa
|
||||||
|
WSReporte.Cell(2, 1).Value = $"Libro Mayor del {txtFechaI.Text} al {txtFechaF.Text}"
|
||||||
|
|
||||||
|
If SubProyecto.Length > 0 Then
|
||||||
|
WSReporte.Cell(5, 1).Value = $"Sub Proyecto: {SubProyecto}"
|
||||||
|
WSReporte.Cell(5, 1).Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Left
|
||||||
|
WSReporte.Cell(5, 1).Style.Font.Bold = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Cell(6, 1).Value = "Fecha"
|
||||||
|
WSReporte.Cell(6, 2).Value = $"Cuenta{vbCrLf}Tipo"
|
||||||
|
WSReporte.Cell(6, 1).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||||
|
WSReporte.Cell(6, 2).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||||
|
|
||||||
|
WSReporte.Cell(6, 3).Value = $"Número"
|
||||||
|
WSReporte.Cell(6, 4).Value = $"Concepto"
|
||||||
|
WSReporte.Cell(6, 5).Value = $"Referencia"
|
||||||
|
WSReporte.Cell(6, 6).Value = $"Referencia Movto"
|
||||||
|
WSReporte.Cell(6, 7).Value = $"{LblSubProyecto.Text}"
|
||||||
|
WSReporte.Cell(6, 8).Value = $"Cargos"
|
||||||
|
WSReporte.Cell(6, 9).Value = $"Abonos"
|
||||||
|
WSReporte.Cell(6, 10).Value = $"Saldo"
|
||||||
|
|
||||||
|
WSReporte.Range("A6:J6").Style.Font.Bold = True
|
||||||
|
WSReporte.Range("A6:J6").Style.Font.FontSize = 10
|
||||||
|
WSReporte.Range("A6:J6").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
||||||
|
WSReporte.Range("A6:J6").Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
WSReporte.Range("A6:J6").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
WSReporte.Range("A6:J6").Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
|
||||||
|
Dim CuerrentRow As Integer = 7
|
||||||
|
|
||||||
|
CuerrentRow = CuerrentRow + 1
|
||||||
|
|
||||||
|
For Each Drow As DataRow In DtDatos.Rows
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If Drow("Concepto").ToString = "" Then
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.Bold = True
|
||||||
|
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.FontSize = FontSize.XXLarge '35
|
||||||
|
|
||||||
|
|
||||||
|
If Drow("SaldoActual").ToString = "" Then
|
||||||
|
'CType(e.Row.FindControl("tr2"), HtmlTableRow).Visible = False
|
||||||
|
'Cuando Es Total
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Codigo").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Nombre").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 9).Value = "Saldo Inicial:"
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Value = Drow("SaldoInicial").ToString
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
|
||||||
|
If Drow("SaldoInicial").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
'CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Fecha").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 2).Value = Drow("TipoPoliza").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 3).Value = Drow("Folio").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Concepto").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Value = Drow("Referencia").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 6).Value = Drow("ReferenciaAdmin").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 7).Value = Drow("SubProyecto").ToString
|
||||||
|
|
||||||
|
|
||||||
|
If TotalPadre Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Value = String.Format("Total {0}:", Drow("Nombre").ToString)
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
||||||
|
Else
|
||||||
|
TotalPadre = True
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Style.Font.Bold = False
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Value = "Total:"
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
||||||
|
End If
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 8).Value = Drow("Cargos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
WSReporte.Cell(CuerrentRow, 9).Value = Drow("Abonos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Value = Drow("SaldoActual").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
||||||
|
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
|
||||||
|
|
||||||
|
If Drow("Cargos").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 8).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Drow("Abonos").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 9).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Drow("SaldoActual").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Fecha").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 2).Value = Drow("TipoPoliza").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 3).Value = Drow("Folio").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Concepto").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 5).Value = Drow("Referencia").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 6).Value = Drow("ReferenciaAdmin").ToString
|
||||||
|
WSReporte.Cell(CuerrentRow, 7).Value = Drow("SubProyecto").ToString
|
||||||
|
|
||||||
|
TotalPadre = False
|
||||||
|
|
||||||
|
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.Bold = False
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Value = Drow("Folio").ToString
|
||||||
|
|
||||||
|
WSReporte.Cell(CuerrentRow, 8).Value = Drow("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
WSReporte.Cell(CuerrentRow, 9).Value = Drow("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Value = Drow("Saldo").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
||||||
|
|
||||||
|
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
||||||
|
|
||||||
|
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
|
||||||
|
|
||||||
|
If Drow("CargosMovto").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 8).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Drow("AbonosMovto").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 9).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Drow("Saldo").ToString.ToDecimal < 0 Then
|
||||||
|
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
CuerrentRow = CuerrentRow + 1
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
For xy As Integer = 6 To CuerrentRow
|
||||||
|
WSReporte.Cell(xy, 10).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
WSReporte.Cell(xy, 1).Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
Next
|
||||||
|
|
||||||
|
'CuerrentRow = CuerrentRow + 1
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 1).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||||
|
'WSReporte.Cell(CuerrentRow, 2).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 3).Value = $"Saldos Iniciales{vbCrLf}Deudor Acreedor"
|
||||||
|
'WSReporte.Cell(CuerrentRow, 4).Value = $"Cargos"
|
||||||
|
'WSReporte.Cell(CuerrentRow, 5).Value = $"Abonos"
|
||||||
|
'WSReporte.Cell(CuerrentRow, 6).Value = $"Saldo Actuales{vbCrLf} Deudor Acreedo"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
WSReporte.Range($"A{CuerrentRow}:J{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Font.Bold = True
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Font.FontSize = 10
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
|
||||||
|
'CuerrentRow = CuerrentRow + 1
|
||||||
|
|
||||||
|
'Dim ultimaFila As DataRow = DtDatos.Rows(DtDatos.Rows.Count - 1)
|
||||||
|
|
||||||
|
'Dim LastSaldoID As Decimal = ultimaFila("SaldoID").ToString.ToDecimal
|
||||||
|
'Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal
|
||||||
|
'Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal
|
||||||
|
'Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal
|
||||||
|
'Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal
|
||||||
|
'Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales"
|
||||||
|
'WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID
|
||||||
|
'WSReporte.Cell(CuerrentRow, 4).Value = LastTotalCargos
|
||||||
|
'WSReporte.Cell(CuerrentRow, 5).Value = LastTotalAbonos
|
||||||
|
'WSReporte.Cell(CuerrentRow, 6).Value = LastSaldoAD
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 3).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
'WSReporte.Cell(CuerrentRow, 4).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
'WSReporte.Cell(CuerrentRow, 5).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
'WSReporte.Cell(CuerrentRow, 6).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
|
||||||
|
|
||||||
|
CuerrentRow = CuerrentRow + 1
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoIA
|
||||||
|
'WSReporte.Cell(CuerrentRow, 6).Value = LastSaldoAA
|
||||||
|
|
||||||
|
|
||||||
|
'WSReporte.Cell(CuerrentRow, 3).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
'WSReporte.Cell(CuerrentRow, 6).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
||||||
|
|
||||||
|
'WSReporte.Range($"B{CuerrentRow}:F{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
||||||
|
|
||||||
|
WSReporte.PageSetup.PrintAreas.Add($"A1:G{CuerrentRow + 0 + 1}")
|
||||||
|
WSReporte.PageSetup.Margins.Top = 0.3
|
||||||
|
WSReporte.PageSetup.Margins.Left = 0.8
|
||||||
|
WSReporte.PageSetup.Margins.Right = 0.8
|
||||||
|
WSReporte.PageSetup.FitToPages(1, 1)
|
||||||
|
|
||||||
|
WBReporte.Worksheet(1).CopyTo(WBAnexoSalvar, "LibroMayor")
|
||||||
|
|
||||||
|
Return WBReporte.Worksheet(1)
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Function CloneGridView(ByVal originalGridView As GridView) As GridView
|
||||||
|
' Crear un nuevo GridView
|
||||||
|
Dim clonedGridView As New GridView()
|
||||||
|
|
||||||
|
' Copiar propiedades básicas del GridView
|
||||||
|
clonedGridView.ID = originalGridView.ID & "_Copy"
|
||||||
|
clonedGridView.AutoGenerateColumns = originalGridView.AutoGenerateColumns
|
||||||
|
clonedGridView.CssClass = originalGridView.CssClass
|
||||||
|
clonedGridView.GridLines = originalGridView.GridLines
|
||||||
|
clonedGridView.HeaderStyle.CopyFrom(originalGridView.HeaderStyle)
|
||||||
|
clonedGridView.RowStyle.CopyFrom(originalGridView.RowStyle)
|
||||||
|
clonedGridView.AlternatingRowStyle.CopyFrom(originalGridView.AlternatingRowStyle)
|
||||||
|
clonedGridView.FooterStyle.CopyFrom(originalGridView.FooterStyle)
|
||||||
|
clonedGridView.EmptyDataText = originalGridView.EmptyDataText
|
||||||
|
clonedGridView.ShowHeader = originalGridView.ShowHeader
|
||||||
|
clonedGridView.ShowFooter = originalGridView.ShowFooter
|
||||||
|
|
||||||
|
' Copiar columnas
|
||||||
|
For Each col As DataControlField In originalGridView.Columns
|
||||||
|
' Crear una copia de la columna
|
||||||
|
Dim clonedCol As DataControlField = CType(Activator.CreateInstance(col.GetType()), DataControlField)
|
||||||
|
clonedCol.HeaderStyle.CopyFrom(col.HeaderStyle)
|
||||||
|
clonedCol.ItemStyle.CopyFrom(col.ItemStyle)
|
||||||
|
clonedCol.FooterStyle.CopyFrom(col.FooterStyle)
|
||||||
|
|
||||||
|
' Si es un BoundField, copiar propiedades específicas
|
||||||
|
If TypeOf col Is BoundField Then
|
||||||
|
Dim originalBoundField As BoundField = CType(col, BoundField)
|
||||||
|
Dim clonedBoundField As BoundField = CType(clonedCol, BoundField)
|
||||||
|
|
||||||
|
clonedBoundField.DataField = originalBoundField.DataField
|
||||||
|
clonedBoundField.HeaderText = originalBoundField.HeaderText
|
||||||
|
clonedBoundField.SortExpression = originalBoundField.SortExpression
|
||||||
|
clonedBoundField.ReadOnly = originalBoundField.ReadOnly
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Añadir la columna clonada al nuevo GridView
|
||||||
|
clonedGridView.Columns.Add(clonedCol)
|
||||||
|
Next
|
||||||
|
|
||||||
|
' Copiar el DataSource (opcional, dependiendo de si deseas copiar los datos actuales)
|
||||||
|
clonedGridView.DataSource = originalGridView.DataSource
|
||||||
|
clonedGridView.DataBind()
|
||||||
|
|
||||||
|
Return clonedGridView
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -1,265 +0,0 @@
|
|||||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroMayor2.aspx.vb" Inherits="Conta_LibroMayor2" EnableEventValidation="false" %>
|
|
||||||
|
|
||||||
<asp:Content ContentPlaceHolderID="Css" runat="server">
|
|
||||||
<style>
|
|
||||||
.truncate {
|
|
||||||
width: 300px;
|
|
||||||
white-space: nowrap;
|
|
||||||
overflow: hidden;
|
|
||||||
text-overflow: ellipsis;
|
|
||||||
}
|
|
||||||
|
|
||||||
table {
|
|
||||||
border: none !important;
|
|
||||||
}
|
|
||||||
|
|
||||||
tr {
|
|
||||||
border: none !important;
|
|
||||||
}
|
|
||||||
|
|
||||||
td {
|
|
||||||
border: none !important;
|
|
||||||
}
|
|
||||||
</style>
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
|
||||||
<asp:UpdatePanel ID="UpAcciones" runat="server" >
|
|
||||||
<ContentTemplate>
|
|
||||||
<li>
|
|
||||||
<asp:LinkButton ID="ImgExcel" runat="server" Visible="true"><i class="fa fa-file-excel-o" ></i> Generar EXCEL</asp:LinkButton>
|
|
||||||
</li>
|
|
||||||
</ContentTemplate>
|
|
||||||
<Triggers>
|
|
||||||
<asp:PostBackTrigger ControlID="ImgExcel" />
|
|
||||||
</Triggers>
|
|
||||||
</asp:UpdatePanel>
|
|
||||||
|
|
||||||
|
|
||||||
<%-- <li>
|
|
||||||
<asp:LinkButton ID="Imprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
|
|
||||||
</li>--%>
|
|
||||||
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
|
||||||
Libro Mayor
|
|
||||||
</asp:Content>
|
|
||||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
|
||||||
|
|
||||||
<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="tools">
|
|
||||||
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-default" OnClick="BtnConsultar_Click" ValidationGroup="Valida" />
|
|
||||||
<a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
|
|
||||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
|
||||||
</div>
|
|
||||||
<div class="titlefiltros caption ">
|
|
||||||
<div class="row">
|
|
||||||
<div class="col-md-1">
|
|
||||||
Cuenta:
|
|
||||||
</div>
|
|
||||||
<div class="col-md-3">
|
|
||||||
<asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CuentaFormatoNombre" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Enabled="false">
|
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1">
|
|
||||||
Fecha Inicio:
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1" style="min-width: 115px">
|
|
||||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
|
||||||
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" 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: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="GrpConsulta"></asp:RequiredFieldValidator>
|
|
||||||
<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="GrpConsulta"></asp:CompareValidator>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1">
|
|
||||||
Fecha Fin:
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1" style="min-width: 115px">
|
|
||||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;">
|
|
||||||
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" 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: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="GrpConsulta"></asp:RequiredFieldValidator>
|
|
||||||
<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="GrpConsulta"></asp:CompareValidator>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
|
|
||||||
<div class="row">
|
|
||||||
<div class="col-md-1 ">
|
|
||||||
Tipo Movto
|
|
||||||
</div>
|
|
||||||
<div class="col-md-3 ">
|
|
||||||
<asp:DropDownList ID="DdlOpcionCuentas" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
|
|
||||||
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1 " id="tdTipoReporte" visible="false" runat="server">
|
|
||||||
Tipo
|
|
||||||
</div>
|
|
||||||
<div class="col-md-2" id="tdTipoReporte2" visible="false" runat="server">
|
|
||||||
<asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server" Width="100%">
|
|
||||||
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Contable y Complementario" Value="3"></asp:ListItem>
|
|
||||||
<asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-1" id="divProyecto" runat="server">
|
|
||||||
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-2">
|
|
||||||
<asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
|
|
||||||
<div class="col-md-2">
|
|
||||||
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
|
|
||||||
</asp:DropDownList>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</ContentTemplate>
|
|
||||||
</asp:UpdatePanel>
|
|
||||||
<div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
|
|
||||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
|
||||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
|
||||||
</div>
|
|
||||||
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
|
|
||||||
<ContentTemplate>
|
|
||||||
|
|
||||||
<div style='color:red'></div>
|
|
||||||
<asp:GridView ID="GvDatos" runat="server"
|
|
||||||
CssClass="table table-striped table-advance table-hover " AutoGenerateColumns="False"
|
|
||||||
EmptyDataText="No se encontrarios movimientos."
|
|
||||||
DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
|
|
||||||
<Columns>
|
|
||||||
<asp:TemplateField ControlStyle-CssClass="Widthall">
|
|
||||||
<HeaderTemplate>
|
|
||||||
|
|
||||||
<table width="100%" style="border: none">
|
|
||||||
<tr>
|
|
||||||
<td colspan="3"><font size="2">Cuenta</font></td>
|
|
||||||
<td colspan="1"><font size="2">Nombre</font></td>
|
|
||||||
<td colspan="4"></td>
|
|
||||||
<td><font size="2">Saldo Inicial</font></td>
|
|
||||||
</tr>
|
|
||||||
<tr>
|
|
||||||
<td width="60px" align="center">Fecha</td>
|
|
||||||
<td width="60px" align="center">Tipo</td>
|
|
||||||
<td width="60px" align="center">Número</td>
|
|
||||||
<td width="300px" align="left">Concepto</td>
|
|
||||||
<td width="100px" align="center">Referencia</td>
|
|
||||||
<td width="100px" align="center">Referencia Movto</td>
|
|
||||||
<td width="100px" align="center"><asp:Label ID="LblSubProyecto" runat="server"></asp:Label> </td>
|
|
||||||
<td width="100px" align="center">Cargos</td>
|
|
||||||
<td width="100px" align="center">Abonos</td>
|
|
||||||
<td width="100px" align="center">Saldo</td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
|
|
||||||
</HeaderTemplate>
|
|
||||||
|
|
||||||
|
|
||||||
<ItemTemplate>
|
|
||||||
<table width="100%" style="border: none">
|
|
||||||
|
|
||||||
<tr runat="server" id="tr1">
|
|
||||||
<td colspan="3" align="left" width="180px">
|
|
||||||
<asp:Label ID="LbCuenta" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td colspan="1" align="left" width="300px">
|
|
||||||
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td colspan="2" width="200px"></td>
|
|
||||||
<td style="font-weight: normal;" align="right" width="100px">Saldo Inicial:
|
|
||||||
</td>
|
|
||||||
<td style="font-weight: normal;" align="right" width="100px">
|
|
||||||
<asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr runat="server" id="tr2">
|
|
||||||
<td width="60px" style="border: 0px;" align="center">
|
|
||||||
<asp:Literal ID="LbFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}")%>'></asp:Literal>
|
|
||||||
</td>
|
|
||||||
<td width="60px" style="border: 0px;" align="center">
|
|
||||||
<asp:Literal ID="LbTipo" runat="server" Text='<%# Eval("TipoPoliza")%>'></asp:Literal>
|
|
||||||
</td>
|
|
||||||
<td width="60px" style="border: 0px;" align="center">
|
|
||||||
<asp:HyperLink ID="HLPoliza" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
|
||||||
</td>
|
|
||||||
|
|
||||||
<td width="300px" align="left">
|
|
||||||
<div class="truncate" style="width: 300px;">
|
|
||||||
<asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>' title='<%# Eval("Concepto")%>'></asp:Label>
|
|
||||||
</div>
|
|
||||||
</td>
|
|
||||||
<td width="100px">
|
|
||||||
<asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td width="60px" style="border: 0px;" align="center">
|
|
||||||
<asp:Literal ID="LtlRefMovto" runat="server" Text='<%# Eval("ReferenciaAdmin")%>'></asp:Literal>
|
|
||||||
</td>
|
|
||||||
<td width="100px">
|
|
||||||
<asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td width="100px" align="right">
|
|
||||||
<asp:Label ID="LbCargos" runat="server"></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td width="100px" align="right">
|
|
||||||
<asp:Label ID="LbAbonos" runat="server"></asp:Label>
|
|
||||||
</td>
|
|
||||||
<td width="100px" align="right">
|
|
||||||
<asp:Label ID="LbSaldo" runat="server"></asp:Label>
|
|
||||||
</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
</table>
|
|
||||||
</ItemTemplate>
|
|
||||||
<ItemStyle />
|
|
||||||
</asp:TemplateField>
|
|
||||||
</Columns>
|
|
||||||
</asp:GridView>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</ContentTemplate>
|
|
||||||
</asp:UpdatePanel>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</asp:Content>
|
|
||||||
|
|
||||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</asp:Content>
|
|
||||||
@@ -1,746 +0,0 @@
|
|||||||
Option Explicit On
|
|
||||||
Option Strict On
|
|
||||||
|
|
||||||
Imports System.Data
|
|
||||||
Imports ADServerControl.DragableList
|
|
||||||
Imports System.IO
|
|
||||||
Imports Extensiones
|
|
||||||
Imports Microsoft.Reporting.WebForms
|
|
||||||
Imports ClosedXML.Excel
|
|
||||||
Imports System.Drawing
|
|
||||||
|
|
||||||
Partial Class Conta_LibroMayor2
|
|
||||||
Inherits ClsPaginas
|
|
||||||
|
|
||||||
|
|
||||||
#Region "PROPIEDADES"
|
|
||||||
Private Property DtDatos As DataTable
|
|
||||||
Get
|
|
||||||
If ViewState("DtDatos") Is Nothing Then
|
|
||||||
ViewState("DtDatos") = New DataTable
|
|
||||||
End If
|
|
||||||
|
|
||||||
Return DirectCast(ViewState("DtDatos"), DataTable)
|
|
||||||
End Get
|
|
||||||
|
|
||||||
Set(ByVal value As DataTable)
|
|
||||||
ViewState("DtDatos") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property DtTotales As DataTable
|
|
||||||
Get
|
|
||||||
DtTotales = DirectCast(ViewState("DtTotales"), DataTable)
|
|
||||||
End Get
|
|
||||||
|
|
||||||
Set(ByVal value As DataTable)
|
|
||||||
ViewState("DtTotales") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property FechaInicio As Date
|
|
||||||
Get
|
|
||||||
FechaInicio = ViewState("FechaInicio").ToString.ToDate
|
|
||||||
End Get
|
|
||||||
Set(value As Date)
|
|
||||||
ViewState("FechaInicio") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property FechaFin As Date
|
|
||||||
Get
|
|
||||||
FechaFin = ViewState("FechaFin").ToString.ToDate
|
|
||||||
End Get
|
|
||||||
Set(value As Date)
|
|
||||||
ViewState("FechaFin") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
|
|
||||||
Private Property TotalPadre As Boolean
|
|
||||||
Get
|
|
||||||
TotalPadre = CBool(ViewState("TotalPadre"))
|
|
||||||
End Get
|
|
||||||
Set(value As Boolean)
|
|
||||||
ViewState("TotalPadre") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property DTCuentas As DataTable
|
|
||||||
Get
|
|
||||||
Return CType(ViewState("DTCuentas"), DataTable)
|
|
||||||
End Get
|
|
||||||
Set(value As DataTable)
|
|
||||||
ViewState("DTCuentas") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property TipoReporte As String
|
|
||||||
Get
|
|
||||||
TipoReporte = ViewState("TP").ToString
|
|
||||||
End Get
|
|
||||||
Set(value As String)
|
|
||||||
ViewState("TP") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
Private Property Cuenta As String
|
|
||||||
Get
|
|
||||||
Return ViewState("Cuenta").ToString
|
|
||||||
End Get
|
|
||||||
Set(value As String)
|
|
||||||
ViewState("Cuenta") = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
||||||
If Not Page.IsPostBack Then
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim ErrorParametros As Boolean = True
|
|
||||||
|
|
||||||
CargaTipoCuentas()
|
|
||||||
|
|
||||||
|
|
||||||
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
|
|
||||||
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
|
|
||||||
|
|
||||||
|
|
||||||
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
|
|
||||||
If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
|
|
||||||
|
|
||||||
FechaFin = Request("FF").ToDate
|
|
||||||
txtFechaF.Text = FechaFin.ToShortDateString
|
|
||||||
|
|
||||||
DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero)
|
|
||||||
|
|
||||||
|
|
||||||
If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
|
|
||||||
FechaInicio = Request("FI").ToDate
|
|
||||||
txtFechaI.Text = FechaInicio.ToShortDateString
|
|
||||||
Else
|
|
||||||
FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
|
|
||||||
txtFechaF.Text = FechaInicio.ToShortDateString
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
|
|
||||||
DdlProyecto.SelectedValueExist(Request("CveProyecto"))
|
|
||||||
DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
|
|
||||||
DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
|
|
||||||
End If
|
|
||||||
|
|
||||||
ErrorParametros = False
|
|
||||||
|
|
||||||
If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
|
|
||||||
TipoReporte = Request("TP").ToString
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorParametros Then
|
|
||||||
TotalPadre = True
|
|
||||||
TipoReporte = "1"
|
|
||||||
CargaDatos()
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
|
||||||
If DdlCuentas.SelectedValue.ToEntero = -2 Then
|
|
||||||
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
|
|
||||||
Else
|
|
||||||
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
|
||||||
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
|
||||||
|
|
||||||
CargaDatos()
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "C A R G A - D A T O S"
|
|
||||||
|
|
||||||
Private Sub CargaTipoCuentas()
|
|
||||||
|
|
||||||
Dim ObjTipoCuenta As New ClsContabilidad
|
|
||||||
DdlCuentas.Enabled = True
|
|
||||||
|
|
||||||
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
||||||
DTCuentas = ObjTipoCuenta.DtResultados
|
|
||||||
DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
|
|
||||||
|
|
||||||
End If
|
|
||||||
ObjTipoCuenta.Dispose()
|
|
||||||
DdlCuentas.DataBind()
|
|
||||||
|
|
||||||
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
|
||||||
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
|
|
||||||
End Sub
|
|
||||||
Private Sub CargaDatos(Optional RenderGv As Boolean = True)
|
|
||||||
|
|
||||||
Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
|
|
||||||
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
|
|
||||||
TipoReporte = DdlTipoReporte.SelectedValue.ToString
|
|
||||||
|
|
||||||
Cuenta = DdlCuentas.SelectedItem.ToString
|
|
||||||
Dim ObjConta As New ClsContabilidad
|
|
||||||
If ObjConta.GetLibroMayor2(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
|
|
||||||
DtDatos = ObjConta.DtResultados
|
|
||||||
DtTotales = DtDatos.Clone
|
|
||||||
|
|
||||||
If RenderGv Then
|
|
||||||
CargaGrid()
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
DtDatos = Nothing
|
|
||||||
End If
|
|
||||||
|
|
||||||
ObjConta.Dispose()
|
|
||||||
End Sub
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub InsertaTotales()
|
|
||||||
Dim i As Integer = 0
|
|
||||||
Dim Aumento As Integer = 0
|
|
||||||
Dim Row As DataRow
|
|
||||||
Dim Row2 As DataRow
|
|
||||||
|
|
||||||
'Llena DtTotales
|
|
||||||
For Each dr As DataRow In DtDatos.Rows
|
|
||||||
If dr("Concepto").ToString = "" Then
|
|
||||||
|
|
||||||
Row = DtTotales.NewRow
|
|
||||||
|
|
||||||
Row("CveCuenta") = -1
|
|
||||||
Row("CargosMovto") = If("1" = "1", dr("Cargos"), dr("CargosME"))
|
|
||||||
Row("AbonosMovto") = If("1" = "1", dr("Abonos"), dr("AbonosME"))
|
|
||||||
Row("Saldo") = dr("SaldoActual")
|
|
||||||
Row("CtaMayor") = dr("CtaMayor")
|
|
||||||
Row("Concepto") = String.Format("Total {0}:", dr("Nombre"))
|
|
||||||
Row("Nombre") = dr("Nombre")
|
|
||||||
DtTotales.Rows.Add(Row)
|
|
||||||
Row("Clasificacion") = i
|
|
||||||
End If
|
|
||||||
|
|
||||||
i += 1
|
|
||||||
Next
|
|
||||||
|
|
||||||
'Inserta Totales en DtDatos
|
|
||||||
For Each dr As DataRow In DtTotales.Rows
|
|
||||||
i = 0
|
|
||||||
|
|
||||||
If dr("CtaMayor").ToString = "1" Then
|
|
||||||
DtDatos.ImportRow(dr)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If dr("CtaMayor").ToString = "2" Then
|
|
||||||
For index As Integer = dr("Clasificacion").ToString.ToEntero + Aumento To DtDatos.Rows.Count
|
|
||||||
If DtDatos.Rows(index)("Nombre").ToString <> dr("Nombre").ToString Then
|
|
||||||
i = index
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Row2 = DtDatos.NewRow
|
|
||||||
Row2.ItemArray = dr.ItemArray
|
|
||||||
|
|
||||||
DtDatos.Rows.InsertAt(Row2, i + Aumento)
|
|
||||||
Aumento += 1
|
|
||||||
End If
|
|
||||||
|
|
||||||
Next
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
#Region "G R I D - GV DATOS"
|
|
||||||
Private Sub CargaGrid()
|
|
||||||
GvDatos.DataSource = DtDatos
|
|
||||||
'GvDatos.Dispose()
|
|
||||||
GvDatos.DataBind()
|
|
||||||
UpDatos.Update()
|
|
||||||
End Sub
|
|
||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
||||||
|
|
||||||
If e.Row.RowType = DataControlRowType.Header Then
|
|
||||||
e.Row.FCLabel("LblSubProyecto").Text = LblSubProyecto.Text
|
|
||||||
End If
|
|
||||||
|
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
||||||
|
|
||||||
If e.Row.DBCampo("Concepto") = "" Then
|
|
||||||
e.Row.ControlStyle.Font.Bold = True
|
|
||||||
e.Row.ControlStyle.Height = 35
|
|
||||||
|
|
||||||
'Cuando es Titulo
|
|
||||||
If e.Row.DBCampo("SaldoActual") = "" Then
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Visible = False
|
|
||||||
|
|
||||||
|
|
||||||
'Cuando Es Total
|
|
||||||
Else
|
|
||||||
CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
|
||||||
|
|
||||||
'Anterior para TotalPadre
|
|
||||||
'If e.Row.DBCampo("CtaMayor").ToString = "2" And (e.Row.DBCampo("Nivel3").ToString <> "" Xor e.Row.DBCampo("Orden").ToString.Length = 18) Then
|
|
||||||
' e.Row.FCLabel("LbReferencia").Text = "Total:"
|
|
||||||
'Else
|
|
||||||
' e.Row.FCLabel("LbConcepto").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
|
|
||||||
'End If
|
|
||||||
|
|
||||||
If TotalPadre Then
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "1px"
|
|
||||||
'CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells.Remove(CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3))
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Align = "Right"
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(3).Width = "400px"
|
|
||||||
If e.Row.RowIndex + 1 = DtDatos.Rows.Count Then
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Attributes.Add("style", "border-top: 1px solid black;")
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(5).Attributes.Add("style", "border-top: 1px solid black;")
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(6).Attributes.Add("style", "border-top: 1px solid black;")
|
|
||||||
End If
|
|
||||||
e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", e.Row.DBCampo("Nombre").ToString)
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
|
||||||
TotalPadre = True
|
|
||||||
e.Row.FCLabel("LbReferencia").Font.Bold = False
|
|
||||||
e.Row.FCLabel("LbReferencia").Text = "Total:"
|
|
||||||
CType(e.Row.FindControl("tr2"), HtmlTableRow).Cells(4).Align = "Right"
|
|
||||||
End If
|
|
||||||
|
|
||||||
'e.Row.FCLabel("LbReferencia").Text = String.Format("Total {0}:", If(e.Row.DBCampo("CtaMayor").ToString = "2", "", e.Row.DBCampo("Nombre").ToString))
|
|
||||||
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("SaldoActual").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
TotalPadre = False
|
|
||||||
e.Row.ControlStyle.Font.Bold = False
|
|
||||||
CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
|
||||||
e.Row.FCHyperLink("HLPoliza").NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", e.Row.DBCampo("CvePoliza"))
|
|
||||||
|
|
||||||
If e.Row.DBCampo("CargosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
If e.Row.DBCampo("AbonosMovto").ToDouble <> 0 Then e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
If e.Row.DBCampo("Saldo").ToDouble <> 0 Then e.Row.FCLabel("LbSaldo").Text = e.Row.DBCampo("Saldo").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
'COLOREA NEGATIVOS
|
|
||||||
If e.Row.FCLabel("LbCargos").Text.ToDouble < 0 Then
|
|
||||||
e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
|
|
||||||
Else
|
|
||||||
e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Black
|
|
||||||
End If
|
|
||||||
|
|
||||||
If e.Row.FCLabel("LbAbonos").Text.ToDouble < 0 Then
|
|
||||||
e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
|
|
||||||
Else
|
|
||||||
e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Black
|
|
||||||
End If
|
|
||||||
|
|
||||||
If e.Row.FCLabel("LbSaldo").Text.ToDouble < 0 Then
|
|
||||||
e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Red
|
|
||||||
Else
|
|
||||||
e.Row.FCLabel("LbSaldo").ForeColor = Drawing.Color.Black
|
|
||||||
End If
|
|
||||||
|
|
||||||
If e.Row.FCLabel("LbSaldoInicial").Text.ToDouble < 0 Then
|
|
||||||
e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
|
|
||||||
Else
|
|
||||||
e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Black
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Protected Sub Imprimir_click(sender As Object, e As EventArgs)
|
|
||||||
If DdlCuentas.SelectedValue.ToEntero = -1 Then
|
|
||||||
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
|
|
||||||
Else
|
|
||||||
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
|
||||||
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
|
||||||
|
|
||||||
DtDatos = DtDatos
|
|
||||||
ImprimirReporte()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
|
||||||
ImprimirReporte("Excel")
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
|
|
||||||
|
|
||||||
Dim WBLibroMayor = New ClosedXML.Excel.XLWorkbook
|
|
||||||
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
|
|
||||||
|
|
||||||
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
|
|
||||||
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
|
|
||||||
|
|
||||||
DtDatos.Rows.Clear()
|
|
||||||
CargaDatos(False)
|
|
||||||
|
|
||||||
If DtDatos.Rows.Count > 0 Then
|
|
||||||
Dim sp As String = If(DdlSubproyecto.SelectedValue.ToEntero > 0, DdlSubproyecto.SelectedItem.Text, "")
|
|
||||||
WBLibroMayor.AddWorksheet(WSDocumento(sp, DtDatos))
|
|
||||||
WBLibroMayor.Worksheet(1).Name = $"LibroMayor"
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim msB = New MemoryStream()
|
|
||||||
WBLibroMayor.SaveAs(msB)
|
|
||||||
|
|
||||||
Dim BB As Byte() = msB.ToArray
|
|
||||||
msB.Dispose()
|
|
||||||
|
|
||||||
Response.Clear()
|
|
||||||
Response.Buffer = True
|
|
||||||
Response.AddHeader("content-disposition", "attachment; filename=Balanza_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
|
|
||||||
Response.ContentType = "application/vnd.ms-excel"
|
|
||||||
Response.BinaryWrite(BB)
|
|
||||||
|
|
||||||
Response.End()
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
Function WSDocumento(SubProyecto As String, DtDatos As DataTable) As IXLWorksheet
|
|
||||||
|
|
||||||
|
|
||||||
Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook
|
|
||||||
Dim WBReporte = New ClosedXML.Excel.XLWorkbook()
|
|
||||||
WBReporte.Worksheets.Add("1")
|
|
||||||
|
|
||||||
Dim WSReporte = WBReporte.Worksheet(1)
|
|
||||||
|
|
||||||
Dim RutaLogo As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
|
|
||||||
If File.Exists(RutaLogo) Then
|
|
||||||
|
|
||||||
Dim imagePath As String = RutaLogo
|
|
||||||
Dim img As Bitmap = New Bitmap(imagePath)
|
|
||||||
Dim picture = WSReporte.AddPicture(img).MoveTo(WSReporte.Cell("A1"))
|
|
||||||
picture.Scale(0.5)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim Tamaniofuente As Integer = 13
|
|
||||||
Dim Range = WSReporte.Range("A1:D1")
|
|
||||||
|
|
||||||
WSReporte.Style.Font.FontSize = 10
|
|
||||||
WSReporte.Style.Font.FontName = "Arial Narrow"
|
|
||||||
|
|
||||||
WSReporte.Style.Alignment.WrapText = True
|
|
||||||
|
|
||||||
Range.Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
|
|
||||||
WSReporte.Range("A1:J1").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
WSReporte.Range("A2:J2").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
WSReporte.Range("A3:J3").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
WSReporte.Range("A4:J4").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
WSReporte.Range("A5:J5").Merge().Style.Font.SetBold().Font.FontSize = Tamaniofuente
|
|
||||||
|
|
||||||
WSReporte.Range("A1:A5").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
|
||||||
|
|
||||||
WSReporte.Column(1).Width = 15
|
|
||||||
WSReporte.Column(2).Width = 15
|
|
||||||
WSReporte.Column(3).Width = 14
|
|
||||||
WSReporte.Column(4).Width = 70
|
|
||||||
WSReporte.Column(5).Width = 35
|
|
||||||
WSReporte.Column(6).Width = 20
|
|
||||||
WSReporte.Column(7).Width = 14
|
|
||||||
WSReporte.Column(8).Width = 14
|
|
||||||
WSReporte.Column(9).Width = 14
|
|
||||||
WSReporte.Column(10).Width = 14
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Cell(1, 1).Value = UsuarioActual.Empresa.Empresa
|
|
||||||
WSReporte.Cell(2, 1).Value = $"Libro Mayor del {txtFechaI.Text} al {txtFechaF.Text}"
|
|
||||||
|
|
||||||
If SubProyecto.Length > 0 Then
|
|
||||||
WSReporte.Cell(5, 1).Value = $"Sub Proyecto: {SubProyecto}"
|
|
||||||
WSReporte.Cell(5, 1).Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Left
|
|
||||||
WSReporte.Cell(5, 1).Style.Font.Bold = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Cell(6, 1).Value = "Fecha"
|
|
||||||
WSReporte.Cell(6, 2).Value = $"Cuenta{vbCrLf}Tipo"
|
|
||||||
WSReporte.Cell(6, 1).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
|
||||||
WSReporte.Cell(6, 2).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
|
||||||
|
|
||||||
WSReporte.Cell(6, 3).Value = $"Número"
|
|
||||||
WSReporte.Cell(6, 4).Value = $"Concepto"
|
|
||||||
WSReporte.Cell(6, 5).Value = $"Referencia"
|
|
||||||
WSReporte.Cell(6, 6).Value = $"Referencia Movto"
|
|
||||||
WSReporte.Cell(6, 7).Value = $"{LblSubProyecto.Text}"
|
|
||||||
WSReporte.Cell(6, 8).Value = $"Cargos"
|
|
||||||
WSReporte.Cell(6, 9).Value = $"Abonos"
|
|
||||||
WSReporte.Cell(6, 10).Value = $"Saldo"
|
|
||||||
|
|
||||||
WSReporte.Range("A6:J6").Style.Font.Bold = True
|
|
||||||
WSReporte.Range("A6:J6").Style.Font.FontSize = 10
|
|
||||||
WSReporte.Range("A6:J6").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
|
||||||
WSReporte.Range("A6:J6").Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
WSReporte.Range("A6:J6").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
WSReporte.Range("A6:J6").Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
|
|
||||||
Dim CuerrentRow As Integer = 7
|
|
||||||
|
|
||||||
CuerrentRow = CuerrentRow + 1
|
|
||||||
|
|
||||||
For Each Drow As DataRow In DtDatos.Rows
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Drow("Concepto").ToString = "" Then
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.Bold = True
|
|
||||||
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.FontSize = FontSize.XXLarge '35
|
|
||||||
|
|
||||||
|
|
||||||
If Drow("SaldoActual").ToString = "" Then
|
|
||||||
'CType(e.Row.FindControl("tr2"), HtmlTableRow).Visible = False
|
|
||||||
'Cuando Es Total
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Codigo").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Nombre").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 9).Value = "Saldo Inicial:"
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Value = Drow("SaldoInicial").ToString
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
|
|
||||||
If Drow("SaldoInicial").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
'CType(e.Row.FindControl("tr1"), HtmlTableRow).Visible = False
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Fecha").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 2).Value = Drow("TipoPoliza").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 3).Value = Drow("Folio").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Concepto").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Value = Drow("Referencia").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 6).Value = Drow("ReferenciaAdmin").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 7).Value = Drow("SubProyecto").ToString
|
|
||||||
|
|
||||||
|
|
||||||
If TotalPadre Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Value = String.Format("Total {0}:", Drow("Nombre").ToString)
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
|
||||||
Else
|
|
||||||
TotalPadre = True
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Style.Font.Bold = False
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Value = "Total:"
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
|
||||||
End If
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 8).Value = Drow("Cargos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
WSReporte.Cell(CuerrentRow, 9).Value = Drow("Abonos").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Value = Drow("SaldoActual").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
|
||||||
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
|
|
||||||
|
|
||||||
If Drow("Cargos").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 8).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Drow("Abonos").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 9).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Drow("SaldoActual").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 1).Value = Drow("Fecha").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 2).Value = Drow("TipoPoliza").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 3).Value = Drow("Folio").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 4).Value = Drow("Concepto").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 5).Value = Drow("Referencia").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 6).Value = Drow("ReferenciaAdmin").ToString
|
|
||||||
WSReporte.Cell(CuerrentRow, 7).Value = Drow("SubProyecto").ToString
|
|
||||||
|
|
||||||
TotalPadre = False
|
|
||||||
|
|
||||||
WSReporte.Range($"A{CuerrentRow }:J{CuerrentRow }").Style.Font.Bold = False
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Value = Drow("Folio").ToString
|
|
||||||
|
|
||||||
WSReporte.Cell(CuerrentRow, 8).Value = Drow("CargosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
WSReporte.Cell(CuerrentRow, 9).Value = Drow("AbonosMovto").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Value = Drow("Saldo").ToString.FormatoNumero(If("1" = "1", 2, 4))
|
|
||||||
|
|
||||||
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right)
|
|
||||||
|
|
||||||
WSReporte.Range($"H{CuerrentRow}:J{CuerrentRow}").Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
|
|
||||||
|
|
||||||
If Drow("CargosMovto").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 8).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Drow("AbonosMovto").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 9).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Drow("Saldo").ToString.ToDecimal < 0 Then
|
|
||||||
WSReporte.Cell(CuerrentRow, 10).Style.Font.FontColor = XLColor.Red
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
CuerrentRow = CuerrentRow + 1
|
|
||||||
Next
|
|
||||||
|
|
||||||
|
|
||||||
For xy As Integer = 6 To CuerrentRow
|
|
||||||
WSReporte.Cell(xy, 10).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
WSReporte.Cell(xy, 1).Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
Next
|
|
||||||
|
|
||||||
'CuerrentRow = CuerrentRow + 1
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 1).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
|
||||||
'WSReporte.Cell(CuerrentRow, 2).Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 3).Value = $"Saldos Iniciales{vbCrLf}Deudor Acreedor"
|
|
||||||
'WSReporte.Cell(CuerrentRow, 4).Value = $"Cargos"
|
|
||||||
'WSReporte.Cell(CuerrentRow, 5).Value = $"Abonos"
|
|
||||||
'WSReporte.Cell(CuerrentRow, 6).Value = $"Saldo Actuales{vbCrLf} Deudor Acreedo"
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
WSReporte.Range($"A{CuerrentRow}:J{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Font.Bold = True
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Font.FontSize = 10
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center)
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
'WSReporte.Range($"A{CuerrentRow}:F{CuerrentRow}").Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
|
|
||||||
'CuerrentRow = CuerrentRow + 1
|
|
||||||
|
|
||||||
'Dim ultimaFila As DataRow = DtDatos.Rows(DtDatos.Rows.Count - 1)
|
|
||||||
|
|
||||||
'Dim LastSaldoID As Decimal = ultimaFila("SaldoID").ToString.ToDecimal
|
|
||||||
'Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal
|
|
||||||
'Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal
|
|
||||||
'Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal
|
|
||||||
'Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal
|
|
||||||
'Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales"
|
|
||||||
'WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID
|
|
||||||
'WSReporte.Cell(CuerrentRow, 4).Value = LastTotalCargos
|
|
||||||
'WSReporte.Cell(CuerrentRow, 5).Value = LastTotalAbonos
|
|
||||||
'WSReporte.Cell(CuerrentRow, 6).Value = LastSaldoAD
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 3).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
'WSReporte.Cell(CuerrentRow, 4).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
'WSReporte.Cell(CuerrentRow, 5).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
'WSReporte.Cell(CuerrentRow, 6).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
|
|
||||||
|
|
||||||
CuerrentRow = CuerrentRow + 1
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoIA
|
|
||||||
'WSReporte.Cell(CuerrentRow, 6).Value = LastSaldoAA
|
|
||||||
|
|
||||||
|
|
||||||
'WSReporte.Cell(CuerrentRow, 3).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
'WSReporte.Cell(CuerrentRow, 6).Style.NumberFormat.Format = "#,##0.00; [Black] - #,##0.00 ;""-"""
|
|
||||||
|
|
||||||
'WSReporte.Range($"B{CuerrentRow}:F{CuerrentRow}").Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium
|
|
||||||
|
|
||||||
WSReporte.PageSetup.PrintAreas.Add($"A1:G{CuerrentRow + 0 + 1}")
|
|
||||||
WSReporte.PageSetup.Margins.Top = 0.3
|
|
||||||
WSReporte.PageSetup.Margins.Left = 0.8
|
|
||||||
WSReporte.PageSetup.Margins.Right = 0.8
|
|
||||||
WSReporte.PageSetup.FitToPages(1, 1)
|
|
||||||
|
|
||||||
WBReporte.Worksheet(1).CopyTo(WBAnexoSalvar, "LibroMayor")
|
|
||||||
|
|
||||||
Return WBReporte.Worksheet(1)
|
|
||||||
|
|
||||||
End Function
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Public Function CloneGridView(ByVal originalGridView As GridView) As GridView
|
|
||||||
' Crear un nuevo GridView
|
|
||||||
Dim clonedGridView As New GridView()
|
|
||||||
|
|
||||||
' Copiar propiedades básicas del GridView
|
|
||||||
clonedGridView.ID = originalGridView.ID & "_Copy"
|
|
||||||
clonedGridView.AutoGenerateColumns = originalGridView.AutoGenerateColumns
|
|
||||||
clonedGridView.CssClass = originalGridView.CssClass
|
|
||||||
clonedGridView.GridLines = originalGridView.GridLines
|
|
||||||
clonedGridView.HeaderStyle.CopyFrom(originalGridView.HeaderStyle)
|
|
||||||
clonedGridView.RowStyle.CopyFrom(originalGridView.RowStyle)
|
|
||||||
clonedGridView.AlternatingRowStyle.CopyFrom(originalGridView.AlternatingRowStyle)
|
|
||||||
clonedGridView.FooterStyle.CopyFrom(originalGridView.FooterStyle)
|
|
||||||
clonedGridView.EmptyDataText = originalGridView.EmptyDataText
|
|
||||||
clonedGridView.ShowHeader = originalGridView.ShowHeader
|
|
||||||
clonedGridView.ShowFooter = originalGridView.ShowFooter
|
|
||||||
|
|
||||||
' Copiar columnas
|
|
||||||
For Each col As DataControlField In originalGridView.Columns
|
|
||||||
' Crear una copia de la columna
|
|
||||||
Dim clonedCol As DataControlField = CType(Activator.CreateInstance(col.GetType()), DataControlField)
|
|
||||||
clonedCol.HeaderStyle.CopyFrom(col.HeaderStyle)
|
|
||||||
clonedCol.ItemStyle.CopyFrom(col.ItemStyle)
|
|
||||||
clonedCol.FooterStyle.CopyFrom(col.FooterStyle)
|
|
||||||
|
|
||||||
' Si es un BoundField, copiar propiedades específicas
|
|
||||||
If TypeOf col Is BoundField Then
|
|
||||||
Dim originalBoundField As BoundField = CType(col, BoundField)
|
|
||||||
Dim clonedBoundField As BoundField = CType(clonedCol, BoundField)
|
|
||||||
|
|
||||||
clonedBoundField.DataField = originalBoundField.DataField
|
|
||||||
clonedBoundField.HeaderText = originalBoundField.HeaderText
|
|
||||||
clonedBoundField.SortExpression = originalBoundField.SortExpression
|
|
||||||
clonedBoundField.ReadOnly = originalBoundField.ReadOnly
|
|
||||||
End If
|
|
||||||
|
|
||||||
' Añadir la columna clonada al nuevo GridView
|
|
||||||
clonedGridView.Columns.Add(clonedCol)
|
|
||||||
Next
|
|
||||||
|
|
||||||
' Copiar el DataSource (opcional, dependiendo de si deseas copiar los datos actuales)
|
|
||||||
clonedGridView.DataSource = originalGridView.DataSource
|
|
||||||
clonedGridView.DataBind()
|
|
||||||
|
|
||||||
Return clonedGridView
|
|
||||||
End Function
|
|
||||||
|
|
||||||
|
|
||||||
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
End Class
|
|
||||||
116
Contabilidad/LibroMayorCI.aspx
Normal file
116
Contabilidad/LibroMayorCI.aspx
Normal file
@@ -0,0 +1,116 @@
|
|||||||
|
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroMayorCI.aspx.vb" Inherits="Contabilidad_LibroMayorCI" %>
|
||||||
|
|
||||||
|
<asp:Content ContentPlaceHolderID="Css" runat="server">
|
||||||
|
<style>
|
||||||
|
.truncate {
|
||||||
|
width: 300px;
|
||||||
|
white-space: nowrap;
|
||||||
|
overflow: hidden;
|
||||||
|
text-overflow: ellipsis;
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<asp:UpdatePanel runat="server">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="ImgExcel" Visible="false" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="Imprimir" Visible="false" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</ContentTemplate>
|
||||||
|
<Triggers>
|
||||||
|
<asp:PostBackTrigger ControlID="ImgExcel" />
|
||||||
|
<asp:PostBackTrigger ControlID="Imprimir" />
|
||||||
|
</Triggers>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||||
|
Libro Mayor
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
|
||||||
|
|
||||||
|
<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="tools">
|
||||||
|
<asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-primary" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
|
||||||
|
</div>
|
||||||
|
<div class="titlefiltros caption ">
|
||||||
|
<div class="row">
|
||||||
|
<label class="col-md-1" style="width: 90px; padding-right: 2px;">Fecha Inicio:</label>
|
||||||
|
<div class="col-md-2" style="width: 140px;">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
|
||||||
|
<asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
|
||||||
|
<asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene 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="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
|
||||||
|
<div class="col-md-2" style="width: 140px;">
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
|
||||||
|
<asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
|
||||||
|
<asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene 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="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<%-- <label class="col-md-2" style="width: 60px;">Moneda:</label>
|
||||||
|
<div class="col-md-1">
|
||||||
|
<asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static">
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>--%>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<%-- <br />
|
||||||
|
<div class="text-right">Buscar :
|
||||||
|
<input type="text" id="Buscar" style="margin-right: 30px;" />
|
||||||
|
</div>--%>
|
||||||
|
|
||||||
|
|
||||||
|
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
|
||||||
|
<ContentTemplate>
|
||||||
|
|
||||||
|
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||||
|
<asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
|
||||||
|
<asp:BoundField HeaderText="Poliza" DataField="Folio" />
|
||||||
|
<asp:BoundField HeaderText="Descripción" DataField="Concepto" />
|
||||||
|
<asp:BoundField HeaderText="Cargos" DataField="Cargos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
||||||
|
<asp:BoundField HeaderText="Abonos" DataField="Abonos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
||||||
|
<asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
|
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
|
|
||||||
220
Contabilidad/LibroMayorCI.aspx.vb
Normal file
220
Contabilidad/LibroMayorCI.aspx.vb
Normal file
@@ -0,0 +1,220 @@
|
|||||||
|
Option Explicit On
|
||||||
|
Option Strict On
|
||||||
|
|
||||||
|
Imports System.Data
|
||||||
|
Imports Extensiones
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
|
||||||
|
Partial Class Contabilidad_LibroMayorCI
|
||||||
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
#Region "PROPIEDADES"
|
||||||
|
Private Property DtDatos As DataTable
|
||||||
|
Get
|
||||||
|
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(ByVal value As DataTable)
|
||||||
|
ViewState("DtDatos") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property FechaInicio As Date
|
||||||
|
Get
|
||||||
|
FechaInicio = ViewState("FechaInicio").ToString.ToDate
|
||||||
|
End Get
|
||||||
|
Set(value As Date)
|
||||||
|
ViewState("FechaInicio") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property FechaFin As Date
|
||||||
|
Get
|
||||||
|
FechaFin = ViewState("FechaFin").ToString.ToDate
|
||||||
|
End Get
|
||||||
|
Set(value As Date)
|
||||||
|
ViewState("FechaFin") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
If Not Page.IsPostBack Then
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
InicializaValores()
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.UsaAC Then
|
||||||
|
BtnConsultar.Enabled = True
|
||||||
|
Else
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
|
BtnConsultar.Enabled = True
|
||||||
|
Else
|
||||||
|
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub InicializaValores()
|
||||||
|
|
||||||
|
TxtFechaDel.Text = $"01/01/{NowADS().Year}"
|
||||||
|
TxtFechaAl.Text = NowADS().ToShortDateString
|
||||||
|
|
||||||
|
'DdlMoneda.DataSource = GlobalDTMonedas
|
||||||
|
'DdlMoneda.DataBind()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||||
|
CargaDatos()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "C A R G A - D A T O S"
|
||||||
|
Private Sub CargaDatos()
|
||||||
|
|
||||||
|
FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
|
||||||
|
FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
|
|
||||||
|
|
||||||
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
If ObjConta.GetLibroMayorSIG(-1, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then
|
||||||
|
DtDatos = ObjConta.DtResultados
|
||||||
|
Else
|
||||||
|
DtDatos = Nothing
|
||||||
|
End If
|
||||||
|
ObjConta.Dispose()
|
||||||
|
|
||||||
|
|
||||||
|
Else
|
||||||
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
|
If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then
|
||||||
|
DtDatos = ObjConta.DtResultados
|
||||||
|
Else
|
||||||
|
DtDatos = Nothing
|
||||||
|
End If
|
||||||
|
ObjConta.Dispose()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If DtDatos IsNot Nothing Then
|
||||||
|
ImgExcel.Visible = True
|
||||||
|
Imprimir.Visible = True
|
||||||
|
CargaGrid()
|
||||||
|
Else
|
||||||
|
ImgExcel.Visible = False
|
||||||
|
Imprimir.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
#Region "G R I D - GV DATOS"
|
||||||
|
Private Sub CargaGrid()
|
||||||
|
GvDatos.DataSource = DtDatos
|
||||||
|
GvDatos.DataBind()
|
||||||
|
UpDatos.Update()
|
||||||
|
End Sub
|
||||||
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
|
||||||
|
'0 Fecha
|
||||||
|
'1 TipoPol
|
||||||
|
'2 Folio
|
||||||
|
'3 Concepto
|
||||||
|
'4 Cargos
|
||||||
|
'5 Abonos
|
||||||
|
'6 Saldo
|
||||||
|
|
||||||
|
'CABECERA
|
||||||
|
If e.Row.DBCampo("TipoRenglon") = "1" Then
|
||||||
|
e.Row.Font.Bold = True
|
||||||
|
e.Row.Cells(0).Text = ""
|
||||||
|
e.Row.Cells(1).Text = ""
|
||||||
|
e.Row.Cells(2).Text = ""
|
||||||
|
e.Row.Cells(3).Text = e.Row.DBCampo("Nombre")
|
||||||
|
e.Row.Cells(4).Text = ""
|
||||||
|
e.Row.Cells(5).Text = "Saldo inicial:"
|
||||||
|
e.Row.Cells(6).Text = e.Row.DBCampo("SaldoInicial").FormatoNumero
|
||||||
|
e.Row.CssClass = "Totales"
|
||||||
|
End If
|
||||||
|
|
||||||
|
'DETALLE
|
||||||
|
If e.Row.DBCampo("TipoRenglon") = "2" Then
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
'SUBTOTAL
|
||||||
|
If e.Row.DBCampo("TipoRenglon") = "3" Then
|
||||||
|
e.Row.Font.Bold = True
|
||||||
|
e.Row.Cells(1).Text = ""
|
||||||
|
e.Row.Cells(2).Text = ""
|
||||||
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
|
||||||
|
e.Row.Cells(3).Text = "SubTotal:"
|
||||||
|
e.Row.Cells(6).Text = ""
|
||||||
|
e.Row.CssClass = "SubTotales"
|
||||||
|
End If
|
||||||
|
|
||||||
|
'TOTAL
|
||||||
|
If e.Row.DBCampo("TipoRenglon") = "4" Then
|
||||||
|
e.Row.Font.Bold = True
|
||||||
|
e.Row.Cells(0).Text = ""
|
||||||
|
e.Row.Cells(1).Text = ""
|
||||||
|
e.Row.Cells(2).Text = ""
|
||||||
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
|
||||||
|
e.Row.Cells(3).Text = $"Total ({e.Row.DBCampo("Nombre")}):"
|
||||||
|
e.Row.Cells(6).Text = ""
|
||||||
|
e.Row.CssClass = "Totales"
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
#Region " IMPRIMIR "
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
|
||||||
|
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
|
||||||
|
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
|
||||||
|
DtDatos = DtDatos
|
||||||
|
ImprimirReporte()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||||
|
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
|
||||||
|
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
|
||||||
|
DtDatos = DtDatos
|
||||||
|
ImprimirReporte("EXCEL")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
|
||||||
|
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||||
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
Dim lista = New List(Of CrystalParametro)
|
||||||
|
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
|
||||||
|
lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
|
||||||
|
lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
|
||||||
|
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
|
lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||||
|
|
||||||
|
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroMayor.rpt"), DtDatos, lista, "LibroMayor", Formato), "LibroMayor", Formato)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
@@ -158,7 +158,7 @@ Partial Class Ventas_Promociones
|
|||||||
PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386)
|
PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386)
|
||||||
|
|
||||||
EmpresaFnc382 = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
|
EmpresaFnc382 = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz
|
||||||
EmpresaFnc382 = True ''Para pruebas
|
'EmpresaFnc382 = True ''Para pruebas
|
||||||
|
|
||||||
If EmpresaFnc382 Then
|
If EmpresaFnc382 Then
|
||||||
DVModalClasificacion.Visible = False
|
DVModalClasificacion.Visible = False
|
||||||
@@ -1474,6 +1474,8 @@ Partial Class Ventas_Promociones
|
|||||||
|
|
||||||
LblUltimoCosto.Text = DTPSUltimoCosto.FiltroPrimeroValor("UltimoCosto", "").FormatoNumero(4)
|
LblUltimoCosto.Text = DTPSUltimoCosto.FiltroPrimeroValor("UltimoCosto", "").FormatoNumero(4)
|
||||||
LblCostoPromedio.Text = DTPSUltimoCosto.FiltroPrimeroValor("CostoPromedio", "").FormatoNumero(4)
|
LblCostoPromedio.Text = DTPSUltimoCosto.FiltroPrimeroValor("CostoPromedio", "").FormatoNumero(4)
|
||||||
|
LbPUActual.Text = DTPSUltimoCosto.FiltroPrimeroValor("Importe", "").FormatoNumero(4)
|
||||||
|
|
||||||
|
|
||||||
UpAgregar.Update()
|
UpAgregar.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
Reference in New Issue
Block a user