-- importacion de AF, almacenes productos financieros

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 = ""