project QadFinancials > class BBudget > method InterpretFDSLink
Description
This method is to judge which form users adopt to input on the UI, interpret the string save result to corresponding fields.
Parameters
icBudgetFDSLink | input | character | the value user input from UI |
ocBudgetWBSFDSCodeFrom | output | character | BudgetWBSFDSCodeFrom |
ocBudgetWBSFDSCodeTo | output | character | BudgetWBSFDSCodeTo |
ocBudgetWBSFDSCode | output | character | BudgetWBSFDSCode |
ocBudgetWBSFDSList | output | character | BudgetWBSFDSList |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program9/bbudget.p)
assign oiReturnStatus = -98.
assign ocBudgetWBSFDSCode = "":U.
assign ocBudgetWBSFDSCodeFrom = "":U.
assign ocBudgetWBSFDSCodeTo = "":U.
assign ocBudgetWBSFDSList = "":U.
if icBudgetFDSLink = "#":U
then do:
assign ocBudgetWBSFDSCode = icBudgetFDSLink.
end.
else if icBudgetFDSLink = "*":U
then do:
assign ocBudgetWBSFDSCode = icBudgetFDSLink.
end.
else if index(icBudgetFDSLink, ",":U) <> 0
then do:
assign ocBudgetWBSFDSList = icBudgetFDSLink.
end.
else if index(icBudgetFDSLink, "|":U) <> 0
then do:
assign viTempIndex = index(icBudgetFDSLink, "|":U).
if index(icBudgetFDSLink, "|":U, viTempIndex + 1) = 0
then do:
assign ocBudgetWBSFDSCodeFrom = substring(icBudgetFDSLink, 1, viTempIndex - 1, "CHARACTER":U).
ocBudgetWBSFDSCodeTo = substring(icBudgetFDSLink, viTempIndex + 1, length(icBudgetFDSLink, "CHARACTER":U), "CHARACTER":U).
end.
else do:
assign ocBudgetWBSFDSList = icBudgetFDSLink.
end.
end.
else do:
assign ocBudgetWBSFDSList = icBudgetFDSLink.
end.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.