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

CAt AF Ultima Iamgen, Entyardas salidas formato EMD

Browse Source
This commit is contained in:
rakcsle
2025-05-13 08:50:56 -07:00
parent 10a00c992e
commit 00a5ebfd33
7 changed files with 197 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Inventarios/EntradasSalidas.aspx
View File

@@ -259,13 +259,14 @@
<div class="col-md-2">
<asp:TextBox ID="TxtGuia" runat="server" MaxLength="20" Width="100%"></asp:TextBox>
</div>
<div class="col-md-6" runat="server" id="TrResponsable">
<label class="col-md-1" style="width: 110px">Recibe:</label>
<div class="col-md-3">
<asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100%" />
<%--<asp:DropDownList ID="DdlResponsable" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm" Style="width: 200px !important;"></asp:DropDownList>--%>
</div>
</div>
</div>
<div class="row" id="TrResponsable" runat="server" visible="false" >
<label class="col-md-1" style="width: 110px">Recibe:</label>
<div class="col-md-5">
<asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100%" ssClass="form-control input-sm" />
</div>
</div>
<div class="row">

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -722,6 +722,8 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(IIf(UsuarioActual.CveEmpresa.Contiene(72, 80, 1), "CveConcepto NOT IN (4,5,10)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)").ToString)
DdlConcepto.DataBind()
'Llenar el dropdownlist de almacén
If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -2589,6 +2591,9 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 And Not EsNuevoMov Then
If Not DdlConcepto.SelectedValue.Contiene("10", "28") Then
TrResponsable.Visible = True
End If
Exit Sub
End If