Vina Ayu Pramadya Puspa Blog

Selasa, 24 April 2018

x++ Create Alert for All user Group

static void SendAlertVN(Args _args)
{
EventParameters eventParameters = EventParameters::find();

SysUserInfo sysUserInfo;

UserInfo userinfo;

EventInbox inbox;

UserGroupList UsergroupList;

 

//SysYserInfo = SysUserInfo::find(curUserId());

 

while select UsergroupList where UsergroupList.groupId =="admin"

{

      inbox.initValue();
      inbox.ShowPopup     = NoYes::Yes;
      inbox.Subject       = "Préparation de réception marchandise";
      inbox.Message       = "?";
      inbox.AlertedFor    = "Préparation de réception marchandise";
      inbox.UserId        = UsergroupList.userID ;

      inbox.TypeId        = 1527;
      inbox.globalrule = true;

     inbox.AlertTableId  = tableNum(PurchReceiptsListHeaderTmp);
     inbox.AlertFieldId  = fieldNum(PurchReceiptsListHeaderTmp, PurchID);
     inbox.TypeTrigger   = EventTypeTrigger::RecordInsert;
     inbox.CompanyId     = curext();
     inbox.InboxId       = EventInbox::nextEventId();
     inbox.AlertCreatedDateTime = DateTimeUtil::getSystemDateTime();

     inbox.SendEmail     = true;

     inbox.EmailTemplateId = "001";
   
   // inbox.emailRecipient =  "exemple@exemple.com;


inbox.insert();


    }
}

reference : https://dynamicsuser.net/ax/f/developers/69282/creat-alert-notification-and-send-email-with-x

Kamis, 19 April 2018

Reverse Customer Closed Transaction trough x++

static void Update_Reverse_Settlement(Args _args)
{
    CustTrans           invCustTrans,findCustTrans;
    SpecTransManager    specTransManager;
    DocumentNum         invdocnumx,paydocnumx;
    CustSettlement      custSettlement;
    AccountNum          accnumx;
    date                paydatex;
    CustTable           custTable;
    ;

   
    select invCustTrans
    order by TransDate asc
    where   invCustTrans.Voucher=="18BM01-00082";
    //invCustTrans.DocumentNum == invdocnumx
    //    &&  invCustTrans.AmountMST > 0
    //    &&  invCustTrans.AccountNum == accnumx;
    
    while select findCustTrans where findCustTrans.RecId == invCustTrans.RecId
    {        
        custTable = custTable::find(findCustTrans.AccountNum);

       // if(findCustTrans.TransType != ledgerTransType::Payment)
       // {
            //We must go to the customer settlement table and locate the records that were used to settle the invoice in scope and pass them into the class
            // that manages the marking and updating of applied credits and payments to invoices. We remove the credit marking to remove the link between the invoice
            //and the credits used to settle the invoice. Then we must reverse the transactions using the reverseTransact method on the customer transaction table
              select firstonly custSettlement where// custSettlement.SettlementVoucher=='';
              custSettlement.TransCompany == findCustTrans.dataAreaId &&
                                                    custSettlement.TransRecId   == findCustTrans.RecId &&
                                                    custSettlement.AccountNum   == findCustTrans.AccountNum;

            specTransManager = SpecTransManager::newRefTableId(custTable,tablenum(custSettlement), true);
            specTransManager.insert(custSettlement.DataAreaId, custSettlement.TableId, custSettlement.RecId, custSettlement.SettleAmountCur, findCustTrans.CurrencyCode);
            custSettlement.CustVendSettlement::markOffsets(specTransManager, findCustTrans.CurrencyCode, true);

            if (CustTrans::reverseTransact(custTable,null,settleDatePrinc::DateOfPayment,custSettlement.TransDate))
            {
                specTransManager.deleteAll();
                 //custTrans_ds.executeQuery();
            }
       // }
    }
    info(strFmt('Done %1',findCustTrans.txt));

}

Kamis, 22 Februari 2018

Create Number Sequence in AX

Rabu, 21 Februari 2018

Stack trace: The company SysTransactionScopeCache does not exist.

changecompany(CompanyInfo::getDataArea(sourceDocumentLineItem.parmLegalEntityRecId())) Solve : I compare the lines between purchreqline and sourcedocumentline with field sourcdocumentheader. I found the recid in sourcedocumentline doesn't exist in purchreqline

Jumat, 26 Januari 2018

Set Windows Server 2012 just for administrator

Deny spesific user group to access the server

Rabu, 24 Januari 2018

ax display option grid

public void displayOption(Common _record, FormRowDisplayOption _options)
{
    stx_RequestItem stx_RequestItem1;
    
    stx_RequestItem1 = _record;
    if(stx_RequestItem1.Status==0)
    {
    _options.backColor(65535); 
    }
    
  //  Switch(stx_RequestItem1.Status)
  // {
  //     Case Status::NotRequired;
  //  _options.backColor(65535); //Light Yellow
 
  //  Break;
  
  //  }
}

Kamis, 12 Oktober 2017

Add Range of Query datasource in a form ( Load )

public void init()
{
    callerFDS = element.args().record().dataSource();
    ledgerJournalTrans = element.args().record();
    ledgerJournalTable = ledgerJournalTrans.ledgerJournalTable();
    ledgerJournalName = ledgerJournalTable.ledgerJournalName();

    super();

    markedMap = new Map(Types::Int64, Types::Real);

    element.dialogBoxreset();
    this.initFromCaller();
}

void initFromCaller()
{
    LedgerJournalTrans  ledgerJournalTransLocal;
    LPPJournalLine      lppJournalLineLocal;
    AmountCur           amountTmp;
    VendAccount         VendAccount;
    LPPJournalTable     LPP;

    while select ledgerJournalTransLocal
        where ledgerJournalTransLocal.JournalNum == ledgerJournalTable.JournalNum
        && (ledgerJournalTransLocal.LPPJournalTable)
    {
        if (markedMap.exists(ledgerJournalTransLocal.LPPJournalTable))
        {
            amountTmp = markedMap.lookup(ledgerJournalTransLocal.LPPJournalTable);
            amountTmp += ledgerJournalTransLocal.AmountCurDebit;
            amountTmp -= ledgerJournalTransLocal.AmountCurCredit;
            markedMap.remove(ledgerJournalTransLocal.LPPJournalTable);
        }
        else if(ledgerJournalTransLocal.AmountCurDebit)
            amountTmp = ledgerJournalTransLocal.AmountCurDebit;
        else if(ledgerJournalTransLocal.AmountCurCredit)
            amountTmp = -1 * ledgerJournalTransLocal.AmountCurCredit;

        markedMap.insert(ledgerJournalTransLocal.LPPJournalTable, amountTmp);
    }

    if(ClearAllData)
    {
        delete_from ledgerJournalTransLocal
            where ledgerJournalTransLocal.JournalNum == ledgerJournalTable.JournalNum
                  && (ledgerJournalTransLocal.LPPJournalLine || ledgerJournalTransLocal.LPPJournalTable);
    }
    //LPPSettlement::refreshSettle();

    if (ledgerJournalTrans.NoteAccountNum != '' && ledgerJournalTrans.AccountType == LedgerJournalACType::Ledger)
    {
        //VendAccount = VendTable::find(DimensionStorage::ledgerDimension2AccountNum(ledgerJournalTrans.LedgerDimension)).AccountNum;
        VendAccount = ledgerJournalTrans.NoteAccountNum;
        if (VendAccount)
        {
            LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
                addRange(fieldNum(LPPJournalTable, NoteAccountNum)).value(SysQuery::value(VendAccount));
        }
    }

    LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
        addRange(fieldNum(LPPJournalTable, Posted)).value(SysQuery::value(NoYes::Yes));

    LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
        addRange(fieldNum(LPPJournalTable, Cancelled)).value(SysQuery::value(NoYes::No));

    LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
        addRange(fieldNum(LPPJournalTable, Closed)).value(SysQuery::value(NoYes::No));

    LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
        addRange(fieldNum(LPPJournalTable, AccountType)).value(SysQuery::value(LPPLedgerJournalType::Ledger));

    LPPJournalTable_ds.query().dataSourceTable(tableNum(LPPJournalTable)).
        addRange(fieldNum(LPPJournalTable, totaloutstanding)).value(SysQuery::valuenot(0));
}