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

-- mejoras

Browse Source
This commit is contained in:
rrene
2022-03-24 12:24:22 -07:00
parent d16dc75c94
commit 609a905960
2 changed files with 16 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Inventarios/ResguardoMaterial.aspx
View File

@@ -423,44 +423,43 @@
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
<div class="rowpadding">
<div class="row">
<label class="col-md-4 truncate" id="LblTipo" runat="server" style="max-width: 155px">
<label class="col-md-3 truncate" id="LblTipo" runat="server" style="max-width: 155px">
</label>
<div class="col-md-8">
<div class="col-md-9">
<asp:Label Text="" ID="LbTipoLiberacion" runat="server" />
</div>
</div>
<hr />
<div class="row">
<label class="col-md-4 truncate" style="max-width: 155px">Almacén origen:</label>
<div class="col-md-8">
<label class="col-md-3 truncate" style="max-width: 155px">Almacén origen:</label>
<div class="col-md-9">
<asp:Label Text="" ID="LbAlmacenLiberacion" runat="server" />
</div>
</div>
<div class="row">
<label class="col-md-4 truncate" style="max-width: 155px">Almacén destino:</label>
<div class="col-md-8">
<label class="col-md-3 truncate" style="max-width: 155px">Almacén destino:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlAlmacenDestinoLiberacion" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen" AutoPostBack="true"></asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="RfvAlmacenDestinoLiberacion" Display="None" ValidationGroup="GrpGuardarLiberacion" runat="server" ControlToValidate="DdlAlmacenDestinoLiberacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Es campo <b>''Almacén destino''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAlmacenDestinoLiberacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacenDestinoLiberacion" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate" style="max-width: 155px">Fecha:</label>
<div class="col-md-8">
<label class="col-md-3 truncate" style="max-width: 155px">Fecha:</label>
<div class="col-md-9">
<asp:Label Text="" ID="LbFechaLiberacion" runat="server" />
</div>
</div>
<div class="row">
<label class="col-md-4 truncate" style="max-width: 155px">
<label class="col-md-3 truncate" style="max-width: 155px">
Observaciones
</label>
<div class="col-md-8">
<div class="col-md-9">
<asp:TextBox ID="TxtObservacionesLiberacion" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
</div>
</div>
</div>
</div>
</div>

18
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -264,7 +264,7 @@ Partial Class Inventarios_ResguardoMaterial
''Almacen Destino
Else
'RESGUARDO
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) '.FiltraParametros("CveTipoAlmacen IN (1,2)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (8)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
'Almacen Destino
@@ -672,18 +672,12 @@ Partial Class Inventarios_ResguardoMaterial
BtnGuardarLiberacion.Visible = False
GvMLiberacion.Columns(1).Visible = True
Else
DVInformacionMoviminetoLiberacion.Visible = True
BtnGuardarLiberacion.Visible = True
GvMLiberacion.Columns(1).Visible = False
GvMLiberacion.Columns(1).HeaderText = ""
End If
End If
UpGridLiberacion.Update()
@@ -738,10 +732,10 @@ Partial Class Inventarios_ResguardoMaterial
Private Sub CargaGvMLiberacion()
GvMLiberacion.Columns(5).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
GvMLiberacion.Columns(9).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
GvMLiberacion.DataSource = DtMovimientosLiberacion
@@ -914,7 +908,7 @@ Partial Class Inventarios_ResguardoMaterial
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim CveSeccionAlmacen As Integer = 0
Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
Importe = ObjInventario.DtResultados.SUMD("Total").RoundSQL
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If CBool(Dr("AplicaSeccion")) Then
CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero