Tem alguma coisa nesse código?
29/09/2016
0
var
vin : String ;
begin
while not DM.qryProdutoSimilar.Eof do
begin
if vin = '' then
vin := DM.qryProdutoSimilar.FieldByName('codprod').AsString
else
vin := vin + ',' + dm.qryProdutoSimilar.FieldByName('codprod').AsString ;
DM.qryProdutoSimilar.next;
end;
DM.qryProdutoSimilar.AddWhere(' PCPRODUT.CODPROD in (' + vin + ')');
end
DM.qryProdutoSimilar.Open;
vin : String ;
begin
while not DM.qryProdutoSimilar.Eof do
begin
if vin = '' then
vin := DM.qryProdutoSimilar.FieldByName('codprod').AsString
else
vin := vin + ',' + dm.qryProdutoSimilar.FieldByName('codprod').AsString ;
DM.qryProdutoSimilar.next;
end;
DM.qryProdutoSimilar.AddWhere(' PCPRODUT.CODPROD in (' + vin + ')');
end
DM.qryProdutoSimilar.Open;
átila Lyncon
Curtir tópico
+ 0
Responder
Post mais votado
29/09/2016
Bom dia.
Favor ser mais específico em suas perguntas. Difícil ajudar sem saber o problema que está ocorrendo.
De qualquer forma, uma sugestão:
Acho que isso já ajudará no seu código.
Favor ser mais específico em suas perguntas. Difícil ajudar sem saber o problema que está ocorrendo.
De qualquer forma, uma sugestão:
if vin = '' then vin := QuotedStr(DM.qryProdutoSimilar.FieldByName('codprod').AsString) else vin := vin + ',' + QuotedStr(dm.qryProdutoSimilar.FieldByName('codprod').AsString) ;
Acho que isso já ajudará no seu código.
Andrey
Responder
Mais Posts
29/09/2016
átila Lyncon
procedure TfrmPrincipal.btnPesquisarClick(Sender: TObject);
begin
DM.qryProdutos.Close;
DM.qryProdutos.RestoreSQL;
if edtProduto.Text <> '' then
begin
try
StrToFloat(edtProduto.Text);
DM.qryProdutos.AddWhere(' PCPRODUT.CODPROD = ' +edtProduto.Text );
except
DM.qryProdutos.AddWhere(' PCPRODUT.DESCRICAO LIKE ''%' +edtProduto.Text + '%'' ' );
end;
end;
DM.qryProdutos.Open;
DM.qryCodSim.Close;
DM.qryCodSim.Open;
DM.qryProdutoSimilar.Close;
DM.qryProdutoSimilar.RestoreSQL;
end;
var
vin : String ;
begin
while not DM.qryProdutoSimilar.Eof do
begin
if vin = '' then
vin := DM.qryProdutoSimilar.FieldByName('codprod').AsString
else
vin := vin + ',' + dm.qryProdutoSimilar.FieldByName('codprod').AsString ;
DM.qryProdutoSimilar.next;
end;
DM.qryProdutoSimilar.AddWhere(' PCPRODUT.CODPROD in (' + vin + ')');
end
DM.qryProdutoSimilar.Open;
end;
begin
DM.qryProdutos.Close;
DM.qryProdutos.RestoreSQL;
if edtProduto.Text <> '' then
begin
try
StrToFloat(edtProduto.Text);
DM.qryProdutos.AddWhere(' PCPRODUT.CODPROD = ' +edtProduto.Text );
except
DM.qryProdutos.AddWhere(' PCPRODUT.DESCRICAO LIKE ''%' +edtProduto.Text + '%'' ' );
end;
end;
DM.qryProdutos.Open;
DM.qryCodSim.Close;
DM.qryCodSim.Open;
DM.qryProdutoSimilar.Close;
DM.qryProdutoSimilar.RestoreSQL;
end;
var
vin : String ;
begin
while not DM.qryProdutoSimilar.Eof do
begin
if vin = '' then
vin := DM.qryProdutoSimilar.FieldByName('codprod').AsString
else
vin := vin + ',' + dm.qryProdutoSimilar.FieldByName('codprod').AsString ;
DM.qryProdutoSimilar.next;
end;
DM.qryProdutoSimilar.AddWhere(' PCPRODUT.CODPROD in (' + vin + ')');
end
DM.qryProdutoSimilar.Open;
end;
Responder
29/09/2016
Michael Batista
esta ai um tópico que é realmente nada especifico.
ele nem diz, qual é a sua duvida sobre o código '-'
ele nem diz, qual é a sua duvida sobre o código '-'
Responder
Clique aqui para fazer login e interagir na Comunidade :)