[pigu]

El problema persiste en delphi 6 ya sea porque tiene un bug dbExpress o por otro motivo que no se cual sera.
Lo he probado en delphi 7 y anda, lo he probado en Delphi 2005 y anda....
Cosas de la programacion, no???
Gracias igual a los que leyeron este hilo.
El driver con que trabajo es de Core Lab para dbExpress.
Lo unico que cambie es la parte del seteo con sqlserver

procedure TForm1.ejecturar;
begin
  try
	Screen.Cursor := crHourGlass;
	case RadioGroup1.ItemIndex of
	  0:
		begin
		  with Interbase do
		  begin
			Close;
			Prepared := False;
			Prepared := True;
			ParamByName('id_empresa').AsString := '01';
			ParamByName('fecha1').AsDate := cxDateEdit1.Date;
			ParamByName('fecha2').AsDate := cxDateEdit2.Date;
			ParamByName('nro_base').AsInteger := 0;
			ParamByName('id_moneda').Value := null;
			if ParamByName('id_moneda').IsNull then
			begin
			  ParamByName('id_moneda').DataType := ftInteger;
			  ParamByName('id_moneda').Bound := True;
			  ParamByName('id_moneda').Clear;
			end;
		  end;
		end;
	  1:
		begin
		  with Mssql do
		  begin
			Close;
			Params.Clear;
			CommandText := '';
			CommandType := ctStoredProc;
			CommandText := 'L_ASIENTOS_D';
			if Prepared then
			  Prepared := False;
			Prepared := True;
			ParamByName('id_empresa').AsString := '01';
			ParamByName('fecha1').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit1.Date);
			ParamByName('fecha2').AsSQLTimeStamp := DateTimeToSQLTimeStamp(cxDateEdit2.Date);
			ParamByName('nro_base').AsInteger := 0;
			ParamByName('id_moneda').Value := null;
		  end;
		end;
	end;
  ClientDataSet.Open;
  finally
	Screen.Cursor := crDefault;
  end;