Mark The Records

Business Central/NAV Developers Forum
1

hi every one

i am try to mark Function but my requirement not reached .let me tell my Requirement .ie in Sales Header i have Dimensions (Project Codes) at the Same as Transfer Order in Look up Dimensions List .But i don’t want all only for Sales Header Document Type= Order this dimensions List only Display.

I wrote Code.but it is Not properly working

DimenValueGRec.RESET;
SalesHeader.RESET;
SalesHeader.SETRANGE(“Document Type”,SalesHeader.“Document Type”::Order);
SalesHeader.SETRANGE(Status,SalesHeader.Status::Released);
IF SalesHeader.FINDSET THEN BEGIN
REPEAT
DimenValueGRec.SETFILTER(“Dimension Code”,’%1’,‘PROJECT’);
DimenValueGRec.SETRANGE(Code,SalesHeader.“Shortcut Dimension 2 Code”);
IF DimenValueGRec.FINDFIRST THEN
DimenValueGRec.MARK(TRUE);
UNTIL SalesHeader.NEXT=0;
DimenValueGRec.MARKEDONLY(TRUE);
MESSAGE(’%1’,DimenValueGRec.COUNT);
IF FORM.RUNMODAL(52001,DimenValueGRec) = ACTION :: LookupOK THEN;
END;

Can any body help me Please

Thanks&Regards

Siva

2

Hi Siva,

Instead of using

DimenValueGRec.SETFILTER(“Dimension Code”,’%1’,‘PROJECT’);
DimenValueGRec.SETRANGE(Code,SalesHeader.“Shortcut Dimension 2 Code”);

use DimenvalueRec.get(Primary Key Field values);

because you are not resetting the DimenValueGRec inside the loop

Thanks

Jerome Marshal.J

3

Just pull them from the Document Dimension table. No need to go through the different Header tables.