Ir para conteúdo
Fórum Script Brasil
  • 0

O Que Pode Estar De Errado...


Guilherme014

Pergunta

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);

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0
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......

Link para o comentário
Compartilhar em outros sites

  • 0
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); 

Link para o comentário
Compartilhar em outros sites

  • 0
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.....

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - guilherme014 -
OBS: Eu também não sou tão burro assim !?!?!?!?!?!?!?!?!?!?!?       mad.gif

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. wink.gif

foi mal ae tambem...

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...