База DBF. Необходимо не залазея в 1с создать новый документ. Не подчинен и подчиненных не имеет. При создании документа 1с'кой filemon показал, что изменяются файлы: 1SJOURN.DBF, DH776.DBF (документ), DT776.DBF (его табличная часть), 1SUIDCTL.DBF (толком не понял, что это), 1SDNLOCK.DBF (толком не понял, что это). Ну и сооветственно их индексные файлы.
Тестирую работу запросов внутри 1с. Делаю так:
1) Получаю ID последнего документа и его номер

стрЗапрос="
	|SELECT
	|  journal.iddoc as MAXID,
	|  journal.docno as MAXDOCNO
	|FROM
	|  1sjourn as journal
	|WHERE
	|  journal.iddoc = (SELECT max(temp_journal.iddoc) FROM 1sjourn as temp_journal)
	|"; 

Далее ID из 36 в 10, инкремент, обратно в 36. А Номер документа просто инкрементирую. Добавлюя запись в журнал:

стрЗапрос = "
	|INSERT INTO
	|  1sjourn SED,ISMARK,ACTCNT,VERSTAMP,DS1019)
	|VALUES   O,0,:ISMARK,:ACTCNT,:VERSTAMP,0)
	|"; 

Добавляю запись в таблицу документов:

стрЗапрос = "
	|INSERT INTO
	|  DH776 (IDDOC,SP770,SP826)
	|VALUES  (:IDDOC,:SP770,'')
	|"; 

Добавляю записи в таблицу табличной части документа циклом:

стрЗапрос = "
		|INSERT INTO
		|  DT776 (IDDOC,LINENO,SP771,SP958)
		|VALUES  (:IDDOC,:LINENO,:SP771,0)
		|"; 

Если выполнить пару раз, вроде все нормально. Если раз 100, то в полном журнале документов пустота, в журнале именно этого документа записи есть, но в этих документах табличная часть пуста.
Удаляю индексные файлы 1SJOURN.CDX, DH776.CDX, DT776.CDX. Захожу монопольно - восстанавливаю их. Записи везде появляются.

И так, вопрос: что я забыл сделать или делаю не так?
Читал про "не забудьте про блокировки и транзакции". Но не нашел каким образом про них не забыть.

leshik писал(а) 30. Октября 2008 :: 05:40:

пожалуйста:

Соединение = "
	|   Provider=VFPOLEDB.1;
	|   SET Deleted=Yes;
	|   SourceType=DBF;
	|   Null=Yes;
	|   Exclusive=No;
	|   Data Source=" + КаталогИБ()+ ";
	|   Mode=ReadWrite;
	|   Extended Properties="";
	|   User ID="";
	|   Password="";
	|   Mask Password=False;
	|   Collating Sequence=RUSSIAN;
	|   DSN=""
	|"; 

1SDNLOCK.DBF - хранение зарезервированных номеров документов, кодов справочников.
т.е. когда создаешь документ/элемент справочника при включенной автонумерации появляется новый номердок/код. он вычисляется по приницу - макс(изЖурналаДокументов/Справочника,1SDNLOCK.DBF-по данному виду метаданных)

>>1SUIDCTL.DBF (толком не понял, что это)

Вот оттуда и нужно получать последний IDDOC (в записи где тип нулевой)
И туда же записывать новый!!!

ЗЫ. Ой, шо то мне сцыкотно как-то....

Изменил определение последнего ID документа на:

стрЗапрос="
	|SELECT
	| jouruid.MaxID as LASTID
	|FROM
	| 1SUIDCTL as jouruid
	|WHERE
	| jouruid.TypeID = '   0'
	|"; 

А определение номера последнего документа на:

стрЗапрос="
	|SELECT
	|  max(mdocno) as LASTDOCNO
	|FROM
	|(
	|  SELECT max(docno) as mdocno FROM 1sjourn as journal WHERE journal.dnprefix = '       776        '
	|    UNION
	|  SELECT max(docno) as mdocno FROM 1sdnlock as curdoc WHERE curdoc.dnprefix = '       776        '
	|) as uniontables
	|"; 

Соответственно, после получения нового ID обновляю:

стрЗапрос="
	|UPDATE
	|  1SUIDCTL
	|SET
	|  MaxID = :IDDOC
	|WHERE
	|  TypeID = '   0'
	|"; 

Поменял в строке подключения на MACHINE. Не помогло, все равно приходится грохать индексные файлы.

Как то подозрительно мало
Цитата:

что, 2 реквизита в шапке? Часом не пропускаешь ?
Поставь

|   Null=No; 

для проверки

Заметил один косяк в запросе на добавление записи в журнал:

стрЗапрос = "
	|INSERT INTO
	|  1sjourn SED,ISMARK,ACTCNT,VERSTAMP,DS1019)
	|VALUES   O,0,:ISMARK,:ACTCNT,:VERSTAMP,0)
	|"; 

Я дважды обновляю IDDOCDEF и DNPREFIX и того вместо 13 параметров, обновляю 15. Как-то я наляпал, но не думал, что Фокс такое пропустит.
К сожалению, исправление не помогло...

kiruha писал(а) 01. Ноября 2008 :: 07:51:
Я так понял, вы имеете ввиду не жур.id, а жур.IDDOC

1 - скачал, установил
2 - закомментировал
3 - документ находит
Результат тот же, увы. Буду добавлять документ через COM...