Erro nos if end else..

Question

a� o que eu poderia esta fazendo de errado ? tem hora que d� erro de que a tabela n�o est� em modo de edi��o..[code:1:4db17f8d2b]  If BD_VENDA_ITENS.RecordCount = 0 then  begin  Close;  end    else   ...

Gigatel · Answer

Notei que o erro aconte depois que coloco algum restro em BD_VENDA_ITENS ou seja o valor dele vai ser diferente de zero...o erro s� d� se eu respoder n�o, se responder sim passa legal...flw...

Gigatel · Answer

Credo que sonceira...o c�digo � este..[code:1:eb480e52ee]  If BD_VENDA_ITENS.RecordCount = 0 then  begin  Close;  end    else    if Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�,    MB_ICONQUESTION + MB_YESNO) <> IDYES then      begin      BD_VENDA_ITENS.First;      while not BD_VENDA_ITENS.Eof do      BD_VENDA_ITENS.Delete;      BD_VENDA.Cancel;      Close;      end      else      BD_VENDA.Edit;      BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption;      BD_VENDA.Post;     Close;end;[/code:1:eb480e52ee]flw.....

Rjun · Answer

[code:1:c801971a4c]if BD_VENDA_ITENS.RecordCount = 0 then   Close;if Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�, MB_ICONQUESTION + MB_YESNO) <> IDYES then begin   BD_VENDA_ITENS.First;   while not BD_VENDA_ITENS.Eof do     BD_VENDA_ITENS.Delete;   BD_VENDA.Cancel;   Close; end else begin       BD_VENDA.Edit;   BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption;   BD_VENDA.Post;   Close; end; [/code:1:c801971a4c]Esta faltando um begin ap�s o ELSE....

Gigatel · Answer

[quote:fb1a391121=�Rjun�][code:1:fb1a391121]if BD_VENDA_ITENS.RecordCount = 0 then Close;if Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�, MB_ICONQUESTION + MB_YESNO) <> IDYES then begin BD_VENDA_ITENS.First; while not BD_VENDA_ITENS.Eof do BD_VENDA_ITENS.Delete; BD_VENDA.Cancel; Close; end else begin BD_VENDA.Edit; BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption; BD_VENDA.Post; Close; end; [/code:1:fb1a391121]Esta faltando um begin ap�s o ELSE.[/quote:fb1a391121]Vlw deu certo, m�s curiosamente teve que ficar assim[code:1:fb1a391121] If BD_VENDA_ITENS.RecordCount = 0 then begin Close; end elseif Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�, MB_ICONQUESTION + MB_YESNO) <> IDYES then begin BD_VENDA_ITENS.First; while not BD_VENDA_ITENS.Eof do BD_VENDA_ITENS.Delete; BD_VENDA.Cancel; Close; end else begin BD_VENDA.Edit; BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption; BD_VENDA.Post; Close; end; [/code:1:fb1a391121]no seu c�digo mesmo a tabela BD_VENDA_ITENS n�o tendo nada ele me fazia a pergunta se eu queria concluir a compra, ou seja ele n�o estava dando o close no form...m�s vlw...deu certinho t+...

Rjun · Answer

O que esse Close faz? Ele fecha um form?...

Gigatel · Answer

[quote:b05211085a=�Rjun�]O que esse Close faz? Ele fecha um form?[/quote:b05211085a]� o seguinte, esta fun��o fica em um boton onde quando � clicado ele verifica se existe dados em uma tabela, quando num tem nada ele sai sem fazer pergunta, e quando tem alguma coisa no banco de dados ele pergunta que que salvar e sai do form imaginado que o usu�rio tenha esquecido de salvar, caso n�o tenha esquecido o programa cancela o procedimento e sai do form ....

Rjun · Answer

Eu n�o colocaria esse c�digo no evento Click do button. Acho que voc� poderia colocar no evento OnClose j� que em qualquer situa��o voc� fecha o form mesmo. O que acontece no seu c�digo, se o usu�rio fechar o form de outra maneira que n�o pelo bot�o? Acho que assim ficaria melhor:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (BD_VENDA_ITENS.RecordCount > 0)
    ConcluiOperacaoAtual();
end;

procedure CocluiOperacaoAtual;
begin
  if Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�, MB_ICONQUESTION + MB_YESNO) <> IDYES then 
  begin 
    BD_VENDA_ITENS.First; 
    while not BD_VENDA_ITENS.Eof do 
      BD_VENDA_ITENS.Delete; 

    BD_VENDA.Cancel; 
  end 
  else 
  begin      
    BD_VENDA.Edit; 
    BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption; 
    BD_VENDA.Post; 
  end; 
end;

Outra quest�o. No while voc� apaga todos os itens. Voc� n�o deveria apagar s� os da venda atual? Ou voc� s� guarda os itens da venda atual?

Gigatel · Answer

[quote:e514e7948c=�Rjun�]Eu n�o colocaria esse c�digo no evento Click do button.  Acho que voc� poderia colocar no evento OnClose j� que em qualquer situa��o voc� fecha o form mesmo. O que acontece no seu c�digo, se o usu�rio fechar o form de outra maneira que n�o pelo bot�o? Acho que assim ficaria melhor:[code:1:e514e7948c]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin  if (BD_VENDA_ITENS.RecordCount > 0)    ConcluiOperacaoAtual();end;procedure CocluiOperacaoAtual;begin  if Application.MessageBox(PAnsiChar(�Deseja concluir esta compra ?�), �Pergunta�, MB_ICONQUESTION + MB_YESNO) <> IDYES then   begin     BD_VENDA_ITENS.First;     while not BD_VENDA_ITENS.Eof do       BD_VENDA_ITENS.Delete;     BD_VENDA.Cancel;   end   else   begin          BD_VENDA.Edit;     BD_VENDAGS_VEN_VALOR_TOTAL.Value := label10.Caption;     BD_VENDA.Post;   end; end;[/code:1:e514e7948c]Outra quest�o. No while voc� apaga todos os itens. Voc� n�o deveria apagar s� os da venda atual? Ou voc� s� guarda os itens da venda atual?[/quote:e514e7948c]O programa trabalha com duas tabelas em conjunto uma chamada BD_VENDA e outra chamada BD_VENDA_ITENS, quando dou um insert na tabela ela cria um c�digo ( isto na tabela BD_VENDAS ) e toda vez que insiro um �tem (BD_VENDA_ITENS) um campo recebe o valor d� c�digo gerado, e com isso aplico um filtro onde fica somente na tabela os �tens dakela venda, a� num d� problema, s� exclui akeles �tens mesmo...m�s vlw a sua dica foi importan...

F�rum Erro nos if end else.. #330049