Показать сообщение отдельно
Старый 08.04.2011, 10:32   #1  
AngelDominantes is offline
AngelDominantes
Участник
 
76 / 9 (1) +
Регистрация: 30.12.2010
Пакетное задание
Добрый день. Возникли трудности с пакетным заданием. AX2009. Создал пакетный класс:
X++:
class S_RemoveOldRecordsBatch extends RunBaseBatch
{
    anytype dummy;
    #define.CurrentVersion(1)
    #define.Version1(1)
    #localmacro.CurrentList
        dummy
    #endmacro
}
X++:
void DelOldRecords()
{
    S_CustVendCommon s_CustVendCommon;
    ;

    ttsbegin;
    while select forupdate s_CustVendCommon
     where  (s_CustVendCommon.NoYesCombo == NoYesCombo::Yes)
     {
        if( intvNo(Today(), s_CustVendCommon.TransDate, intvScale::YearMonth) >= 1)
        {
            s_CustVendCommon.delete();
        }
     }

    ttscommit;
}
X++:
public container pack()
{
    return connull();
}
X++:
public boolean unpack(container packedClass)
{
   return true;
}
X++:
static void main(Args _args)
{
    S_RemoveOldRecordsBatch s_RemoveOldRecordsBatch = new S_RemoveOldRecordsBatch();
    ;
    s_RemoveOldRecordsBatch.DelOldRecords();

}
Все по сути весь класс, при ручном запуске работает при пакетной обработке нет, в свойствах класса указано запускать на сервере.
Для пакетного задания выбрана пакетная группа,
Указано запускать на сервере,
Указан АОС, который является сервером пакетной обработки и выбранная группа входит в этот АОС. Ошибок в журнале нет.