Ver Mensaje Individual
  #2  
Antiguo 30-03-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 921
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Me tome algunas libertades y realize unas modificaciones...
1) Verifica que el formulario fPropuestas, ya este creado al momento de llamar a este procedimiento.
2) En vez de usar ExecSQL utiliza Open, las razones las coloque como comentario.

Eso por ahora, espero que de algo te sirva a solucionar el problema.

Código Delphi [-]
Procedure Llena_Claves(Licitac:String);
  var licitac: variant;
begin
     licitac:='00641321-030-09'; //trim(fpropuestas.txtlicitacion.Text);
     With fModulo.Q_licitac2 Do
     Begin
          Sql.Clear;
          Sql.Add('select * from requerimiento');
          Sql.Add('where licitacion=:licit');
          ParamByName('licit').Value:=Trim(Licitac);
          Try
             Open; //ExecSQL es utilizado para ejecutar sentencias sql que no retornan registros como por ejemplo INSERT, DELETE, UPDATE, CREATE TABLE...
             While Not Eof Do
             Begin
                 //Asegurate que el fpropuestas esta creado al llegar a esta linea...
                 fPropuestas.cb_clave.Items.Add(Fields['gpo'].value);
                 Next;
             End;
             Close;
          Except
             On E:EOleException Do
             Begin
                MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
             End;
          End;
     End;
end;
Responder Con Cita