if ... end e imprimir..

21/11/2005

0

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

Responder

Posts

21/11/2005

Rgaffo

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


Responder

21/11/2005

Wiltonfenix

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]


Responder

21/11/2005

Gigatel

vlw...deu certinho...t+


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar