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

CAT AF CveAFPAdre y AF concatenar descripcion a codigo en ddl, Kardes ajuste wish list

Browse Source
This commit is contained in:
rakcsle
2025-03-27 15:21:42 -07:00
parent 7818c56469
commit d960e2c039
5 changed files with 32 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/AF.aspx
View File

@@ -610,9 +610,9 @@
<label class=" control-label">AF Padre:</label> <label class=" control-label">AF Padre:</label>
</div> </div>
<div class="col-md-7"> <div class="col-md-8">
<div class="form-group"> <div class="form-group">
<asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList> <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

4
AF/CatAF.aspx
View File

@@ -151,6 +151,10 @@
<asp:ListItem Text="Sin Responsable" Value="-3"></asp:ListItem> <asp:ListItem Text="Sin Responsable" Value="-3"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-1">AF Padre:</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

22
AF/CatAF.aspx.vb
View File

@@ -49,7 +49,7 @@ Partial Class AF_CatAF
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
ViewState("CveActivoFijo") = -1
CargaCombos() CargaCombos()
CargaCaracteristicas() CargaCaracteristicas()
@@ -129,7 +129,24 @@ Partial Class AF_CatAF
CargarTipoActivoFijo() CargarTipoActivoFijo()
CargaGrupos() CargaGrupos()
CargaResponsable() CargaResponsable()
CargaAFPadres()
End Sub End Sub
Public Sub CargaAFPadres()
Dim ObjAF As New ClsAF()
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
DdlAFPadres.DataSource = ObjAF.DtResultados
DdlAFPadres.DataBind()
DdlAFPadres.Items.Remove(DdlAFPadres.Items.FindByValue(CveActivoFijo.ToString))
DdlAFPadres.Items.Insert(0, New ListItem("Todos", "-1"))
End If
ObjAF.Dispose()
End Sub
Private Sub CargaGrupos() Private Sub CargaGrupos()
Dim ObjAF As New ClsAF Dim ObjAF As New ClsAF
@@ -262,7 +279,8 @@ Partial Class AF_CatAF
If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador) If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador)
Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=CveCliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero) Then If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero,
DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=Cvecliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, BuscaPorAFPadre:=DdlAFPadres.SelectedValue.ToEntero) Then
If ObjAF.DtResultados.Rows.Count > 0 Then If ObjAF.DtResultados.Rows.Count > 0 Then
DtActivosFijos = ObjAF.DtResultados DtActivosFijos = ObjAF.DtResultados
'GvDatos.DataSource = ObjAF.DtResultados 'GvDatos.DataSource = ObjAF.DtResultados

2
Inventarios/Kardex.aspx
View File

@@ -498,7 +498,7 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox runat="server" ID="TxtCantidad" Width="70px" CssClass="form-control"></asp:TextBox> <asp:TextBox runat="server" ID="TxtCantidad" Width="70px" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label> <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890." /> <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890.-" />
</div> </div>
</td> </td>

10
Inventarios/Kardex.aspx.vb
View File

@@ -987,12 +987,12 @@ Partial Class Inventarios_Kardex
Dim PorcentajeRetIVA As Decimal = 0 Dim PorcentajeRetIVA As Decimal = 0
If Not Cantidad > 0 Then 'If Not Cantidad > 0 Then
Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia) ' Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
Return False ' Return False
End If 'End If
If almacenStr.Length > 0 Then If almacenStr.Length <> 0 Then
CveAlmacen = almacenStr(0).ToEntero CveAlmacen = almacenStr(0).ToEntero
End If End If