Description
This method is used to generate the prodataset for Project Report.
Parameters
| ohProjectData | output | handle | Handle of Project report prodataset |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/baccountinginterface.p)
assign oiReturnStatus = -98.
/* Empty temp-tables which will be used later */
empty temp-table tProjectData.
empty temp-table tReport.
/* to create a temp table, due to EDI limitation */
create tReport.
assign tReport.tiReportID = 1.
<Q-1 run ProjectByCode (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input ?, (ProjectCode)
output dataset tqProjectByCode) in BProject >
for each tqProjectByCode:
create tProjectData.
assign
tProjectData.tcProjectCodeData = tqProjectByCode.tcProjectCode
tProjectData.tcProjectDescription = tqProjectByCode.tcProjectDescription
tProjectData.tiReportID = 1.
end. /* for each tqProjectByCode: */
/* Use prodataset to encapsulat the temp-table */
create dataset ohProjectData in widget-pool "non-persistent".
create buffer vhReport for table buffer tReport:handle in widget-pool "non-persistent".
create buffer vhProjectData for table buffer tProjectData:handle in widget-pool "non-persistent".
ohProjectData:set-buffers(vhReport, vhProjectData).
ohProjectData:add-relation(vhReport, vhProjectData, 'tiReportID,tiReportID', ?, true).
ohProjectData:name = {&EXPORTREPORTCODE-XMXX}.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.