Hiding Child Band based on Memo field contents set from Delphi

Comments

• Marius

  February 2013 edited 8:13AM

  I don't know if this is the correct way to do it, but this seems to be working for me.
  
  From within my Delphi code, I use this:
  

    if length(qryFetchHeader.FieldByName('E_CUSTOMERNAME').AsString)>0 then
      begin
        frxReportSlip.FindObject('Child2').Visible := True;
        t := TfrxMemoView(frxReportSlip.FindObject('lblCustomerName'));
        if t <> nil then
          t.Memo.Text := (qryFetchHeader.FieldByName('E_CUSTOMERNAME').AsString);
        t := TfrxMemoView(frxReportSlip.FindObject('lblCustomerVATNo'));
        if t <> nil then
          t.Memo.Text := (qryFetchHeader.FieldByName('E_VATNumber').AsString);
      end
    else
      begin
        frxReportSlip.FindObject('Child2').Visible := False;
      end;
  

  
  Any comments?
  
• Petter S.

  February 2013 edited 8:13AM

  Marius wrote: »

  I have tried this code on the OBP event in the Fast Report Script, but this does not print anything under any condition.
  

    if length(lblCustomerName.value)<1 then           
      begin
        Child2.Visible := False;
        Child2.Height  := 0.00;                                                            
      end
    else
      begin
        Child2.Visible := True;
        Child2.Height  := 1.13;        
      end;
  

  
  I would try:
  

    if length(trim(lblCustomerName.text)) < 1 then           
      begin
        Child2.Visible := False;
  //      Child2.Height  := 0.00;    // not need for this if visible is false                                                        
      end
    else
      begin
        Child2.Visible := True;
  //      Child2.Height  := 1.13;        
      end;
  

  
  As far as I know, the value-property is for use in the OnAfterData of the memo only, and does not contain anything otherwise.
  
  Petter
  
• Mick.pl

  February 2013 edited 8:13AM

  Maybe you could follow that
  
  Child2.Visible := Trim(lblCustomerName.text) <> ''
  
  and that code (FR script) should be executed in OBP event of Report Title, eg. before its Child band is analised by FR Engine.
  
  Regards
  Mick
  
  
• gpi

  February 2013 edited 8:13AM

  Try Child2.Visible := Trim(<YourDatasetName."YourFieldName">) <> ''
  or Child2.Visible := Trim(Report.Calc(lblCustomerName.text)) <> ''