Preview:
[
SRSReportParameterAttribute(classStr(NW_PurchaseConfirmContract))
]
    
    class NW_PurchaseConfirmDP extends  SRSReportDataProviderBase
{
    NW_PurchaseConfirmTmp    _NW_PurchaseConfirmTmp;


    

    [SRSReportDataSetAttribute("NW_PurchaseConfirmTmp")]

    public NW_PurchaseConfirmTmp getNW_PurchaseConfirmTmp()
    {

        select * from _NW_PurchaseConfirmTmp;

        return _NW_PurchaseConfirmTmp;

    }

    public void processReport()

    {
      
        PurchId        PurId;
        PurchaseOrderId    JournID;
        VendPurchOrderJour  NW_VendPurchOrderJour ,_VendPurchOrderJour ;
        PurchLineAllVersions             NW_PurchLineAllVersions,_NW_PurchLineAllVersions;
        TmpTaxWorkTrans tmpTax;
        PurchTable purchTable;
        PurchTotals purchTotals;
        taxJournalTrans taxJournalTrans;
        InventLocation InventLocation;
        PurchLine PurchLine;
      
         WordToNumAR     _WordToNumAR;
        _WordToNumAR = new  WordToNumAR();

        NW_PurchaseConfirmContract datacontract  = this.parmDataContract();

        PurId         = datacontract.parmPurchId();
        JournID       = datacontract.parmPurchaseOrderId();

        select purchTable where purchTable.PurchId == PurId
            outer join InventLocation where purchTable.InventLocationId == InventLocation.InventLocationId
            outer join firstonly PurchLine where PurchLine.PurchId == purchTable.PurchId;

   
        select NW_VendPurchOrderJour where NW_VendPurchOrderJour.PurchId == PurId &&  NW_VendPurchOrderJour.PurchOrderDocNum == JournID;

        _NW_PurchaseConfirmTmp.clear();

        _NW_PurchaseConfirmTmp.NW_OrderedByName           = HcmWorker::find(NW_VendPurchOrderJour.purchTable().Requester).name();
        _NW_PurchaseConfirmTmp.NW_CompanyLogo           = FormLetter::companyLogo();

        _NW_PurchaseConfirmTmp.Warehouse = InventLocation.Name;
        _NW_PurchaseConfirmTmp.PurchReqId = PurchLine.PurchReqId;
         
        _NW_PurchaseConfirmTmp.NW_VendorName = VendTable::find(NW_VendPurchOrderJour.OrderAccount).name()
            + NW_VendPurchOrderJour.OrderAccount;
        _NW_PurchaseConfirmTmp.NW_VendorAddress = 
            DirParty::primaryPostalAddress(VendTable::find(NW_VendPurchOrderJour.OrderAccount).Party).Address;

        _NW_PurchaseConfirmTmp.NW_VendorTele =
            VendTable::find(NW_VendPurchOrderJour.OrderAccount).telefax();
        
        _NW_PurchaseConfirmTmp.NW_VendorTele =
            VendTable::find(NW_VendPurchOrderJour.OrderAccount).phone();
        _NW_PurchaseConfirmTmp.NW_Po                = NW_VendPurchOrderJour.PurchId;
        _NW_PurchaseConfirmTmp.NW_PoDate            = NW_VendPurchOrderJour.PurchOrderDate;

        _NW_PurchaseConfirmTmp.NW_DeliveryAddress   = LogisticsLocation::find(purchTable.deliveryLocation()).Description;// PurchTable::find(NW_VendPurchOrderJour.PurchId).deliveryAddressing();
        _NW_PurchaseConfirmTmp.NW_DeliveryDate            =  PurchTable::find(NW_VendPurchOrderJour.PurchId).DeliveryDate;
        _NW_PurchaseConfirmTmp.NW_Currency         = NW_VendPurchOrderJour.purchTable().CurrencyCode;
        _NW_PurchaseConfirmTmp.NW_Amount           = NW_VendPurchOrderJour.Amount;

        if(NW_VendPurchOrderJour.purchTable().CurrencyCode =="SAR")
        {
            _WordToNumAR.bigCurrency(" ريـال سعودي");
            _WordToNumAR.smallCurrency(" هلله");

        }
        if(NW_VendPurchOrderJour.Amount<0)
        {
            _NW_PurchaseConfirmTmp.NW_AmountArabic =   _WordToNumAR.WordToNumAR(num2str((NW_VendPurchOrderJour.Amount*-1),0,2,1,0)) + " فقط لاغير ";

            _NW_PurchaseConfirmTmp.NW_AmountEng=  numeralsToTxt_EN(NW_VendPurchOrderJour.Amount*-1);

            _NW_PurchaseConfirmTmp.NW_VatAmountArabic =   _WordToNumAR.WordToNumAR(num2str(( NW_VendPurchOrderJour.SumTax*-1),0,2,1,0)) + " فقط لاغير ";

            _NW_PurchaseConfirmTmp.NW_VatAmountEng =  numeralsToTxt_EN(NW_VendPurchOrderJour.SumTax*-1);
        }
        else
        {
            _NW_PurchaseConfirmTmp.NW_AmountArabic =   _WordToNumAR.WordToNumAR(num2str((NW_VendPurchOrderJour.Amount),0,2,1,0)) + " فقط لاغير ";

            _NW_PurchaseConfirmTmp.NW_AmountEng=  numeralsToTxt_EN(NW_VendPurchOrderJour.Amount);

            _NW_PurchaseConfirmTmp.NW_VatAmountArabic =   _WordToNumAR.WordToNumAR(num2str(( NW_VendPurchOrderJour.SumTax),0,2,1,0)) + " فقط لاغير ";

            _NW_PurchaseConfirmTmp.NW_VatAmountEng =  numeralsToTxt_EN(NW_VendPurchOrderJour.SumTax);
        }
        _NW_PurchaseConfirmTmp.NW_DeliveryTerms = DlvTerm::find(NW_VendPurchOrderJour.purchTable().DlvTerm).Txt;
        _NW_PurchaseConfirmTmp.NW_PaymentTerms = PaymTerm::find(NW_VendPurchOrderJour.purchTable().Payment).Description;

        while select NW_PurchLineAllVersions  where NW_PurchLineAllVersions.PurchTableVersionRecId == NW_VendPurchOrderJour.PurchTableVersion
        {
            
       

            _NW_PurchaseConfirmTmp.NW_ItemName        =  NW_PurchLineAllVersions.Name;
            _NW_PurchaseConfirmTmp.NW_ItemId          =  NW_PurchLineAllVersions.ItemId;
            _NW_PurchaseConfirmTmp.NW_Qty             =  NW_PurchLineAllVersions.PurchQty;
            _NW_PurchaseConfirmTmp.NW_Price           =  NW_PurchLineAllVersions.PurchPrice;
            _NW_PurchaseConfirmTmp.NW_Unit            =  NW_PurchLineAllVersions.PurchUnit;

            
          /*  purchTable = PurchTable::find(NW_PurchLineAllVersions.PurchId);
            purchTotals = purchTotals::newPurchTable(purchTable);
            purchTotals.calc();
            tmpTax.setTmpData(purchTotals.tax().tmpTaxWorkTrans());
            _NW_PurchaseConfirmTmp.NW_VatRatio =  tmpTax.TaxCode;
            _NW_PurchaseConfirmTmp.NW_LineAmountIncVat      =  (NW_PurchLineAllVersions.LineAmount + tmpTax.TaxAmount)- NW_PurchLineAllVersions.LineDisc;;*/
         
            select sum(SourceRegulateAmountCur) from taxJournalTrans
        where taxJournalTrans.TransRecId    == NW_PurchLineAllVersions.RECID
            && taxJournalTrans.TransTableId  == tableNum(PurchLineAllVersions);
            _NW_PurchaseConfirmTmp.NW_VatAmount =  taxJournalTrans.SourceRegulateAmountCur;
            _NW_PurchaseConfirmTmp.NW_LineAmountIncVat =   _NW_PurchaseConfirmTmp.NW_VatAmount +
                NW_PurchLineAllVersions.LineAmount;
           
            _NW_PurchaseConfirmTmp.insert();
        }
        
    }

}
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter