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


icBudgetFDSLinkinputcharacterthe value user input from UI
ocBudgetWBSFDSCodeFromoutputcharacterBudgetWBSFDSCodeFrom
ocBudgetWBSFDSCodeTooutputcharacterBudgetWBSFDSCodeTo
ocBudgetWBSFDSCodeoutputcharacterBudgetWBSFDSCode
ocBudgetWBSFDSListoutputcharacterBudgetWBSFDSList
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetWBSCreate
method BBudget.BudgetWBSRename


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.