method EmployeeMasterCard

report procedure

Parameters

icLanguageCode	input	character	Language Code.
tFilter	input	temp-table	Temp table likes filter, stores all the user input information on User Interface.
dcrEmployeeMasterCard	output	dataset	Dataset of EmployeeMasterCard, and this dataset will be used in Employee Report.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program7/bemployeereport.p)

empty temp-table tqEmployeeMasterCard.

assign vhFcComponent = ?.
/* get Report Labels */
<M-17 run GetReportLabels
   (input  'EmployeeMasterCard':U (icReportName), 
    input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output tqHeader (tqHeader), 
    output tqFilter (tqFilter), 
    output tqText (tqText), 
    output viFcReturnSuper (oiReturnStatus)) in BEmployeeReport>
                          
/* return when unable to get label */
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 then return.

assign vhFcComponent = ?.
/* get Filter parameter value and save as class variables to be used for query */
<M-14 run SetDataItemsBasedOnFilterTT
   (output viFcReturnSuper (oiReturnStatus)) in BEmployeeReport>

/* handle error */
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 then return.

<Q-16 run AllItemsForEmployee (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input vcERAddressCityFilter, (AddressCity)
    input vcERAddressStreetFilter, (AddressStreet)
    input vcERBRCodeFilter, (BRCode)
    input vcERBRNameFilter, (BRName)
    input vcERCreditorCodeFilter, (CreditorCode)
    input vcEREmployeeCodeCandoFilter, (EmployeeCodeCando)
    input vcEREmployeeCodeFromFilter, (EmployeeCodeFrom)
    input vcEREmployeeCodeToFilter, (EmployeeCodeTo)
    input vcERUserNameFilter, (UserName)
    input vtEREndDateFromFilter, (EndDateFrom)
    input vtEREndDateToFilter, (EndDateTo)
    input vtERStartDateFromFilter, (StartDateFrom)
    input vtERStartDateToFilter, (StartDateTo)
    input vlEREmployeeIsActiveFilter, (EmployeeIsActive)
    input vlEREmployeeIsUserFilter, (EmployeeIsUser)
    input vlEREmployeeIsExternalFilter, (EmloyeeIsExternal)
    input vcEmployeeDepartmentCodeFilter, (EmployeeDepartmentCode)
    input vcEmployeeJobTitleFilter, (EmployeeJobTitle)
    output dataset tqAllItemsForEmployee) in BEmployeeReport >

/* create output temp-table and copy the query results to target output temp-table */
for each tqAllItemsForEmployee:
    create tqEmployeeMasterCard.
    buffer-copy tqAllItemsForEmployee to tqEmployeeMasterCard.
end. /* for each tqEmployeeAllItemsMR */