report procedure
Parameters
| icLanguageCode | input | character | Language Code. |
| tFilter | input | temp-table | Temp table likes filter, stores all user input information on User interface report select criteria. |
| dcrAdvancePrintOut | output | dataset | Dataset of dcrAdvancePrintOut, and this dataset will be used in Employee Advance Report. |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program7/bemployeereport.p)
empty temp-table tqAdvancePrintOut.
/* Get labels for this report */
<M-1 run GetReportLabels (input 'AdvancePrintOut':U (icReportName),
input icLanguageCode (icLanguageCode),
input tFilter (tFilter),
output tqHeader (tqHeader),
output tqFilter (tqFilter),
output tqText (tqText),
output oiReturnStatus (oiReturnStatus)) in BEmployeeReport>
if oiReturnStatus <> 0
then return.
/* Get Values in filter */
<M-2 run SetDataItemsBasedOnFilterTT (output viFcReturnSuper (oiReturnStatus)) in BEmployeeReport>
/* Pre cache fields */
<Q-4 run DivisionByIdCodeDetails (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input ?, (DivisionCode)
input ?, (DivisionDescription)
input ?, (DivisionIsActive)
input ?, (DivisionId)
output dataset tqDivisionByIdCodeDetails) in BDivision >
<Q-6 run BLWIGroupByIdCode (all) (Read) (NoCache)
(input ?, (BLWIGroupId)
input ?, (BLWIGroupCode)
output dataset tqBLWIGroupByIdCode) in BBLWIGroup >
<Q-7 run PaymentConditionByIdCode (all) (Read) (NoCache)
(input ?, (PaymentConditionId)
input ?, (PaymentConditionCode)
output dataset tqPaymentConditionByIdCode) in BPaymentCondition >
<Q-8 run VatNumberByID (all) (Read) (NoCache)
(input ?, (VatNumberID)
output dataset tqVatNumberByID) in BEmployeeReport >
<Q-9 run CountryByCode (all) (Read) (NoCache)
(input ?, (CountryCode)
output dataset tqCountryByCode) in BCountry >
/* Run Main query */
<Q-3 run BaseAdvancePrintOut (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input viERAPYearFilter, (AccYear)
input vcERJournalCodeFilter, (JournalCode)
input viERFromCInvoiceVoucherFilter, (FromVoucher)
input viERToCInvoiceVoucherFilter, (ToVoucher)
input vcEREmployeeCodeCandoFilter, (EmployeeCodes)
input vcERCreditorCodeFilter, (CreditorCode)
input vcERCurrencyFilter, (CurrencyCode)
input 'PREPAYMENT':U, (InvoiceType)
input 'HEADOFFICE':U, (AddressType)
output dataset tqBaseAdvancePrintOut) in BEmployeeReport >
for each tqBaseAdvancePrintOut:
create tqAdvancePrintOut.
buffer-copy tqBaseAdvancePrintOut to tqAdvancePrintOut no-error.
/* assign cached values */
find first tqDivisionByIdCodeDetails where tqDivisionByIdCodeDetails.tiDivision_ID = tqBaseAdvancePrintOut.tiDivision_ID no-error.
if available tqDivisionByIdCodeDetails
then assign tqAdvancePrintOut.tcDivisionCode = tqDivisionByIdCodeDetails.tcDivisionCode
tqAdvancePrintOut.tcDivisionDescription = tqDivisionByIdCodeDetails.tcDivisionDescription.
find first tqBLWIGroupByIdCode where tqBLWIGroupByIdCode.tiBLWIGroup_ID = tqBaseAdvancePrintOut.tiBLWIGroup_ID no-error.
if available tqBLWIGroupByIdCode
then assign tqAdvancePrintOut.tcBLWIGroupCode = tqBLWIGroupByIdCode.tcBLWIGroupCode
tqAdvancePrintOut.tcBLWIGroupDescription = tqBLWIGroupByIdCode.tcBLWIGroupDescription.
find first tqPaymentConditionByIdCode where tqPaymentConditionByIdCode.tiPaymentCondition_ID = tqBaseAdvancePrintOut.tiNormalPaymentCondition_ID no-error.
if available tqPaymentConditionByIdCode
then assign tqAdvancePrintOut.tcNPaymentConditionCode = tqPaymentConditionByIdCode.tcPaymentConditionCode
tqAdvancePrintOut.tcNPaymentConditionDescription = tqPaymentConditionByIdCode.tcPaymentConditionDescript
tqAdvancePrintOut.tcNPaymentConditionPaymentType = tqPaymentConditionByIdCode.tcPaymentConditionPaymentTyp
tqAdvancePrintOut.tcNPaymentConditionPeriodType = tqPaymentConditionByIdCode.tcPaymentConditionPeriodType
tqAdvancePrintOut.tiNPaymentConditionDaysMonths = tqPaymentConditionByIdCode.tiPaymentConditionDaysMonths
tqAdvancePrintOut.tiNPaymentConditionSupplemDays = tqPaymentConditionByIdCode.tiPaymentConditionSupplDays
tqAdvancePrintOut.tdNPaymnetConditionPercentage = tqPaymentConditionByIdCode.tdPaymentConditionPercentage.
find first tqPaymentConditionByIdCode where tqPaymentConditionByIdCode.tiPaymentCondition_ID = tqBaseAdvancePrintOut.tiNormalPaymentCondition_ID no-error.
if available tqPaymentConditionByIdCode
then assign tqAdvancePrintOut.tcDPaymentConditionCode = tqPaymentConditionByIdCode.tcPaymentConditionCode
tqAdvancePrintOut.tcDPaymentConditionDescription = tqPaymentConditionByIdCode.tcPaymentConditionDescript
tqAdvancePrintOut.tcDPaymentConditionPaymentType = tqPaymentConditionByIdCode.tcPaymentConditionPaymentTyp
tqAdvancePrintOut.tcDPaymentConditionPeriodType = tqPaymentConditionByIdCode.tcPaymentConditionPeriodType
tqAdvancePrintOut.tiDPaymentConditionDaysMonths = tqPaymentConditionByIdCode.tiPaymentConditionDaysMonths
tqAdvancePrintOut.tiDPaymentConditionSupplemDays = tqPaymentConditionByIdCode.tiPaymentConditionSupplDays
tqAdvancePrintOut.tdDPaymnetConditionPercentage = tqPaymentConditionByIdCode.tdPaymentConditionPercentage.
find first tqCountryByCode where tqCountryByCode.tiCountry_ID = tqBaseAdvancePrintOut.tiCompnayCountry_ID no-error.
if available tqCountryByCode
then assign tqAdvancePrintOut.tcCompanyCountry = tqCountryByCode.tcCountryCode.
find first tqCountryByCode where tqCountryByCode.tiCountry_ID = tqBaseAdvancePrintOut.tiCountry_ID no-error.
if available tqCountryByCode
then assign tqAdvancePrintOut.tcCountryCode = tqCountryByCode.tcCountryCode.
end.