if ... end e imprimir..

Delphi

21/11/2005

oi tudo na paz?...estou com um problema ´meu programa faz umas perguntas para o usuário más se eu disser não na primeira pergunta ele e cancela as demais...
    if MessageDlg(´Deseja imprimir promissórias ?´,
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  QuickRep3.Print;
  if Application.MessageBox(´Imprimir documento de saida ?´ , ´Imprimir´, MB_ICONQUESTION + MB_YESNO) = IDYES then
  QuickRep1.Print;
  end;


acho que algo com estes If´s da vida..flw... galera t+


Gigatel

Gigatel

Curtidas 0

Respostas

Rgaffo

Rgaffo

21/11/2005

Meu amigo Gigatel vc colocou:

if (PrimeiraPergunta = Sim) then Begin
Imprima Promossórias;
if (SegundaPergunta = Sim) then
Imprima documento saída;
End;

O problema é se a segunda pergunta não tiver nada a ver com a 1ª pergunta tire o Begin e End da 1ª pergunta pq senão ele só vai fazer a 2ª pergunta caso ele responda sim para a 1ª pergunta.

Entendeu?
Ou confundi um pouco.

Sem mais,

Robert


GOSTEI 0
Wiltonfenix

Wiltonfenix

21/11/2005

O problema é o que o nosso amigo acima disse, faça assim:

 if MessageDlg(´Deseja imprimir promissórias ?´, 
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
  QuickRep3.Print; 

  if Application.MessageBox(´Imprimir documento de saida ?´ , ´Imprimir´, MB_ICONQUESTION + MB_YESNO) = IDYES then 
  QuickRep1.Print;


*** Como será executada só uma linha se a condição for verdadeira, não é necessário o [color=red:6048e2abe2]begin[/color:6048e2abe2].... [color=red:6048e2abe2]end;[/color:6048e2abe2]


GOSTEI 0
Gigatel

Gigatel

21/11/2005

vlw...deu certinho...t+


GOSTEI 0
POSTAR