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

Indicadores por Proyecto

Browse Source
This commit is contained in:
rakcsle
2023-07-31 08:44:46 -07:00
parent 9dcd512779
commit ae27ef1754
11 changed files with 744 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsMovimientos.vb
View File

@@ -1537,7 +1537,7 @@ Public Class ClsMovimientos
Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1, Optional CveMoneda As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepRecuperacion")
With SqlAdapter.SelectCommand.Parameters
@@ -1569,6 +1569,7 @@ Public Class ClsMovimientos
.Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
.Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
End With
Try
SqlAdapter.Fill(Data)

44
App_Code/ClsPaginas.vb
View File

@@ -6873,26 +6873,26 @@ Public Class ClsPaginas
RptParametro.Add(New ReportParameter("Puesto", Puesto))
'DATOS NOMINA
If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then
RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
RptParametro.Add(New ReportParameter("Cantidad", "1"))
RptParametro.Add(New ReportParameter("Unidad", "ACT"))
RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
RptParametro.Add(New ReportParameter("Clave", "84111505"))
Else
TieneError = True
End If
RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
RptParametro.Add(New ReportParameter("Cantidad", "1"))
RptParametro.Add(New ReportParameter("Unidad", "ACT"))
RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
RptParametro.Add(New ReportParameter("Total", If(indemnizacion, ajusteindemnizacion, ObjNomina.Total - ajusteindemnizacion).ToString()))
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
RptParametro.Add(New ReportParameter("Clave", "84111505"))
Else
TieneError = True
End If
Else
TieneError = True
End If
If Not TieneError Then
If ObjNomina.GetPeriodos(-1, CveEmpresa, -1, -1, CvePeriodo) Then
@@ -9325,7 +9325,15 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepCancelacionesVentas.aspx".ToUpper(), 1325)
PaginaDict.Add("/Ventas/RepLineasAdicionales.aspx".ToUpper(), 1331)
PaginaDict.Add("/Ventas/RepLineasAdicionales.aspx?OP=OP".ToUpper(), 1332)
<<<<<<< HEAD
PaginaDict.Add("/Ventas/FacturacionAcarreos.aspx".ToUpper(), 774)
=======
PaginaDict.Add("/Ventas/RepIndicadoresPorProyecto.aspx".ToUpper(), 617)
>>>>>>> Indicadores por Proyecto
#End Region
#Region "Varios"
'Portal Cliente/Proveedor

3
Bancos/RepCobrado.aspx.vb
View File

@@ -27,6 +27,9 @@ Partial Class Ventas_RepRecuperacion
End If
End Sub
Private Sub CargaCombos()
'CARGA PROVEEDORES
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)

BIN
Bin/ADSNetLibrary.dll
View File

Binary file not shown.

31
Compras/RepCxP.aspx.vb
View File

@@ -92,6 +92,7 @@ Partial Class Compras_RepCxP
If Not Page.IsPostBack Then
CargaCombos()
CargaGvPersonalizarRaqngoColumnas()
ProcesaRequest()
CargaDatos()
If UsuarioActual.CveRol = 1 Then
@@ -101,6 +102,36 @@ Partial Class Compras_RepCxP
End Sub
#Region "CARGAS"
Private Sub ProcesaRequest()
If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
txtFechaI.Text = Request("FechaInicio")
End If
If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
txtFechaF.Text = Request("FechaFin")
End If
If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
For Each tipoDocto As String In tipodoctos
itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
Next
Next
End If
If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
End If
End Sub
Private Sub CargaCombos()
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then

45
Compras/RepPagado.aspx.cs
View File

@@ -31,6 +31,7 @@ public partial class Compras_RepPagado : ClsPaginas
if (!IsPostBack)
{
InicializaValores();
ProcesaRequest();
}
}
@@ -73,6 +74,50 @@ public partial class Compras_RepPagado : ClsPaginas
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
}
private void ProcesaRequest()
{
if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio))
{
txtFechaI.Text = fechaInicio.ToString("yyyy-MM-dd");
}
if (DateTime.TryParse(Request["FechaFin"], out DateTime fechaFin))
{
txtFechaF.Text = fechaFin.ToString("yyyy-MM-dd");
}
//if (Request["TipoDocto"] != null && Request["TipoDocto"].Length > 0)
//{
// string[] tipodoctos = Request["TipoDocto"].Split(',');
// foreach (ListItem itemTipoDocto in DdlTipoDocto.Items)
// {
// foreach (string tipoDocto in tipodoctos)
// {
// itemTipoDocto.Selected = tipoDocto.ToUpper() == itemTipoDocto.Value.ToUpper();
// }
// }
//}
if (Request["CveMoneda"] != null && Request["CveMoneda"].ToEntero() != 0)
{
DdlMoneda.SelectedValueExist(Request["CveMoneda"].ToEntero());
}
if (Request["CveSubProyecto"] != null && Request["CveSubProyecto"].ToEntero() != 0)
{
DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"].ToEntero());
}
if ((DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio2)) && (DateTime.TryParse(Request["FechaFin"], out DateTime fechaFin2)))
{
CargaDatos();
}
}
private void CargaCuentasBancarias()
{
DdlCuentaBancaria.Items.Clear();

38
CxC/RepCxC.aspx.vb
View File

@@ -91,20 +91,56 @@ Partial Class RepCxC
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Index = 0
Modalidad = ""
CargaCombos()
CargaGvPersonalizarRaqngoColumnas()
ProcesaRequest()
CargaDatos()
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
ActivaEnviarEstadoCuenta()
If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
End If
End Sub
#Region "CARGAS"
Private Sub ProcesaRequest()
If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
txtFechaI.Text = Request("FechaInicio")
End If
If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
txtFechaF.Text = Request("FechaFin")
End If
If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
For Each tipoDocto As String In tipodoctos
itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
Next
Next
End If
If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
End If
End Sub
Private Sub CargaCombos()
'CargaClientes
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then

339
Ventas/RepIndicadoresPorProyecto.aspx Normal file
View File

@@ -0,0 +1,339 @@
<%@ Page Title="Indicadores por Proyecto" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadoresPorProyecto.aspx.vb" Inherits="Ventas_RepIndicadoresPorProyecto" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.portlet-total {
float: right !important;
display: inline-block !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAcciones">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Indicadores por Proyecto
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content6" 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" class="btn btn-primary" />
</div>
<div class="titlefiltros caption">
<div class="row">
<asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate" style="text-align:right">Sucursal:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me" Width="100%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate" style="text-align:right" >Fecha Inicio:</label>
<div class="col-md-2" style="max-width: 140px;">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" 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="Valida"></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="Valida"></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>
<label class="col-md-1 truncate" style="text-align:right">Fecha Fin:</label>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="85px" 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="Valida"></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="Valida"></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>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">CxC</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPResumenCxC" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvResumenCxC" DataKeyNames="CveMoneda,Moneda,Cantidad,Saldo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cuentas por Cobrar"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Saldo" DataField="Saldo" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">CxP</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPResumenCxP" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvResumenCxP" DataKeyNames="CveMoneda,Moneda,Cantidad,Saldo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cuentas por Pagar"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Saldo" DataField="Saldo" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Cobrado</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPRepCobrado" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvRepCobrado" DataKeyNames="CveMoneda,Cobrado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cobrado"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Cobrado" DataField="Cobrado" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Pagado</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPRepPagado" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvRepPagado" DataKeyNames="CveMoneda,Pagado" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Pagado"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Moneda" DataField="Moneda" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Pagado" DataField="Pagado" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
<div class="row" runat="server" id="DVMargenBruto" visible="false">
<div class="col-md-6" style="text-align:left;font-size:20px!important">
Margen Bruto: <asp:Label runat="server" ID="LblMargenBruto"></asp:Label> MXN
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Ingresos Facturas</span>
</div>
<%-- <div class="actions">
<div class="btn-group">
<div class="row ">
<div class="col-md-12">
<input type="text" id="TxtGvRepIngresosFact" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtGvRepIngresosFact','{0}')", GvRepIngresosFact.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtGvRepIngresosFact','{0}')", GvRepIngresosFact.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>--%>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPRepIngresosFact" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvRepIngresosFact" DataKeyNames="CveMoneda,Fecha" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Cobrado"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet light xspadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Costos y Gastos</span>
</div>
<%--<div class="actions">
<div class="btn-group">
<div class="row ">
<div class="col-md-12">
<input type="text" id="TxtGvRepCostosGastos" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtGvRepCostosGastos','{0}')", GvRepCostosGastos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtGvRepCostosGastos','{0}')", GvRepCostosGastos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>--%>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
<div class="caption font-green portlet-total">
<span id="SPRepCostosGastos" class="caption-subject bold uppercase" runat="server" />
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:GridView ID="GvRepCostosGastos" DataKeyNames="CveMoneda,CveClasificacion" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos con los filtros especificados" ToolTip="Pagado"
CssClass="table table-striped table-hover Widthall" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:###,###,##0.00}" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

204
Ventas/RepIndicadoresPorProyecto.aspx.vb Normal file
View File

@@ -0,0 +1,204 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data
Imports ADSNetLibrary.SIGAPI.Services.Generales
Imports ADSNetLibrary.SIGAPI.Models.Generales.Request
Imports ADSNetLibrary.SIGAPI.Models.Generales.Response
Imports MoreLinq
Partial Class Ventas_RepIndicadoresPorProyecto
Inherits ClsPaginas
#Region "Propiedades"
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
InicializaValores()
End If
End Sub
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
End Sub
#End Region
#Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()
End Sub
Private Sub CargaDatos()
If Not IsDate(txtFechaI.Text) Then
Alert("La fecha inicial no es valida.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If Not IsDate(txtFechaF.Text) Then
Alert("La fecha final no es valida.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
GvResumenCxC.DataSource = Nothing
GvResumenCxP.DataSource = Nothing
GvRepCobrado.DataSource = Nothing
GvRepPagado.DataSource = Nothing
GvRepIngresosFact.DataSource = Nothing
GvRepCostosGastos.DataSource = Nothing
Dim gralService = New GeneralesService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
Dim DatResumenCxC = gralService.GetResumenCxC(New RequestResumenCxC() With {.tipoDocto = "Ing",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
Dim DatResumenCxP = gralService.GetResumenCxP(New RequestResumenCxP() With {.tipoDocto = "Fac",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
Dim DatRepCobrado = gralService.RepCobrado(New RequestRepCobrado() With {.tipoDocto = "Ing",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
Dim DatRepPagado = gralService.RepPagado(New RequestRepPagado() With {.tipoDocto = "Fac",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
Dim DatRepIngresosFact = gralService.RepIngresosFact(New RequestRepIngresosFact() With {.tipoDocto = "Ing",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
Dim DatRepCostosGastos = gralService.RepCostosGastos(New RequestRepCostosGastos() With {.tipoDocto = "Fac",
.cveUsuario = UsuarioActual.CveUsuario,
.cveEmpresa = UsuarioActual.CveEmpresa,
.cveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero,
.fechaInicial = txtFechaI.Text,
.fechaFinal = txtFechaF.Text})
If DatResumenCxC.Result.Count > 0 Then
GvResumenCxC.DataSource = DatResumenCxC.Result.ToDataTable
SPResumenCxC.InnerText = $"Total: {DatResumenCxC.Result.ToDataTable.SUMD("saldoMN").ToString("###,###,###.00")} MXN"
End If
If DatResumenCxP.Result.Count > 0 Then
GvResumenCxP.DataSource = DatResumenCxP.Result.ToDataTable
SPResumenCxP.InnerText = $"Total: {DatResumenCxP.Result.ToDataTable.SUMD("saldoMN").ToString("###,###,###.00")} MXN"
End If
If DatRepCobrado.Result.Count > 0 Then
GvRepCobrado.DataSource = DatRepCobrado.Result.ToDataTable
SPRepCobrado.InnerText = $"Total: {DatRepCobrado.Result.ToDataTable.SUMD("cobradoMN").ToString("###,###,###.00")} MXN"
End If
If DatRepPagado.Result.Count > 0 Then
GvRepPagado.DataSource = DatRepPagado.Result.ToDataTable
SPRepPagado.InnerText = $"Total: {DatRepPagado.Result.ToDataTable.SUMD("pagadoMN").ToString("###,###,###.00")} MXN"
End If
If DatRepIngresosFact.Result.Count > 0 Then
GvRepIngresosFact.DataSource = DatRepIngresosFact.Result.ToDataTable.FiltraParametros("nRow <= 50")
SPRepIngresosFact.InnerText = $"Total: {DatRepIngresosFact.Result.ToDataTable.SUMD("importeMN").ToString("###,###,###.00")} MXN"
End If
If DatRepCostosGastos.Result.Count > 0 Then
GvRepCostosGastos.DataSource = DatRepCostosGastos.Result.ToDataTable.FiltraParametros("nRow <= 50")
SPRepCostosGastos.InnerText = $"Total: {DatRepCostosGastos.Result.ToDataTable.SUMD("importeMN").ToString("###,###,###.00")} MXN"
End If
LblMargenBruto.Text = $"{(DatRepIngresosFact.Result.ToDataTable.SUMD("importeMN") - DatRepCostosGastos.Result.ToDataTable.SUMD("importeMN")).ToString("###,###,###.00")}"
GvResumenCxC.DataBind()
GvResumenCxP.DataBind()
GvRepCobrado.DataBind()
GvRepPagado.DataBind()
GvRepIngresosFact.DataBind()
GvRepCostosGastos.DataBind()
DVMargenBruto.Visible = True
UpDatos.Update()
End Sub
Private Sub GvResumenCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvResumenCxC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim liga As String = $"../CxC/RepCxC.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Ing"
e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
e.Row.Cells(2).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(2).Text}</a>"
End If
End Sub
Private Sub GvResumenCxP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvResumenCxP.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim liga As String = $"../Compras/RepCxP.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Fac"
e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
e.Row.Cells(2).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(2).Text}</a>"
End If
End Sub
Private Sub GvRepCobrado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepCobrado.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim liga As String = $"../Ventas/RepRecuperacion.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Ing"
e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
End If
End Sub
Private Sub GvRepPagado_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepPagado.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim liga As String = $"../Compras/RepPagado.aspx?CveSubProyecto={DdlSubProyecto.SelectedValue}&FechaInicio={txtFechaI.Text}&FechaFin={txtFechaF.Text}&CveMoneda={e.Row.DataKey("CveMoneda")}&TipoDocto=Fac"
e.Row.Cells(0).Text = $"<a target='_blank' href='{liga}'>{e.Row.Cells(0).Text}</a>"
e.Row.Cells(1).Text = $"<a target='_blank' href='{liga}' >{e.Row.Cells(1).Text}</a>"
End If
End Sub
Private Sub GvRepIngresosFact_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepIngresosFact.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Fecha").ToString.Trim = "01/01/0001 12:00:00 a. m." Then
e.Row.CssClass = "Totales"
e.Row.Cells(0).Text = ""
End If
End If
End Sub
Private Sub GvRepCostosGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepCostosGastos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("CveClasificacion").ToString.Trim.ToEntero = 0 Then
e.Row.CssClass = "Totales"
End If
End If
End Sub
#End Region
#Region " GV DATOS "
#End Region
End Class

12
Ventas/RepRecuperacion.aspx
View File

@@ -249,7 +249,19 @@
<asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
<asp:ListItem Text="Contado" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">
Moneda:
</div>
<div class="col-md-2 truncate">
<asp:DropDownList ID="DdlMoneda" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
<asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
<asp:ListItem Text="Dolares" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>

50
Ventas/RepRecuperacion.aspx.vb
View File

@@ -48,12 +48,51 @@ Partial Class Ventas_RepRecuperacion
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaCombos()
'CargaDatos()
ProcesaRequest()
'CargaDatos()
End If
End Sub
End Sub
#Region "CARGAS"
Private Sub ProcesaRequest()
If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
txtFechaI.Text = Request("FechaInicio")
End If
If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
txtFechaF.Text = Request("FechaFin")
End If
If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
For Each tipoDocto As String In tipodoctos
itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
Next
Next
End If
If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
End If
UPFiltros.Update()
If IsDate(txtFechaF.Text) AndAlso IsDate(txtFechaF.Text) Then
CargaDatos()
End If
End Sub
Private Sub CargaCombos()
'Carga Clientes
If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
@@ -138,7 +177,8 @@ Partial Class Ventas_RepRecuperacion
If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
"-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero,
CveMoneda:=DdlMoneda.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjMovtos.DtResultados
DtDatos = ObjMovtos.DtResultados
Else