ActiveDelphi

[mjsouza_1977]

Galera, estou desenvolvendo um app mas na pesquisa me retorna este erro "Duplicate not allowed", o problema é que não é sempre. Posso fazer exatamente a mesma pesquisa que pode ou nao dar o erro o que pode ser. Segue abaixo o código usado.

SQL=======

select first 15 skip 0 p.pro_id, p.pro_idimg, p.pro_idgrp, p.pro_descricao,
PRO_TAB2,PRO_TAB1 from laidx i
inner join lawrd w
on w.wrd_id = idx_idwrd
inner join lapro p
on p.pro_id = i.idx_idpro
where w.wrd_word like '%TORN%'
group by p.pro_id, p.pro_idimg, p.pro_idgrp, p.pro_descricao,PRO_TAB2,PRO_TAB1
order by p.pro_descricao

PROCEDURE=============

procedure TfrmPrincipal.FindProdutos;
var
pString, pStringSql : String;
pStringSeparada : TStringDynArray;
i, pQtdeRegistros, pPosicao : Integer;
plytItem, plytBasePrincipal, plytBaseItem : TLayout;
pimgProd : TImage;
plblTexto : TLabel;
plnLista : TLine;
pFPreco,
pFPromocao,
pFDescricao,
pFCodigo,
pFCodigoFoto,
pPathFtp,
pNameFileFtp : String;
pStopLoop : Boolean;
lcQtdeRes : Integer;
begin

//Oculta o teclado
KeyboradHide;

//Variavel que conta os registros exibidos para se for o caso limitar
pQtdeRegistros := 0;
//Define a parada do Looping
pStopLoop := False;

//Verifica a quantidade de caracter digitado
if Length(edtPesquisaProduto.Text) <= 0 then
begin
Exit;
end;

//Verifica a quantidade de caracter digitado
if Length(edtPesquisaProduto.Text) <3> 0 then
begin
if pFPromocao > CurrToStrf(StrToCurr('0'),ffNUmber,gCasasDecimais) then
begin
{=====================================================================================}
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Left;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := TAlphaColorRec.Black;
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Text := 'De ';
{=====================================================================================}
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Right;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.Font.Style := [TFontStyle.fsStrikeOut];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := StringToAlphaColor('#FF676767');
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Text := pFPreco;
plblTexto.Align := TAlignLayout.Left;
{======================================================================================}
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Right;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := TAlphaColorRec.Black;
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Margins.Left := 15;
plblTexto.Text := 'Por ';
plblTexto.Align := TAlignLayout.Left;
{======================================================================================}
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Right;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := TAlphaColorRec.Red;
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Text := pFPromocao;
plblTexto.Align := TAlignLayout.Left;
end
else
begin
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Left;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := TAlphaColorRec.Black;
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Text := 'PreÁo ';
{======================================================================================}
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Left;
plblTexto.AutoSize := True;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.FontColor := StringToAlphaColor('#FF676767');
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 16;
plblTexto.Text := pFPreco;
end;
end
else
begin
plblTexto := TLabel.Create(Self);
plblTexto.Parent := plytItem;
plblTexto.Align := TAlignLayout.Client;
plblTexto.StyledSettings := plblTexto.StyledSettings - [TStyledSetting.FontColor,
TStyledSetting.Family,
TStyledSetting.Style,
TStyledSetting.Size];
plblTexto.TextSettings.WordWrap := False;
plblTexto.TextSettings.HorzAlign := TTextAlign.Center;
plblTexto.TextSettings.VertAlign := TTextAlign.Center;
plblTexto.FontColor := TAlphaColorRec.Red;
plblTexto.Font.Family := 'Segoe UI Symbol';
plblTexto.Font.Size := 12;
plblTexto.Text := 'FaÁa o login para vizualizar os preÁos';
end;
end;
dmModule.memPesquisa.Next;
pQtdeRegistros := pQtdeRegistros + 1;
if pQtdeRegistros = lcQtdeRes then
begin
TLoading.ToastMessage(frmPrincipal,
'Resultado muito grande: exibindo apenas ' + lcQtdeRes.ToString + ' registros' ,
TAlignLayout.Bottom,
$64000000);
Break;
end;
end;
//lcvsbPesquisa.Canvas.Unlock;
lcvsbPesquisa.Visible := True;
lcvsbPesquisa.EndUpdate;
end;
end;
end;