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

Solicitudes de traspaso de Almacen validar entre usuarios, enviar a praspaso

Browse Source
This commit is contained in:
rakcsle
2024-08-01 20:26:23 -07:00
parent 19aba02fb6
commit 8a7723f586
3 changed files with 90 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
Inventarios/TrasladoSolicitud.aspx
View File

@@ -77,16 +77,15 @@
<asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvT" Width="1000px" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall" <asp:GridView ID="GvT" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" CssClass="table table-advance table-hover mysmallbtn ScrollAD Widthall"
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound"
DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre" > DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada" >
<Columns> <Columns>
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="10%" /> <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" /> <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" /> <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="10%" DataFormatString="{0:d}" /> <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" ItemStyle-Width="200px" /> <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
<%--<asp:BoundField DataField="TraspasoEstatus" HeaderText="Estatus" ItemStyle-Width="10%" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Estatus" ItemStyle-Width="70px" > <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Estatus" ItemStyle-Width="70px" >
<ItemTemplate> <ItemTemplate>
@@ -96,11 +95,33 @@
<asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} " <asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} "
Target="_blank" ItemStyle-Width="5%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="FolioMovimiento" /> Target="_blank" ItemStyle-Width="5%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="FolioMovimiento" />
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="30px"> <%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" /> <div class="row">
<div class="col-lg-12">
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
</div>
<div class="col-lg-12">
<asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />
</div>
</div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
<ItemTemplate>
<div class="row">
<div class="col-lg-4" style="text-align:right">
<asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
</div>
<div class="col-lg-4" style="text-align:left">
<asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank" CssClass="btn btn-circle btn-sm blue" ToolTip="Recivir traspaso" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />
</div>
<div class="col-lg-4" style="text-align:left"></div>
</div>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -145,31 +166,34 @@
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
<div class="row marginRowLeft"> <div class="row marginRowLeft">
<div class="col-md-6 form-group form-md-line-input input-iconright"> <div class="col-md-2 form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidad" CssClass="form-control marginFixRow" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtCantidad" CssClass="form-control marginFixRow" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label> <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="AgregarPS"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="AgregarPS"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" /> <ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" />
</div> </div>
<div class="col-md-6 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server"> <div class="col-md-8 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">
<ADS:Dropdownlost ID="DdlProductoServicio" runat="server" CssClass="form-control input-sm" CssClassDdl="select2me" CssStyle="width: 100%;" DataTextField="PSCodigo" DataValueField="CvePS" ></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProductoServicio" runat="server" CssClass="form-control input-sm" CssClassDdl="select2me" CssStyle="width: 100%;" DataTextField="PSCodigo" DataValueField="CvePS" ></ADS:Dropdownlost>
<label for="<%= DdlProductoServicio.ClientID.ToString()%>">Producto o Servicio:</label> <label for="<%= DdlProductoServicio.ClientID.ToString()%>">Producto o Servicio:</label>
</div> </div>
<div class="col-md-2 form-group form-md-line-input input-iconright" id="Div3" runat="server">
<asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar' style="margin-top:+5px" ValidationGroup="AgregarPS"/>
</div>
</div> </div>
<div class="row"> <%-- <div class="row">
<div class="col-md-12" style="text-align:right!important"> <div class="col-md-12" style="text-align:right!important">
<%--<asp:Button ID="BtnAgregarPS" runat="server" class="btn btn-success" Text="Agregar" Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>--%>
<asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar' Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>
</div> </div>
</div> </div>--%>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">

37
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud
Private Sub CargaAlmacenes() Private Sub CargaAlmacenes()
'Cargo los almacenes 'Cargo los almacenes
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
@@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenOrigenFiltro.DataBind() DdlAlmacenOrigenFiltro.DataBind()
DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
DdlAlmacenDestinoFiltro.DataBind() DdlAlmacenDestinoFiltro.DataBind()
DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs) Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs)
GvSolicitudes.DataSource = Nothing
GvSolicitudes.DataBind()
UpModalSolicitudes.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd")) RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd"))
End Sub End Sub
@@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud
Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs) Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs)
Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
If Not CveAlmacenTransictorio > 0 Then If Not CveAlmacenTransictorio > 0 Then
Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia) Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia)
@@ -674,15 +677,37 @@ Partial Class Inventarios_TrasladoSolicitud
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False) Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False)
Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero
Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero
Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero
Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero
Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero
Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True
If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen
Else Else
If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso CveMomientoEntrada <= 0 Then
e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True
e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}"
End If
Else Else
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger" e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red" e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
@@ -702,7 +727,7 @@ Partial Class Inventarios_TrasladoSolicitud
DdlAlmacenDestino.SelectedValue = Nothing DdlAlmacenDestino.SelectedValue = Nothing
DdlAlmacenDestino.Items.Clear() DdlAlmacenDestino.Items.Clear()
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}") DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
UpPS.Update() UpPS.Update()

17
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen
ImgFechaRecepcion.Visible = False ImgFechaRecepcion.Visible = False
End If End If
If Request("CveAlmacenTransitorioR") IsNot Nothing Then
CargaRecepcionTraspaso()
End If
Else Else
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
RegistraScript(" $('#DivGastoIndirecto').show(0); ") RegistraScript(" $('#DivGastoIndirecto').show(0); ")
@@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen
End If End If
End Sub End Sub
Private Sub CargaRecepcionTraspaso()
Tab.ActiveTabIndex = 1
Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1)
Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1)
Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1)
DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR)
DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR)
TxtFolioRecepcion.Text = FolioR.ToString
CargaRecepcion()
End Sub
#Region "CARGA DATOS" #Region "CARGA DATOS"
Protected Sub CreaDT() Protected Sub CreaDT()
Dim dt As New DataTable Dim dt As New DataTable