Vina Ayu Pramadya Puspa Blog: Oktober 2017

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

}

Vina Ayu Pramadya Puspa Blog

Kamis, 12 Oktober 2017

Add Range of Query datasource in a form ( Load )

Senin, 09 Oktober 2017

APPROVE PR FROM DATABASE ENV.

Minggu, 08 Oktober 2017

CREATE AND POST JOURNAL VIA X++

X++ REVERSE CLOSE TRANSACTION IN CUSTOMER SETTLEMENT

Cari Blog Ini