[РЕШЕНО] Создать документ программно

[Yvgen]

Суть.
Есть обработка, которая имеет две таблицы.
Услуги и товары.
Необходимо после заполнения таблиц данными, создать два документа и провести их.
Т.е. в коде обработки описать проведение документов (двух), после нажатия одной кнопки.
Возможно ли это?
Это нужно для удобства.

[anton]

Возможно.

[Yvgen]

Возможно.

Есть в чье-то конфигурации такое реализовано?
Или образец кода??

[anton]

Есть в чье-то конфигурации такое реализовано?
Или образец кода??

1. Вынести процедуру проведения в глобальный модуль
2.

Код: Выделить всё

var doc = new Documnet("<Document>");
doc.SetValue("<Attr>", <val>);
....
doc.Update();
....
А теперь вызываем проведение, допустим
gmSignDoc(doc);


по-моему всё просто, пример можно глянуть в АНАPOS, там импорт приходной накладной.

[Yvgen]

Спасибо! Примерно так и представлял.
Эх...

[Yvgen]

Код: Выделить всё

      Msg("Тестовое проведение документа");
      var dr = new Document("Расход");
      dr.New();
      SelectByCurrent(dr); // осуществляем привязку созданного нами документа 
     // dr.setSysValue("DocDate",eDate)
      dr.SetValue("СуммаВВИ",ConvertNumber2MoneyFormat("10"));
            dr.Update();
      dr.SignIn();

      Msg("----");
      Msg("Тест: "+dr.Conduct());

      Msg(dr.IsSignedIn());

Последний Msg (оболочка для sys.Message) - выводит false, документ в журнал добавляется (((
Т.е. все ок, но не проводит его.
Либо я где то пропустил что то... но что...?

[Yvgen]

ANANAS.LOG:

Код: Выделить всё

2010-02-08 11:07:53 DEBUG Вызов устаревшего метода: aForm::show()
2010-02-08 11:07:59 DEBUG Вызван метод aCfg::find(const QString &name)
2010-02-08 11:07:59 DEBUG aCfg::find(const QString &name) выбор типа для 'Document'
2010-02-08 11:07:59 DEBUG aCfg::find(const QString &name) выход
2010-02-08 11:07:59 DEBUG aDatabase: Создание нового уникального номера 4665 для объекта типа 1435
2010-02-08 11:07:59 DEBUG aDataTable new record with id=4665 for meta object with id=1435
2010-02-08 11:07:59 DEBUG aDocument: Тип нового документа = 1435
2010-02-08 11:07:59 DEBUG aDatabase: Создание нового уникального номера 4666 для объекта типа 0
2010-02-08 11:07:59 INFO aDocJournal: Создан новый номер 4 для Расход
2010-02-08 11:07:59 INFO aDocJournal: Новый документ с идентификатором idd=4665
2010-02-08 11:07:59 DEBUG aDocument: Новый документ
2010-02-08 11:07:59 ERROR aDatabase: Получение типа объекта по его уникальному идентификатору id=0
2010-02-08 11:07:59 DEBUG aForm: Результат выполнения SelectByCurrent по идентификатору 0 равен 2
2010-02-08 11:07:59 DEBUG Вызов устаревшего метода  aDocument::IsConduct(...)
2010-02-08 11:07:59 DEBUG Вызов устаревшего метода  aDocument::IsConduct(...)

[Yvgen]

Решено.
Ошибочно был вызван метод:

Код: Выделить всё

    SelectByCurrent(dr);

В данном случае он не нужен.