Radio Button
Eae galera bom dia!!
Galera é o seguinte tenho um 1 radiobutton e no eventoo on click desse componente, eu gostaria q ele atribuisse
em uma determinada coluna com um codigo, por exemplo.:
1ºTabela 2ºTabela
Codigo Codigo | Nome do Produto | QTD
1 3 | cANeta | 10
2 3 | Lapis | 10
3 3 | BOrracha | 20
4 3 | EstoJo | 5
A 1ºTabela tem 4 cadastro 1, 2, 3 e o 4.. Mas vcs percebem q eu soh estou utilizando o codigo 3 na
2ºTabela! Agora esqueção a 2ºTabela ela esta fexada mais a 1ºTabela esta aberta e no seu form
tem um radiobutton q tera a função de ZERAR a QTD da 2ºTabela!! Por Exemplo, Vai ter que
Fikar assim.....
1ºTabela 2ºTabela
Codigo Codigo | Nome do Produto | QTD
1 3 | cANeta | 0
2 3 | Lapis | 0
3 3 | BOrracha | 0
4 3 | EstoJo | 0
Me ajudem ae galera Agradeço desde já!! Lembrando soh quero ZERAR a QTD de um determinado
cadastro!! Vlw abrass, Me ajudem ae por favor isso é urgente.
Galera é o seguinte tenho um 1 radiobutton e no eventoo on click desse componente, eu gostaria q ele atribuisse
em uma determinada coluna com um codigo, por exemplo.:
1ºTabela 2ºTabela
Codigo Codigo | Nome do Produto | QTD
1 3 | cANeta | 10
2 3 | Lapis | 10
3 3 | BOrracha | 20
4 3 | EstoJo | 5
A 1ºTabela tem 4 cadastro 1, 2, 3 e o 4.. Mas vcs percebem q eu soh estou utilizando o codigo 3 na
2ºTabela! Agora esqueção a 2ºTabela ela esta fexada mais a 1ºTabela esta aberta e no seu form
tem um radiobutton q tera a função de ZERAR a QTD da 2ºTabela!! Por Exemplo, Vai ter que
Fikar assim.....
1ºTabela 2ºTabela
Codigo Codigo | Nome do Produto | QTD
1 3 | cANeta | 0
2 3 | Lapis | 0
3 3 | BOrracha | 0
4 3 | EstoJo | 0
Me ajudem ae galera Agradeço desde já!! Lembrando soh quero ZERAR a QTD de um determinado
cadastro!! Vlw abrass, Me ajudem ae por favor isso é urgente.
Weslen Polizelli
Curtidas 0
Respostas
Marco Salles
03/03/2011
Mas não seria a mesma idéia que vc fez em
https://www.devmedia.com.br/forum/delphi/396465-Excluir-Varios-Cadastro.html
so que ao inves do delete vc edita e da um post
O Click do RadioButton , vc seleciona a coluna que vc quer aplicar o filtro e posteriormente a edição
Table.Filter := 'N_LANC = 1';
Table.Filtered := True;
try
while no Table.IsEmpty do
begin
Table.Delete;
end;
finally
Table.Filtered := False;
Table.Filter := '';
end; adaptando ????????????
Table.Filter := 'codigo = 3'; // o Numero tres é um exemplo na pratica se passa o paremtro
Table.Filtered := True;
try
while no Table.IsEmpty do
begin
table.edit; table.fieldByName('Qnt').asinteger:=0; table.post;
end;
finally
Table.Filtered := False;
Table.Filter := '';
end;
Table.Filtered := True;
try
while no Table.IsEmpty do
begin
Table.Delete;
end;
finally
Table.Filtered := False;
Table.Filter := '';
end; adaptando ????????????
Table.Filter := 'codigo = 3'; // o Numero tres é um exemplo na pratica se passa o paremtro
Table.Filtered := True;
try
while no Table.IsEmpty do
begin
table.edit; table.fieldByName('Qnt').asinteger:=0; table.post;
end;
finally
Table.Filtered := False;
Table.Filter := '';
end;
GOSTEI 0
Weslen Polizelli
03/03/2011
kara é vdd, eu nem tinha pensadoo nisso, kkkk nem tinha passado na minha cabeça.. Vlw por te me lembradoo axo q isso vai da certinho, vlw abrasss OBRIGADO!!!!!!
GOSTEI 0
Weslen Polizelli
03/03/2011
Esse filtro nao quer funcionar!!!! olha o jeito q fikou
ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
If cxDBRadioGroup1.ItemIndex = 1 then
TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc';
TabelaSaidas2.Filtered := True;
try
while not TabelaSaidas2.IsEmpty do
begin
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post;
end;
finally
TabelaSaidas2.Filtered := False;
TabelaSaidas2.Filter := '' ;
end;ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
GOSTEI 0
Marco Salles
03/03/2011
Esse filtro nao quer funcionar!!!! olha o jeito q fikou
ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
Alem dessas alteraçoes , este TabelaManipulan_lanc o que é ????
se for um campo de uma otra tavela escreva assim
TabelaSaidas2.Filter := 'n_lanc = '+TabelaManipulan_lanc.asstring;
If cxDBRadioGroup1.ItemIndex = 1 then
TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc'; // ???? que é TabelaManipulan_lanc'
TabelaSaidas2.Filtered := True;
try
while not TabelaSaidas2.eof do // Altereri aqui
begin
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post;
TabelaSaidas2.next; //Acrescente
end;
finally
TabelaSaidas2.Filtered := False;
TabelaSaidas2.Filter := '' ;
end;ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
GOSTEI 0
Weslen Polizelli
03/03/2011
essa tabela manipula é onde vai buscar o valor do n_lac q esta sendo usado
GOSTEI 0
Marco Salles
03/03/2011
então , mas o que que acontece neste codigo
If cxDBRadioGroup1.ItemIndex = 1 then
TabelaSaidas2.Filter := 'n_lanc = '+TabelaManipulan_lanc.asstring; // ???? que é TabelaManipulan_lanc'
TabelaSaidas2.Filtered := True;
try
while not TabelaSaidas2.eof do // Altereri aqui
begin
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post;
TabelaSaidas2.next; //Acrescente
end;
finally
TabelaSaidas2.Filtered := False;
TabelaSaidas2.Filter := '' ;
end;GOSTEI 0
Weslen Polizelli
03/03/2011
kara
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
GOSTEI 0
Marco Salles
03/03/2011
kara
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
Kara
então
TabelaSaidas2.Filter := 'n_lanc = '+tabelamanipulan_lanc.asstring; ou
TabelaSaidas2.Filter := 'n_lanc = '+quotToStr(tabelamanipulan_lanc.asstring);
e qual a dificuldade nisso ????
qual o erro ???
Não compila , não executa ??? o que que acontece ????
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
GOSTEI 0
Weslen Polizelli
03/03/2011
o problema é esse nem ta funcionando!!!!!! nao tem erro e nada!!!
soh q eu tava seguindo no fonte e sabe na parte do
ele nao le isso ele pula direto pra finally!!
soh q eu tava seguindo no fonte e sabe na parte do
begin
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post;
TabelaSaidas2.next;
end; ele nao le isso ele pula direto pra finally!!
GOSTEI 0
Weslen Polizelli
03/03/2011
Resolvido!
GOSTEI 0
Weslen Polizelli
03/03/2011
galera ele ta funcionando mas ta dando um problema por exemplo
eu compilo, vo pra cadastra faço o cadastro certinho e clico no radiobutonn ae da certinho...
mas se eu for fazer outro cadastro, ae volta o msm problema anterior ele pula akelas linha q eu falei!!
vlw
eu compilo, vo pra cadastra faço o cadastro certinho e clico no radiobutonn ae da certinho...
mas se eu for fazer outro cadastro, ae volta o msm problema anterior ele pula akelas linha q eu falei!!
vlw
GOSTEI 0
Marco Salles
03/03/2011
bem esta faltando um Begin - end no codigo . Não sei se est eé o motivo do erro . So copiei e
colei
se não esta executando o conjunto de instrução
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post; TabelaSaidas2.next; Ou a tabela ja esta no fim ou não nenhum Registro foi Retornadopelo filtro Antes do While coloque uma Mensagem somente para Deburgar o Problema showmessage(inttostr( TabelaSaidas2.RecordCount)); ///antes do while
If cxDBRadioGroup1.ItemIndex = 1 then
begin
TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc.asstring; // ???? q
TabelaSaidas2.Filtered := True;
tableSaida.Firs;
try
while not TabelaSaidas2.eof do // Altereri aqui
begin
TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post;
TabelaSaidas2.next;
end;
finally
TabelaSaidas2.Filtered := False;
TabelaSaidas2.Filter := '' ;
end;
end;TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post; TabelaSaidas2.next; Ou a tabela ja esta no fim ou não nenhum Registro foi Retornadopelo filtro Antes do While coloque uma Mensagem somente para Deburgar o Problema showmessage(inttostr( TabelaSaidas2.RecordCount)); ///antes do while
GOSTEI 0
Weslen Polizelli
03/03/2011
Galera Pelamor de deus me manda esse filtro de outra forma nao to conseguindo....
Por favor me ajudem!!
Por favor me ajudem!!
GOSTEI 0
José
03/03/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0