po report
Mon Feb 19 2024 10:44:11 GMT+0000 (Coordinated Universal Time)
Saved by @MinaTimo
[
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();
}
}
}



Comments