Transfer Doc Attachment From Req TO Po After Release

Transfer Doc Attachment From Req TO Po After Release

class CFSDoc

{

[PostHandlerFor(classStr(PurchAutoCreate_PurchReq), methodStr(PurchAutoCreate_PurchReq, endUpdate))]

public static void PurchAutoCreate_PurchReq_Post_endUpdate(XppPrePostArgs args)

{

PurchAutoCreate_PurchReq purchAutoCreate = args.getThis();

DocuRef docuRef;

DocuType docuType;

DocuRef docuRef2;

PurchReqLine purchReqLine;

PurchTable purchTable;

PurchReqTable purchReqTable;

select firstOnly crossCompany purchTable

where PurchTable.RecId == purchAutoCreate.parmPurchTable().RecId

join purchReqLine

where PurchReqLine.PurchId == PurchTable.PurchId

&& purchReqLine.PurchIdDataArea == PurchTable.dataAreaId

join purchReqTable

where purchReqLine.PurchReqTable == purchReqTable.RecId

join docuRef

order by docuRef.createddatetime desc

where docuRef.RefTableId == purchReqTable.TableId

&& docuRef.RefRecId == purchReqTable.RecId

join DocuType

where DocuType.TypeId == docuRef.TypeId

&& DocuType.TypeGroup == DocuTypeGroup::Note;

if(docuRef.RecId)

{

docuRef2.data(docuRef);

docuRef2.RefTableId = tableNum(PurchTable);

docuRef2.RefRecId = purchAutoCreate.parmPurchTable().RecId;

docuRef2.RefCompanyId = curext();

docuRef2.insert();

}

}

}

要查看或添加评论,请登录

Mohamed Zakarya的更多文章

社区洞察

其他会员也浏览了