Fórum If, Else, End...os pingos nos ís... #328358
31/08/2006
0
olhem este código
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
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
Curtir tópico
+ 0
Responder
Posts
31/08/2006
Siam
Não seriam somente 2 ifs ?
if Deseja_Imprimir = mrYes then
Print;
if Nova_Venda = mrYes then
Insert
else
Close;
if Deseja_Imprimir = mrYes then
Print;
if Nova_Venda = mrYes then
Insert
else
Close;
Responder
Gostei + 0
31/08/2006
Night_man
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)