Vina Ayu Pramadya Puspa Blog

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));
}

Senin, 09 Oktober 2017

APPROVE PR FROM DATABASE ENV.

SELECT  RECID,* FROM PURCHREQTABLE A WHERE A.PURCHREQID ='201710001261 '
BEGIN TRANSACTION UPDATE PURCHREQLINE SET ISPREENCUMBRANCEREQUIRED=2, ISPURCHASEORDERGENERATIONMANUAL =1, REQUISITIONSTATUS=30 
WHERE PURCHREQTABLE
 =5637183663 commit
begin transaction update SOURCEDOCUMENTLINE set ACCOUNTINGSTATUS = 4 where recid in (
select recid from SOURCEDOCUMENTLINE a where RECID 
in (select SOURCEDOCUMENTLINE from PURCHREQLINE where PURCHREQTABLE =5637183663)) commit

Minggu, 08 Oktober 2017

CREATE AND POST JOURNAL VIA X++

 

void clicked()
{
    LedgerJournalName           ledgerJournalName;
    LedgerJournalTable          ledgerJournalTable;
    LedgerJournalTable          JournalTable;
    LedgerJournalTrans          ledgerJournalTrans;
    LedgerJournalTrans          journalcreate;
    LedgerJournalTrans          um;
    DimensionAttributeValueCombination dim;
    LJCustTable  cust;
    LedgerJournalCheckPost      ledgerJournalCheckPost;
//    BGPaymentTable 
    NumberSeq                   numberSeq;
    NumberSequenceCode NumberSequenceCode =
'BG_TLK_OUT';
     NumberSeq num;
 //   ttsbegin;


 //   while select LedgerJournalTrans where LedgerJournalTrans.ChequeNumber ==
  //  BGPaymentTable.GiroNum
 //   {

  //  }

    select firstonly   ledgerJournalName wherE ledgerJournalName.JournalName             == "BG_TLK_OUT";
     info (ledgerJournalName.JournalName);
    //Create Ledger Journal Table
    ledgerJournalTable.JournalName      = ledgerJournalName.JournalName ;
    ledgerJournalTable.initFromLedgerJournalName();
    ledgerJournalTable.JournalName             = "BG_TLK_OUT";
    ledgerJournalTable.insert();
    info (ledgerJournalTable.Voucher);
    num =
    NumberSeq::newGetNumFromCode(NumberSequenceCode);
          ledgerJournalTable.Voucher = num.num(); // Next NumberSeq generated
      info (ledgerJournalTable.Voucher);
    ledgerJournalTrans.voucher = ledgerJournalTable.voucher;

    while select journalcreate join
    JournalTable 
        where journalcreate.ChequeNumber == BGPaymentTable.GiroNum
        && JournalTable.JournalNum ==  journalcreate.JournalNum
        && JournalTable.Posted == 1
    {
    //Create Transaction Line
    select firstonly * from cust where Cust.CustId == journalcreate.LJCustId;    
    select firstonly * from dim where dim.RecId == Cust.LedgerDimension;    
    ledgerJournalTrans.JournalNum       = ledgerJournalTable.JournalNum;
    ledgerJournalTrans.CurrencyCode     = journalcreate.CurrencyCode;
    ledgerJournalTrans.ExchRate         = Currency::exchRate(ledgerJournalTrans.CurrencyCode);
    ledgerJournalTrans.LedgerDimension       = Cust.LedgerDimension;
    ledgerJournalTrans.ChequeNumber = BGPaymentTable.GiroNum;
    ledgerJournalTrans.AccountType      = ledgerJournalACType::Ledger;
    ledgerJournalTrans.AmountCurDebit   =journalcreate.AmountCurDebit;
    ledgerJournalTrans.TransDate        = today();
    ledgerJournalTrans.Txt              = "Giro Cancel  - " + journalcreate.Txt;
    ledgerJournalTrans.OffsetLedgerDimension    = 5637144794;
    ledgerJournalTrans.insert();
  //  info(strfmt('Journal Id: %1',ledgerJournalTable.JournalNum));
    }
    
    ledgerJournalCheckPost= ledgerJournalCheckPost::newLedgerJournalTable(ledgerJournalTable,NoYes::Yes);
ledgerJournalCheckPost.run();
    BGPaymentTable.JournalIdCancel = ledgerJournalTrans.JournalNum;
    BGPaymentTable.update();
    
    // Post Journal
 //   ledgerJournalCheckPost              = ledgerJournalCheckPost::newLedgerJournalTable(ledgerJournaltable,Noyes::Yes);
   
  //  LedgerJournalCheckPost.run();

}