Pages

Banner 468 x 60px

 

Monday, March 27, 2017

Terbilang x++

0 comments
static void Job22(Args _args)
{
    str textTerbilang;
    AmountMST nilaiAmount;
    ;
    nilaiAmount = 1250;

    textTerbilang = numeralsToTxt(nilaiAmount);


    info(textTerbilang);
}


misal :
 
     // ADD BY TYO
      AmountMST Terbilang;

      TECcustVendTmpPaymProposalReport = custVendTmpPaymProposalReport;
      select sum(AmountMST) from TECcustVendTmpPaymProposalReport;

      custVendPaymProposalTmp.Terbilang                   = Global::numeralsToTxt(abs(TECcustVendTmpPaymProposalReport.AmountMST)) + " Indonesian rupiah #";
    // END BY TYO




public boolean fetch()
{
    boolean                     ret = true;
    Query                       _Query = new Query(this.query());
    QueryRun                    _QueryRun;
    PurchTable                  _Purchtable;
    PurchLine                   _PurchLine;
    PurchReqTable               _PurchReqTable;
    VendTable                   _VendTable;
    LogisticsElectronicAddress  _LogisticsElectronicAddress;
    PurchLineAllVersions        _PurchLineAllVersions;

    int                         inwordslength, inwordslength2; //addbyDaniel

    DimensionAttributeValueSetStorage   class_dimStorage;

    PurchLineAllVersions                purchLineAllVersions;
    ;

    _Query.dataSourceTable(tablenum(VendPurchOrderJour)).addRange(fieldNum(VendPurchOrderJour, PurchId)).value(_getRecordVendPurchOrderJour.PurchId);
    _Query.dataSourceTable(tableNum(VendPurchOrderJour)).addRange(fieldNum(VendPurchOrderJour, PurchOrderDocNum)).value(_getRecordVendPurchOrderJour.PurchOrderDocNum);
    _QueryRun = new QueryRun(_Query);

    while(_QueryRun.next())
    {
        if(_QueryRun.changed(tableNum(VendPurchOrderJour)))
        {
            _getRecordVendPurchOrderJour = _QueryRun.get(tableNum(VendPurchOrderJour));
                No_PO           = _getRecordVendPurchOrderJour.PurchId;
                Supplier_Code   = PurchTable::find(_getRecordVendPurchOrderJour.PurchId).OrderAccount;
                Date_PO         = PurchTable::find(_getRecordVendPurchOrderJour.PurchId).DeliveryDate;
                //Ref_No          =
                //Date_Ref        =
                _VendName       = VendTable::find(_getRecordVendPurchOrderJour.OrderAccount).name();
                Address         = VendTable::find(_getRecordVendPurchOrderJour.OrderAccount).postalAddress().Address;
                Contact         = VendTable::find(_getRecordVendPurchOrderJour.OrderAccount).ContactPerson().phone();
                _Phone          = VendTable::find(_getRecordVendPurchOrderJour.OrderAccount).phone();
                select _VendTable where _VendTable.AccountNum  == _getRecordVendPurchOrderJour.OrderAccount;
                Contact         = DirParty::primaryElectronicAddress(_VendTable.Party, LogisticsElectronicAddressMethodType::Phone).Description;

                Name_Ship_To    = CompanyInfo::find().Name;
                Address_Ship_To = CompanyInfo::find().postalAddress().Address;
                Contact_Ship_To = DirParty::primaryElectronicAddress(CompanyInfo::find().RecId, LogisticsElectronicAddressMethodType::Phone).Description;
                Phone_Ship_To   = CompanyInfo::find().phone();

                _Purchtable     = PurchTable::find(_getRecordVendPurchOrderJour.PurchId);
                class_dimStorage= DimensionAttributeValueSetStorage::find(_purchTable.DefaultDimension);
                departmentID    = class_dimStorage.getDisplayValueByDimensionAttribute(DimensionAttribute::findByName('Department').RecId);
                departmentName  = (select Name from DimAttributeOMDepartment where DimAttributeOMDepartment.value == departmentID).name;

                payment         = PaymTerm::find(PurchTable::find(_getRecordVendPurchOrderJour.PurchId).Payment).Description;
                //Kd_Buyer        = PurchTable::find(_getRecordVendPurchOrderJour.PurchId).ItemBuyerGroupId;

                permission = new InteropPermission(InteropKind::ClrInterop);
                permission.assert();
                Kd_Buyer    = System.Environment::get_UserName();

                Delivery        = PurchTable::find(_getRecordVendPurchOrderJour.PurchId).DlvMode;

                Qty             = PurchLine::find(_getRecordVendPurchOrderJour.PurchId).PurchQty;
                Price           = PurchLine::find(_getRecordVendPurchOrderJour.PurchId).PurchPrice;
                SubTotal        += Qty * Price;
                Discount        = PurchLine::find(_getRecordVendPurchOrderJour.PurchId).DiscPercent / 100 * SubTotal;
                PPN             = SubTotal/10;
                Totalamount     = SubTotal - Discount + PPN;
                inwordslength   = strLen(numeralsToTxt(TotalAmount));
                inwordslength2  = inwordslength - 10;
                Inwords2        = subStr(numeralsToTxt(TotalAmount), 1, inwordslength2);
                Inwords         = strRem(Inwords2, "*");
                Remarks         = ReasonTableRef::find(PurchTable::find(_getRecordVendPurchOrderJour.PurchId).ReasonTableRef).ReasonComment;
            element.send(_getRecordVendPurchOrderJour);
        }
         if(_QueryRun.changed(tableNum(PurchLine)))
        {
            _PurchLine  = _QueryRun.get(tableNum(PurchLine));
                select _PurchReqTable where _PurchReqTable.PurchReqId == _PurchLine.PurchReqId;
                Indent_Date                     = _PurchReqTable.TransDate;

                Indent_No                       = _PurchLine.PurchReqId;
                Description                     = _PurchLine.Name;
                UOM                             = _PurchLine.PurchUnit;
                Quantity                        = _PurchLine.PurchQty;
                Price                           = _PurchLine.PurchPrice;
                Amount                          = _PurchLine.LineAmount;
                Total_Value                     += Amount;
                switch (_PurchLine.TaxItemGroup)
                {
                case "PPN 10%":
                    PPN_Lines   += Amount / 10;
                    break;

                case "PPH":
                    PPH_Lines   += Amount * 0.02;
                    break;
                }
                PPN             = PPN_Lines;
                PPH             = PPH_Lines;
                SubTotal        = Quantity * Price;
                Total           += SubTotal;
                Discount        = _PurchLine.DiscPercent / 100 * Total;
                Totalamount     = Total - Discount + PPN + PPH;
                inwordslength   = strLen(numeralsToTxt(TotalAmount));
                inwordslength2  = inwordslength - 10;
                Inwords2        = subStr(numeralsToTxt(TotalAmount), 1, inwordslength2);
                Inwords         = strRem(Inwords2, "*");
            element.send(_PurchLine);
        }

    }
    return ret;
}

0 comments:

A financial dimension value is based on the record and has been used on a transaction. You cannot delete the record

  SOLUTION delete in table DimensionAttributeLevelValue base on Bank Account  :  and Delete the Bank Account FINISH