Apr 15, 2010, 11:41 AM
Getting Values from GridFilters do save on database
Hi all,
I am trying to get the values of my gridfilters to save on database for the user can select then and set in execution time on the grid.
The set is working good, but the get dont.
The GridFilters:
CodeBehind (where i try to get the values to save in the database):
What is wrong ??? Any clue ???
Regards,
Puia.
I am trying to get the values of my gridfilters to save on database for the user can select then and set in execution time on the grid.
The set is working good, but the get dont.
The GridFilters:
<plugins>
<ext:GridFilters runat="server" ID="grdFilterGeral" Local="false">
<filters>
<ext:StringFilter DataIndex="cod_pedido" />
<ext:StringFilter DataIndex="produto" />
<ext:StringFilter DataIndex="cliente" />
<ext:StringFilter DataIndex="segmento" />
<ext:StringFilter DataIndex="endereco" />
<ext:StringFilter DataIndex="cidade" />
<ext:StringFilter DataIndex="status" />
<ext:StringFilter DataIndex="pendencia" />
<ext:NumericFilter DataIndex="valor_req" />
<ext:NumericFilter DataIndex="valor_n_req" />
<ext:DateFilter DataIndex="dt_pedido" AfterText="Depois de" BeforeText="Antes de">
<datepickeroptions runat="server" todaytext="Now" />
</ext:DateFilter>
<ext:DateFilter DataIndex="dt_rfb" AfterText="Depois de" BeforeText="Antes de" >
<datepickeroptions runat="server" todaytext="Now" />
</ext:DateFilter>
<ext:DateFilter DataIndex="dt_canc" AfterText="Depois de" BeforeText="Antes de" >
<datepickeroptions runat="server" todaytext="Now" />
</ext:DateFilter>
<ext:StringFilter DataIndex="lp" />
<ext:DateFilter DataIndex="dt_rfs" AfterText="Depois de" BeforeText="Antes de" >
<datepickeroptions runat="server" todaytext="Now"/>
</ext:DateFilter>
</Filters>
</ext:GridFilters>
</Plugins>CodeBehind (where i try to get the values to save in the database):
If e.ExtraParams("fltGeral").ToString = "{}" Then
Mensagem("Não existe nenhum Filtro ativo no momento.", Coolite.Ext.Web.MessageBox.Icon.INFO, Coolite.Ext.Web.MessageBox.Button.OK, "Salvar Filtro")
ElseIf txtGeral.Text = vbNullString Then
Mensagem("Você deve definir um nome para o Filtro que deseja Salvar.", Coolite.Ext.Web.MessageBox.Icon.INFO, Coolite.Ext.Web.MessageBox.Button.OK, "Salvar Filtro")
txtGeral.Focus()
Else
Dim Values As String = vbNullString
Dim sf As Coolite.Ext.Web.StringFilter
Dim nf As Coolite.Ext.Web.NumericFilter
Dim df As Coolite.Ext.Web.DateFilter
Dim I As Integer
For I = 0 To 7
sf = grdFilterGeral.Filters(I)
sf.ParentGrid = grdGeral
If I = 0 Then
Values = sf.Value
Else
Values = Values & ", " & sf.Value
End If
Next
nf = grdFilterGeral.Filters(8)
nf.ParentGrid = grdGeral
If nf.EqualValue = Nothing Then
Values = Values & ", " & nf.GreaterThanValue & ", " & nf.LessThanValue
Else
Values = Values & ", " & nf.EqualValue & ", NULL"
End If
nf = grdFilterGeral.Filters(9)
nf.ParentGrid = grdGeral
If nf.EqualValue = Nothing Then
Values = Values & ", " & nf.GreaterThanValue & ", " & nf.LessThanValue
Else
Values = Values & ", " & nf.EqualValue & ", NULL"
End If
df = grdFilterGeral.Filters(10)
df.ParentGrid = grdGeral
If df.OnValue = Nothing Then
Values = Values & df.AfterValue & ", " & df.BeforeValue
Else
Values = Values & df.OnValue & ", NULL"
End If
df = grdFilterGeral.Filters(11)
df.ParentGrid = grdGeral
If df.OnValue = Nothing Then
Values = Values & df.AfterValue & ", " & df.BeforeValue
Else
Values = Values & df.OnValue & ", NULL"
End If
df = grdFilterGeral.Filters(12)
df.ParentGrid = grdGeral
If df.OnValue = Nothing Then
Values = Values & df.AfterValue & ", " & df.BeforeValue
Else
Values = Values & df.OnValue & ", NULL"
End If
sf = grdFilterGeral.Filters(13)
sf.ParentGrid = grdGeral
Values = Values & ", " & sf.Value
df = grdFilterGeral.Filters(14)
df.ParentGrid = grdGeral
If df.OnValue = Nothing Then
Values = Values & df.AfterValue & ", " & df.BeforeValue
Else
Values = Values & df.OnValue & ", NULL"
End If
Executar("INSERT INTO time.tb_filtros (cod_usuario, nome, cod_pedido, produto, segmento, endereco, cidade, status, pendencia, valor_min_req, valor_max_req, valor_min_n_req, valor_max_n_req, dt_min_pedido, dt_max_pedido, dt_min_rfb, dt_max_rfb, servico, dt_min_canc, dt_max_canc, lp, dt_min_rfs, dt_max_rfs) VALUES (" & Session("CodigoUsuario").ToString & ", " & Aspas(txtGeral.Text, False) & ", " & Values & ")")
txtGeral.Text = vbNullString
strFiltroGeral.DataSource = RS("SELECT cod_filtro, nome FROM time.tb_filtros WHERE cod_usuario = " & Session("CodigoUsuario").ToString & " ORDER BY filtro")
strFiltroGeral.DataBind()
cmbGeralFiltro.SetValue(txtGeral.Text)
End IfWhat is wrong ??? Any clue ???
Regards,
Puia.
