Parameters
oiCCollectionNumber | output | integer | |
otCDocumentCreationDateFrom | output | date | |
otCDocumentCreationDateTill | output | date | |
otCDocumentDueDateFrom | output | date | |
otCDocumentDueDateTill | output | date | |
olCDocumentIsOpen | output | logical | |
oiCDocumentNumberFrom | output | integer | |
oiCDocumentNumberTo | output | integer | |
oiCDocumentPrePrintedNumberFrom | output | integer | |
oiCDocumentPrePrintedNumberTo | output | integer | |
ocCDocumentReference | output | character | |
ocCDocumentStatus | output | character | |
ocCDocumentSubType | output | character | |
olCDocumentTimesPrinted | output | logical | |
oiCDocumentYear | output | integer | |
ocCreditorCode | output | character | |
ocCurrencyCode | output | character | |
ocPaySelCode | output | character | |
olIncreaseCDocumentTimesPrinted | output | logical | |
olAssignCDocumentPrePrintedNum | output | logical | |
oiStartCDocumentPrePrintedNum | output | integer | |
oiSkipCDocumentPrePrintedNum | output | integer | |
oiBankPayformatID | output | integer | |
ocPrintType | output | character | |
ocCreditorFromBRName | output | character | |
ocCreditorToBRName | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/bcdocumentreport.p)
assign ocCDocumentReference = ?
ocCDocumentStatus = ?
ocCDocumentSubType = ?
ocCreditorCode = ?
ocCurrencyCode = ?
ocPaySelCode = ?
ocCreditorFromBRName = ?
ocCreditorToBRName = ?.
for each tFilter:
case tFilter.tcBusinessFieldName:
when "BankPayFormatID":U
then assign oiBankPayformatID = int(tFilter.tcParameterValue) no-error.
when "PrintType":U
then assign ocPrintType = tFilter.tcParameterValue no-error.
when "CCollectionNumber":U
then assign oiCCollectionNumber = int(tFilter.tcParameterValue) no-error.
when "CDocumentCreationDate_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign otCDocumentCreationDateFrom = date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
else
if tFilter.tcOperator = "<=":U
then assign otCDocumentCreationDateTill = date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
end.
when "CDocumentDueDate_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign otCDocumentDueDateFrom = date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
else
if tFilter.tcOperator = "<=":U
then assign otCDocumentDueDateTill = date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
end.
when "CDocumentIsOpen":U
then assign olCDocumentIsOpen = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
when "CDocumentNumber_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign oiCDocumentNumberFrom = int(tFilter.tcParameterValue) no-error.
else
if tFilter.tcOperator = "<=":U
then assign oiCDocumentNumberTo = int(tFilter.tcParameterValue) no-error.
end.
when "CDocumentPrePrintedNumber_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign oiCDocumentPrePrintedNumberFrom = int(tFilter.tcParameterValue) no-error.
else
if tFilter.tcOperator = "<=":U
then assign oiCDocumentPrePrintedNumberTo = int(tFilter.tcParameterValue) no-error.
end.
when "CDocumentReference":U
then assign ocCDocumentReference = tFilter.tcParameterValue.
when "CDocumentStatus":U
then assign ocCDocumentStatus = tFilter.tcParameterValue.
when "CDocumentSubType":U
then assign ocCDocumentSubType = tFilter.tcParameterValue.
when "CDocumentTimesPrinted":U
then assign olCDocumentTimesPrinted = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
when "CDocumentYear":U
then assign oiCDocumentYear = int(tFilter.tcParameterValue) no-error.
when "CreditorCode":U
then assign ocCreditorCode = tFilter.tcParameterValue.
when "CurrencyCode":U
then assign ocCurrencyCode = tFilter.tcParameterValue.
when "PaySelCode":U
then assign ocPaySelCode = tFilter.tcParameterValue.
when "IncreaseCDocumentTimesPrinted":U
then assign olIncreaseCDocumentTimesPrinted = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
when "AssignCDocumentPrePrintedNumber":U
then assign olAssignCDocumentPrePrintedNum = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
when "StartFromCDocumentPrePrintedNumber":U
then assign oiStartCDocumentPrePrintedNum = int(tFilter.tcParameterValue) no-error.
when "SkipCDocumentPrePrintedNumber":U
then assign oiSkipCDocumentPrePrintedNum = int(tFilter.tcParameterValue) no-error.
when "CreditorBRName_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign ocCreditorFromBRName = tFilter.tcParameterValue no-error.
else
if tFilter.tcOperator = "<=":U
then assign ocCreditorToBRName = tFilter.tcParameterValue no-error.
end.
end.
end.