Ocultar botón de 'Generar Salida' dependiendo si el folio ya tiene un movimiento de salida existente

+ Col Mov. Salida

CAMBIOS BD (VENTAS):
PA_Acum_FoliosGarantiaGet, left join Inv_Movimientos
+ Cols CveMovimiento, Folio
This commit is contained in:
MLopez
2023-02-24 20:44:58 -07:00
parent f635988991
commit 74c40041c3
2 changed files with 19 additions and 2 deletions

View File

@@ -121,7 +121,7 @@
<ContentTemplate>
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite,CveMovimiento"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
data-sort="true"
@@ -170,6 +170,7 @@
<asp:Literal ID="lblUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField HeaderText="Mov. Salida" DataTextField="CveMovimiento" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ControlStyle-CssClass="Texto"/>
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
<ItemTemplate>

View File

@@ -20,6 +20,21 @@ Partial Class Acumuladores_CatFoliosGarantia
End Property
Private Property CveMovimiento As Integer
Get
If ViewState("CveMovimiento") IsNot Nothing Then
Return ViewState("CveMovimiento").ToString.ToEntero
Else
Return -1
End If
End Get
Set(value As Integer)
ViewState("CveMovimiento") = value
End Set
End Property
Private Property Actualizar As Boolean
Get
If Not ViewState("Actualizar") Is Nothing Then
@@ -219,13 +234,14 @@ Partial Class Acumuladores_CatFoliosGarantia
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1)
LblFolio.Text = GvRow.DataKey("FolioGarantia")
Using ObjAcum As New ClsAcumuladores
If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=DdlEstatusConsecutivo.SelectedValue.ToEntero()) Then
GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
HplGenerarSalida.Visible = (CveMovimiento = -1)
End If
End Using
GvGarantiasDetalle.DataBind()