fdsilva.desenv
Novato
Registrado: Quarta-Feira, 28 de Novembro de 2012
Mensagens: 68
|
 Enviada: Sex Ago 30, 2019 11:02 am Assunto: Seleção de duas informações em um stringgrid |
 |
|
Prezados, bom dia.
Estou com uma dúvida de como realizar o processo abaixo.
Tenho uma grid onde eu tenho informações que são carregadas de uma tabela, e preciso, a cada double click nas linhas da grid, trazer o numero de cada titulo selecionado + quantidade total de clientes selecionadas.
sendo assim, criei uma função chamada "AchaNaLista" e dois StringLista LSTBloco e LSTCliente, onde o LSTBloco vai somar a quantidade de titulos, e o outro a quantidade de Clientes.
Para a stringlist da quantidade de títulos, funciona perfeitamente, o problema está para capturar a quantidade clientes corretamente, pois eu posso ter a seguinte situação:
linha 1 - titulo100 cliente50
linha 2 - titulo200 cliente50
linha 3 - titulo300 cliente25
linha 4 - titulo400 cliente35
linha 5 - titulo500 cliente40
Nessa situação, o numero do titulo nunca se repete, pois o numero do titulo é uma chave primaria, já o cliente, pode ter mais de um titulo, o que está me gerando a dificuldade.
Preciso que, quando selecionado a linha 1, 2 e 3, me apareça 3 títulos e 2 clientes selecionados.
Alguém pode me ajudar?
segue abaixo o meu código:
| Código: | function TfrmGerarNovoReceber.AchaNaLista(Chave : String; Cliente : String; Grid : Boolean) : Boolean;
{Chave : Valor a ser procurada na lista
Grid : Para saber se foi chamada pelo Duplo clique no grid.}
var
n,c1,c2 :Word;
ResultClie : Boolean;
i, cont : integer;
begin
n := 0;
c1 := 0;
c2 := 0;
cont := 0;
Result := False;
ResultClie := False;
if (LstBloco.Count > 0) then
begin
for n := 0 to LstBloco.Count - 1 do
if LstBloco[n] = Chave then
begin
Result := True;
Break;
end;
end;
if Grid then {se foi chamada pelo Duplo clique no grid}
begin
if Result then {Se encontrar a lista}
begin
LstBloco.Delete(n);
QValTitSel := QValTitSel - ( StrtoNum(StringGrid1.Cells[8,StringGrid1.Row])+StrtoNum(StringGrid1.Cells[9,StringGrid1.Row]) );
end
else
begin
LstBloco.Add(Chave);
QValTitSel := QValTitSel + ( StrtoNum(StringGrid1.Cells[8,StringGrid1.Row]) +StrtoNum(StringGrid1.Cells[9,StringGrid1.Row]) );
end;
end;
if LstBloco.Count > 0 then
begin
for n := 0 to LstBloco.Count -1 do
begin
cont := 0;
for i:= 0 to StringGrid1.RowCount - 1 do
begin
if ((StringGrid1.Cells[4,i] = Cliente) and (StringGrid1.Cells[1,i] = LstBloco[n] )) then
begin
if LstCliente.Count > 0 then
begin
for c1 := 0 to LstCliente.Count - 1 do
begin
if LstCliente[c1] = Cliente then
begin
cont := cont + 1;
c2 := c1;
end;
end;
if cont = 0 then
LstCliente.Add(Cliente)
else if cont = 1 then
LstCliente.Delete(c2);
end
else
begin
LstCliente.Add(Cliente);
cont := 2;
end;
end;
end;
end;
end;
if (LstBloco.Count > 1) then
spSkinLblStatus.Caption := IntToStr(LstBloco.Count) + ' ' + 'Seleções'
else
begin
if (LstBloco.Count = 1) then
spSkinLblStatus.Caption := IntToStr(LstBloco.Count) + ' ' + 'Seleção'
else
spSkinLblStatus.Caption := 'Nenhuma' + ' ' + 'Seleção';
end;
if (LstCliente.Count > 0) then
LblClientes.Caption := 'Clientes Selecionados: '+IntToStr(LstCliente.Count)
else
LblClientes.Caption := 'Clientes Selecionados: ';
LblValorSel.Caption := FloattoStrF(QValTitSel, ffNumber, 12, 2);
end; |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
