--Quitar boton anterior y siguiente, filtros de cod inicio y fin

This commit is contained in:
2025-03-29 10:29:05 -07:00
parent 2d89348f89
commit 106c44e889
2 changed files with 136 additions and 467 deletions

View File

@@ -3,53 +3,55 @@
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UPAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
</li>
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar Columnas</asp:HyperLink>
</li>
<%-- <li>
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar Columnas</asp:HyperLink>
</li>
<%-- <li>
<asp:LinkButton ID="Lnkcompuxlsinventarios" OnClick="Lnkcompuxlsinventarios_Click" runat="server"><i class="fa fa-ad-excel"></i> Generar Inventarios HP</asp:LinkButton>
</li>--%>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkImprimir" />
<asp:PostBackTrigger ControlID="LnkExportar" />
<asp:PostBackTrigger ControlID="LnkExcelPersonalizado" />
<asp:PostBackTrigger ControlID="LnkFormatoInventario" />
<asp:PostBackTrigger ControlID="LnkImprimir" />
<asp:PostBackTrigger ControlID="LnkExportar" />
<asp:PostBackTrigger ControlID="LnkExcelPersonalizado" />
<asp:PostBackTrigger ControlID="LnkFormatoInventario" />
</Triggers>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
<style>
<style>
.dataTables_scrollHead {
background-color: #95A5A6;
color: white;
}
.dataTables_scrollHead{
background-color:#95A5A6;
color:white;
}
.table-scrollable{
margin-top:0px!important;
margin-bottom:0px!important;
.table-scrollable {
margin-top: 0px !important;
margin-bottom: 0px !important;
}
.dataTables_scroll {
padding-top: 0px;
}
.Totales a {
color: white;
}
.dataTables_scroll{
padding-top:0px;
}
.Totales a{
color: white;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -71,7 +73,7 @@
<div class="row">
<div class="col-md-1 truncate">Almacén</div>
<div class="col-md-2">
<asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
<asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1 truncate">Fecha Inicio</div>
<div class="col-md-2 col-sm-2">
@@ -195,51 +197,42 @@
</div>
</div>
<div class="row" runat="server" visible="false" id="DVFiltroCodigo">
<div class="col-md-1">Código Inicio:</div>
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
<div class="col-md-1">Código Fin:</div>
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
<div class="col-md-1" runat="server" id="DVNavegar" >
<div class="row">
<div class="col-md-5">
<asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
</div>
<div class="col-md-2">
</div>
<div class="col-md-5">
<asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
</div>
</div>
</div>
<div class="col-md-1">Código Inicio:</div>
<div class="col-md-2">
<asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
<div class="col-md-1">Código Fin:</div>
<div class="col-md-2">
<asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row col-md-12" align="right">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvM.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div id="dvCa" style="width:100%;visibility:hidden;top:40px">
<table id="dTable" class="correcto table Widthall " runat="server"><tr>
<td id="dvArt" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px;width:32.5%;"><b>Producto</b></td>
<td id="dvCan" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:30%;border-style: solid;"><b>Cantidad</b></td>
<td id="dvImp" runat="server" class="dataTables_scrollHead" style="text-align:center!important;width: 37.5%;font-size:14px;"><b>Importe</b></td>
</tr></table>
</div>
<ContentTemplate>
<div id="dvCa" style="width: 100%; visibility: hidden; top: 40px">
<table id="dTable" class="correcto table Widthall " runat="server">
<tr>
<td id="dvArt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; width: 32.5%;"><b>Producto</b></td>
<td id="dvCan" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 30%; border-style: solid;"><b>Cantidad</b></td>
<td id="dvImp" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 37.5%; font-size: 14px;"><b>Importe</b></td>
</tr>
</table>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD"
<asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None" CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD"
DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,NumeroParte,PS"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
@@ -255,80 +248,80 @@
<%--4--%>
<asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="22.5%" HeaderText="Descripción" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="PS" />
<%--5--%>
<asp:BoundField Visible="false" DataField="SeccionAlmacen" HeaderText="Sección Almacén" ItemStyle-Width="10%" />
<asp:BoundField Visible="false" DataField="SeccionAlmacen" HeaderText="Sección Almacén" ItemStyle-Width="10%" />
<%--6--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Inicial" >
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Inicial">
<ItemTemplate>
<asp:Label ID="lbSaldoI" runat="server" Text='<%# If(Eval("SaldoIniCant").ToString() = "0", "-", Eval("SaldoIniCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--7--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<ItemTemplate>
<asp:Label ID="lbEntradasCant" runat="server" Text='<%#If(Eval("EntradaCant").ToString() = "0", "-", Eval("EntradaCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--8--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<ItemTemplate>
<asp:Label ID="lbSalidasCant" runat="server" Text='<%# If(Eval("SalidaCant").ToString() = "0", "-", Eval("SalidaCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--9--%>
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField Visible="false" DataField="CantidadPendienteSurtir" HeaderText="Pte Surtir" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<%--10--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Final" ItemStyle-CssClass="LightGray">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Exist. Final" ItemStyle-CssClass="LightGray">
<ItemTemplate>
<asp:Label ID="lbSaldoF" runat="server" Text='<%# If(Eval("SaldoFCant").ToString() = "0", "-", Eval("SaldoFCant", "{0:#,###.######}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--11--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Inicial">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Inicial">
<ItemTemplate>
<asp:Label ID="lbSaldoI2" runat="server" Text='<%# If(Eval("SaldoIniImp").ToString() = "0", "-", Eval("SaldoIniImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Entradas">
<ItemTemplate>
<asp:Label ID="lbEntradaImp" runat="server" Text='<%# If(Eval("EntradaImp").ToString() = "0", "-", Eval("EntradaImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--13--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Salidas">
<ItemTemplate>
<asp:Label ID="lbSalidaImp" runat="server" Text='<%# If(Eval("SalidaImp").ToString() = "0", "-", Eval("SalidaImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--14--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Final" >
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Saldo Final">
<ItemTemplate>
<asp:Label ID="lbSaldoF2" runat="server" Text='<%# If(Eval("SaldoFImp").ToString() = "0", "-", Eval("SaldoFImp", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--15--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Último Costo">
<asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderText="Último Costo">
<ItemTemplate>
<asp:Label ID="lbUltimoCosto" runat="server" Text='<%# If(Eval("UltimoCosto").ToString() = "0", "-", Eval("UltimoCosto", "{0:N2}")) %>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="7.5%" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<%--16--%>
<asp:BoundField Visible="false" DataField="FechaCompra" HeaderText="Última Compra" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField Visible="false" DataField="FechaCompra" HeaderText="Última Compra" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
<%--17--%>
<asp:BoundField Visible="false" DataField="FechaVenta" HeaderText="Última Venta" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField Visible="false" DataField="FechaVenta" HeaderText="Última Venta" DataFormatString="{0:d}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
<%--18--%>
<asp:BoundField Visible="false" DataField="PUPromedio" HeaderText="PU Promedio" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField Visible="false" DataField="PUPromedio" HeaderText="PU Promedio" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -369,7 +362,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Id_Clave" HeaderText="Folio / Concepto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HTMLEncode="false"/>
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HtmlEncode="false" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>
@@ -379,7 +372,7 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
<ContentTemplate>
<div id="DivPersonalizar" class="modal fade" role="dialog">
@@ -393,7 +386,7 @@
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
</div>
<div class="modal-body">
<table style="width:598px;" class="table table-advance">
<table style="width: 598px;" class="table table-advance">
<tbody>
<tr>
<td style="text-align: left;">
@@ -402,21 +395,21 @@
<td style="text-align: left;">
<asp:CheckBox ID="ChkCodigoBarras" runat="server" Text="Código Barras" />
</td>
<td style="text-align: left;">
<td style="text-align: left;">
<asp:CheckBox ID="ChkSeccionAlmacen" runat="server" Text="Sección Almacen" />
</td>
<td style="text-align: left;" id="TdModalClasificacion2" runat="server" visible ="false">
<td style="text-align: left;" id="TdModalClasificacion2" runat="server" visible="false">
<asp:CheckBox ID="ChkClasificacion2" runat="server" Text="Clasificación 2" />
</td>
</tr>
<tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaUltimaCompra" runat="server" Text="Fecha Última Compra" />
</td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaUltimaVenta" runat="server" Text="Fecha Última Venta" />
</td>
<td style="text-align: left;">
<td style="text-align: left;">
<asp:CheckBox ID="ChkPUPromedio" runat="server" Text="PU Promedio" />
</td>
</tr>
@@ -436,8 +429,8 @@
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<script type="text/javascript">
function elementexist(element) {
@@ -454,7 +447,7 @@
Sys.Application.add_load(function (s, e) {
});
var dTable;
function pageLoad() {
var Tam = TamañoVentana();
@@ -463,10 +456,10 @@
Alto = 100;
}
var rows = false;
var cont = 0;
var cont = 0;
$("#<%=GvM.ClientID %> tr").each(function () {
cont++;
@@ -486,63 +479,63 @@
//}
}
$(window).resize(function () {
subHeaders();
dTable.columns.adjust().draw();
});
$(window).resize(function () {
function subHeaders() {
subHeaders();
dTable.columns.adjust().draw();
});
function subHeaders() {
var recco = 0;
$("#<%=GvM.ClientID %> tr").each(function() {
if (!this.rowIndex) return;
var recco = 0;
var celdas = [];
$("#<%=GvM.ClientID %> tr").each(function () {
if (!this.rowIndex) return;
$(this).find('td').each(function (column, td) {
celdas.push($(td).width());
});
var celdas = [];
$(this).find('td').each(function (column, td) {
var ancho = 0
ancho += celdas[0];
ancho += celdas[1];
console.log('ancho req ' + ancho);
$('#dvArt').width(ancho);
ancho = 0;
ancho += celdas[2];
ancho += celdas[3];
ancho += celdas[4];
ancho += celdas[5];
console.log('ancho req ' + ancho);
$('#dvCan').width(ancho);
ancho = 0;
ancho += celdas[6];
ancho += celdas[7];
ancho += celdas[8];
ancho += celdas[9];
console.log('ancho req ' + ancho);
$('#dvImp').width(ancho);
$('#dvCa').css('visibility', 'visible');
return false;
celdas.push($(td).width());
});
var ancho = 0
ancho += celdas[0];
ancho += celdas[1];
console.log('ancho req ' + ancho);
$('#dvArt').width(ancho);
ancho = 0;
ancho += celdas[2];
ancho += celdas[3];
ancho += celdas[4];
ancho += celdas[5];
console.log('ancho req ' + ancho);
$('#dvCan').width(ancho);
ancho = 0;
ancho += celdas[6];
ancho += celdas[7];
ancho += celdas[8];
ancho += celdas[9];
console.log('ancho req ' + ancho);
$('#dvImp').width(ancho);
$('#dvCa').css('visibility', 'visible');
return false;
});
}

View File

@@ -267,10 +267,13 @@ Partial Class Inventarios_ReporteEntradasSalidas
CveMarca = DdlMarca.SelectedValue.ToEntero
End If
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
dt = Reporte.DtResultados
@@ -586,331 +589,4 @@ Partial Class Inventarios_ReporteEntradasSalidas
#End Region
Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
NavegacionPS(Siguiente:=False)
End Sub
Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
NavegacionPS(Siguiente:=True)
End Sub
Private Sub NavegacionPS(Siguiente As Boolean)
Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero
If Not CvePS > 0 Then
CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente)
If Not CvePS > 0 Then
Exit Sub
End If
End If
Dim dt As DataTable = New DataTable
Dim Entrada As Boolean = True
Dim Salida As Boolean = True
Dim FechaI As String = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue.ToEntero = 0, -1, DdlAlmacen.SelectedValue.ToEntero)
Dim CveAlmacenes As String = DdlAlmacen.GetSelectedValues()
If CveAlmacenes.Contains(",") Then
CveAlmacen = -1
End If
If CvePS > 0 Then
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If dr IsNot Nothing Then
DdlPS.SelectedText = dr("PSCodigo").ToString
DdlPS.SelectedValue = CvePS.ToString
End If
End If
'Dim CveTiposAlmacen As String = "-1"
'For Each item As ListItem In CBLTiposAlmacen.Items
' CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
'Next
Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "-1", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
dt = ObjInventarios.DtResultados.Copy
End If
ObjInventarios.Dispose()
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
CargaDatos()
'UPFiltros.Update()
UPPMov.Update()
End If
End Sub
Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer
Dim CvePSRespuesta As Integer = -1
Dim dt As DataTable = New DataTable
If Siguiente Then
If TxtCodigoInicio.Text.Trim.Length > 0 Then
'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim)
End If
Else
If TxtCodigoFinal.Text.Trim.Length > 0 Then
'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero
dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim)
End If
End If
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero
DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString
DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString
DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString
DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString
'UPFiltros.Update()
UPPMov.Update()
End If
Return CvePSRespuesta
End Function
'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
' Dim continuar = True
' Try
' Dim wb As New ClosedXML.Excel.XLWorkbook()
' Dim libro As ClosedXML.Excel.IXLWorksheet = wb.AddWorksheet("Reporte de inventarios")
' Dim Fila As Integer = 0
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
' libro.Cell(Fila + 3, 5).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Column(1).Width = 34.43
' libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
' libro.Cell(Fila + 2, 1).Value = "RECORD Type"
' libro.Cell(Fila + 3, 1).Value = "OBLIGATORIO"
' libro.Column(2).Width = 24
' libro.Cell(Fila + 1, 2).Value = "Codigo del Partner"
' libro.Cell(Fila + 2, 2).Value = "Reporter_id "
' libro.Cell(Fila + 3, 2).Value = "OBLIGATORIO"
' libro.Column(3).Width = 28.71
' libro.Cell(Fila + 1, 3).Value = "Nombre de la Empresa"
' libro.Cell(Fila + 2, 3).Value = "Reporter Company Name"
' libro.Cell(Fila + 3, 3).Value = "OBLIGATORIO"
' libro.Column(4).Width = 23.57
' libro.Cell(Fila + 1, 4).Value = "CÓDIGO DEL PAÍS"
' libro.Cell(Fila + 2, 4).Value = "COUNTRY CD"
' libro.Cell(Fila + 3, 4).Value = "OBLIGATORIO"
' libro.Column(5).Width = 17.57
' libro.Cell(Fila + 1, 5).Value = "Ubicación"
' libro.Cell(Fila + 2, 5).Value = "LOCATION"
' libro.Cell(Fila + 3, 5).Value = "OPCIONAL"
' libro.Column(6).Width = 35.29
' libro.Cell(Fila + 1, 6).Value = "FECHA DEL INVENTARIO"
' libro.Cell(Fila + 2, 6).Value = "Period End Date"
' libro.Cell(Fila + 3, 6).Value = "OBLIGATORIO"
' libro.Column(7).Width = 23.43
' libro.Cell(Fila + 1, 7).Value = "REENVIO"
' libro.Cell(Fila + 2, 7).Value = "RESUBMIT"
' libro.Cell(Fila + 3, 7).Value = "OBLIGATORIO"
' libro.Column(8).Width = 29.29
' libro.Column(9).Width = 25
' libro.Column(10).Width = 18.14
' libro.Column(11).Width = 32.71
' libro.Column(12).Width = 13.57
' libro.Column(13).Width = 13
' libro.Column(14).Width = 32
' libro.Column(15).Width = 12.71
' libro.Column(16).Width = 13
' Fila = Fila + 3
' libro.Cell(Fila + 1, 1).Value = "IH"
' libro.Cell(Fila + 1, 2).Value = "10245068"
' libro.Cell(Fila + 1, 3).Value = "COMPUPROVEEDORES SA DE CV"
' libro.Cell(Fila + 1, 4).Value = "MX"
' libro.Cell(Fila + 1, 5).Value = ""
' libro.Cell(Fila + 1, 6).Value = String.Format("{0:yyyyMMdd}", TxtFechaF.Text.ToDate())
' libro.Cell(Fila + 1, 7).Value = "N"
' Fila = Fila + 1
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
' libro.Range(libro.Cell(Fila + 3, 3), libro.Cell(Fila + 3, 15)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
' libro.Cell(Fila + 3, 7).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
' libro.Cell(Fila + 3, 10).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
' libro.Cell(Fila + 1, 2).Value = "NÚMERO DEL PRODUCTO"
' libro.Cell(Fila + 1, 3).Value = "OPCION DEL PRODUCTO"
' libro.Cell(Fila + 1, 4).Value = "UPC"
' libro.Cell(Fila + 1, 5).Value = "CODIGO SKU"
' libro.Cell(Fila + 1, 6).Value = "ORDENES DE COMPRAS EN ABIERTO "
' libro.Cell(Fila + 1, 7).Value = "INVENTARIO DISPONIBLE"
' libro.Cell(Fila + 1, 8).Value = "DEVOLUCIONES"
' libro.Cell(Fila + 1, 9).Value = "INVENTARIO RESERVADO"
' libro.Cell(Fila + 1, 10).Value = "INVENTARIO TOTAL"
' libro.Cell(Fila + 1, 11).Value = "EN TRANSITO"
' libro.Cell(Fila + 1, 12).Value = "VALOR UNITARIO DEL PRODUCTO HP"
' libro.Cell(Fila + 1, 13).Value = "VALOR TOTAL DEL INVENTARIO"
' libro.Cell(Fila + 1, 14).Value = "NOMBRE DE LA TIENDA"
' libro.Cell(Fila + 1, 15).Value = "Codigo de la tienda"
' libro.Cell(Fila + 1, 16).Value = "MONEDA"
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "RECORD TYPE "
' libro.Cell(Fila + 1, 2).Value = "Partner Reported Product ID"
' libro.Cell(Fila + 1, 3).Value = "PROD_OPTION"
' libro.Cell(Fila + 1, 4).Value = "UPC"
' libro.Cell(Fila + 1, 5).Value = "Reseller product number "
' libro.Cell(Fila + 1, 6).Value = "Quantity on Order"
' libro.Cell(Fila + 1, 7).Value = "Quantity on Hand"
' libro.Cell(Fila + 1, 8).Value = "Quantity in stock allocated to be returned to supplier"
' libro.Cell(Fila + 1, 9).Value = "Reserved Inventory"
' libro.Cell(Fila + 1, 10).Value = "Quantity avail. for sale"
' libro.Cell(Fila + 1, 11).Value = "Quantity in float (In transit between partner warehouses)"
' libro.Cell(Fila + 1, 12).Value = "INVENTORY UNIT VALUE"
' libro.Cell(Fila + 1, 13).Value = "INVENTORY VALUATION"
' libro.Cell(Fila + 1, 14).Value = "Sell from name (For retailers, ""Store Name / Site Name"")"
' libro.Cell(Fila + 1, 15).Value = "Sell From Location ID"
' libro.Cell(Fila + 1, 16).Value = "CURRENCY"
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 3).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 4).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 5).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 6).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 7).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 8).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 9).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 10).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 11).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 12).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 13).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 14).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 15).Value = "OPCIONAL"
' libro.Cell(Fila + 1, 16).Value = "OBLIGATORIO"
' If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then
' For Each row As DataRow In dt.Select("CvePS>0 AND SaldoFCant >0")
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "ID" ' "TIPO DO REGISTRO"
' libro.Cell(Fila + 1, 2).Value = String.Format("'{0}", row("Codigo")) ' "NÚMERO DEL PRODUCTO"
' libro.Cell(Fila + 1, 3).Value = "" ' "OPCION DEL PRODUCTO"
' libro.Cell(Fila + 1, 4).Value = "" ' "UPC"
' libro.Cell(Fila + 1, 5).Value = "" ' "CODIGO SKU"
' libro.Cell(Fila + 1, 6).Value = "" ' "ORDENES DE COMPRAS EN ABIERTO "
' libro.Cell(Fila + 1, 7).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO DISPONIBLE"
' 'libro.Cell(Fila + 1, 7).Style.NumberFormat.Format = "N2"
' libro.Cell(Fila + 1, 8).Value = "" ' "DEVOLUCIONES"
' libro.Cell(Fila + 1, 9).Value = "" ' "INVENTARIO RESERVADO"
' libro.Cell(Fila + 1, 10).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO TOTAL"
' 'libro.Cell(Fila + 1, 10).Style.NumberFormat.Format = "$ #,##0.00"
' libro.Cell(Fila + 1, 11).Value = "" ' "EN TRANSITO"
' libro.Cell(Fila + 1, 12).Value = "" ' "VALOR UNITARIO DEL PRODUCTO HP"
' libro.Cell(Fila + 1, 13).Value = "" ' "VALOR TOTAL DEL INVENTARIO"
' libro.Cell(Fila + 1, 14).Value = "" ' "NOMBRE DE LA TIENDA"
' libro.Cell(Fila + 1, 15).Value = "" ' "Codigo de la tienda"
' libro.Cell(Fila + 1, 16).Value = "MXN" ' "MONEDA"
' Next
' End If
' Fila = Fila + 1
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
' libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
' libro.Cell(Fila + 1, 1).Value = "TIPO DEL REGISTRO"
' libro.Cell(Fila + 1, 2).Value = "TOTAL DE REGISTROS"
' libro.Cell(Fila + 1, 3).Value = "Suma del Inventario Disponible"
' libro.Cell(Fila + 1, 4).Value = "Suma del Inventario Total"
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "RECORD TYPE"
' libro.Cell(Fila + 1, 2).Value = "COUNT OF RECORDS"
' libro.Cell(Fila + 1, 3).Value = "SUM OF “"On Hand”""
' libro.Cell(Fila + 1, 4).Value = "SUM OF “"Total Inventory"”"
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 3).Value = "OBLIGATORIO"
' libro.Cell(Fila + 1, 4).Value = "OBLIGATORIO"
' Dim Codigo As Double = 0
' Dim SaldoFCant As Double = 0
' Dim SaldoFImp As Double = 0
' If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then
' Codigo = dt.COUNT("Codigo", "CvePS>0")
' SaldoFCant = dt.SUM("SaldoFCant", "CvePS>0")
' SaldoFImp = dt.SUM("SaldoFImp", "CvePS>0")
' End If
' Fila = Fila + 1
' libro.Cell(Fila + 1, 1).Value = "IT"
' libro.Cell(Fila + 1, 2).Value = String.Format("{0}", Codigo)
' 'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
' libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
' 'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
' libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
' 'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
' ''Guarda streem y descarga
' Dim fs As Stream = New MemoryStream()
' wb.SaveAs(fs)
' fs.Position = 0
' Dim memoryStream As New MemoryStream()
' Using input As Stream = fs
' input.CopyTo(memoryStream)
' End Using
' memoryStream.Position = 0
' Response.Clear()
' Response.Buffer = True
' Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
' Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "Reporte de Inventarios HP"))
' Response.BinaryWrite(memoryStream.ToArray())
' Response.End()
' ''endGuarda streem y descarga
' Catch
' continuar = False
' End Try
' If Not continuar Then
' Alert("Ocurrió un error al gener el excel", TipoMensaje.MsgAdvertencia)
' End If
'End Sub
End Class