Job Promotion Customer - OnLookup(VAR Text : Text[1024];) : Boolean
//Testing
CLEAR(lrecJobPromoCust);
CLEAR(gjffrmJobPromoCust);
lrecJobPromoCust.SETFILTER(lrecJobPromoCust."Job No.", "Job No.");
gjffrmJobPromoCust.SETTABLEVIEW(lrecJobPromoCust);
//gjffrmJobPromoCust.EDITABLE(FALSE);
gjffrmJobPromoCust.LOOKUPMODE(TRUE);
IF gjffrmJobPromoCust.RUNMODAL = ACTION::LookupOK THEN BEGIN
gjffrmJobPromoCust.GETRECORD(lrecJobPromoCust);
VALIDATE("Job Promotion Customer", lrecJobPromoCust."Customer No.");
MODIFY;
END;
CLEAR(lrecJob);
IF lrecJob.GET("Job No.") THEN
IF NOT lrecJob.Promotion THEN
ERROR(ltxt002);
IF (("Job Task Type" <> "Job Task Type"::Posting) OR
("Rebate Type" <> "Rebate Type"::" ")) THEN
ERROR(ltxt001);
IF "Job Promotion Customer" = '' THEN
"Promotion Expense Ship-to Code" := '';
Comments
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav
Filters: Job No.: A001
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav
VALIDATE("Job Promotion Customer", lrecJobPromoCust."Customer No.");
and also setrecord after settableview
Better RESET lrecJobPromoCust before SETFILTER..
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav