Сторнирование накладной в заказе на продажу

[yahenz]

Всем привет! С аксаптой знаком недавно, так что не судите строго.

Вопрос в следующем:

Мне нужно сторнировать накладную в журнале накладных (форма CustInvoiceJournal).
Для этого у меня есть соответсвующая кнопка на форме. Когда пользователь её нажимает, то делаются некоторые проверки на возможность сторнирования, типа: существует ли заказ на продажу для выбранной накладной (таблица SalesTable по полю SalesId) и т.п.
С проверками разобрался. После них, если все в порядке, необходимо выполнить проведение сторнирующей накладной автоматически, воспроизведя стандартный алгоритм разноски как на форме "Разноска накладной" (форма SalesTable "Заказ на продажу" -> кнопка "Разноска" -> "Накладная" -> открывается форма SalesEditLines). После разноски создается накладная в таблице CustInvoiceJour.
Для разноски накладной стандартным функционалом используется класс SalesFormLetter.

Таким образом мне нужно сделать наоброт: у меня есть выбранная накладная CustInvoiceJour, по ней я нахожу заказ на продажу SalesTable, и для найденного заказа делается разноска накладной еще раз (для сторнирования).
Дак вот, как это сделать программно? Вызвать класс SalesFormLetter, что бы он отработал не выводя на экран форму "Разноска накладной". Имея курсор заказа на продажу:

salesTable = SalesTable::find(custInvoiceJour.SalesId);

Делал примерно так:

Args args = new Args();
Args formArgs = new Args();
Object objForm;
;
//Проверки...
formArgs.name(formstr(SalesTable));
objForm = ClassFactory.FormRunClass(formArgs);

args.caller(objForm);
args.record(SalesTable::find(custInvoiceJour.SalesId));
args.parmEnum(DocumentStatus::Invoice);

SalesFormLetter::main(args);

Заранее благодарю!

[Maxim Gorbunov]

Example: Posting an Invoice

static void createInvoice(SalesTable _salesTable)
{
    SalesFormLetter salesFormLetter;
    ;
    salesFormLetter =
        SalesFormLetter::construct(DocumentStatus::Invoice);
    salesFormLetter.update(
        _salesTable, //SalesTable record to be posted
        systemDateGet(), //Transaction date
        SalesUpdate::All, //Which qty should be used
        AccountOrder::None,
        NoYes::No, //Is document a proforma
        NoYes::No); //Should document be printed
}

[Ace of Database]

Чтобы сделать полное сторно программным образом, надо пробежаться по всем строкам заказа, присвоить полям SalesDeliverNow и InventDeliverNow значения из сторнируемой накладной с минусом.
Далее выполнить код, приведенный Максимом Горбуновым, заменив параметр SalesUpdate::All на SalesUpdate::\DeliverNow.

[Maxim Gorbunov]

Кроме того, не стоит забывать про накладные расходы. А также про таблички CustVendCreditInvoicing*, в которых создаются записи для сопоставления накладных с кредит-нотами. А также про сопоставление клиентских проводок по накладной и по кредит-ноте.

Вообще, мне не очень нравится сторнировать накладные через немедленное получение (походите поиском по форуму, чтобы предысторию узнать). Я бы лучше делал через копирование заказа и разноску.

Посмотрите, как выполняется создание кредит-ноты из заказа на продажу (кнопка Функции/Создать кредит-ноту). Разделите свою задачу на две: (1) создание кредит-ноты и (2) автоматическая разноска созданной кредит-ноты.

Такая задача немного сложнее для начинающего, но зато опыта наберётесь.

Удачи.

[vanokh]

Цитата:

Сообщение от Maxim Gorbunov

А также про таблички CustVendCreditInvoicing*, в которых создаются записи для сопоставления накладных с кредит-нотами.

А когда создаются записи в этих табличках? В описании используемого конфигурационного ключа указано, что это функционал Испании и Швеции Хоть мы и не в Испании, но этот ключ задействован, а записи в указанных таблицах отсутствуют...

[Maxim Gorbunov]

Цитата:

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

А когда создаются записи в этих табличках? В описании используемого конфигурационного ключа указано, что это функционал Испании и Швеции Хоть мы и не в Испании, но этот ключ задействован, а записи в указанных таблицах отсутствуют...

Испания и Швеция в описании возникли, видимо, потому что изначально эту функциональность придумали там. Если судить по расположению в дереве ключей, то относится Credit invoicing к Multiple countries/regions. По сути, идея функционала в том, чтобы отслеживать связь между кредит-нотой и оригинальной накладной, и печатать номера сторнированных накладных в кредит-ноте. Кроме того, связанные кредит-ноты можно найти из списка проводок по клиенту. Это в стандартном приложении, а уж как Вы будете использовать эту табличку, дело Ваше (но для репортинга она действительно иногда достаточно удобна).

В CustVendCreditInvoicingTable записи создаются при копировании строк заказа из накладной (см. SalesCopying.copy() и SalesCopying.setRefCustVendCreditInvoicingTable()). С точки зрения пользователя это происходит в тот момент, когда выполняется функция "Создать кредит-ноту" в форме Заказы на продажу, либо "Найти заказ на продажу" в форме Заказы на возврат. Потом, при разноске заказа (или возврата), создаются записи в CustVendCreditInvoicingJour (см. SalesFormLetter_Invoice.writeJournal() и SalesFormLetter_Invoice.writeCreditInvoicingJour()).

Если у Вас нет записей в этих таблицах, то, скорее всего, кредит-ноты в Вашем приложении создаются не с помощью функции "Создать кредит-ноту", а как-то по-другому (может быть, через немедленное получение, например). В принципе, нельзя сказать однозначно, что это неправильно. Просто таким образом Вы лишаете себя некоторых дополнительных возможностей, доступных в стандартном приложении.

[vanokh]

Ага, посмотрел эти методы и стало все понятно - там еще завязано на галочку CreditInvoicing из CustParameters, которая у нас отключена... Кредит-ноты регулярно создаются, а из-за нее в эти таблицы ничего не попадает(
Эх, обнаружить бы раньше - а то сейчас в отчетах приходится кредит-ноты определять по лоту возврата в складских проводках...

[yahenz]

Спасибо всем за помощь! Попробую разобраться.