Gravar multiselect da grid [Resolvido]

[Nacht Byte]

Bom pessoal,

Só pra explicar melhor, tenho um form de cadastro, e nele eu cadastro os registros, seleciono o produto e automaticamente aparece os componentes do produto na grid. Até ae tudo bem, agora preciso por exemplo selecionar mais que uma linha na grid e gravar no bd(em uma tabela com chave composta).

Alguém dá uma luz?

tentei dessa forma no botão gravar mas não deu nada.

procedure TFRM_CadastroChamado.btnGravarClick(Sender: TObject);
var
  contador: Integer;
begin
  inherited;
With dbgrd1 do
Begin
for contador:= 0 to Pred(SelectedRows.Count) do
Begin
cdsComponente.Bookmark:= SelectedRows[contador];
end;
end;

Editado Setembro 3, 2010 por Nacht Byte

[Jhonas]

no dbgrid na propriedade Options > dgMultiSelect = true para que possa selecionar mais de um registro

mantenha pressionada a tecla Ctrl e clique com o mouse nos registros que farão parte da lista ( Bookmark )

exemplo de uso ... gravando os registros selecionados em outra tabela

for cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          CDS_Etiqueta.Last;
          CDS_Etiqueta.Insert;
          CDS_Etiqueta.Edit;

          j := j + 1;
          CDS_EtiquetaITEM.Value       := j;
          CDS_EtiquetaCODIGO_FS.Value  := TCadLivroxCODIGO_FS.Value;
          CDS_EtiquetaAUTOR.Value      := TCadLivroxAUTOR.Value;
          CDS_EtiquetaTITULO.Value     := TCadLivroxTITULO.Value;

          CDS_Etiqueta.Post;

        end;
      CDS_Etiqueta.ApplyUpdates(-1);

abraço

[Nacht Byte]

Esse código é colocado no botão gravar?

Outra coisa...

E quando abrir o form que já foi gravado.. Como chamarei a rotina pra ficar marcado os items que gravei?

[Nacht Byte]

segue o código modificado a minha causa:

var
  cont:Integer;
begin
  inherited;
for Cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          cdsChamadoComp.Last;
          cdsChamadoComp.Insert;
          cdsChamadoComp.Edit;

          cdsChamadoCompCOD_CHAMADO.Value  := cdsCadastroCODIGO.Value;
          cdsChamadoCompCOD_COMPONENTE.Value      := cdsComponenteCODIGO.Value;

          cdsChamadoComp.Post;

        end;
      cdsComponente.ApplyUpdates(-1);
end;

Porem da erro nesse parte:

for Cont:= 0 to Pred(SelectedRows.Count) do

[Error] u_FRM_CadastroChamado.pas(290): Undeclared identifier: 'SelectedRows'

[Jhonas]

[Error]u_FRM_CadastroChamado.pas(290): Undeclared identifier: 'SelectedRows'

declare:

uses dbgrids;


var cont : integer

begin

   With Dbgrid1 do
   Begin
     if SelectedRows.Count = 0 then
        begin
           MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 +
                      'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0);

           DBGrid1.SetFocus;
           Exit;
        end;

     for Cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          cdsChamadoComp.Last;
          cdsChamadoComp.Insert;
          cdsChamadoComp.Edit;

          cdsChamadoCompCOD_CHAMADO.Value  := cdsCadastroCODIGO.Value;
          cdsChamadoCompCOD_COMPONENTE.Value      := cdsComponenteCODIGO.Value;

          cdsChamadoComp.Post;

        end;
      cdsComponente.ApplyUpdates(-1);
end;

Como chamarei a rotina pra ficar marcado os items que gravei?

de o nome que quiser ... exempo: Adicionar_a_Lista

abraço

[Nacht Byte]

Estranho...

Fiz o que você colocou mas nada foi gravado na tabela CHAMADOCOMPONENTE (cdsChamadoComp)

Será que não é esse cdsComponente.ApplyUpdates(-1);?

QUOTE

Como chamarei a rotina pra ficar marcado os items que gravei?

de o nome que quiser ... exempo: Adicionar_a_Lista

abraço

desculpa a ignorância, mas, como assim?

[Jhonas]

Será que não é esse cdsComponente.ApplyUpdates(-1);?

tambem não tinha reparado

cdsChamadoComp.ApplyUpdates(-1);

a sua pergunta

Como chamarei a rotina pra ficar marcado os items que gravei?

voce quer um nome para a rotina ? ou quer dizer como chamar essa rotina pelo programa ?

se for um nome .. voce escolhe

ser for a chamada da rotina , basta colocar o código dentro de um botão

procedure TFRM_CadastroChamado.btnGravarClick(Sender: TObject);

abraço

[Nacht Byte]

Jhonas, consegui gravar no banco.

Agora só preciso saber como visualizar o que as linhas que foi salva.

Por exemplo, abro o cadastro tal e ele aparece os registros e as row da grid que foi gravada anteriormente.

porque ele tá gravando no banco, só que quando abro o cadastro as rows não ficam marcadas.

Editado Agosto 26, 2010 por Nacht Byte

[Jhonas]

o uso do Bookmark é para selecionar determinados registros de uma tabela, podendo ser salvos em outra tabela ou utilizados de maneira dinâmica... por exemplo: no caso de emitir etiquetas

se os registros foram salvos em uma tabela temporária, voce trabalha com esses registros da maneira que desejar

entretanto as marcações do Bookmark se perdem ao fechar e abrir novamente a tabela ... se quer um controle maior em cima dos registros selecionados, terá que usar outra lógica para isso

abraço

[Nacht Byte]

Segue uma imagem pra explicar melhor.

observe na parte de componentes. Esse cadastro já tá salvo e eu marquei a linha Teste (A primeira) e a teste90000 e foram gravadas no banco. Só que quando abro essa janela pra editar essas linhas ficam desmarcadas ( como mostra a imagem). teria como ao abrir o registro as linhas ficassem marcadas pra mostrar que foi gravada?

[Jhonas]

observe na parte de componentes. Esse cadastro já tá salvo e eu marquei a linha Teste (A primeira) e a teste90000 e foram gravadas no banco. Só que quando abro essa janela pra editar essas linhas ficam desmarcadas ( como mostra a imagem). teria como ao abrir o registro as linhas ficassem marcadas pra mostrar que foi gravada?

até é possivel, mas daria muito mais trabalho, pois voce teria que guardar a posição de cada registro dentro do DBgrid para depois torna-los a usar novamente para marcar os mesmos registros ...

nesse caso é mais facil utilizar uma tabela temporaria, onde voce veria todos os registros selecionados anteriormente e trabalharia exclusivamente com eles.

abraço

[Nacht Byte]

E como seria a rotina pra essa tabela temporária? porque eu já uso uma tabela exclusivamente para guardar os valores escolhidos na grid.

[Jhonas]

E como seria a rotina pra essa tabela temporária? porque eu já uso uma tabela exclusivamente para guardar os valores escolhidos na grid.

então não é preciso, use a própria tabela que voce já usa ... seria a mesma coisa

só veja como pretende usar esses registros no seu programa

abraço

[Nacht Byte]

Poderia me ajudar a criar a rotina com essa tabela? Não tenho idéia de onde começar. :(

Editado Agosto 27, 2010 por Nacht Byte

[Jhonas]

eu já uso uma tabela exclusivamente para guardar os valores escolhidos na grid.

pelo que eu entendi o DBGrid com o titulo Descrição é a tabela que voce quer usar para fazer o Bookmark e ai pegar os registros selecionados e jogar em outra tabela ?

ou ela já é a tabela com registros que foram selecionados de outra tabela ?

[Nacht Byte]

Acabei colocando uma Grid pra visualizar o que eu selecionei na outra grid.

Só tem um problema, os registros não se separam pelo código. Aparece todos os componentes que registrei.

Tentei isso:

CHAMADO.CODIGO=CHAMADOCOMPONENTE.COD_CHAMADO

Mas continua a mesma.

[Jhonas]

Acabei colocando uma Grid pra visualizar o que eu selecionei na outra grid.

Só tem um problema, os registros não se separam pelo código. Aparece todos os componentes que registrei.

Se a sua grid for essa ( DBGrid1 ) e cdsChamadoComp pertencer a uma tabela vazia, voce vai ter nessa grid somente os registros selecionados

uses dbgrids;


var cont : integer

begin

   With Dbgrid1 do
   Begin
     if SelectedRows.Count = 0 then
        begin
           MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 +
                      'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0);

           DBGrid1.SetFocus;
           Exit;
        end;

     for Cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          cdsChamadoComp.Last;
          cdsChamadoComp.Insert;
          cdsChamadoComp.Edit;

          cdsChamadoCompCOD_CHAMADO.Value  := cdsCadastroCODIGO.Value;
          cdsChamadoCompCOD_COMPONENTE.Value      := cdsComponenteCODIGO.Value;

          cdsChamadoComp.Post;

        end;
      cdsChamadoComp.ApplyUpdates(-1);
end;

abraço

[Nacht Byte]

Amigo, isso eu sei...

Só que o problema é que ele não separa por código de chamado.

Eu preencho um chamado e seleciono os componentes. Ele salva e aparece na GRID, só que quando vou preencher outro chamado e salvo os componentes se unem aos componentes que salvei no outro chamado.

O que eu quero é que os componentes sejam visualizados de acordo com o código do chamado.

Isso seria pelo where da query, porém não tive sucesso.

Alguma sugestão?

Editado Agosto 27, 2010 por Nacht Byte

[Jhonas]

Eu preencho um chamado e seleciono os componentes. Ele salva e aparece na GRID, só que quando vou preencher outro chamado e salvo os componentes se unem aos componentes que salvei no outro chamado.

limpe os registros antes de salvar novamente

abraço

[Nacht Byte]

Assim?

With dbgrd1 do
   Begin
     if SelectedRows.Count = 0 then
        begin
           MessageDlg('Operação Anulada! '+ #13 + #13 +
                      'Selecione os componentes.' , mtInformation, [mbOK], 0);

           dbgrd1.SetFocus;
           Exit;
        end;

     for Cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          cdsChamadoComp.Last;
          cdsChamadoComp.Insert;
          cdsChamadoComp.Edit;

          cdsChamadoCompCOD_CHAMADO.Value       := cdsCadastroCODIGO.Value;
          cdsChamadoCompCOD_COMPONENTE.Value    := cdsComponenteCODIGO.Value;

          cdsChamadoComp.Post;

        end;
      cdsChamadoComp.ApplyUpdates(-1);
      dbgrd1.Columns.Clear;
      cdsChamadoComp.ClearFields;
      cdsChamadoComp.Close;
      cdsChamadoComp.Open;

[Jhonas]

cdsChamadoComp.ApplyUpdates(-1);

dbgrd1.Columns.Clear;

cdsChamadoComp.ClearFields;

cdsChamadoComp.Close;

cdsChamadoComp.Open;

ClearFields depois de um ApplyUpdates, não deve ter dado muito certo ...

veja um exemplo

With dbgrd1 do
   Begin
     if SelectedRows.Count = 0 then
        begin
           MessageDlg('Operação Anulada! '+ #13 + #13 +
                      'Selecione os componentes.' , mtInformation, [mbOK], 0);

           dbgrd1.SetFocus;
           Exit;
        end;

    cdsChamadoComp.EmptyDataSet;   //  ou outra rotina para limpar os registros 

     for Cont:= 0 to Pred(SelectedRows.Count) do
        Begin
          Datasource.Dataset.Bookmark:= SelectedRows[cont];

          cdsChamadoComp.Last;
          cdsChamadoComp.Insert;
          cdsChamadoComp.Edit;

          cdsChamadoCompCOD_CHAMADO.Value       := cdsCadastroCODIGO.Value;
          cdsChamadoCompCOD_COMPONENTE.Value    := cdsComponenteCODIGO.Value;

          cdsChamadoComp.Post;

        end;
      cdsChamadoComp.ApplyUpdates(-1);

abraço

[Nacht Byte]

Ainda não deu certo.

Segue uma imagem:

Veja que na tela a direita eu selecionei o TESTE990000, na tela a esquerda teria que aparecer apenas esse registro. (TESTE990000)

Mas ele aparece todos componentes cadastrados e não separa por cadastro de chamado.

[Jhonas]

agora entendi o seu poblema ... no evento OnClick do DBgrid, voce deve executar um select em uma query para filtrar apenas esse registro ou qualquer outro, a não ser que os outros componentes estejam linkados ao mesmo DataSource do DBgrid

abraço

[Nacht Byte]

Pode me dar um exemplo?

[Jhonas]

um exemplo:

imagine uma Tabela contendo os seguintes campos:

COD integer NOME varchar(50)

0001 ..................ANTONIO

0002...................PEDRO

0003...................JOAO

0004...................MARCOS

abra um novo projeto

coloque no form um componente Query, um DataSource, um DBgrid, um Edit e 2 Buttons

ligue o datasource ao query e ao dbgrid

na SQL da query por exemplo coloque:

select * from tabela

no Onclick do button1 voce ativa essa query

query1.active := false;
query1.active := true;

devera aparecer no dbgrid todos os registros dessa tabela no button 2 vamos fazer nova seleçao só que dessa vez vamos restringir a pesquisa no Onclick do button 2

query1.active := false;
query1.SQL.Clear;
query1.SQL.append('Select * from Tabela where NOME = ' + ''''JOAO'''' );
query1.active := true

voce devera ver no DBgrid apenas o registro do JOAO

COD integer NOME varchar(50)

0003...................JOAO

----------------------------------------------------------------------

CONCLUSÃO : ao clicar no button 1 eu tenho todos os registros da minha tabela, ao clicar no button 2 eu selecionei um especifico que me interessava ... se eu tiver DBEdits com os respctivos campos da minha tabela, eu verei todos os dados desse resgistro.

Isso é apenas um exemplo, voce deve seguir o mesmo raciocinio para o seu programa ... se tiver duvidas o forum dispõe de apostilas que o ajudarão a entender melhor

abraço

[Nacht Byte]

Boa tarde,

Tentarei fazer esse molde no Onshow do cadastro para exibir

Tentei isso no Onshow e não mudou nada

sqlChamadoComp.active := false;
sqlChamadoComp.SQL.Clear;
sqlChamadoComp.SQL.append('Select COD_CHAMADO, COD_COMPONENTE, DESCRICAO FROM CHAMADOCOMPONENTE, CHAMADO where CHAMADOCOMPONENTE.COD_CHAMADO=CHAMADO.CODIGO');
sqlChamadoComp.active := true