Vina Ayu Pramadya Puspa Blog: Agustus 2017

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.

Minggu, 20 Agustus 2017

Convert Image to base 64

convert images to base 64
Hanya untuk Note
Source : https://aristonjavier.wordpress.com/2016/05/30/ax-2012-r3-convert-images-jpeg-to-base64/

  
public str (RefRecId _refRecId, RefTableId _refTableId)

{
System.Drawing.Image image;
System.IO.MemoryStream memoryStream;
str filePath = ”;
Filename fileName = ”;
DocuRef docuRef;
;

select docuRef
where docuRef.RefRecId == _refRecId
&& docuRef.RefTableId == _refTableId;

if (docuRef)
{

// Get Images complete File Name
fileName = docuRef.completeFilename();

image = System.Drawing.Image::FromFile(@Filename);
memoryStream = new System.IO.MemoryStream();
image.Save(memoryStream, System.Drawing.Imaging.ImageFormat::get_Jpeg());
filePath = System.Convert::ToBase64String(memoryStream.ToArray());
}

return filePath;
}

Screen Shot:

Kamis, 17 Agustus 2017

Custom Bank Statement - Display From To / LedgerDimension


        BankAccountTable            bankAccounttable;
        BankAccountTable            bankAccounttable2;
        BankAccountTrans            bankAccountTrans;
        LedgerJournalTrans          ledgerJournalTrans;
        BGPaymentLine               bgPaymentLine;
        MK_ReportBankStatementLPP   bankStatementLPP;
        DimensionAttributeValueCombination DimensionAttributeValueCombination;
        VNBankAccountStatementTmp VNBankAccountStatementTmp;
        LJCustTable LJCustTable;
        BGPaymentTable BGPaymentTable;
        BGMonitoringtable BGMonitoringtable;
        MAINACCOUNT MAINACCOUNT;
        VendTable VendTable;
        VendTable VendTable2;
        CustTable CustTable;
        CustTable CustTable2;
   // DIRPA
    LPPJournalTable LPPTABLE;

    LPPJournalTable lppJournalTable;
    str TXT;
    str UM;  


       //add by Vina
        select ledgerJournalTrans
            where ledgerJournalTrans.Voucher == bankAccountTrans.Voucher
               && ledgerJournalTrans.TransDate == bankAccountTrans.TransDate
               && ledgerJournalTrans.RecId == bankAccountTrans.SourceRecId;
        //add by Vina    
        select RecId, DISPLAYVALUE  FROM DimensionAttributeValueCombination
        WHERE
        DimensionAttributeValueCombination.RecId == ledgerJournalTrans.LedgerDimension;
        //add by Vina
        select firstOnly  VendTable
        WHERE
        VendTable.AccountNum == DimensionAttributeValueCombination.DisplayValue;
        //add by Vina
        select firstOnly CustTable
        WHERE
        CustTable.AccountNum == DimensionAttributeValueCombination.DisplayValue;
        //add by Vina
         select firstOnly bankAccounttable2
        WHERE
        bankAccounttable2.AccountID == DimensionAttributeValueCombination.DisplayValue;
        //add by Vina
        select firstOnly MainAccount
        WHERE
        MainAccount.MainAccountId == subStr(DimensionAttributeValueCombination.DisplayValue,1,9);


        //add by Vina
        select firstOnly VendTable2
        WHERE
        VendTable2.AccountNum == ledgerJournalTrans.NoteAccountNum;
        //add by Vina
        select firstOnly   DimensionAttributeValueCombination
        WHERE
        DimensionAttributeValueCombination.RecId == ledgerJournalTrans.LedgerDimension;
        //add by Vina
        select * FROM BGPaymentTable WHERE BGPaymentTable.JournalIdClearing == ledgerJournalTrans.JournalNum;
        select * FROM BGMonitoringtable WHERE BGMonitoringtable.JournalIdClearing == ledgerJournalTrans.JournalNum;
        bankAccountStatementTmp.MK_BG           = ledgerJournalTrans.ChequeNumber;
        Txt="";
        //add by Vina
       // UM=BGPaymentTable.noteAccountNum() +BGMonitoringtable.;
        IF (SUBSTR ( ledgerJournalTrans.Voucher,3,2) == "GR" || "GC")
        {

            select * FROM LJCustTable WHERE LJCustTable.CustId == BGPaymentTable.noteAccountNum();
          //  select * from custtable2 where CustTable2.AccountNum==
            IF (LJCustTable)
            {
            Txt  =BGPaymentTable.kepada_R2 +   LJCustTable.Name;
            }
            else
            {
                if (BGMonitoringtable)
                {
                 Txt  =BGPaymentTable.kepada_R2 + BGMonitoringtable.custName() ;
                }
                else
                {Txt  =BGPaymentTable.kepada_R2 + BGPaymentTable.noteAccountNum() ;}
            }
        }

        //add by Vina
       // bankAccountStatementTmp.MK_KepadaDari   = ledgerJournalTrans.dispOffsetMainAccountNumDesc();
        if(ledgerJournalTrans.OffsetAccountType!=6)
        {
            bankAccounttable2.Name="";
        }

         //add by Vina
         bankAccountStatementTmp.MK_KepadaDari   = Txt +VENDTABLE2.name() + VENDTABLE.name() +CUSTTABLE.name() +MainAccount.Name + bankAccounttable2.NAME;

Vina Ayu Pramadya Puspa Blog