Bom dia a todos,
Sou novato tentando aprnder delphi, trabalho com access e um pouco de
visual basic. Estou precisnado de uma ajuda.
Estou tentando abrir um relatório, se o formCadPedido estiver aberto
ele deveria abrir com o numero do pedido que é atual no
formformCadPedido, se não exibe a inputQuery para digitar, até ai
tudo bem, o relatorio abre mas sempre no primeiro registro, ou seja,
ele não abre no registro digitado ou aberto se no formCadPedido
estiver aberto, tanto digitando quanto colocando o formcadpedido em
outro registro.
Se alguem tiver um exemplo de relatorio, que abra no registro em que
ditamos na inputquery, eu aceito.
Desde já agradeço pela ajuda.
procedure TFormPrincipal.mnuImpPedClick(Sender: TObject);
var
NumPedido: Integer;
Texto: String;
begin
Application.CreateForm(TFormImprimePedido,FormImprimePedido);
if (FormCadPedidos <> NIL) and
(FormCadPedidos.TablePedidosNumeroPedido.AsInteger > 0) then
NumPedido := FormCadPedidos.TablePedidosNumeroPedido.AsInteger
else
begin
Texto := '';
if InputQuery('Digite o número do Pedido',
'Impressão de Pedido',Texto) then
begin
try
NumPedido := StrToInt(Texto);
except
ShowMessage('Número inválido!');
// libera o formulario de relatorio
FormImprimePedido.Close;
Exit;
end;
end
else
begin
FormImprimePedido.Close;
Exit;
end;
end;
if not FormImprimePedido.TablePedidos.FindKey([NumPedido]) then
begin
ShowMessage('Pedido não encontrado!');
FormImprimePedido.Close;
Exit;
end;
FormImprimePedido.QuickRepPedidos.PreviewModal;
FormImprimePedido.Free;
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
