If, Else, End...os pingos nos ís...

Delphi

31/08/2006

olhem este código
  if Application.MessageBox(PAnsiChar(´Deseja imprimir este documento para  ´ + BD_VENDAGS_VEN_NOME.Value + ´ ?´), ´Pergunta´,
      MB_ICONQUESTION + MB_YESNO) <> IDYES then
        if Application.MessageBox(PAnsiChar(´Deseja fazer nova venda ?´), ´Pergunta´,
        MB_ICONQUESTION + MB_YESNO) <> IDYES then Close
        else
        BD_VENDA.Insert
      else
      QuickRep4.Print;
      if Application.MessageBox(PAnsiChar(´Deseja fazer nova venda ?´), ´Pergunta´,
      MB_ICONQUESTION + MB_YESNO) <> IDYES then Close
      else
     BD_VENDA.Insert;
end;


a coisa era para ser simples...mas tá fazend pergunta demais..

ao prescionar o button o programa pergunta imprimir ? sim ou não..prescionado o sim ele vai imprimir e logo em seguida pergunta novamente...deseja inserir novo registro ? se prescionado o sim ele dá um inserte na tabela se o não for prescionado ele dá um close no formulário..

e voltando lá na primeira pergunta ......... deseja imprimir ? pressionado o não ele faz a pergunta deseja inserir novo registro ? no sim ele dá um insert na tabela e no não ele dá um close no formulário...parece complicado ...´t+ vlw


Gigatel

Gigatel

Curtidas 0

Respostas

Siam

Siam

31/08/2006

Não seriam somente 2 ifs ?

if Deseja_Imprimir = mrYes then
Print;
if Nova_Venda = mrYes then
Insert
else
Close;


GOSTEI 0
Night_man

Night_man

31/08/2006

 if Application.MessageBox(PAnsiChar(´Deseja imprimir este documento para  ´ + BD_VENDAGS_VEN_NOME.Value + ´ ?´), ´Pergunta´,       MB_ICONQUESTION + MB_YESNO) = IDYES then 
  QuickRep4.Print; 

if Application.MessageBox(PAnsiChar(´Deseja fazer nova venda ?´), ´Pergunta´, MB_ICONQUESTION + MB_YESNO) <> IDYES then 
  Close 
else 
  BD_VENDA.Insert


pelo oq eu vi tava faltando um begin end


 if Application.MessageBox(PAnsiChar(´Deseja imprimir este documento para  ´ + BD_VENDAGS_VEN_NOME.Value + ´ ?´), ´Pergunta´, 
      MB_ICONQUESTION + MB_YESNO) <> IDYES then 
        if Application.MessageBox(PAnsiChar(´Deseja fazer nova venda ?´), ´Pergunta´, 
        MB_ICONQUESTION + MB_YESNO) <> IDYES then Close 
        else 
        BD_VENDA.Insert 
      else 
--> begin <--
      QuickRep4.Print; 
      if Application.MessageBox(PAnsiChar(´Deseja fazer nova venda ?´), ´Pergunta´, 
      MB_ICONQUESTION + MB_YESNO) <> IDYES then Close 
      else 
     BD_VENDA.Insert; 
--> end;<--


oq fazia q a segunda pergunta sempre fosse executada


GOSTEI 0
POSTAR