Fórum eu mudo um parametro no SimpleDataSet .. mas ele naum atual #320709
05/05/2006
0
Amigos,
tenho a seguinte procedure responsavel pela criação da instrução sql do meu SimpleDataSet.
O problema ocorre qd mudo o componente [b:8496cf2c3d]cbOs[/b:8496cf2c3d] (TComboBox).
Era pra mudar os resultados, mas naum muda, ou seja, se eu colocar pra exibir somente em aberto (ItemIndex=2) ele exibe todos as Ordens de Serviço que estão em aberto .. depois qd mudo para todas (ItemIndex=0) ou somente as concluidas (ItemIndex=1) ele continua exibindo somente as em aberto.
tenho a seguinte procedure responsavel pela criação da instrução sql do meu SimpleDataSet.
O problema ocorre qd mudo o componente [b:8496cf2c3d]cbOs[/b:8496cf2c3d] (TComboBox).
Era pra mudar os resultados, mas naum muda, ou seja, se eu colocar pra exibir somente em aberto (ItemIndex=2) ele exibe todos as Ordens de Serviço que estão em aberto .. depois qd mudo para todas (ItemIndex=0) ou somente as concluidas (ItemIndex=1) ele continua exibindo somente as em aberto.
procedure TfrmOrdemServico.MontaGrid; var sql: String; begin sdsGrid.Close; sql := ´select os.*, c.nome as cliente, f1.nome as monitor, f2.nome as tecnico_nm´; sql := sql + #13 + ´from ordem_servicos os´; sql := sql + 13 + ´left join clientes c on c.id_cliente=os.id_cliente´; sql := sql + 13 + ´left join funcionarios f1 on f1.id_func=os.id_func´; sql := sql + #13 + ´left join funcionarios f2 on f2.id_func=os.tecnico´; sql := sql + 13 + ´where os.concluida like :conc´; sql := sql + 13 + ´order by os.data desc, os.hora desc´; sdsGrid.DataSet.CommandText := sql; case cbOs.ItemIndex of 0 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´¬´; 1 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´S´; 2 : sdsGrid.DataSet.ParamByName(´conc´).Value := ´N´; end; sdsGrid.Open; sdsGrid.Refresh; end;
Orlando Frade
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)