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...
acho que algo com estes If´s da vida..flw... galera t+
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
Curtir tópico
+ 0
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
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:
*** 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]
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
Clique aqui para fazer login e interagir na Comunidade :)