Vina Ayu Pramadya Puspa Blog

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

}

Kamis, 31 Agustus 2017

Set Value on Textbox in Form

 
public boolean modified()
{
    boolean             ret = super();
    EcoResProductName   productName = this.text();

    if (productName)
    {
        //element.setProductSearchName(productName);

        ItemIdentification_NameAlias.text((productName));
    }
    return ret;
}

Selasa, 22 Agustus 2017

1. ) Lookup with join i wanna lookup with value that i have got from join 3 tables. I already get these value from a methods. the methods cannot be filtered in lookup, so i use these new table to lookup with my datasource in form. *field table can be filtered // add by Vina // vn_VendLedger is inserted from table VendLedger in JOb : GetDisplayAccountFromPostingProfile

 
     VendLedger vendledger;
    vn_VendLedger vn_vendledger;    
    
    while select vendledger
    {
    vn_VendLedger.Cancel =  VendLedger.Cancel;
    vn_VendLedger.DimSettlementCtrlType_RU =   VendLedger.DimSettlementCtrlType_RU;  
    vn_VendLedger.Name=    VendLedger.Name;
    vn_VendLedger.PostingProfile= VendLedger.PostingProfile;   
    vn_VendLedger.PostingProfileClose=   VendLedger.PostingProfileClose; 
    vn_VendLedger.Settlement =  VendLedger.Settlement;   
    vn_VendLedger.DisplayAccount=VendLedger.displayaccount();
    vn_VendLedger.insert();    
    }

then, lookup in textbox that contain field :

 
public void lookup()
{
    // add by Vina
    // vn_VendLedger is inserted from table VendLedger in JOb :  GetDisplayAccountFromPostingProfile
    
    Query                   query = new Query();
    QueryBuildDataSource    qbds;
    QueryBuildDataSource    qbdsJoin;
    SysTableLookup          sysTableLookup = sysTableLookup::newParameters( tableNum(vn_VendLedger), this);
    ;

    qbds= query.addDataSource( tableNum(vn_VendLedger));
   
 sysTableLookup.parmQuery(query);
    sysTableLookup.addLookupfield( fieldNum(vn_VendLedger, PostingProfile));
    sysTableLookup.addLookupfield( fieldNum(vn_VendLedger, name));
    sysTableLookup.addLookupfield( fieldNum(vn_VendLedger, displayaccount));
    sysTableLookup.performFormLookup();
}

2. ) Lookup with calling the methods. It direct call the methods in table to get the value that i want.