Ver Mensaje Individual
  #3  
Antiguo 13-04-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Está un poco extraño tu código, giantonti, pero intentaré mejorarlo:
Código Delphi [-]
  { Suponiendo que el campo "cod_cli" es alfabético o alfanumérico.  NOTA:
    Esta asignación se encargará de cerrar el conjunto de datos en caso de
    estar abierto por una consulta previa, por lo cual no es necesaria una
    llamada explícita al método Close. }
  adoQuery3.SQL.Text := 'Select * From mov where cod_cli = ' +
    QuotedStr (ADOQuery1rif.AsString));

  adoQuery3.Open;

  If Adoquery3.IsEmpty Then
    ShowMessage ('No se ha "e"ncontrado ning"ú"n art"í"culo relacionado ' +
      'con el "c"liente.')
  Else
  Begin
    Application.CreateForm (TFormSelequipo, FormSelequipo);

    Try
      If FormSelequipo.ShowModal = mrOK Then
      Begin
        // Lo que deba hacer aquí
        ...
        ...
      End;
    Finally  // Nos aseguramos de destruir el objeto FormSelequipo
      FormSelequipo.Free;
    End;
  End;
Saludos.

Al González.

P.D. Veo que ecfisa ya arrojó algo de luz.
Responder Con Cita