Search options (Page 1 of 2)

Да, работает. Благодарю. И как вариант еще можно так - добавляем строчку:

vrbl := Form1.Memo1.Text + #13#10;

Извините, недогадался

Если Мемо содержит одну строчку с буквами - появится сообщение об ошибке. С Edit-ами не работает - тоже сообщение об ошибке. С несколькими строками работает как надо
Всем спасибо за оказанную помощь.

Так должно быть и по-другому не планируется?
И возможно ли убрать появляющиеся в отчете апострофы?

В коде нету ничего такого...

//Заносим в Мемо нужные значения
var
    zzid, zzri, zzrc: integer;  //id заказа, индекс и количество утвержденных заказов
begin
    zzrc := SQLExecute ('SELECT COUNT (zamovlinfo) FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0'); 
    if zzrc > 0 then
    begin
        zzid := -1;
        for zzri := 1 to zzrc do 
        begin
            frmTexZavd.Memo2.Text := frmTexZavd.Memo2.Text + SQLExecute ('SELECT zamovlinfo FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0 AND id >' +inttostr (zzid)) + #13#10;
            zzid := SQLExecute ('SELECT id FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0 AND id >' +inttostr (zzid));
        end;
    end;
//Создаем переменные в Фастрепорте
procedure VariableToReport ();
var
    vrbl: string;  
begin
    Form1.frxReport.Variables.Clear;
    Form1.frxReport.Variables[' ' + 'Components'] := Null;
    vrbl := frmTexZavd.Memo1.Text;
    Form1.frxReport.Variables['Memo1'] := ''''+vrbl+'''';
    vrbl := frmTexZavd.Memo2.Text;
    Form1.frxReport.Variables['Memo2'] := ''''+vrbl+'''';
    vrbl := frmTexZavd.Memo3.Text;
    Form1.frxReport.Variables['Memo3'] := ''''+vrbl+'''';
end;

И в Фастрепорте получаем апострофы в полях Мемо. Причем если строка одна - их нету, а если несколько строк - они есть.
И еще тот же вопрос - символ переноса строки через список компонентов участвующих в поиске?

Очень жаль. Все очень хорошо складывалось, и только из-за одного символа...  Возник вопрос, если добавить в список компонентов участвующих в поиске Грид - он работает только если в нем выделена строка, если выбор не сделан Грид никак себя не проявляет. Не лучше ли когда в Фастрепорт будут передаваться только те результаты, которые отсортированы и отображаются в Гриде?

1. Если добавить компонент в список компонентов участвующих в поиске, а потом открыть дизайнер Фастрепорта, в чистом отчете новый компонент появится среди Variables, а вот в сохраненном - нет.
2. Если изображение невозможно передать, тогда передадим путь к нему)  Не найдется ли пример скрипта для Фастрепорта по такому случаю?
UPD 1. Все передается если выбирать сразу шаблон отчета в MVD.
UPD 2. Для отображения изображения в обьекте Picture Фастрепорта достаточно вписать в параметр FileLink имя компонента из списка Variables содержащий путь к файлу и заключить его в квадратные скобки [Edit1]
Все прекрасно работает

К сожалению, скриншот оказался непригоден к использованию - мелкие детали изображения теряются при печати. При использовании Фаст репорта столкнулся с некоторыми сложностями. Во первых - компонент Мемо (если он непривязан к базе данных) при включении в список компонентов участвующих в поиске при попытке создания отчета вызывает ошибку. Во вторых - не получается включить в компоненты участвующие в поиске компонент Image. Возможно ли скриптом очищать отображаемое изображение в компоненте Image? Благодарю за ответ.

Благодарю за ответ.
Действительно, так проще.
Есть один момент - значение записывается, но не считывается (не возвращает значение).
И интересует вопрос - а возможно ли через переменную задавать в какой TableGrid выводить результаты поиска?

SELECT
Zamovlennya.id 

FROM                                            
Zamovlennya

LEFT OUTER JOIN Koshtu ON Zamovlennya.id_klient = Koshtu.id_klient 
LEFT OUTER JOIN Klient ON Zamovlennya.id_klient = Klient.id

WHERE
((SELECT SUM (Zamovlennya.zamovlvartist) FROM Zamovlennya WHERE Zamovlennya.id_klient = Klient.id AND Zamovlennya.zamovldovge = 0)
+(SELECT SUM (Zamovlennya.zamovlmaket) FROM Zamovlennya WHERE Zamovlennya.id_klient = Klient.id AND Zamovlennya.zamovldovge = 0)
-(SELECT SUM (Koshtu.koshtusyma) FROM Koshtu WHERE Koshtu.id_klient = Klient.id)>0) 

GROUP BY Klient.id 

Подзапросы таки мощь)))