Показать сообщение отдельно
Старый 11.07.2007, 12:16   #2  
raz is offline
raz
NavAx
Аватар для raz
NavAx Club
Лучший по профессии 2014
Лучший по профессии 2009
 
1,496 / 1071 (38) ++++++++
Регистрация: 22.07.2003
Адрес: МО
В складских проводках есть ссылка на несуществующий лот.

X++:
// поиск складских проводок с кривыми ссылками на другие складские проводки
static void Edd_CheckInventTransId(Args _args)
{
    InventTrans     InventTrans;
    InventTrans     InventTrans2;
    ;
    InventTrans.selectLocked(true);
    InventTrans2.selectLocked(true);

    while select InventTrans
        where InventTrans.ValueOpen           == InventTransOpen::Yes
           && InventTrans.InventTransIdReturn != ""
    notexists join InventTrans2
        where InventTrans2.InventTransId      == InventTrans.InventTransIdReturn
    {
        info(strfmt("InventTransIdReturn    %1", InventTrans.RecId));
    }

    while select InventTrans
        where InventTrans.ValueOpen           == InventTransOpen::Yes
           && InventTrans.InventTransIdFather != ""
    notexists join InventTrans2
        where InventTrans2.InventTransId      == InventTrans.InventTransIdFather
    {
        info(strfmt("InventTransIdFather    %1", InventTrans.RecId));
    }

    while select InventTrans
        where InventTrans.ValueOpen           == InventTransOpen::Yes
           && InventTrans.TransChildRefId     != ""
    notexists join InventTrans2
        where InventTrans2.InventTransId      == InventTrans.TransChildRefId
    {
        info(strfmt("TransChildRefId    %1", InventTrans.RecId));
    }

    while select InventTrans
        where InventTrans.ValueOpen           == InventTransOpen::Yes
           && InventTrans.InventRefTransId    != ""
           && InventTrans.StatusIssue         <= StatusIssue::Deducted
           && InventTrans.StatusReceipt       <= StatusReceipt::Received
    notexists join InventTrans2
        where InventTrans2.InventTransId      == InventTrans.InventRefTransId
    {
        info(strfmt("InventRefTransId    %1", InventTrans.RecId));
    }
}