экспорт из FRF в FR3

denisww

кто может поделится инфо как точно экспортировать из FR2 в FR3
проблемма - координаты у обьектов ползут

AlexTZ

Координаты немного ползут, т.к. в 2.х лист отчета был "заужен". Конвертер это учитывает.

denisww

А возможно ли это исправить
обьекты даже из бэндов вываливаются

Markus

Free bands placement в настройках включено?

Yatcenko

Проблема конвертации FR 2.44 -> 3

- Этот тип отсутструет (переименован) в FR3 TfrxDBLookupControl - TfrxDBLookupComboBox
- Параметры IBX SQL-запросов - не переносятся. Вместо списка параметров - виден только один.
- Столбцы кросс-отчета не переносятся.
- Стоит автоматически отбросить все вхождения "DialogForm."
- ...


Для frxMemo.Memo.Text имеет смысл выполнить следующие замены:

s:=frxMemo.Memo.Text;
s:=StringReplace(s,'[DialogForm.','[<',[rfReplaceAll,rfIgnoreCase]);
s:=StringReplace(s,'"]','">]',[rfReplaceAll,rfIgnoreCase]);
s:=StringReplace(s,'if(','IIF(',[rfReplaceAll,rfIgnoreCase]);
s:=ClearQuot(frxMemo.Memo.Text);
frxMemo.Memo.Text:=s;

  function ClearQuot(s:string):string;
  var i,l:integer;
    qu:boolean;
  Begin
    result:=s;
    l:=0;
    qu:=false;
    for i:=length(result) downto 1 do Begin
      if result[i]=#39 then qu:=NOT qu;
      if qu then continue;
      if result[i]=']' then Begin
        inc(l);
        if l>1 then result[i]:=' ';
      End;
      if result[i]='[' then Begin
        dec(l);
        if l>0 then result[i]:=' ';
      End;
    End;
  End;

Для параметров SQL-запроса:

                if pos('[',paramvalue)=0 then
                  frxIBQuery.Params[k].Value:=paramvalue
                else Begin
                  paramvalue:=StringReplace(paramvalue,'[DialogForm.','[<',[rfReplaceAll,rfIgnoreCase]);
                  paramvalue:=StringReplace(paramvalue,'"]','">]',[rfReplaceAll,rfIgnoreCase]);
                  paramvalue:=StringReplace(paramvalue,'if(','IIF(',[rfReplaceAll,rfIgnoreCase]);
                  paramvalue:=StringReplace(paramvalue,'[','',[rfReplaceAll,rfIgnoreCase]);
                  paramvalue:=StringReplace(paramvalue,']','',[rfReplaceAll,rfIgnoreCase]);
                  if pos('.DATE',UpperCase(paramvalue))>0 then
                    paramvalue:='DateToStr('+paramvalue+')';
                  frxIBQuery.Params[k].Expression:=paramvalue;
                  frxIBQuery.Params[k].DataType:=ftString;

P.S. Ойчень хочется поковырять исходники конвертера...