RecRef and FieldRef

      UpdateBuffer.SETRANGE("Primary Key",TRUE);
      IF NOT UpdateBuffer.FINDFIRST THEN
        ERROR(STRSUBSTNO('No primary keys found for table %1.',UpdateBuffer."Table No."));

      RecRef.OPEN(UpdateBuffer."Table No.",FALSE,COMPANYNAME);
      RecRef.INIT;

      REPEAT
        FieldRef := RecRef.FIELD(UpdateBuffer."Field No.");
        EVALUATE("Var",UpdateBuffer."Field Value");
        FieldRef.VALIDATE("Var");
      UNTIL UpdateBuffer.NEXT = 0;

      UpdateBuffer.SETRANGE("Primary Key",FALSE);

      IF UpdateBuffer.FINDFIRST THEN REPEAT
        //now get each field ref and set the value accordingly
        FieldRef := RecRef.FIELD(UpdateBuffer."Field No.");
        EVALUATE("Var",UpdateBuffer."Field Value");
        FieldRef.VALIDATE("Var");
      UNTIL UpdateBuffer.NEXT = 0;

      //call a modify here on the rec ref
      RecRef.INSERT(TRUE);
      RecRef.CLOSE;