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

Ajustes AF

Browse Source
This commit is contained in:
rakcsle
2024-04-01 17:56:51 -07:00
parent 61ba91a57b
commit e5c4c2fadc
2 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
AF/AF.aspx
View File

@@ -154,6 +154,21 @@
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-4 ">
<label class="control-label">Grupo:</label>
</div>
<div class="col-md-6">
<div class="form-group">
<asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me">
</asp:DropDownList>
</div>
</div>
<div class="col-md-1">
<asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" />
</div>
<div class="row"> <div class="row">
<div class="col-md-4 "> <div class="col-md-4 ">
<label class="control-label">Marca:</label> <label class="control-label">Marca:</label>
@@ -179,20 +194,7 @@
</div> </div>
</div> </div>
<div class="row">
<div class="col-md-4 ">
<label class="control-label">Grupo:</label>
</div>
<div class="col-md-6">
<div class="form-group">
<asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me">
</asp:DropDownList>
</div>
</div>
<div class="col-md-1">
<asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" />
</div>
</div> </div>

10
AF/CatModelos.aspx.vb
View File

@@ -3,10 +3,11 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.Linq Imports System.Linq
Imports CFDi
Imports Extensiones Imports Extensiones
Partial Class AF_CatModelos Partial Class AF_CatModelos
Inherits ClsPaginas Inherits ClsPaginas
#Region " PROPIEDADES" #Region " PROPIEDADES"
@@ -71,7 +72,13 @@ Partial Class AF_CatModelos
CargaDatos() CargaDatos()
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
RegarGlobalDT()
End Sub End Sub
Private Sub RegarGlobalDT()
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
End Sub
Public Sub Edit_Click(sender As Object, e As EventArgs) Public Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnModalidad.Value = "U" HdnModalidad.Value = "U"
@@ -101,6 +108,7 @@ Partial Class AF_CatModelos
End If End If
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
RegarGlobalDT()
End Sub End Sub
Private Sub GvModelo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvModelos.RowDataBound Private Sub GvModelo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvModelos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then