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

-- mejora visual al editar

Browse Source
This commit is contained in:
rrene
2023-09-18 10:48:07 -07:00
parent 06999ef50a
commit 5d79623df8
2 changed files with 37 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Inventarios/EntradasSalidas.aspx
View File

@@ -821,20 +821,14 @@
</ItemTemplate>
<ItemStyle Width="60px" HorizontalAlign="Center" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie" Visible="false">
<EditItemTemplate>
<asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Serie")%>' Style="text-align: right;"></asp:TextBox>
</EditItemTemplate>
<asp:TemplateField HeaderText="Serie" Visible="false">
<ItemTemplate>
<asp:Literal ID="lbSerie" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
<FooterStyle HorizontalAlign="Right"></FooterStyle>
</asp:TemplateField>
<asp:TemplateField HeaderText="Lote" Visible="false">
<EditItemTemplate>
<asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Lote")%>' Style="text-align: right;"></asp:TextBox>
</EditItemTemplate>
<asp:TemplateField HeaderText="Lote" Visible="false">
<ItemTemplate>
<asp:Literal ID="LbLote" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
</ItemTemplate>
@@ -847,12 +841,7 @@
<asp:Literal ID="LbCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sección" Visible="false">
<EditItemTemplate>
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" runat="server">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</EditItemTemplate>
<asp:TemplateField HeaderText="Sección" Visible="false">
<ItemTemplate>
<asp:Literal ID="LbSeccionAlmacen" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
</ItemTemplate>
@@ -1748,9 +1737,9 @@
<br />
</div>
<div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="hidden">
<%-- <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="hidden">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
</asp:DropDownList>--%>
<%--<br />--%>
<ADS:Dropdownlost runat="server" ID="DdlProducto2" CssClass="form-control input-sm select2me" CssStyle="width: 50%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label style="line-height: 0.8" for="<%= DdlProducto2.ClientID.ToString()%>">Producto</label>
@@ -1768,13 +1757,13 @@
<br />
</div>
<div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="120px" Visible="false"></asp:TextBox>
<asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="120px"></asp:TextBox>
<asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
<label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
<br />
</div>
<div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">
<asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
<asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px"></asp:TextBox>
<label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>
<br />
</div>

87
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -539,10 +539,6 @@ Partial Class Inventarios_EntradasSalidas
End If
End Sub
Private Function isWhitFamily() As Boolean
Return (UsuarioActual.CveEmpresa = 66)
End Function
#Region " VALORES INICIALES "
Protected Sub CreaDT()
Dim dt As New DataTable
@@ -603,16 +599,16 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub CargaCombos()
'Llenar el dropdownlist de Secciones
If UsuarioActual.CveEmpresa = 66 Then
DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
Else
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
End If
ObjClasificaciones.Dispose()
End If
DdlClasificacion.DataBind()
'If UsuarioActual.CveEmpresa = 66 Then
' DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
'Else
' Dim ObjClasificaciones As New ClsClasificaciones
' If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
' DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
' End If
' ObjClasificaciones.Dispose()
'End If
'DdlClasificacion.DataBind()
'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
'DdlSeccionAlmacen.DataBind()
@@ -1293,7 +1289,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub LimpiarAgregar()
DdlClasificacion.SelectedValue = "-1"
'DdlClasificacion.SelectedValue = "-1"
txtCantidad.Text = ""
TxtnLote.Text = ""
TxtObservacionesdetalle.Text = ""
@@ -1459,7 +1455,6 @@ Partial Class Inventarios_EntradasSalidas
TxtnLote.Text = ""
LblCodigo.Text = ""
TxtnSerie.Text = ""
TxtnLote.Text = ""
TxtnFechaCaducidad.Text = ""
HdnCodigoAF.Value = "-1"
HdnCveActivoFijo.Value = "-1"
@@ -2540,30 +2535,22 @@ Partial Class Inventarios_EntradasSalidas
TxtFolio.Text = Folio.ToString
FolioAsignado = Folio
End Sub
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
ChangeDdlProducto()
End Sub
'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
' ChangeDdlProducto()
'End Sub
Private Sub ChangeDdlProducto()
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
Dim filtro As String = ""
If Not (DdlClasificacion.SelectedValue = "-1") Then
If isWhitFamily() Then
filtro = String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue)
Else
filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
End If
End If
'If Not (DdlClasificacion.SelectedValue = "-1") Then
' filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
'End If
DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"{filtro} AND CveTipoPS = 2", "PSCodigo")
DdlProducto2.DataBind()
DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else
If isWhitFamily() Then
DdlProducto2.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacion.SelectedValue)
Else
DdlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
End If
'DdlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
End If
End Sub
@@ -2571,27 +2558,20 @@ Partial Class Inventarios_EntradasSalidas
ElProductoChange()
End Sub
Private Sub ElProductoChange()
TxtnSerie.Visible = False
divSerie.Visible = False
TxtnLote.Visible = False
divSerie.Visible = False
divLote.Visible = False
EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
If DdlProducto2.SelectedValue.ToEntero > 0 Then
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
Dim dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If CBool(dr("AplicaSerie")) Then
TxtnSerie.Visible = True
divSerie.Visible = True
End If
If CBool(dr("AplicaLote")) Then
TxtnLote.Visible = True
divLote.Visible = True
End If
If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True
@@ -2604,7 +2584,6 @@ Partial Class Inventarios_EntradasSalidas
End If
If CBool(dr("AplicaCaducidad")) Then
divCaducidad.Visible = True
End If
End If
@@ -2628,7 +2607,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub EscondeColumnasGVM(DtTemp As DataTable)
'LblSerie.Visible = False
TxtnSerie.Visible = False
divSerie.Visible = False
'TrSerieLote.Visible = False
'TrSerieLote2.Visible = False
@@ -2641,16 +2620,11 @@ Partial Class Inventarios_EntradasSalidas
TxtnSerie.Visible = True
End If
TxtnLote.Visible = False
'divLote.Visible = False
'TrLote.Visible = False
'TrLote2.Visible = False
GvM.Columns(10).Visible = False
'TxtnBatch.Visible = False
'TrBatch.Visible = False
'TrBatch2.Visible = False
'GvM.Columns(11).Visible = False
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
tdPUExtranjero.Visible = False
tdPUExtranjero2.Visible = False
@@ -2724,12 +2698,11 @@ Partial Class Inventarios_EntradasSalidas
If (CveMovimiento > 0) Or (TieneRelacionado > 0 Or CveMovimientoRelacionado > 0) Then 'CveMovimiento > 0 And e.Row.DBCampo("TienePrePoliza").ToEntero > 0
e.Row.FCTextBox("txtPrecio").Enabled = False
e.Row.FCTextBox("LblEditCodigo").Enabled = False
e.Row.FCTextBox("TxtSerie").Enabled = False
e.Row.FCTextBox("TxtLote").Enabled = False
e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
e.Row.FCTextBox("txtPrecio").Enabled = False
'e.Row.FCTextBox("TxtSerie").Enabled = False
'e.Row.FCTextBox("TxtLote").Enabled = False
'e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False'
End If
e.Row.FCTextBox("TxtSerie").Enabled = True
'e.Row.FCTextBox("TxtSerie").Enabled = True
End If
If EsNuevoMov Then
@@ -2795,7 +2768,7 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then
CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
txtCantidad.Enabled = False
DdlClasificacion.Enabled = False
'DdlClasificacion.Enabled = False
DdlProducto2.Enabled = False
DdlUnidad.Enabled = False
@@ -2808,7 +2781,7 @@ Partial Class Inventarios_EntradasSalidas
ElProductoChange()
DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
CveAFEdit = GvRow.DataKey("CveAF").ToEntero
txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
txtPrecio.Text = GvRow.DataKey("PU").ToDouble.ToString("0.00########")
TxtnSerie.Text = GvRow.DataKey("Serie")
TxtnLote.Text = GvRow.DataKey("Lote")
TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad").ToDate.ToShortDateString
@@ -5313,7 +5286,7 @@ Partial Class Inventarios_EntradasSalidas
Private Sub limpiarModalDetalle()
txtCantidad.Enabled = True
DdlClasificacion.Enabled = True
'DdlClasificacion.Enabled = True
DdlProducto2.Enabled = True
DdlUnidad.Enabled = True
divCantidad.Visible = True