CLEAR ALL  
  PUBLIC goV77, goTovar, goKlient, m.baza  
  m.baza= "c:\progra~1 \1cv77\fox"  
    
  goV77 = CREATEOBJECT('V77.Application') && Создаем объект и получаем ссылку на него  
  IF TYPE( "goV77" )# "O"   
  	WAIT WINDOW  "! Не удалось создать Объект 1С"  NOWAIT  
  	CANCEL  
  ENDIF  
  =goV77.Initialize(goV77.RMTrade, '/D' +m.baza+' /M', '') && Открытие базы данных  
    
  goTovar =goV77.EvalExpr('CreateObject("Reference.Номенклатура")') && Ссылка на справочник номенклатуры  
    
  goKlient=goV77.EvalExpr('CreateObject("Reference.Контрагенты")') && Ссылка на справочник контрагентов  
    
  WITH goTovar && Заполнение номенклатуры  
  	.НоваяГруппа()  
  	.Наименование =  "Моя новая группа товаров"   
  	.Записать()  
  	.ИспользоватьРодителя(.ТекущийЭлемент)  
  	FOR I= 1  TO  3   
  		.new() && Новая запись  
  		.Наименование =  "Мой товар "  + STR(I)  
  		.Цена =  10  + I  
  		.Себестоимость =  9  + I  
  		.Записать()  
  	ENDFOR  
  ENDWITH  
    
  WITH goKlient && Заполнение клиентуры  
  	FOR I= 1  TO  3   
  		.new() && Новая запись  
  		.ИНН =  "1234567890 " + ALLTRIM(STR(I))  
  		.Наименование =  "Мой Клиент "  + STR(I)  
  		.ПолнНаименование =  "Мой Клиент (полностью)"  + STR(I)  
  		.Записать()  
  	ENDFOR  
  ENDWITH  
    
  RELEASE goTovar, goKlient, goV77  && Выгрузка объектов  
 *******************************************************  
 *************** После выгрузки 1С *********************  
  CLOSE ALL  
  SET DEFAULT TO (m.Baza)  
  SELECT  0   
 ** Все же выгрузка занимает некоторое время ...  
 ** Нужно проверять освобождение 1С перед попыткой открытия ее таблиц  
  PUBLIC m.N_ACCESS  
  m.n_ACCESS= 0   
  ON ERROR DO Oshibki WITH ERROR()  
    
  USE SC656 && Таблица Номенклатура - проставляю тип= "Товар"  и ЕдИзм= "шт"   
  REPLACE ALL ;  
  	sp3804 WITH  "   2XJ" , ;  
  	sp2826 WITH  "     G"  ;  
  	FOR IsFolder# 1  NOOPTIMIZE && Эти коды определял экспериментально, что не есть хорошо !!  
  USE IN SC456  
    
  USE SC488 && Таблица Клиентура - проставляю тип= "Организация"   
  REPLACE ALL ;  
  	sp489 WITH  "    DI"  NOOP  
    
  CLOSE ALL  
  ON ERROR  
    
 ** После обработки справочников снова открываем 1С для создания операций  
  PUBLIC goV77, goDOC  
  goV77 = CREATEOBJECT('V77.Application') && Создаем объект и получаем ссылку на него  
  IF TYPE( "goV77" )# "O"   
  	WAIT WINDOW  "! Не удалось создать Объект 1С"  NOWAIT  
  	CANCEL  
  ENDIF  
  =goV77.Initialize(goV77.RMTrade, '/D' +m.baza+' /M', '') && Открытие базы данных  
  goDOC=goV77.EvalExpr('CreateObject("Документ.ПоступлениеТоваров")') && Создаем ПН  
  WITH goDoc  
  	FOR m.i= 1  TO  3   
  		.New()  
  		.DocNum= "ПН" +ALLTRIM(STR(m.i))  
  		.DocDate=DATE()- 30 +m.i  
 		**.Контрагент= "00000 "+ALLTRIM(STR(m.i)) && Эти варианты явно не катят  
 		**.Контрагент=PADL(ALLTRIM(STR(m.i)), 6 ) &&   
  		FOR m.k= 1  TO  3  && по  3  записи в каждой накладной  
  			.NewLine()  
 			**.Товар= "00000 "+ALLTRIM(STR( 4 +m.i)) && То же самое  
 			**.Товар=PADL(ALLTRIM(STR(m.i+ 4 )), 6 )  
  			.Количество= 10 *m.i  
  			.Цена=m.i  
  			.Сумма=.Количество*.Цена  
  			.Всего=.Количество*.Цена  
  			.НДС=ROUND(.Сумма* 18 /( 100 + 18 ), 2 ) && НДС в том числе  
  		NEXT  
  		.Write()   
  	NEXT  
  ENDWITH  
    
  RELEASE goDOC, goV77  && Выгрузка объектов  
 *******************************************  
    
  PROCEDURE OSHIBKI  
 	******************************************  
  	LPARAMETERS m.merror  
    
  	DO CASE  
    
  		CASE m.merror= 1705  OR m.merror= 109  OR m.merror= 111  OR m.merror= 108  OR m.merror= 101  && OR m.merror= 3   
 			** Проблемы при открытии и записи в таблицы  
  			m.N_ACCESS=m.n_ACCESS+ 1   
  			WAIT WINDOW  ".. Ожидание освобождения таблицы .. " +STR(m.n_ACCESS)+ "%"  TIMEOUT  0 . 1   
  			IF m.N_ACCESS< 100   
  				RETRY  
  			ELSE  
  				WAIT WINDOW  ".. Продолжение работы невозможно .. Файл заблокирован .."  NOWA  
  				CANCEL  
  			ENDIF  
  	ENDCASE