write !,"Завершение ввода происходит по двойному нажанию на 'Enter' ",!
 for {
 	read !,"Введите имя сотрудника: ",Name
 	quit:Name=""
 	read !,"Введите название компании: ",CompanyName
 	quit:CompanyName=""
 	read !,"Введите должность: ",Post
 	quit:Post=""
 	if (Post="Manager"){
	 	set NewWm=##class(User.Manager).%New()
	 	set NewWm.HireDate=$ZDateTime($Horolog,3)
 	}else{
	 	set NewWm=##class(User.Worker).%New()
 	}
 	set NewWm.WorkerName=Name
 	set NewWm.WorkerPost=Post
 	set rset=##class(%ResultSet).%New("%DynamicQuery:SQL")
 	Do rset.Prepare("SELECT ID FROM SQLUser.Organization WHERE Name='"_CompanyName_"'")
 	Do rset.Execute()
 	if 'rset.Next(){
	 	read !, "Введите город, в котором находится компания ", City
	 	read !, "Введите улицу, на которой находится компания ", Street
	 	do {
 			read !, "Введите дом-корпус-квартиру, где находится компания ", Numbers
 		} while ('(Numbers? .N1"-".N1"-".N))
 		set Company=##class(User.Organization).CreateOrganization(CompanyName, City, Street, Numbers)
 	}else{
	 	set CompanyID=rset.Data("ID")
	 	set Company=##class(User.Organization).%OpenId(CompanyID)
 	}
 	set NewWm.WorkerOrganization=Company
 	do NewWm.%Save()
 }