O Que Pode Estar De Errado...

[Guilherme014]

não faz o UPDATE....

var
  realresutado : Real;
  strresultado : String;
begin
  inherited;
  realresutado := (StrToFloat(edPorcentagem.Text)/100);
  realresutado := 1 * realresutado;
  strresultado := FloatToStr(realresutado);
  qryResult.Close;
  qryResult.SQL.Clear;
  qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * ' + strresultado);
  qryResult.SQL.Add('WHERE PR_Grupo='+ #39 + edGrupo.Text + #39);
  edPorcentagem.Text := strresultado;
  if edGrupo.Text <> '' then
      qryResult.SQL.Add(' AND produtos.ID =0'+edGrupo.Text);
  if edPorcentagem.Text <> '' then
      qryResult.SQL.Add(' AND produtos.ID =0'+edPorcentagem.Text);
  //Mensagem para o usuário
  if edPorcentagem.Text <> '' then
    MessageDlg('O preço dos Produtos deste Grupo subiu em ' + edPorcentagem.Text + ' porcento !!',mtInformation,[mbok],0);

[Progr'amador]

Olá Guilherme,

vamos lá:

1º - Use o #39 aqui tambem:

qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * '+#39+strresultado+#39);

2º - Tem algo errado no uso do =0'+edGrupo.Text e =0'+edPorcentagem.Text na query, isso ta sem lógica.

3º - pra executar um update deve usar esse comando no final: qryResult.ExecSql;

Abs. Progr'amador.

[Guilherme014]

Olá Guilherme,

vamos lá:

1º - Use o #39 aqui tambem:

qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * '+#39+strresultado+#39);

2º - Tem algo errado no uso do =0'+edGrupo.Text e =0'+edPorcentagem.Text na query, isso ta sem lógica.

3º - pra executar um update deve usar esse comando no final: qryResult.ExecSql;

Abs. Progr'amador.

valeu Progr'amador, assim que eu chegar no meu est´pagio eu vou olhar.....

e te falo o que que deu......

[Guilherme014]

Olá Guilherme,

vamos lá:

1º - Use o #39 aqui tambem:

qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1 * '+#39+strresultado+#39);

2º - Tem algo errado no uso do =0'+edGrupo.Text e =0'+edPorcentagem.Text na query, isso ta sem lógica. 3º - pra executar um update deve usar esse comando no final: qryResult.ExecSql; Abs. Progr'amador.

valeu Progr'amador, assim que eu chegar no meu est´pagio eu vou olhar..... e te falo o que que deu......

funcionou, só não grava, nesta linha...........

//    if edPorcentagem.Text <> '' then //    qryResult.SQL.Add(' AND PR_SALDO2 ='+ #39 + edPorcentagem.Text + #39);

Ve como ficou agora...........

var
  realresutado : Real;
  strresultado : String;
begin
  inherited;
  if (edPorcentagem.Text <> '') then
  begin
     //realresutado := (StrToFloat(edPorcentagem.Text)/100);
     strresultado := '1'+'.'+ edPorcentagem.Text;
     qryResult.Close;
     qryResult.SQL.Clear;
     qryResult.SQL.Add('UPDATE produto SET PR_PRECO1=PR_PRECO1  * ' + #39 + strresultado + #39);
     if edGrupo.Text <> '' then
        qryResult.SQL.Add('WHERE PR_Grupo='+ #39 + edGrupo.Text + #39);
//  Guardar no banco de dados, se o cliente quiser saber a porcentagem que ele
//  aumentou a última vez
//     if edPorcentagem.Text <> '' then
//     qryResult.SQL.Add(' AND PR_SALDO2 ='+ #39 + edPorcentagem.Text + #39);
     //Mensagem para o usuário
     qryResult.ExecSQL;
     realresutado := (StrToFloat(edPorcentagem.Text)/100);
     strresultado := FloatToStr(realresutado*100);
     edPorcentagem.Text := strresultado;
     MessageDlg('O preço dos Produtos deste Grupo subiu em ' + edPorcentagem.Text + ' porcento(s) !!',mtConfirmation,[mbok],0);
  end
  else
    MessageDlg('A Porcentagem está em branco não podendo fazer a atualização !!',mtInformation,[mbok],0); 

[Progr'amador]

funcionou, só não grava, nesta linha...........

//     if edPorcentagem.Text <> '' then

//     qryResult.SQL.Add(' AND PR_SALDO2 ='+ #39 + edPorcentagem.Text + #39);

Deu alguma msg de erro?

[Guest - guilherme014 -]

funcionou, só não grava, nesta linha...........

//     if edPorcentagem.Text <> '' then

//     qryResult.SQL.Add(' AND PR_SALDO2 ='+ #39 + edPorcentagem.Text + #39);

Deu alguma msg de erro?

não dá nenhuma mensagem não.....

[Progr'amador]

Olá num será porque ta protegido (como comentario - // )

Abs Progr'amador.

[Guest - guilherme014 -]

Olá num será porque ta protegido (como comentario - // )

Abs Progr'amador.

não né,

OBS: Eu também não sou tão burro assim !?!?!?!?!?!?!?!?!?!?!?

[Progr'amador]

OBS: Eu também não sou tão burro assim !?!?!?!?!?!?!?!?!?!?!?     

Calminha ae amigo, desculpa se te ofendi,

esse Campo PR_SALDO2 é tipo NUMBER?

tenta fazer a conversão, StrToFloat(edPorcentagem.Text), já que o EdPorcentagem é tipo STRING.

Abs. Progr'amador.

[Guest - guilherme014 -]

OBS: Eu também não sou tão burro assim !?!?!?!?!?!?!?!?!?!?!?      

Calminha ae amigo, desculpa se te ofendi,

esse Campo PR_SALDO2 é tipo NUMBER?

tenta fazer a conversão, StrToFloat(edPorcentagem.Text), já que o EdPorcentagem é tipo STRING.

Abs. Progr'amador.

foi mal ae tambem...

vou olhar e te falo, e que minha maquina esta formatando.....

[Renato_agito10]

Amigo você precisa colocar um campo identificador p/ alteração na linha especificada... você não esta alterando nada.... ai da erro msmo...