diff --git a/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf b/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf
new file mode 100644
index 000000000..06238e44d
Binary files /dev/null and b/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf differ
diff --git a/Inicio.aspx b/Inicio.aspx
index f3c3b8738..976b76bfc 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -591,12 +591,23 @@
                                                     </div>
                                                     <div class="col-md-6">
                                                         <div class="well well-sm">                                                            
-                                                            <asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM</asp:HyperLink>
+                                                            <asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/OPTIMA.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> OPTIMA</asp:HyperLink>
                                                         </div>
                                                     </div>
+                                                  
+
                                                 </div>
 
 
+                                                  <div class="row">
+                                                         <div class="col-md-6">
+                                                        <div class="well well-sm">                                                            
+                                                            <asp:HyperLink ID="LnkDoc13" NavigateUrl="~/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> Cat APS AGM-HT-LTH-CR 2021</asp:HyperLink>
+                                                        </div>
+                                                    </div>  
+                                                    </div>
+
+
                                             </ContentTemplate>                                           
 
                                
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index e73faca4b..43b2d9b89 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -1428,7 +1428,7 @@
                                                                     <th style="width: 63px">Cant</th>
                                                                     <th style="width: 200px">Producto</th>
                                                                     <th style="width: 10%" runat="server" id="Th5" visible="false">Sección almacén</th>
-                                                                    <th style="width: 10%" runat="server" id="Th6" visible="false">Serie</th>
+                                                                    <th style="width: 100px" runat="server" id="Th6" visible="false">Serie</th>
                                                                     <th style="width: 10%" runat="server" id="Th7" visible="false">Lote</th>
                                                                     <th style="width: 10%" runat="server" id="Th8" visible="false">Caducidad</th>
                                                                     <th style="width: 73px;"></th>
@@ -1440,7 +1440,7 @@
                                                                     </td>
                                                                     <td>
                                                                         <div class="psagregar">
-                                                                            <ADS:Dropdownlost runat="server" ID="DdlPSCambioSalida" CssStyle="width:100%" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                                                            <ADS:Dropdownlost runat="server" ID="DdlPSCambioSalida" CssStyle="width:100%" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSCambioSalida_selectedindexchange" />
                                                                         </div>
                                                                     </td>
                                                                     <td runat="server" id="Td5" visible="false">
@@ -1449,7 +1449,7 @@
                                                                         </asp:DropDownList>
                                                                     </td>
                                                                     <td runat="server" id="Td6" visible="false">
-                                                                        <asp:TextBox ID="TxtSerieCambio" runat="server" Width="50px"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtSerieCambio" runat="server" Width="100px"></asp:TextBox>
                                                                     </td>
                                                                     <td runat="server" id="Td7" visible="false">
                                                                         <asp:TextBox ID="TxtLoteCambio" runat="server" Width="50px"></asp:TextBox>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 51be4121d..9d29b4915 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -288,6 +288,18 @@ Partial Class Inventarios_EntradasSalidas
         End Set
     End Property
 
+    Public Property AplicaVigenciaCambioVigencia() As Boolean
+        Get
+            If ViewState("CveAFEdit") Is Nothing Then
+                ViewState("CveAFEdit") = False
+            End If
+            Return Boolean.Parse(ViewState("CveAFEdit").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("CveAFEdit") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -3777,6 +3789,35 @@ Partial Class Inventarios_EntradasSalidas
 
     Protected Sub LnkCambioVigencia_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambiarVigencias"))
+
+        TxtCantCambio.Text = ""
+        TxtSerieCambio.Text = ""
+        TxtFechaCambio.Text = Now.ToString("dd/MM/yyyy")
+        TxtObsCambioVigencia.Text = ""
+
+        Th5.Visible = False
+        Th6.Visible = False
+        Th7.Visible = False
+        Th8.Visible = False
+
+
+        Td5.Visible = False
+        Td6.Visible = False
+        Td7.Visible = False
+        Td8.Visible = False
+
+        DdlPSCambioSalida.txtText.Value = ""
+        DdlPSCambioSalida.txtValue.Value = ""
+
+        DdlSeccionCambio.SelectedValueExist(-1)
+        DdlAlmacenCambioVigencias.SelectedValueExist(-1)
+
+
+        AplicaVigenciaCambioVigencia = False
+
+        UpCambioSalida.Update()
+        UpModalCambiarVigencias.Update()
+
     End Sub
 
 #Region "ENTRADAS"
@@ -4009,15 +4050,47 @@ Partial Class Inventarios_EntradasSalidas
 
 #Region "CAMBIO VIGENCIA"
     Private Sub LnkAddSalidaCambio_Click(sender As Object, e As EventArgs) Handles LnkAddSalidaCambio.Click
+
         If Not DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
+
+        If AplicaVigenciaCambioVigencia And TxtSerieCambio.Text.Trim.Length = 0 Then
+            Alert("Es necesario especificar la serie del producto.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         AddPSCambioSalida(DdlPSCambioSalida.SelectedValue.ToEntero, TxtCantCambio.Text.ToDouble)
     End Sub
 
+    Protected Sub DdlPSCambioSalida_selectedindexchange(sender As Object, e As EventArgs)
+
+        Td6.Visible = False
+        Th6.Visible = False
+
+        If DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then
+
+            Using ObjPS As New ClsProductosServicios()
+                If ObjPS.GetPS(DdlPSCambioSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
+
+                    AplicaVigenciaCambioVigencia = If(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString = "", False, Boolean.Parse(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString))
+
+                    Td6.Visible = AplicaVigenciaCambioVigencia
+                    Th6.Visible = AplicaVigenciaCambioVigencia
+
+                End If
+            End Using
+
+
+        End If
+
+        UpCambioSalida.Update()
+
+    End Sub
+
     Protected Sub AddPSCambioSalida(CvePS As Integer, Cantidad As Double)
         If DdlAlmacenCambioVigencias.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPSCambioSalida.SelectedText = "" : Exit Sub
 
@@ -4029,10 +4102,10 @@ Partial Class Inventarios_EntradasSalidas
             Dim CodigoPS As String = ""
             Dim PS As String = ""
 
-            Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
-            Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
-            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
+            Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero
+            Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text)
+            Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text)
+            Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -4353,6 +4426,8 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub BtnGuardarCambiosVigencia_Click(sender As Object, e As EventArgs) Handles BtnGuardarCambiosVigencia.Click
 
+
+
         If GvSalidasCambioVigencia.Rows.Count = 0 Then
             Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -5346,4 +5421,5 @@ Partial Class Inventarios_EntradasSalidas
         Public Property FolioVirtual As String
         Public Property TieneError As Boolean
     End Class
+
 End Class