Commit inicial Ventas Productivo

Ventas/PopUpBuscarPs.aspx.vb

@@ -0,0 +1,96 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+
+Partial Class PopUpBuscarPs
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        CType(Me.Master, BaseMasterPage).EsPopup = True
+        CType(Me.Master, BaseMasterPage).PopupWidth = 800
+
+        If Not Page.IsPostBack Then
+            ViewState("Orden") = ""
+
+            CargaClasificaciones()
+            CargarCompuestos()
+
+            If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
+                tdBarras1.Visible = True
+                tdBarras2.Visible = True
+                TxtCodigoBarras.Focus()
+            End If
+
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+    Private Sub CargaClasificaciones()
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        Ddlclasificacion.DataBind()
+        Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+    Private Sub CargarCompuestos()
+        If UsuarioActual.Empresa.Funcionalidad(143) = "1" Then
+            TdCompuesto1.Visible = True
+            TdCompuesto2.Visible = True
+            Dim PS As New ClsProductosServicios
+            PS.GetCompuestosActivos(UsuarioActual.CveEmpresa)
+            DdlCompuesto.DataSource = PS.DtResultados
+            PS.Dispose()
+            DdlCompuesto.DataBind()
+            DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+        DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+    Protected Sub lnkBuscar_Click(sender As Object, e As EventArgs) Handles lnkBuscar.Click
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+    Public Sub CargaDatos()
+        Dim Codigo As String = ""
+        Dim Nombre As String = ""
+        Dim CodigoBarras As String = ""
+        If TxtCodigo.Text = "" Then Codigo = "-1" Else Codigo = TxtCodigo.Text.ToUpper.Trim
+        If TxtCodigoBarras.Text.Trim = "" Then CodigoBarras = "-1" Else CodigoBarras = TxtCodigoBarras.Text.Trim
+        If TxtNombre.Text = "" Then Nombre = "-1" Else Nombre = TxtNombre.Text.ToUpper
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre, pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero) Then
+            GvDatos.DataSource = ObjPS.DtResultados
+            dvbusqueda.Visible = True
+        Else
+            GvDatos.DataSource = Nothing
+            dvbusqueda.Visible = False
+        End If
+        ObjPS.Dispose()
+
+        GvDatos.DataBind()
+        GvDatos.UseAccessibleHeader = True
+    End Sub
+#End Region
+
+#Region "  GV DATOS  "
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Try
+                e.Row.FCLiteral("LnkPs").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", "<a  href='javascript:Ir(""" & e.Row.DBCampo("CvePs") & """);'>", e.Row.DBCampo("Ps"))
+            Catch ex As Exception
+                Dim exexex As String = ex.Message
+            End Try
+        End If
+    End Sub
+#End Region
+
+
+
+End Class