diff --git a/AF/AF.aspx b/AF/AF.aspx
index 81fd169d0..c4357400e 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -2890,9 +2890,9 @@
                         <div class="row">
                             <div class="col-md-2">Producto:</div>
                             <div class="col-md-10">
-                                <asp:DropDownList ID="DdlAFInvPS" AutoPostBack="true" DataTextField="PSCodigo" DataValueField="CvePS" CssClass="select2me" AppendDataBoundItems="true" runat="server" Width="475px" OnSelectedIndexChanged="DdlAFInvPS_SelectedIndexChanged"></asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>
+                                <ADS:Dropdownlost runat="server" ID="DdlAFInvPS" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange ="DdlAFInvPS_SelectedIndexChanged" />
+                               <%-- <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </div>
                         </div>
                         <div id="DivSerie" runat="server" visible="false" class="row">
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index db5d2faa8..ca666a371 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -530,18 +530,18 @@ Partial Class AF_AF
 
             HLAFInv.Visible= True
 
-            Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2)"
-            DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, -1).FiltraParametros(StrAlmacenes)
+            Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
+            DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
             DdlAFInvAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
             DdlAFInvAlmacen.SelectedValue = "-1"
             DdlAFInvAlmacen.DataBind()
-            DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            DdlAFInvPS.setEsWebService(True)
 
-
-            DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
-            DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-            DdlAFInvPS.DataBind()
-            DdlAFInvPS.SelectedValue = "-1"
+            'DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
+            'DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            'DdlAFInvPS.DataBind()
+            'DdlAFInvPS.SelectedValue = "-1"
         End If
     End Sub
     Private Sub CargaMarcas()
@@ -3035,14 +3035,20 @@ Partial Class AF_AF
         Catch ex As Exception
 
         End Try
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "  AFInv  "
     Protected Sub BtnAFInv_Click(sender As Object, e As EventArgs)
+
+        If DdlAFInvPS.SelectedValue.ToEntero <= 0 Then
+            Alert("Seleccione un producto.")
+            Exit Sub
+        End If
+
         AFInvSerie = ""
         AFInvCvePS = -1
         AFInvCveAlmacen = -1
@@ -3073,7 +3079,7 @@ Partial Class AF_AF
             Exit Sub
         End If
 
-        TxtDescripcion.Text = DdlAFInvPS.SelectedItem.Text
+        TxtDescripcion.Text = DdlAFInvPS.SelectedText
         TxtValorCompra.Text = Costo.FormatoNumero
         TxtFechaCompra.Text = Now.ToShortDateString
         TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
@@ -3091,11 +3097,11 @@ Partial Class AF_AF
         DivAFInvAdvertencia.Visible = True
 
         UpDatos.Update()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "AF GRUPOS"
     Private Sub BtnAgregarGrupo_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupo.Click
         TxtGrupoAF.Text = ""