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

Puntos GDiaz:

Browse Source 
--en Kardex, visualizar el almacen destino de los trapasos de alamcen
This commit is contained in:
Jonathan Alexis Perez Morales
2024-09-07 11:17:18 -07:00
parent 4c302ac800
commit 22f01c9e47
2 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Inventarios/Kardex.aspx
View File

@@ -437,6 +437,7 @@
<asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" /> <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="AlmacenDestino" HeaderText="A.Destino" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc."> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" /> <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />

24
Inventarios/Kardex.aspx.vb
View File

@@ -79,11 +79,11 @@ Partial Class Inventarios_Kardex
Private Sub CargaPermisos() Private Sub CargaPermisos()
If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
GvM.Columns(14).Visible = TienePermisoImportes ' costo GvM.Columns(15).Visible = TienePermisoImportes ' costo
GvM.Columns(15).Visible = TienePermisoImportes ' importe GvM.Columns(16).Visible = TienePermisoImportes ' importe
GvM.Columns(17).Visible = TienePermisoImportes ' valor GvM.Columns(18).Visible = TienePermisoImportes ' valor
GvM.Columns(18).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 GvM.Columns(19).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
DVFiltroCodigo.Visible = True DVFiltroCodigo.Visible = True
@@ -259,19 +259,21 @@ Partial Class Inventarios_Kardex
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie, AplicaAlmacenDestino As Boolean
AplicaSerie = DtTemp.MAX("Serie") <> "" AplicaSerie = DtTemp.MAX("Serie") <> ""
AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> "" AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> ""
AplicaLote = DtTemp.MAX("Lote") <> "" AplicaLote = DtTemp.MAX("Lote") <> ""
AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> "" AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> ""
AplicaAlmacenDestino = DtTemp.MAX("AlmacenDestino") <> ""
GvM.Columns(6).Visible = DtTemp.MAX("FolioRelacionEntrada") <> "" GvM.Columns(5).Visible = AplicaAlmacenDestino
GvM.Columns(7).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
If AplicaSeccion Then GvM.Columns(8).Visible = True If AplicaSeccion Then GvM.Columns(9).Visible = True
If AplicaSerie Then GvM.Columns(9).Visible = True If AplicaSerie Then GvM.Columns(10).Visible = True
If AplicaLote Then GvM.Columns(10).Visible = True If AplicaLote Then GvM.Columns(11).Visible = True
If AplicaCaducidad Then GvM.Columns(11).Visible = True If AplicaCaducidad Then GvM.Columns(12).Visible = True
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(11).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("") Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("")