diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb
index 632937a24..7eb814f2b 100644
--- a/AF/OrdenTrabajo.aspx.vb
+++ b/AF/OrdenTrabajo.aspx.vb
@@ -106,11 +106,8 @@ Partial Class AF_OrdenTrabajo
 
     Private Sub CargaDatos()
 
-        Dim ObjAF As New ClsAF
 
 
-        ObjAF.Dispose()
-
 
     End Sub
 
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 1457316a7..b9df20682 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -4204,20 +4204,22 @@ Public Class ClsAF
 
     End Function
 
-    Public Function GetOrdenesTrabajo(CveTipoServicio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, Folio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_OrdenesTrabajoGet")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
             .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Folio", SqlDbType.Int).Value = Folio
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            '.Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
             .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -4229,7 +4231,7 @@ Public Class ClsAF
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener los estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
         Return Retorno
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index f7c161809..7b066db54 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -3928,7 +3928,8 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String, CveContratoDetalle As Integer) As Boolean
+    Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Double, Observaciones As String,
+                                                CveContratoDetalle As Integer, Optional Serie As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         Dim CveTraspasoSolicitud As Integer = 0
         DataAdapter("PA_Inv_TraspasoSolicitudDetalleAdd")
@@ -3941,6 +3942,7 @@ Public Class ClsInventarios
             .Add("@Precio", SqlDbType.Float).Value = Precio
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
+            .Add("@Serie", SqlDbType.NVarChar).Value = Serie
         End With
 
         Try
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index b5a36f751..0cfc4dcad 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2598,7 +2598,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                     If Dep.DtResultados.Rows.Count > 0 Then
 
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus ='True'")
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                         trCuentaDeposito.Visible = True
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 1882b08f1..c4dbe86ac 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -787,7 +787,7 @@
                                     <asp:TemplateField>
                                         <ItemTemplate>
                                             <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
-                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);" Visible="false"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);" ><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                             <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Left" />
diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx
index 2d5e5663e..a0bb909a6 100644
--- a/Inventarios/TrasladoSolicitud.aspx
+++ b/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">
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 6c3b28afe..51ae79244 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/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