GDiaz Pendientes de implementación 2025-01-09
This commit is contained in:
rakcsle
@@ -257,33 +257,36 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
|
||||
CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None" >
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
|
||||
<HeaderTemplate>
|
||||
Código
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<div class="truncate" style="min-width:120px">
|
||||
<asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
|
||||
</div>
|
||||
</ItemTemplate>
|
||||
<HeaderStyle HorizontalAlign="Left" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="250px">
|
||||
<HeaderTemplate>
|
||||
Producto
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<div class="truncate" style="min-width:250px">
|
||||
<asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
|
||||
</div>
|
||||
</ItemTemplate>
|
||||
<HeaderStyle HorizontalAlign="Left" Width="250px" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle Height="31" />
|
||||
</asp:GridView>
|
||||
DataKeyNames="CvePS"
|
||||
CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
|
||||
<HeaderTemplate>
|
||||
Código
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<div class="truncate" style="min-width: 120px">
|
||||
<asp:Label runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
|
||||
</div>
|
||||
</ItemTemplate>
|
||||
<HeaderStyle HorizontalAlign="Left" Width="120px" />
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="250px">
|
||||
<HeaderTemplate>
|
||||
Producto
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<div class="truncate" style="min-width: 250px">
|
||||
<asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
|
||||
</div>
|
||||
</ItemTemplate>
|
||||
<HeaderStyle HorizontalAlign="Left" Width="250px" />
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
<RowStyle Height="31" />
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
@@ -4,6 +4,7 @@ Imports ADSNetLibrary.SIGAPI.Models.CGame
|
||||
Imports Extensiones
|
||||
Imports GemBox.Spreadsheet
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports Telerik.Web.UI
|
||||
|
||||
Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
Inherits ClsPaginas
|
||||
@@ -144,7 +145,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
|
||||
End Sub
|
||||
Private Sub CargarKardex(CvePS As Integer)
|
||||
Dim dt As DataTable = Nothing
|
||||
Dim dt As New DataTable
|
||||
Dim ObjMovimientos As New ClsInventarios
|
||||
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
|
||||
' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
|
||||
@@ -163,9 +164,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
|
||||
dt = ObjMovimientos.DtResultados
|
||||
Dim ListaBorrar As New List(Of DataColumn)
|
||||
If Not TienePermisoImportes Then
|
||||
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'CP-quito columna de importe total
|
||||
dt.Columns.RemoveAt(dt.Columns.Count - 1) 'Valor-quito columna de importe total
|
||||
|
||||
If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then
|
||||
dt.Columns.RemoveAt(dt.Columns.Count - 2) 'CP-quito columna de importe total
|
||||
dt.Columns.RemoveAt(dt.Columns.Count - 2) 'Valor-quito columna de importe total
|
||||
End If
|
||||
For index As Integer = 3 To dt.Columns.Count - 1
|
||||
Dim TotColumna As Double = 0
|
||||
@@ -195,8 +197,23 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
End If
|
||||
GvDatos.DataBind()
|
||||
|
||||
For index = 4 To GvDatos.Rows(0).Cells.Count - 1
|
||||
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
|
||||
For index = 0 To GvDatos.Rows(0).Cells.Count - 1
|
||||
|
||||
|
||||
If GvDatos.HeaderRow.Cells(index).Text = "CvePS" Then
|
||||
GvDatos.HeaderRow.Cells(index).Text = ""
|
||||
End If
|
||||
|
||||
If GvDatos.HeaderRow.Cells(index).Text = "PS" Then
|
||||
GvDatos.HeaderRow.Cells(index).Text = "Producto"
|
||||
GvDatos.HeaderRow.Cells(index).Width = 300
|
||||
End If
|
||||
|
||||
If index >= 2 Then
|
||||
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
@@ -242,13 +259,26 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
Cells.Text = Cells.Text.FormatoNumero(2)
|
||||
'ElseIf ce.ContainingField.HeaderText = "Total" Then
|
||||
' Cells.Text = Cells.Text.FormatoNumero(2)
|
||||
ElseIf ce.ContainingField.HeaderText = "Codigo" Then
|
||||
|
||||
ElseIf ce.ContainingField.HeaderText = "PS" Then
|
||||
Cells.Width = 300
|
||||
ElseIf ce.ContainingField.HeaderText = "CvePS" Then
|
||||
Cells.Text = ""
|
||||
Cells.Width = 1
|
||||
ElseIf ce.ContainingField.HeaderText = "Total" Then
|
||||
Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
|
||||
Else
|
||||
Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
|
||||
If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then
|
||||
Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}")
|
||||
Cells.Text = String.Format("<a target='_blank' href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
|
||||
'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
|
||||
'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
|
||||
|
||||
End If
|
||||
Index = Index + 1
|
||||
Next
|
||||
@@ -261,8 +291,20 @@ Partial Class Inventarios_KardexAlmacenHorizontal
|
||||
Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
|
||||
'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
|
||||
' e.Row.Cells(0).Width = New Unit("200px")
|
||||
e.Row.Cells(2).Visible = False
|
||||
e.Row.Cells(3).Visible = False
|
||||
|
||||
|
||||
If DdlExistencia.SelectedValue.ToEntero = 2 Then
|
||||
Try
|
||||
e.Row.Cells(2).Visible = False
|
||||
e.Row.Cells(3).Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Else
|
||||
e.Row.Cells(0).Visible = False
|
||||
End If
|
||||
|
||||
If e.Row.RowType = DataControlRowType.Header Then
|
||||
'e.Row.Cells(6).ToolTip = "Costo"
|
||||
End If
|
||||
|
||||
@@ -33,7 +33,7 @@
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<ul class="list-inline" style="font-size: 12px;">
|
||||
<li>SubProyecto:</li>
|
||||
<li><asp:Label runat="server" id="LblSubProyecto"></asp:Label>:</li>
|
||||
<%--SubProyecto--%>
|
||||
<li>
|
||||
<div >
|
||||
|
||||
@@ -34,6 +34,7 @@ Partial Class Inventarios_RepAlmacenCompras
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
|
||||
CargaDatos()
|
||||
CargaPermisos()
|
||||
End If
|
||||
|
||||
@@ -140,7 +140,7 @@ Partial Class RepNotasSinAlmacen
|
||||
CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
|
||||
End If
|
||||
Dim Reporte As New ClsInventarios
|
||||
If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
Dim dtt As DataTable = Reporte.DtResultados
|
||||
|
||||
GvVentas.DataSource = Reporte.DtResultados
|
||||
@@ -159,7 +159,7 @@ Partial Class RepNotasSinAlmacen
|
||||
CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
|
||||
End If
|
||||
Dim Reporte As New ClsInventarios
|
||||
If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
GvCompras.DataSource = Reporte.DtResultados
|
||||
DtNotasSinAlmacenCompras = Reporte.DtResultados
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user