Parameters
| itInputDate | input | date | |
| otOutputDate | output | date | |
| iiCompanyId | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bpaymentcondition.p)
/*<Q-77 run SelectHoliday (all) (Read) (NoCache)
(input iiCompanyId, (CompanyId)
output dataset tqSelectHoliday) in BHoliday>
find tqSelectHoliday where tqSelectHoliday.ttHolidayDate = itInputDate NO-ERROR.
if available tqSelectHoliday then do:
<M-4 run NextWorkingDay
(input itInputDate + 1 (itInputDate),
output otOutputDate (otOutputDate),
input iiCompanyId (iiCompanyId),
output oiReturnStatus (oiReturnStatus)) in BPaymentCondition>
end.
else*/
if not weekday(itInputDate) = 7 and not weekday(itInputDate) = 1 then do:
assign otOutputDate = itInputDate.
end.
else <M-58 run NextWorkingDay
(input itInputDate + 1 (itInputDate),
output otOutputDate (otOutputDate),
input iiCompanyId (iiCompanyId),
output oiReturnStatus (oiReturnStatus)) in BPaymentCondition>.