Extension of Navigate function

The standard NAV function Navigate (Page 344) has been extended to include linking to Therefore™ documents.

FindRecord()

Copy

//-TF
IF recTFDocuments.READPERMISSION THEN BEGIN
  recTFDocuments.RESET;
  recTFDocuments.SETCURRENTKEY("Document No.","Document Date");
  recTFDocuments.SETFILTER("Document No.",DocNoFilter);
  recTFDocuments.SETFILTER("Document Date",PostingDateFilter);
  recTFDocuments.SETFILTER("Business Case ID",BusinessCaseFilter);
  InsertIntoDocEntry(
    DATABASE::"Therefore Documents",0,recTFDocuments.TABLECAPTION,recTFDocuments.COUNT);
END;
IF recProcessingJournal.READPERMISSION THEN BEGIN
  recProcessingJournal.RESET;
  recProcessingJournal.SETCURRENTKEY("Document No.","Document Date");
  recProcessingJournal.SETFILTER("Document No.",DocNoFilter);
  recProcessingJournal.SETFILTER("Document Date",PostingDateFilter);
  recProcessingJournal.SETFILTER("Business Case ID",BusinessCaseFilter);
  InsertIntoDocEntry(
    DATABASE::"Processing Journal",0,recProcessingJournal.TABLECAPTION,recProcessingJournal.COUNT);
END;
//+TF

ShowRecords()

Copy

//-TF
      DATABASE::"Therefore Documents":
        PAGE.RUN(0,recTFDocuments);
      DATABASE::"Processing Journal":
        PAGE.RUN(0,recProcessingJournal);
//+TF

FindPush()

Copy

//-TF
IF( BusinessCaseFilter <> '' ) THEN BEGIN
  SetDocNo('');
  SetPostingDate('');
  TF_FindRecords();
  EXIT;
END;
//+TF