Purchase category
1.
PO invoice and product
receipt
Changes have been done in the forms clicked ok methods of post and
close ok
Blow is code for product receipt
// po category start
VendPackingSlipJour vendPackingSlipJour;
Vik_PurchaseOrderCategory poCategory;
int
daydiff,prodreceiptcount;
PurchTable purchTableLocal;
if(curext() == 'SDS')
{
if(
classidget(purchFormLetter) == classnum(PurchFormLetter_PackingSlip))
//&& (purchTable.Vik_PurchaseCategory != Vik_PurchaseCategory::None))
{
select
purchTableLocal where purchTableLocal.PurchId ==
purchFormLetter.purchTable().PurchId;
select
poCategory where poCategory.Vik_PurchaseCategory == purchTableLocal.Vik_PurchaseCategory;
select
count(RecId) from vendPackingSlipJour where vendPackingSlipJour.PurchId ==
purchTableLocal.PurchId;
prodreceiptcount
= int642int(vendPackingSlipJour.RecId);
if(prodreceiptcount
> poCategory.DeliveryTimes)
throw
error(strFmt(" The Product receipt for Purchase Order %1 has exceeded for
the category %2",purchTableLocal.PurchId,purchTableLocal.Vik_PurchaseCategory));
}
}
// po category end
Below is code for Invoice
void clicked()
{
// po category start
Vik_PurchaseOrderCategory poCategory;
int
daydiff,prodreceiptcount;
PurchTable purchTableLocal;
if(curext() == 'SDS')
{
select
purchTableLocal where purchTableLocal.PurchId ==
purchFormLetter.purchTable().PurchId;
if(
classidget(purchFormLetter) == classnum(PurchFormLetter_Invoice) &&
(purchTable.Vik_PurchaseCategory != Vik_PurchaseCategory::None))
{
select
poCategory where poCategory.Vik_PurchaseCategory == purchTableLocal.Vik_PurchaseCategory;
// daydiff = purchTableLocal.createdDateTime -
DateTimeUtil::getSystemDateTime();
daydiff =
DateTimeutil::getDifference(DateTimeUtil::getSystemDateTime(),
purchtablelocal.createddatetime) / 86400;
if(daydiff >
poCategory.ExpireDays)
throw
error(strFmt(" The Purchase Order %1 has exceeded the expire days for the
category %2",purchTableLocal.PurchId,purchTableLocal.Vik_PurchaseCategory));
}
}
// po category end
// <GEERU>
if
(SysCountryRegionCode::isLegalEntityInCountryRegion([ #isoRU ]) && !
purchFormLetter.checkBeforePost())
{
return;
}
// </GEERU>
super();
}
No comments:
Post a Comment