// Business event Contract
[DataContractAttribute]
final class XYZ_ICProdRcptLineContract
{
SalesOrderedQty salesQty;
SalesStatus salesLineStatus;
SalesId salesId;
ItemId itemId;
InventTransId icInventTransId;
[DataMember("SalesQty")]
public SalesOrderedQty parmSalesQty(SalesOrderedQty _salesQty = salesQty)
{
salesQty = _salesQty;
return salesQty;
}
[DataMember("IntercompanyInventTransId")]
public InventTransId parmICInventTransId(InventTransId _icInventTransId = icInventTransId)
{
icInventTransId = _icInventTransId;
return icInventTransId;
}
[DataMember("SalesStatus")]
public SalesStatus parmSalesLineStatus(SalesStatus _salesLineStatus = salesLineStatus)
{
salesLineStatus = salesLineStatus;
return salesLineStatus;
}
[DataMember("SalesId")]
public SalesId parmSalesId(SalesId _salesId = salesId)
{
salesId = _salesId;
return salesId;
}
[DataMember("ItemNumber")]
public ItemId parmItemNumber(ItemId _itemId = itemId)
{
itemId = _itemId;
return itemId;
}
}
// Request class
final class XYZ_ICProdRcptPostingRequest
{
DataAreaId legalEntity;
SalesId salesId;
PurchId purchId;
InterCompanyPurchId icPurchId;
SalesStatus salesStatus;
List salesLineList;
PackingSlipId packingSlipId;
[DataMember("PackingslipId")]
public packingSlipId parmpackingSlipId(PackingSlipId _packingSlipId = packingSlipId)
{
packingSlipId = _packingSlipId;
return packingSlipId;
}
[DataMember("PurchId")]
public PurchId parmPurchId(PurchId _purchId = purchId)
{
purchId = _purchId;
return purchId;
}
[DataMember("SalesId")]
public SalesId parmSalesId(SalesId _salesId = salesId)
{
salesId = _salesId;
return salesId;
}
[DataMember("DataAreaId")]
public DataAreaId parmDataArea(DataAreaId _legalEntity = legalEntity)
{
legalEntity = _legalEntity;
return legalEntity;
}
[DataMember("SalesLine"),
AifCollectionType('return', Types::Class, classStr(XYZ_ICProdRcptLineContract)),
AifCollectionType('_salesLine', Types::Class, classStr(XYZ_ICProdRcptLineContract))]
public List parmSalesLine(List _salesLine = salesLineList)
{
salesLineList = _salesLine;
return salesLineList;
}
public static XYZ_ICProdRcptPostingRequest construct()
{
return new XYZ_ICProdRcptPostingRequest();
}
}
// Response class
[DataContractAttribute]
final class XYZ_ICProdRcptPostingResponse
{
private boolean success;
private str errorMessage;
List valueList;
PackingSlipId packingSlipId;
[DataMember('SalesOrderNum')]
public PackingSlipId parmpackingSlipId(SalesId _packingSlipId = packingSlipId)
{
packingSlipId = _packingSlipId;
return packingSlipId;
}
[DataMember("ErrorMessage")]
public str parmErrorMessage(str _value = errorMessage)
{
errorMessage = _value;
return errorMessage;
}
[DataMember("Success")]
public Boolean parmSuccess(Boolean _value = success)
{
success = _value;
return success;
}
[DataMember("Value"),
AifCollectionType("Header",Types::Class,classStr(XYZ_ICProdRcptPostingRequest)),
AifCollectionType("return",Types::Class,classStr(XYZ_ICProdRcptPostingResponse))]
public List parmValue(List _value = valueList)
{
valueList = _value;
return valueList;
}
public static XYZ_ICProdRcptPostingResponse construct()
{
return new XYZ_ICProdRcptPostingResponse();
}
}
// service class
final class XYZ_ICProdRcptPostingService
{
PurchTable purchTable;
PurchLine purchLine;
XYZ_ICProdRcptPostingRequest req;
XYZ_ICProdRcptLineContract lineContract;
XYZ_ICProdRcptPostingResponse response;
ListEnumerator leHeader;
ListEnumerator lineList;
PurchFormLetter purchFormLetter;
PurchFormletterParmData purchFormLetterParmData;
PurchParmUpdate purchParmUpdate;
PurchParmTable purchParmTable;
PurchParmLine purchParmLine;
VendPackingSlipJour vendPackingSlipJour;
public XYZ_ICProdRcptPostingResponse postProductReceipt(XYZ_ICProdRcptPostingRequest request)
{
List salesLineList = new List(Types::Class);
//leHeader = header.getEnumerator();
salesLineList = request.parmSalesLine();
lineList = salesLineList.getEnumerator();
lineList.reset();
ttsbegin;
changecompany(request.parmDataArea())
{
select purchTable where purchTable.PurchId == request.parmPurchId();
/*
//Validate if Purchase order is in Confirmed state.
if(purchtable.DocumentState != VersioningDocumentState::Confirmed)
{
throw error(strFmt("The purchase order should be in confirmed state."));
}
*/
purchFormLetterParmData = PurchFormletterParmData::newData( DocumentStatus::PackingSlip,
VersioningUpdateType::Initial);
purchFormLetterParmData.parmOnlyCreateParmUpdate(true);
purchFormLetterParmData.createData(false);
purchParmUpdate = purchFormLetterParmData.parmParmUpdate();
purchParmTable.clear();
purchParmTable.TransDate = SystemDateGet();
purchParmTable.Ordering = DocumentStatus::PackingSlip;
purchParmTable.ParmJobStatus = ParmJobStatus::Waiting;
purchParmTable.Num = request.parmpackingSlipId(); //packingSlipId;//To-Do check for number sequence
purchParmTable.PurchId = purchTable.PurchId;
purchParmTable.PurchName = purchTable.PurchName;
purchParmTable.DeliveryName = purchTable.DeliveryName;
purchParmTable.DeliveryPostalAddress = purchTable.DeliveryPostalAddress;
purchParmTable.OrderAccount = purchTable.OrderAccount;
purchParmTable.CurrencyCode = purchTable.CurrencyCode;
purchParmTable.InvoiceAccount = purchTable.InvoiceAccount;
purchParmTable.ParmId = purchParmUpdate.ParmId;
purchParmTable.insert();
while (lineList.moveNext())
{
lineContract = lineList.current();
// Set PurchParmLine table
select purchLine
where purchLine.PurchId == purchTable.purchId
&& purchLine.ItemId == lineContract.parmItemNumber()
&& purchLine.InterCompanyInventTransId == lineContract.parmICInventTransId();
if (purchLine)
{
purchParmLine.InitFromPurchLine(purchLine);
purchParmLine.ReceiveNow = PurchLine.PurchQty;
purchParmLine.ParmId = purchParmTable.ParmId;
purchParmLine.TableRefId = purchParmTable.TableRefId;
purchParmLine.setQty(DocumentStatus::PackingSlip, false, true);
purchParmLine.setLineAmount();
purchParmLine.insert();
}
}
purchFormLetter = PurchFormLetter::construct(DocumentStatus::PackingSlip);
purchFormLetter.transDate(systemDateGet());
purchFormLetter.proforma(false);
purchFormLetter.specQty(PurchUpdate::All);
purchFormLetter.purchTable(purchTable);
//purchFormLetter.showQueryForm(false);
// This is the ID we hard code as the product receipt ID, if we do the posting via UI
// user would have the option to manually enter this value
purchFormLetter.parmParmTableNum(purchParmTable.ParmId);
purchFormLetter.parmId(purchParmTable.ParmId);
purchFormLetter.purchParmUpdate(purchFormLetterParmData.parmParmUpdate());
purchFormLetter.run();
info(strFmt("Product Receipt posted successfully."));
}
ttscommit;
select vendPackingSlipJour where vendPackingSlipJour.PurchId == purchTable.PurchId;
response= XYZ_ICProdRcptPostingResponse::construct();
response.parmpackingSlipId(vendPackingSlipJour.PackingSlipId);
return response;
}
public void purchaseOrderInvoice(XYZ_ICProdRcptPostingRequest _request)
{
DocumentStatus documentStatus;
PurchTable purchTableLoc;
if (_request.parmPurchId())
{
purchTable = PurchTable::find(_request.parmPurchId(), true);
if (purchTable && purchTable.PurchStatus != PurchStatus::Invoiced)
{
purchFormLetter = purchFormLetter::construct(DocumentStatus::Invoice);
purchFormLetter.update(purchTable, "Inv_"+purchTable.PurchId, systemdateget());
}
select * from purchTableLoc
where purchTableLoc.PurchId == _request.parmPurchId();
if (purchTableLoc.RecId && purchTableLoc.DocumentStatus == DocumentStatus::Invoice)
{
documentStatus = purchTable.DocumentStatus;
response.parmSuccess(true);
response.parmPackingSlipId('');
response.parmErrorMessage(strfmt("Posted invoiced journal for purchase order %1",purchTableLoc.PurchId));
}
else
{
response.parmSuccess(false);
response.parmPackingSlipId('');
response.parmErrorMessage(strFmt("Failed to post invoice for purchase order %1", purchTableLoc.PurchId));
}
}
// return response;
}
public static XYZ_ICProdRcptPostingService construct()
{
return new XYZ_ICProdRcptPostingService();
}
}
