Добрый день. Возникли трудности с пакетным заданием. 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();
}
Все по сути весь класс, при ручном запуске работает при пакетной обработке нет, в свойствах класса указано запускать на сервере.
Для пакетного задания выбрана пакетная группа,
Указано запускать на сервере,
Указан АОС, который является сервером пакетной обработки и выбранная группа входит в этот АОС. Ошибок в журнале нет.