Credit Limit Alert

static void testalertx(Args _args)
{
    EventNotificationSource _source;
    EventNotification       event = EventNotification::construct(EventNotificationSource::Sync);
    custtable             custtable;
    ;

    //inventTable = InventTable::find('B-R14');  // sample record for which alert is shown
    select firstonly custtable;


    event.parmRecord(custtable);
    event.parmUserId(curuserid());      // user for which this alert to be shown
    event.parmDataSourceName('Custtable');  //form datasource
    event.parmMenuFunction(new MenuFunction('custtable', MenuItemtype::Display));
    event.parmSubject('credit limit goes down below 80%');
    event.parmMessage('credit limit alert');
    event.create();

    info("done");
}

No batch Items List

static void KavinValidateTracDim(Args _args)
{
    EcoResTrackingDimensionGroupItem        trackDimGrop;
    EcoResTrackingDimensionGroupFldSetup    trackDimGrpFldSetup;
    ItemId                                  varItemId = '125';
    FieldId                                 observedDimension = fieldNum(InventDim, InventBatchId);
    str                                     label             = fieldPName(InventDim, InventBatchId);
    NoYes                                   isActive;
    InventTable                             inventTable;
   
    ;
    while select inventTable
            join trackDimGrop where trackDimGrop.ItemDataAreaId ==  inventTable.dataAreaId &&
                                        trackDimGrop.ItemId ==  inventTable.ItemId  //&& inventTable.ItemId == "125"
            join trackDimGrpFldSetup where trackDimGrpFldSetup.TrackingDimensionGroup ==  trackDimGrop.TrackingDimensionGroup
                                            && trackDimGrpFldSetup.DimensionFieldId == observedDimension
                                            && trackDimGrpFldSetup.IsActive == NoYes::No
    {     
         
        info(strFmt('%1 is not active for %2',label,inventTable.ItemId));
    }
   
}