Copy Filterfields in a Report to another dataitem

ReSpongebob

Hi,

I would like to copy the filterfields of a dataitem in a report to another dataitem in order to prevent users having to insert the same filter multiple times for each dataitem.

I've tried to use COPYFILTERS, but that's not possible, because I have different records. The error-message indicated that I had to copy the filters one by one.

My problem is that I don't know what filterfields will be filled by the user. I also don't know how many filterfields will be entered.

Is it possible to "loop" through all the filters, and copy them one by one? :-k

Marije_Brummel

No, I don't think there is such a thing. Just copy the filters field by field.

You might be able to do something with RecordRef and FieldRef, but then copying one by one is easier.

ReSpongebob

Thanks for the quick reply.
But I'm not that experienced in programming C/AL.

How can I copy the filters one by one, if I don't know the fieldnames of the filters in advance? I also don't know how many filters there will be... :?

Marije_Brummel

IF Rec1.Field1.GETFILTER <> '' then
Rec2.Field1.SETFILTER(Rec1.Field1.GETFILTER);

:shock:

And then for all fields.....

ReSpongebob

I was hoping for another answer...
unfortunately, I fear there is indeed no other option.

Thanks for the solution!

John

Define variable RecRef type RecordRef

RecRef.GETTABLE("Table1");
RecRef.SETVIEW("Table2".GETVIEW);
"Table1".SETVIEW(RecRef.GETVIEW);

In the case where I used it table2 is almost a copy from table1.

Marije_Brummel

John wrote:

Define variable RecRef type RecordRef

RecRef.GETTABLE("Table1");
RecRef.SETVIEW("Table2".GETVIEW);
"Table1".SETVIEW(RecRef.GETVIEW);

In the case where I used it table2 is almost a copy from table1.

Yes, this can work if the tables are (almost) identical, just keep in mind that the keys(sorting) are also in the view.

kriki

John wrote:

Define variable RecRef type RecordRef

RecRef.GETTABLE("Table1");
RecRef.SETVIEW("Table2".GETVIEW);
"Table1".SETVIEW(RecRef.GETVIEW);

In the case where I used it table2 is almost a copy from table1.

You can also loop through the fields with a fieldreference and take the filter on each field and apply it on the field in the other table.
[/code]

Karenh

You can also loop through the fields with a fieldreference and take the filter on each field and apply it on the field in the other table.

I need to do this also. I can't figure out how to do it with a "fieldreference".

I would really appreciate some sample code.

kriki

Karenh wrote:

I would really appreciate some sample code.

Sorry it took so long, but I was very busy and hadn't time to see emails with replies.

rerFrom.GETTABLE(recFrom);
rerTo.GETTABLE(recTo);

recField.RESET;
recField.SETCURRENTKEY(TableNo,"No.");
recField.SETRANGE(TableNo,DATABASE::Item);
recField.SETRANGE(Enabled,TRUE);
IF recField.FIND('-') THEN
  REPEAT
    firFrom := rerFrom.FIELD(recField."No.");
    firTo := rerTo.FIELD(recField."No.");

    firTo.SETFILTER(firFrom.GETFILTER);
  UNTIL recField.NEXT = 0;

Dneal

rerFrom.GETTABLE(recFrom); 
rerTo.GETTABLE(recTo); 

recField.RESET; 
recField.SETCURRENTKEY(TableNo,"No."); 
recField.SETRANGE(TableNo,DATABASE::Item); 
recField.SETRANGE(Enabled,TRUE); 
IF recField.FIND('-') THEN 
  REPEAT 
    firFrom := rerFrom.FIELD(recField."No."); 
    firTo := rerTo.FIELD(recField."No."); 

    firTo.SETFILTER(firFrom.GETFILTER); 
  UNTIL recField.NEXT = 0;

I'm trying to use this piece of code since I have the same issue. However I don't understand what some of the variables should be set as. (ie what is recField,rerFrom...?)

Appreciate any help.

Dneal

kriki

recFrom,recTo: some record variable
rerFrom,rerTo : recordreference
recField : record variable of table Field
firFrom,firTo : fieldreference

Dneal

Hi again,

I"m confused on what this code is doing exactly. I thought it was going to loop through all fields in one table and look for filters and put it in the second table.

   recField.SETRANGE(TableNo,DATABASE::Item);

    firFrom := rerFrom.FIELD(recField."No."); 
    firTo := rerTo.FIELD(recField."No.");

But when I look at this I'm assuming I need to fill in the fields myself from each field to each field. Am I missing something? My apologies, I'm not that advanced with Nav programming. :?

Dneal

kriki

I'll put some comments in it:

rerFrom.GETTABLE(recFrom); // put the from-record in a recordreference
rerTo.GETTABLE(recTo); // put the to-record in a recordreference

recField.RESET;
recField.SETCURRENTKEY(TableNo,"No.");
recField.SETRANGE(TableNo,DATABASE::Item);
recField.SETRANGE(Enabled,TRUE);
IF recField.FIND('-') THEN
  REPEAT
    // with the SETRANGE's, the IF - THEN - REPEAT - UNTIL loops through all enabled fields of table Item
    // Each time Navision gets in this place, in recField will be the next field of table Item.
    //   (This you can check with MESSAGE('Fieldno.=%1',recField."No.");

    firFrom := rerFrom.FIELD(recField."No."); // point firFrom to field recField."No." in recordreference rerFrom
    firTo := rerTo.FIELD(recField."No."); // point firTo to field recField."No." in recordreference rerTo

    firTo.SETFILTER(firFrom.GETFILTER); // this takes the filter of firFrom and puts it in firTo
    // the first time Navision gets into the loop, this command would be the same as recFrom.SETFILTER("No.",recTo.GETFILTER("No.");
  UNTIL recField.NEXT = 0;

// this last command must be added to convert recTo with all the filters in it to the record-variable.
rerTo.SETTABLE(recTo);

I hope this makes it clearer.

Dneal

It's starting to make much more sense. May I ask, what do I set recField as? What do I declare it as in globals?

This is what I have done:

rerFrom.GETTABLE("Sales Line");
rerTo.GETTABLE("Sales Invoice Line");

recField.RESET; 
recField.SETCURRENTKEY(TableNo,"No."); 
recField.SETRANGE(TableNo,DATABASE::"Sales Line"); //is this correct?
recField.SETRANGE(Enabled,TRUE); 
IF recField.FIND('-') THEN 
  REPEAT 
    firFrom := rerFrom.FIELD(recField."No."); 
    firTo := rerTo.FIELD(recField."No."); 

    firTo.SETFILTER(firFrom.GETFILTER); 
  UNTIL recField.NEXT = 0;

Thanks again for helping me.

Dneal

kriki

Dneal wrote:

It's starting to make much more sense. May I ask, what do I set recField as? What do I declare it as in globals?

recField is a global record on table "Field".

Dneal

I'm still having issues getting this to work. When I first run it it tells me field 14010 doesn't exists in Sales Line. So I disabled it in the Sales Invoice Line just to get it to run. Of course I will need to put that back, do you know how I get past that error?
Also once I get it to run the filters are not being copied.

These are my dataitems.

DataItem Name
Customer <Customer>
Sales Header <Sales Header>
Sales Line <Sales Line>
Sales Invoice Header <Sales Invoice Header>
Sales Invoice Line <Sales Invoice Line>


I have put the code in the onaftergetrecord of the Sales Invoice Line and then tried it on the OnPreReport. But when I debug I'm not getting the results. When it's in the OnPreReport it just copies blanks. When it's on the OnAfterGetRecord it just sets the fields. Have I put it in the right place? Perhaps this is more advanced then I'm capable of doing.

Dneal

kriki

Try this:

rerFrom.GETTABLE(recFrom);
rerTo.GETTABLE(recTo);

recField.RESET;
recField.SETCURRENTKEY(TableNo,"No.");
recField.SETRANGE(TableNo,DATABASE::Item);
recField.SETRANGE(Enabled,TRUE);
IF recField.FIND('-') THEN
  REPEAT
    IF rerFrom.FIELDEXIST(recField."No.") AND
       rerTo.FIELDEXIST(recField."No.") THEN BEGIN
      firFrom := rerFrom.FIELD(recField."No.");
      firTo := rerTo.FIELD(recField."No.");

      firTo.SETFILTER(firFrom.GETFILTER);
    END;
  UNTIL recField.NEXT = 0;