anchor.diff:    vDate : TDate;
     curLine : TEditorLine;
     tmpDouble : Double;
  -  errorMessage : String;
  +  errorMessage, RealOldValue : String;
   begin
     NewValue := trim(NewValue);
   
  
positive.code:         NewValue := Uppercase(NewValue);
          if not mISO6346Utility.IsContainerCodeValid(NewValue, errorMessage) then
          begin
            NewValue := OldValue;
            TmToast.ShowText(errorMessage);
          end
          else
  
negative.code:   end;
  
    if Assigned(FOnValidateValueEvent) then
    begin
      FOnValidateValueEvent(Self, curLine.Name, RealOldValue, NewValue, curLine.OldActualValue, curLine.ActualValue, errorMessage);
      if errorMessage <> '' then
        TmToast.ShowText(errorMessage);
    end;
  
  
    if NewValue <> OldValue then
  