procedure TConfBu30_V82.GetVBuyer;
var VBuyer, currentBuyer :Variant;
begin
   VBuyer:=V.Справочники.Организации;  // Где V - 1C Приложение
   currentBuyer:=VBuyer.НайтиПоНаименованию('КонноТрактормаш');
 if  {currentBuyer не найдено} then                             
   begin
     currentBuyer:=VBuyer.СоздатьЭлемент();
     currentBuyer.Наименование:='КонноТрактормаш';
     currentBuyer.Записать;
   end;

procedure TConfBu30_V82.GetVBuyer;
var StringOfDescription: string;
FoundReference, Shops: Variant;
begin
  StringOfDescription := 'КонноТрактормаш';
  Shops := V.Catalogs.Организации;
  FoundReference := Shops.FindByDescription(StringOfDescription);
  If (FoundReference = Shops.EmptyRef)
    Then ShowMessage('There is no ' + StringOfDescription)
    else ShowMessage('There is ' + StringOfDescription);
  exit;

procedure TConfBu30_V82.GetVBuyer;
var StringOfDescription: string;
    ExactMap: boolean;
FoundReference, NewBuyer, Shops, FParent, FOwner : Variant;
begin
try
  ExactMap:=True;
  FoundReference:=UnAssigned;
  FParent:=UnAssigned;
  FOwner:=UnAssigned;
  StringOfDescription := 'Совхоз им. Красной Конницы';
  Shops := V.Catalogs.Организации;

  NewBuyer:=Shops.СоздатьЭлемент();
  NewBuyer.Наименование:=StringOfDescription;
  NewBuyer.Записать;
  ShowMessage(NewBuyer.Наименование);

  If (NewBuyer = V.Catalogs.Организации.EmptyRef())// Вылетает !  текст ошибки: invalid variant operation
    Then ShowMessage('NewBuyer пустой')
    else ShowMessage('NewBuyer полный');  { }

                      //  FindByDescription(<Description>, <ExactMap>, <Parent>, <Owner>)
  FoundReference := Shops.FindByDescription(StringOfDescription, ExactMap, FParent, FOwner);

  ShowMessage(FoundReference.Наименование); //Здесь тоже вылетает текст ошибки: lock conflict during transaction

//  If (FoundReference = V.Catalogs.Организации.EmptyRef)  // вылетает
//  If (FoundReference = Shops.EmptyRef)                   // вылетает
//  If (FoundReference = V.Catalogs.Организации.EmptyRef())  // вылетает
  If (FoundReference = Shops.EmptyRef())                   // вылетает

    Then ShowMessage('There is no ' + StringOfDescription)
    else ShowMessage('There is ' + StringOfDescription);
  exit;

 except on E: Exception do
  showmessage(E.message);
  end; //try

procedure TConfBu30_V82.GetVBuyer;
var StringOfDescription: string;
    Shops, EmptyRef, FoundReference, NewBuyer: OLEVariant;
begin
 try
   Shops    := V.Catalogs.Организации;
   EmptyRef := V.Catalogs.Организации.EmptyRef();
   StringOfDescription := 'с/з Красный путь';
                      //  FindByDescription(<Description>, <ExactMap>, <Parent>, <Owner>)
  FoundReference := Shops.FindByDescription(StringOfDescription, True, EmptyRef, EmptyRef);
  if FoundReference.Пустая()
    then begin
           NewBuyer:=Shops.СоздатьЭлемент();
           NewBuyer.Наименование:=StringOfDescription;
           NewBuyer.Записать;
         end
    else begin
           ShowMessage('There is ' + StringOfDescription);
         end;
  exit;
 except on E: Exception do showmessage(E.message);
  end; //try
end;