Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/EntradasSalidas.aspx.vb

@@ -290,6 +290,11 @@ Partial Class Inventarios_EntradasSalidas
             TxtFecha.Text = Now.ToShortDateString
             RVFecha.MaximumValue = Now.ToShortDateString
 
+            If Not UsuarioActual.CveEmpresa = 48 Then
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+            End If
+
 
             CantidadTotal = 0
             IndexSeccionAlmacen = 0
@@ -482,6 +487,7 @@ Partial Class Inventarios_EntradasSalidas
         DdlCConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros("CveConcepto NOT IN (4,5)")
         DdlCConcepto.DataBind()
 
+
         'Llenar el dropdownlist de almacén
         If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -508,6 +514,8 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
+
+
         CargaPS()
 
         ' CargaDdlPaqueteria()
@@ -2025,11 +2033,16 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
-        If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(12, 14, 19) AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
+
+        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
 
             'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
-            DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+
+            If CveTipoAlmacen.Contiene(12, 14, 19) Then
+                DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+            End If
+
 
         End If
 

Inventarios/RecepcionUsados.aspx.vb

@@ -2075,6 +2075,8 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.DescripcionContrato = ""
         Me.ObjRemisionNC.CveCorte = -1
         Me.ObjRemisionNC.TipoDocumento = "Remisión"
+        'NUM 1- CARGO 2- BONIFICACION
+        Me.ObjRemisionNC.Num1 = 1
         Me.ObjRemisionNC.Alfa1 = ""
         Me.ObjRemisionNC.Alfa2 = ""
         Me.ObjRemisionNC.Alfa3 = ""

Inventarios/RepMaximoMinimo.aspx

@@ -152,6 +152,11 @@
                                 <asp:Label ID="LtMarca" CssClass="truncate2" runat="server" Text='<%# Eval("Marca")%>'></asp:Label>
                             </ItemTemplate>
                         </asp:TemplateField>
+                        <asp:TemplateField ItemStyle-Width="30%" HeaderText="Almacen">
+                            <ItemTemplate>
+                                <asp:Label ID="LtAlmacen" CssClass="truncate2" runat="server" Text='<%# Eval("Almacen")%>'></asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
                         <asp:TemplateField ItemStyle-Width="10%" HeaderText="Existencia" ItemStyle-HorizontalAlign="Right">
                             <ItemTemplate>
                                 <asp:Literal ID="LtExistencia" runat="server" Text='<%# If(Eval("Existencia").ToString() = "0" Or Eval("Existencia").ToString() = "", "-", (Eval("Existencia", "{0:#,##0.##}")))  %>'></asp:Literal>
@@ -397,7 +402,7 @@
                             </div>
                             <div class="portlet-body rowpadding " style="display: none;">
                                  
-                                <asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <asp:TextBox ID="TxtArchivoMaxMin" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
                             </div>
                         </div>
 

Inventarios/RepMaximoMinimo.aspx.vb

@@ -55,7 +55,6 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
 
-
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -358,14 +357,81 @@ Partial Class Inventarios_RepMaximoMinimo
 #End Region
 
     Protected Sub LnkUpFile_Click(sender As Object, e As EventArgs)
-        RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+        Dim Filesgral As List(Of Archivo) = TxtArchivoMaxMin.getfiles().Archivos
+        Dim continuar As Boolean = Filesgral.Count > 0
+        Dim stringError As String = ""
+        Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
+
+        If continuar Then
+            Dim FileExtension As String = fileItem.Extencion.ToUpper()
+
+            If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
+            Else
+                continuar = False
+                stringError = "No se inserto un archivo de tipo Excel"
+            End If
+        End If
+
+        Dim DTEXcel As DataTable = New DataTable()
+        If continuar Then
+            DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True)
+            DTEXcel.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+            DTEXcel.Columns.Add(New DataColumn("CveAlmacen", GetType(Integer)))
+            Dim dtAlmacen As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1)
+            For Each drow As DataRow In DTEXcel.Rows
+                Dim Drps As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, -1, "-1", -1, -1, drow("Codigo").ToString())
+                Dim dralmacen As DataRow = dtAlmacen.FiltroPrimero(String.Format("Almacen='{0}'", drow("Almacen")))
+                If Drps.Rows.Count > 0 Then
+                    drow("CvePS") = Drps.Rows(0)("CvePS")
+                End If
+                If Not IsNothing(dralmacen) Then
+                    drow("CveAlmacen") = dralmacen("CveAlmacen")
+                End If
+                DTEXcel.AcceptChanges()
+            Next
+            continuar = True
+        End If
+        If continuar Then
+
+            Using ObjMaxMin As New ClsInventarios
+                ObjMaxMin.IniciaTransacSQL()
+                Dim DtResultados As New DataTable
+                If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+                    DtResultados = ObjMaxMin.DtResultados
+                End If
+                For Each drow As DataRow In DTEXcel.Select("CvePS>0 AND CveAlmacen >0")
+                    If continuar Then
+                        If IsNothing(DtResultados.FiltroPrimero(String.Format("CveAlmacen={0} AND CvePS={1}", drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero()))) Then
+                            continuar = ObjMaxMin.AddAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+                        Else
+                            continuar = ObjMaxMin.UpdateAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+                        End If
+                    End If
+                Next
+                If continuar Then
+                    ObjMaxMin.Commit()
+                Else
+                    ObjMaxMin.RollBack()
+                End If
+            End Using
+        End If
+        If continuar Then
+            CargaGrid()
+            Alert("los cambios se han guardado satisfactoriamente")
+            RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+        End If
     End Sub
     Protected Sub LnkCargarMaximosMinimos_Click(sender As Object, e As EventArgs)
-
+        TxtArchivoMaxMin.Text = ""
         RegistraScript("$('#DmodalCargarMaximosMinimos').modal();")
         Upcargamasiva.Update()
     End Sub
     Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
+        Using ObjMaxMin As New ClsInventarios
+            If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+                ObjMaxMin.DtResultados.FiltraParametros("", "", New String() {"Codigo", "Almacen", "Maximo", "Minimo"}).ExportToExcel(String.Format("MaximosyMinimos{0:dd-MM-yyyy}", DateTime.Now))
+            End If
 
+        End Using
     End Sub
 End Class

Inventarios/RepTraspasoAlmacen.aspx

@@ -202,14 +202,14 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar"
+                ToolTip="Remisiones sin Facturar" data-rows="2"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/> 
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>                    
                     <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
                 </Columns>

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -107,10 +107,15 @@ Partial Class RepTraspasoAlmacen
 
                 e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
                 e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-                e.Row.Cells(3).Text = String.Format("Almacen Origen: {0}&nbsp;&nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+                e.Row.Cells(2).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", e.Row.DBCampo("Almacen"))
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", e.Row.DBCampo("AlmacenDestino"))
+                e.Row.Cells(4).Text = String.Format("Responsable: {0}", e.Row.DBCampo("Recibio"))
             ElseIf e.Row.DBCampo("FechaMovto") = "" Then
                 e.Row.CssClass = "Totales"
                 e.Row.Cells(0).Text = "Total General"
+                e.Row.Cells(2).Text = String.Format("<span style =""white-space: nowrap;"">Almacen Origen</span>")
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">Almacen Destino</span>")
+            Else
             End If
 
         End If

Inventarios/ResguardoMaterial.aspx.vb

@@ -127,6 +127,7 @@ Partial Class Inventarios_ResguardoMaterial
                 Try
                     Dim CvePersonal As Integer = Request.QueryString("CvePersonal").ToString.ToEntero
                     OcultarControles(CvePersonal)
+                    TxtFecha.Enabled = False
                 Catch ex As Exception
                 End Try
 
@@ -140,7 +141,8 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Sub OcultarControles(CvePersonal As Integer)
 
-        DdlPersonal.ddl.SelectedValueExist(CvePersonal)
+        DdlPersonal.SelectedValue = CvePersonal.ToString()
+        DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto")
         DdlPersonal.Enabled = False
         DVTipo.Visible = False
     End Sub
@@ -931,10 +933,11 @@ Partial Class Inventarios_ResguardoMaterial
         If Not TieneError Then
             Dim Msg As New StringBuilder
             If Concepto = 23 Then
-                Msg.AppendFormat("<br/>Resguardo con Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalida, FolioSalida)
+                'FolioEntrada
+                Msg.AppendFormat("<br/>Resguardo con Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoSalida, FolioEntrada)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Resguardo</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
 
-                Msg.AppendFormat("<br/><br/><br/>El Movimiento de control se registro con el Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
+                Msg.AppendFormat("<br/><br/><br/>El Movimiento de control se registro con el Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioSalida)
             Else
                 Msg.AppendFormat("<br/>Liberación de Resguardo con Folio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir liberación de Resguardo</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))

Inventarios/TrasladoSolicitud.aspx

@@ -300,7 +300,7 @@
                     </div>
                     <div class="portlet-body rowpadding">
 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, CodigoPS, CveUM, Cantidad, Precio, Observaciones, CveContratoDetalle,UnidadMedida,Serie" EmptyDataText="No se encontraron Productos registrados" ToolTip="Listado de Productos" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall" GridLines="None">
                             <Columns>
                                 <asp:BoundField HeaderText="Cantidad" HeaderStyle-HorizontalAlign="Left" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="Cantidad" ItemStyle-Width="5%" />
                                 <asp:BoundField HeaderText="U.M" HeaderStyle-HorizontalAlign="Center" DataFormatString="{0:N}" ItemStyle-HorizontalAlign="Center" DataField="UnidadMedida" ItemStyle-Width="10%" />
@@ -308,6 +308,7 @@
                                 <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" HeaderStyle-HorizontalAlign="Right" ItemStyle-HorizontalAlign="Right" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
@@ -475,6 +476,13 @@
                                 </div>
                             </div>
 
+                            <div class="row marginRowLeft">
+                                <div class="col-md-8 form-group form-md-line-input input-iconright" id="Div4" runat="server" visible="false">
+                                    <asp:TextBox runat="server" ID="TxtSerie" CssClass="form-control"/>
+                                    <label>Serie:</label>
+                                </div>
+                            </div>
+
                         </div>
                     </div>
                     <div class="modal-footer">

Inventarios/TrasladoSolicitud.aspx.vb

@@ -36,7 +36,6 @@ Partial Class Inventarios_TrasladoSolicitud
             ViewState("CveDireccionEnvio") = value
         End Set
     End Property
-
     'Private Property CveUsuarioAutoriza As Integer
     '    Get
     '        If ViewState("CveUsuarioAutoriza") Is Nothing Then
@@ -94,8 +93,9 @@ Partial Class Inventarios_TrasladoSolicitud
         TempDT.Columns.Add("Precio", Type.GetType("System.Double"))
         TempDT.Columns.Add("Observaciones", Type.GetType("System.String"))
         TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
+        'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
         'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
-        'TempDT.Columns.Add("DireccionEnvio", Type.GetType("System.String"))
+        TempDT.Columns.Add("Serie", Type.GetType("System.String"))
 
         TempDT.Columns.Add()
     End Sub
@@ -153,6 +153,7 @@ Partial Class Inventarios_TrasladoSolicitud
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
 
                 GvDatos.Columns(4).Visible = False
+                GvDatos.Columns(5).Visible = True
                 DivFolio.Visible = True
                 LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
                 TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
@@ -284,6 +285,7 @@ Partial Class Inventarios_TrasladoSolicitud
         End If
         ObjInventarios.Dispose()
         ObjClientes.Dispose()
+        MostarSerieColumn()
     End Sub
 #End Region
 
@@ -347,6 +349,13 @@ Partial Class Inventarios_TrasladoSolicitud
         Row("UnidadMedida") = DdlUM.SelectedItem.Text
         Row("Observaciones") = ""
 
+        If Div4.Visible Then
+            Row("Serie") = TxtSerie.Text
+            GvDatos.Columns(5).Visible = True
+        Else
+            Row("Serie") = "-1"
+        End If
+
         Dim ObjInventarios As New ClsInventarios
         Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
         ObjInventarios.Dispose()
@@ -612,8 +621,9 @@ Partial Class Inventarios_TrasladoSolicitud
                 Dim Precio As Double = Row.DataKey("Precio").ToEntero
                 Dim Observaciones As String = Row.DataKey("Observaciones")
                 Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
+                Dim Serie As String = Row.DataKey("Serie")
 
-                If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle) Then
+                If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie) Then
                     TieneError = True
                     Exit For
                 End If
@@ -767,6 +777,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 params.Add(New ReportParameter("Paqueteria", DdlPaqueteria.SelectedItem.Text))
                 params.Add(New ReportParameter("NumeroContrato", NumContrato))
                 params.Add(New ReportParameter("FechaEnvio", TxtFecha.Text.Substring(0, 10)))
+                params.Add(New ReportParameter("TieneSerie", GvDatos.Columns(5).Visible.ToString()))
 
                 Dim RutaFormato As String = String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa)
                 Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\RepTrasladoSolicitud.rdlc")
@@ -963,6 +974,8 @@ Partial Class Inventarios_TrasladoSolicitud
             DdlUM.SelectedValue = "-1"
             DdlUM.DataBind()
             DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString)
+            Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True"
+            Div4.Visible = AplicaSerie
         End If
         UpPS.Update()
         UpDatos.Update()
@@ -1028,16 +1041,20 @@ Partial Class Inventarios_TrasladoSolicitud
             Dim MandaCorre As New ClsSisMail
             MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
 
-
         End If
 
-
-
-
-
-
-
     End Sub
 
+    Public Sub MostarSerieColumn()
+        Dim Mostrar As Boolean = False
+        For Each row As GridViewRow In GvDatos.Rows
+            Dim Serie As String = row.DataKey("Serie").ToString
+            If Serie IsNot "-1" And Serie IsNot "" Then
+                Mostrar = True
+                Exit For
+            End If
+        Next
+        GvDatos.Columns(5).Visible = Mostrar
+    End Sub
 End Class