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

Комментарии

• AlexTZ

  February 2005 отредактировано 08:07

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

  February 2005 отредактировано 08:07

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

  February 2005 отредактировано 08:07

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

  February 2005 отредактировано 08:07

  Проблема конвертации 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. Ойчень хочется поковырять исходники конвертера...