print "Current extension is " + curExt();

print "Current user ID is " + curUserId();

print "Current function context is " + funcName();

info(curExt());

///////////////////////////////////////////////////////////////

CompanyInfo::current(curext());

///////////////////////////////////////////////////////////////
boolean ret;

ret = super();

switch(curext())
{
  case 'YAL':
    LedgerJournalTrans_DS.object(fieldNum(LedgerJournalTrans,ArchiveReference)).mandatory(false);
    break;

  case 'TEL':
    LedgerJournalTrans_DS.object(fieldNum(LedgerJournalTrans,ArchiveReference)).mandatory(false);
    break;

  default:
    LedgerJournalTrans_DS.object(fieldNum(LedgerJournalTrans,ArchiveReference)).mandatory(true);
    break;
}

return ret;