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

Inventarios/TrasladoSolicitud.aspx

@@ -77,16 +77,15 @@
             <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
                 <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"
-                        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>                            
-                            <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="10%" />
-                            <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen"  />
-                            <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" />
-                            <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="10%" DataFormatString="{0:d}" />
-                            <asp:BoundField DataField="Nombre" HeaderText="Solicitante" ItemStyle-Width="200px" />                            
-                            <%--<asp:BoundField DataField="TraspasoEstatus" HeaderText="Estatus" ItemStyle-Width="10%" />--%>
+                            <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
+                            <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
+                            <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
+                            <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
+                            <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
 
                             <asp:TemplateField ItemStyle-HorizontalAlign="Left"  HeaderText="Estatus" ItemStyle-Width="70px" >
                                 <ItemTemplate>
@@ -96,11 +95,33 @@
 
                             <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" />
-                            <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="30px">
+                            <%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
                                 <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>
-                            </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>
                     </asp:GridView>
                 </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>
                             </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="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>
                                 <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>
                                 <ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" />
                             </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>                                
                                  <label for="<%= DdlProductoServicio.ClientID.ToString()%>">Producto o Servicio:</label>
                              </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 class="row">
+                     <%--  <div class="row">
                           <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 class="row">
                             <div class="col-md-12">

Inventarios/TrasladoSolicitud.aspx.vb

@@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud
 
     Private Sub CargaAlmacenes()
         '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
         DdlAlmacenOrigen.DataBind()
         DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
@@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud
     End Sub
 
     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.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.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)
+        GvSolicitudes.DataSource = Nothing
+        GvSolicitudes.DataBind()
+        UpModalSolicitudes.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd"))
     End Sub
 
@@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud
     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
             Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia)
@@ -674,15 +677,37 @@ Partial Class Inventarios_TrasladoSolicitud
 
         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
                 e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
                 e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
+                e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen
+
             Else
                 If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
                     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"
+
+                    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
                     e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
                     e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
@@ -702,7 +727,7 @@ Partial Class Inventarios_TrasladoSolicitud
         DdlAlmacenDestino.SelectedValue = Nothing
         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.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         UpPS.Update()

Inventarios/TraspasoAlmacen.aspx.vb

@@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 ImgFechaRecepcion.Visible = False
             End If
 
+            If Request("CveAlmacenTransitorioR") IsNot Nothing Then
+                CargaRecepcionTraspaso()
+            End If
+
         Else
             If ChkTransitorio.Checked Then
                 RegistraScript(" $('#DivGastoIndirecto').show(0); ")
@@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
     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"
     Protected Sub CreaDT()
         Dim dt As New DataTable