Refresh form timer announcements Highlights text blink, flash

 [ExtensionOf(FormStr(ESSWorkspace))]

final class BPESSWorkspaceForm_Extension

{

    #define.waitTime(10*60*10)

    public str notificationTxt;

    public void run()

    {

        next  run();


        BPAnnouncementTypeXDSUserGroup userGroup;

        BPEmployeeAnnouncemtTable announcementTable;

        BPEmployeeAnouncementType   announcementType;

        UserGroupList groupList;

        Counter countStr = 0;


        while select announcementTable 

            where announcementTable.IsNotification == NoYes::Yes

            &&    announcementTable.ValidFromDate <= today()

            &&    announcementTable.ValidToDate >= today()

            exists join  announcementType

            where announcementType.AnouncementType == announcementType.AnouncementType

            notexists join userGroup

            where userGroup.AnnouncementType == announcementType.AnouncementType

        {

            countStr++;

            notificationTxt +=  int2Str(countStr)+". "+announcementTable.AnnouncementText +"\n"  ;

        }


        while select announcementTable

             where announcementTable.IsNotification == NoYes::Yes

            &&    announcementTable.ValidFromDate <= today()

            &&    announcementTable.ValidToDate >= today()

            exists join announcementType

            where announcementType.AnouncementType == announcementType.AnouncementType

            join  userGroup

            where userGroup.AnnouncementType == announcementType.AnouncementType

            join groupList

            where groupList.groupId == userGroup.UserGroupId

            &&    groupList.userId == curUserId()

            

        {

            countStr++;

            notificationTxt +=   int2Str(countStr)+". " +announcementTable.AnnouncementText +"\n"  ;

        }


        this.setTimeOutex(identifierstr(refreshForm), conNull(),3000);

    }


    public  void refreshForm(AsyncTaskResult _result)

    {


        if (!this.closed()) //otherwise will be executed even after form close.

        {

            if(announcementTxt.text())

            {

               

                announcementTxt.text("");

            }

            else

            {   

                announcementTxt.colorScheme(FormColorScheme::RGB);

               // announcementTxt.backgroundColor(WinAPI::RGB2int(225,225,125));

                announcementTxt.foregroundColor(WinAPI::RGB2int(250,0,0));

                announcementTxt.text(notificationTxt);

            }

            this.setTimeOutex(identifierstr(refreshForm), conNull(),3000);



        }

    }


}

Comments

Post a Comment

Popular posts from this blog

Logistics address, postal address, address phone fax contact information

// Find primary address by roles  LogisticsPostalAddress postalAddr;  postalAddr = DirParty::findPostalAddressByRole(DirPartyTable::find(companyInfo::find().PartyNumber).RecId,LogisticsLocationRoleType::Invoice); Get Description/ name of location LogisticsLocation::find(postalAddrInvoice.Location).Description // Find contact information (Generic one) DirPartyContactInfoView contactInfoView; contactInfoView = DirPartyContactInfoView::find(partyRecId, _location); // Find primary address by roles regardless primary or not public  LogisticsPostalAddress getPostalAddressByType(DirPartyRecId _party, LogisticsLocationRoleType _type)     {         DirPartyLocation        partyLocation;         DirPartyLocationRole    partyLocationRole;         LogisticsLocation       location;         LogisticsLocationRole   locationRole;   ...
Read more

Ledger dimensions and financial Dimensions X++

   //  Get individual dimensions from ledger dimensions         if (accEntry.LedgerDimension)         {             LedgerDimensionPreviewTmp   ledgerDimensionPreviewTmpLocal;             // Build the preview data.             ledgerDimensionPreviewTmpLocal = LedgerDimensionPreviewTmp::buildLedgerDimensionPreviewTmp(accEntry.ledgerDimension);             select firstonly ledgerDimensionPreviewTmpLocal                 where ledgerDimensionPreviewTmpLocal.Name == "Funds";             fundValue = ledgerDimensionPreviewTmpLocal.Value;             select firstonly ledgerDimensionPreviewTmpLocal                 where ledgerDimensionPreviewTmpLocal.Name == "MainAccount"...
Read more

Prepay posting vendor invoice with amounts

 class BPContractAddToPendingPrePayVendorInvoice {     PurchTable             purchTable;     VendInvoiceInfoTable   vendInvoiceInfoTable;     VendInvoiceInfoLine    vendInvoiceInfoLine,vendInvoiceInfoLineCount;     VendInvoiceInfoSubTable  vendInvoiceInfoSubTable;     BPInvoiceProposalTable proposalTable;     PurchLine purchLine;     PurchParmUpdate parmupdate;     PurchFormLetter purchFormletter;     PurchPrepayTable prepayTable;     Num parmId;     VendInvoiceJour invoiceJour;     LineAmount applyPrepayAmt;     public void runOperation(BPInvoiceProposalTable _proposalTable,LineAmount _amountPrepay = 0)     {          proposalTable = _proposalTable;         purchTable =  proposalTable.bpProjContractTable().purchTable();     ...
Read more