hi every one
i am new in Nav . my problem is i have Write Code in Field Look Up . My Form is Look up with get Some Value .but Next Time my Form Look Up Goes Last Value in Base it is Wrong
my Code is
MachineSetup.GET();
IF Item.GET(“I/R Code”) THEN;
IF ResourceRec.GET(“I/R Code”) THEN ;
Item.RESET;
ResourceRec.RESET;
IF LineType.GET(“Line Type”) THEN BEGIN
IF LineType.“Spares & Consumables” THEN BEGIN
Item.SETRANGE(Item.“Item Category Code”,MachineSetup.“Item Category Code”);
IF FORM.RUNMODAL(0,Item) = ACTION::LookupOK THEN BEGIN
“I/R Code” := Item.“No.”;
“I/R Description” := Item.Description;
UOM := Item.“Base Unit of Measure”;
“Unit Cost” := Item.“Unit Cost”
END;
END;
IF LineType.Resource THEN BEGIN
//SMY1.0,Begin
IF “Line Type” = ‘RES. EQUIPMENT’ THEN BEGIN
ResourceRec.SETRANGE(ResourceRec.Type,ResourceRec.Type::Machine);
END ELSE BEGIN
//ResourceRec.SETRANGE(ResourceRec.Type,ResourceRec.Type::Person);
MaintSchPart.SETRANGE(“No.”,“Schedule Template ID”);
MaintSchPart.FINDFIRST;
PMResSkill.SETRANGE(“Machine No.”,MaintSchPart.“Machine ID”);
IF PMResSkill.FINDFIRST THEN
REPEAT
ResourceRec.GET(PMResSkill.“No.”);
ResourceRec.MARK(TRUE);
UNTIL PMResSkill.NEXT = 0;
//Skill Type- ALL
Resource.SETRANGE(“Skill Type”,Resource.“Skill Type”::All);
Resource.SETRANGE(Type,Resource.Type::Person);
IF Resource.FINDFIRST THEN
REPEAT
ResourceRec.GET(Resource.“No.”);
ResourceRec.MARK(TRUE);
UNTIL Resource.NEXT = 0;
ResourceRec.MARKEDONLY(TRUE);
END;
//SMY1.0,Begin
IF FORM.RUNMODAL(0,ResourceRec) = ACTION::LookupOK THEN BEGIN
“I/R Code” := ResourceRec.“No.”;
“I/R Description” := ResourceRec.Name;
UOM := ResourceRec.“Base Unit of Measure”;
“Unit Cost” := ResourceRec.“Unit Cost”
END;
END;
END;
any one Help me