Разноска накладной

[kalex_a]

Здравствуйте, такой вот вопрос

разношу накладную

purchFormLetter.update(purchTable,
                           "123",
                           systemDateGet(),
                           PurchUpdate::All,
                           AccountOrder::None,
                           NoYes::No,
                           NoYes::No);

все бы хорошо но разносит на всю сумму и количество, а как программно указать количество, типа как в заказе на покупку когда нажимаем "Разноска" ->"Накладная" появляется форма PurchEditLines, на вкладке "Строки" в поле "Обновить" мы можем указать количество и на такое кол-во разнесется накладная, как это можно реализовать программно. Спасибо заранее.

[ZVV]

Можно пойти "сложным" путём, типа как приведено в примере тут и соответсвенно проставить нужные кол-ва в ПурчПармТэйбл.
А можно сделать по другому, проставить немедленные получения на необходимое кол-во в строках закупки и обработать purchFormLetter.update уже с параметром PurchUpdate::ReceiveNow.
Единственный момент - если поля "немедленного получения" могут уже содержать какую-то информацию и её нужно сохранить, то естественно придётся это сделать в каком-нибудь мапе и потом восстановить самому после обработки накладной.

[kalex_a]

Спасибо ZVV, что то я про немедленное получение не сообразил ))

[kalex_a]

    purchFormLetter = PurchFormLetter::construct(DocumentStatus::Invoice);
 
    select * from purchTable
    join purchLine
        where purchTable.PurchId == "10623" && (purchLine.PurchId==purchTable.PurchId);
 
    purchLine = PurchLine::findRecId(purchLine.RecId,true);
    purchLine.PurchReceivedNow=1;
    purchLine.update();
    purchFormLetter.update(purchTable,
                           "777",
                           systemDateGet(),
                           PurchUpdate::ReceiveNow,
                           AccountOrder::None,
                           NoYes::No,
                           NoYes::No);

Почему ругается на кол-во??? ((

[lev]

Цитата:

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

Почему ругается на кол-во??? ((

Нужно сделать обновление поля и разноску в разных транзакциях. Пока транзакция не закрыта, в базе старые данные. А при выполнении разноски, строки ищутся и находят нулевое количество.

[Lemming]

Цитата:

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

Нужно сделать обновление поля и разноску в разных транзакциях. Пока транзакция не закрыта, в базе старые данные.

Эмм..а если не сложно, можно поподробней?

[lev]

Цитата:

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

Эмм..а если не сложно, можно поподробней?

Обновление данных в базе происходит при выполнении команды ttscommit. Если например проапдейтить поле в таблице. и не закрыть транзакцию, то из базы будет выбрана информация с ещё не изменённым полем.

[ZVV]

Цитата:

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

Обновление данных в базе происходит при выполнении команды ttscommit. Если например проапдейтить поле в таблице. и не закрыть транзакцию, то из базы будет выбрана информация с ещё не изменённым полем.

Лев, Вы бы попробовали сначала сами сделать что-то подобное, или хотя бы подумали о том что говорите с точки зрения транзакций реляционной СУБД!
Зачем дезинформировать людей?

Upd: Даже не то что дезинформировать, а просто предлагать делать абсолютно неправильно, в обход всех известных BP, по сути провоцируя на создание кода, приводящего к неконсистентностым данным. Представьте что человек дальше напишет, руководствуясь Вашим таким советом?

Человек получает сообщение "Физически обновляемое количество по складским единицам 'шт' должно быть отлично от нуля.", насколько я понимаю, потому что не указал InventReceivedNow, а указал PurchReceivedNow.

[ZVV]

Цитата:

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

Нужно сделать обновление поля и разноску в разных транзакциях. Пока транзакция не закрыта, в базе старые данные. А при выполнении разноски, строки ищутся и находят нулевое количество.

Ну Вы загнули конечно.

kalex_a
как вариант, а не попробовать ли задать не только
purchLine.PurchReceivedNow=1;
но и
purchLine.InventReceivedNow=1(с учётом пересчёта единиц);

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

[lev]

Цитата:

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

Ну Вы загнули конечно.

Поправьте если не прав

[kalex_a]

Спасибо ZVV, действително с InventReceivedNow помогло.

[kashperuk]

Про ttscommit Вы читали правильно - при выполнении этой команды база данных сохраняет данные (persists, commits, как хотите называйте)

Но, ессно, для корректной работы системы необязательно после каждого изменения это делать.

[Wamr]

немного оффтоп

после выполнения update() и до ttscommit вы можете увидеть измененные данные только на Акс3 с SQL2000 (2005 в режиме 80).
В Оракле и Акс4 с SQL2005 вы не увидите изменений из внешнего процесса до выполнения ttscommit

[kashperuk]

Цитата:

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

немного оффтоп

после выполнения update() и до ttscommit вы можете увидеть измененые данные только на Акс3 с SQL2000 (2005 в режиме 80).
В Оракле и Акс4 с SQL2005 вы не увидите изменений до выполнения ttscommit

На всякий случай, поясню:

Цитата:

The reason for not supporting NOLOCK on SQLServer 2005 is that RCSI (Read-Committed Snapshot Isolation) is turned on and therefore readers are not blocked behind writers and selecting with NOLOCK is no longer necessary

Соответственно, чтение "грязных" данных запретили после АХ3

[miklenew]

Цитата:

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

Соответственно, чтение "грязных" данных запретили после АХ3

Красавцы.
Переноси после этого код с 3.0 на 4.0.

[miklenew]

Цитата:

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

немного оффтоп
после выполнения update() и до ttscommit вы можете увидеть измененные данные только на Акс3 с SQL2000 (2005 в режиме 80).
В Оракле и Акс4 с SQL2005 вы не увидите изменений из внешнего процесса до выполнения ttscommit

Попробовал щас на 3.0 sp4 + Oracle изменённые данные нормально читаются.

[Wamr]

продолжая оффтоп

запретили не в Аксапте, а именно в бд установкой поумолчанию ее в режим Read-Committed Snapshot Isolation.
В этом контексте совершенно не понятно зачем в find методы понапихали selectLocked(!_update)

[Wamr]

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

[miklenew]

Цитата:

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

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

Я не знал об этом и никогда не обращал на это внимание.
Как я делаю.
1) Создал таблицу Table1
2) Создал string поле Field1
3) Забил строчку с "1"
4) Запускаю job

static void Job21(Args _args)
{
    Table1 t;
;
    ttsbegin;
    while select forupdate t
    {
        t.Field1 = "3";
        t.update();
    }
    while select forupdate t
    {
        t.Field1 = "4";
        t.update();
    }
    ttscommit;
}

На втором select смотрю t.Field1 = "3". Значит обновилось.

[AndyD]

2 Wamr
Так это для блокировки изменяемых данных сделано.
Т.е. прочитать в другой транзации можно и изменений там не будет видно, но при попытке проапдейтить будет блокировка.