Программное создание журнала платежей покупателю

[belugin]

Как корректно прогрммно создать журнал платежей поставщику. Пока я вижу что LedgerJournalEngine кое-где испольуется без формы, а вот LedgerJournalEngine_CustPayment уже нет - и нельзя это сделать. Таким образом, бизнес логика тесно связана с формой. Делал ли кто-нибудь такое?

[RVS]

А вот так?

 
FormRun fr;
;
fr = classFactory::formRunClassOnClient(new Args('MyForm'));
fr.init();
fr.design().visible(false);
fr.run();
fr.wait();
//
// Использование методов формы
// 
fr.close();

[mazzy]

Цитата:

Сообщение от belugin

Как корректно прогрммно создать журнал платежей поставщику. Пока я вижу что LedgerJournalEngine кое-где испольуется без формы, а вот LedgerJournalEngine_CustPayment уже нет - и нельзя это сделать. Таким образом, бизнес логика тесно связана с формой. Делал ли кто-нибудь такое?

Эм... так кому платежи? поставщику или покупателю?
Чем не устраивает подход, изложенный в TutorialLedgerVoucher?
Здесь было несколько обсуждений - ссылки внизу страницы. Что-то не так?

[belugin]

Цитата:

Сообщение от mazzy

Эм... так кому платежи? поставщику или покупателю?

и тому и другому.

Цитата:

Сообщение от mazzy

Чем не устраивает подход, изложенный в TutorialLedgerVoucher?
Здесь было несколько обсуждений - ссылки внизу страницы. Что-то не так?

в TutorialLedgerVoucher не вижу создание журнала платежей вообще.

Проблема в том, чтобы корректно установить значения всех атрибутов строки журнала.

вот например, что есть на форме:
\Forms\LedgerJournalTransCustPaym\Data Sources\LedgerJournalTrans\Fields\AccountNum\Methods\modified

void modified()
{

    super();
    debCredProposal = ledgerJournalEngine.accountModified(ledgerJournalTrans);
    element.setDebCredProposal(false);
    ledgerJournalEngine.initCustPostingProfile(ledgerJournalTrans);

    element.RContractDebitUpdate();
    element.setButtonAccess();
}

дальше можно посмотреть на вызываемый методы LedgerJournalEngine, чтобы увидить сколько там разной интересной логики. Не хотелось бы всю ее переписывать.

По ссылкам внизху страницы ничего полезного не нашел.

[Jabberwocky]

Вот пример кода программного создания журнала:

void createIncomingJournal()
{

LedgerJournalNameId incomingName;
LedgerJournalTable incomingJournal;

ledgerJournalTrans incomingTrans;
ledgerJournalTrans ledgerJournalTrans;

LedgerJournalEngine ljeIn;
LedgerJournalEngine ledgerJournalEngine;

NumberSeq numSeq;
ProjTable projTable;
RContractTable rct;
RContractPartnerType rctType;

;

ttsbegin;
select forupdate incomingJournal;
incomingJournal.clear();
incomingJournal.initValue();
incomingJournal.JournalName=incomingName;
incomingJournal.insert();

// Такие вещи позволяет делать только BMLedgerJournalEngine, но не LedgerJournalEngine
ljeIn = new BMLedgerJournalEngine(null);
ljeIn.newJournalActive(incomingJournal);

if(ljeIn)
{
//Строки журнала - исходые данные в таблице, скажем, lines
while select lines
    {
        ledgerJournalTrans=incomingTrans;
        ledgerJournalEngine=ljeIn;
        select forupdate ledgerJournalTrans;
        ledgerJournalTrans.clear();

        ledgerJournalTrans.TransDate=lines.PaymDate;
        ledgerJournalTrans.currencyCode=lines.CurrencyID;
        ledgerJournalTrans.ExchRate=lines.ExchRate;

        ledgerJournalTrans.initValue();
        ledgerJournalTrans.JournalNum=incomingJournal.JournalNum;
        ledgerJournalEngine.numberSeqFormHandlerJournal().parmLedgerJournalTrans(ledgerJournalTrans);
        ledgerJournalEngine.formMethodDataSourceCreatePost();
        ledgerJournalEngine.initValue(ledgerJournalTrans);
    // Fill data

        ledgerJournalTrans.TransDate=lines.PaymDate;
        ledgerJournalTrans.currencyCode=lines.CurrencyID;
        ledgerJournalTrans.ExchRate=lines.ExchRate;

        ledgerJournalTrans.accountType=lines.AccountType;
        ledgerJournalTrans.AccountNum=lines.Account;
        ledgerJournalTrans.offsetAccountType=lines.offsetAccountType;
        ledgerJournalTrans.OffsetAccount=lines.offsetAccount;

        if(AmountDebit)
            ledgerJournalTrans.AmountCurDebit=lines.AmountDebit;
        else if(AmountCredit)
            ledgerJournalTrans.AmountCurCredit=lines.AmountCredit;

        ledgerJournalTrans.Txt=lines.TransTxt;
        ledgerJournalTrans.DocumentNum=lines.DocumentNum;
        ledgerJournalTrans.DocumentDate=lines.PaymDate;

    // uhh. Validate and write
        ledgerJournalTrans.validateWrite();
        ledgerJournalEngine.preWrite(ledgerJournalTrans);
        ledgerJournalEngine.formMethodDataSourceWritePre();
        ledgerJournalTrans.write();
        ledgerJournalEngine.write(ledgerJournalTrans);
    }//while select lines
}// if(ljeIn)
ttscommit;
if(ljeIn)
    info(strfmt("Создан журнал входящих платежей %1", incomingJournal.JournalNum));
}

[belugin]

это понятно, есть еще, кстати \Classes\BMblock_CostJournalCreate\createJournals где используется LedgerJournalEngine напрямую.

Но тогда не отработает код в LedgerJournalEngine_CustPayment

[mazzy]

Цитата:

Сообщение от belugin

в TutorialLedgerVoucher не вижу создание журнала платежей вообще.

А... извини, протормозил.

Главное меню \ Главная книга \ Журналы \ Общий журнал \ Строки \ Функции \ Импорт выписки по счету *

Метод импорта настраивается здесь: Главное меню \ Главная книга \ Настройки \ Журналы \ Метод импорта выписки по счету.

Посмотри как там сделано.
Если работать напрямую с базой, то все очень просто.

В ledgerJournalEngine не смотри.
Насколько я помню, он сложный для того, чтобы корректно работать с многострочными проводками (изменение даты, контроль сальдо, контроль коррсчета, контроль одобрения и т.п.), а также чтобы корректно отображать сальдо по журналу и ваучеру в верхней части журнала.
Не бери в голову.

[glibs]

Цитата:

Сообщение от belugin

...
Пока я вижу что LedgerJournalEngine кое-где испольуется без формы, а вот LedgerJournalEngine_CustPayment уже нет - и нельзя это сделать.
...

Меня в свое время приучили пользоваться этим классом, и с тех пор я с ним не расстаюсь.

Пока я обходился тем, что инициализировал класс от LedgerJournalEngine, а не от LedgerJournalEngine_CustPayment.

А вообще он стал "нерабочим" без формы только в локализованной версии, если вы заметили. Буржуи всегда пишут что-то вроде

if (ledgerJournalTrans_ds)
ledgerJournalTrans_ds.refresh();

а локализаторам до этого дела нет.

Можете попробовать поправить класс в буржуйском стиле.

PS. А вообще, IMHO, вы на правильном пути.

[belugin]

>>>PS. А вообще, IMHO, вы на правильном пути.

я пока сделал ручками некую неполную имитацию и жду пока консультант посмотрит.

Я почти был готов на следующий наворот и частично его реализовал:
1. сделать джоб, который делает класс из методов modified датасурса формы (там тоже часть логики)
2. сделать так чтобы LedgerJournalEngine_CustPayment обращался к методам этого класса, если он установлен, а не к форме.

Но там много еще всякого - работа с зависимыми датасурсами и прочее, причем 80% (правило пареты) в данных конкретных условиях никому не понадобится

[mau]

Цитата:

Сообщение от belugin

>>> я пока сделал ручками некую неполную имитацию и жду пока консультант посмотрит.

У нас при импорте из клиент-банка тоже был сделана "неполная имитпция". Через полгода спохватились - при импорте не отрабатывает половина необходимого функционала, реализованная позже. Сейчас переделываем на LedgerJournalEngine.

[belugin]

И как успехи?

А функционал, разработанный позже, знает о том, что он работает без интерфейса пользователя? Например, что ему нельзя задвать вопросы.

[mau]

По счасливой случайности, он не обращается к пользователю - перекрыта/дополнена функциональность инициализации зависимых полей.
По счастливой случайности, имопрт проходит через общий журнал ГК.
Так что фатальных проблем нет.