project QadFinancials > class BDDocument > method ListAllowedStatusUpto
Parameters
ocAllowedStatuses | output | character | |
icCurrentStatus | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bddocument.p)
assign vcCurrentStatusTranslated = <M-1 GetDDocumentStatusTranslation (input icCurrentStatus (icStatus)) in BDDocument>.
case vcActivityDDocCodeChoosen:
when "Create upto Initial status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT}
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR}
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT}.
when "Create upto Portfolio status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO}
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO-TR}
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT} + chr(2) +
{&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO}.
when "Create upto Accepted status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO} + ",":U +
{&DOCUMENTSTATUS-ACCEPT}
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO} + ",":U +
{&DOCUMENTSTATUS-ACCEPT}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) +
{&DOCUMENTSTATUS-ACCEPT-TR}
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT} + chr(2) +
{&DOCUMENTSTATUS-ACCEPT-TR} + chr(2) + {&DOCUMENTSTATUS-ACCEPT} + chr(2) +
{&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO}.
when "Modify upto Initial status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT} + ",":U + icCurrentStatus
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + vcCurrentSTatusTranslated
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT} + chr(2) +
vcCurrentSTatusTranslated + chr(2) + icCurrentStatus.
when "Modify upto Portfolio status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO} + ",":U + icCurrentStatus
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) +
vcCurrentSTatusTranslated
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT} + chr(2) +
{&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO} + chr(2) +
vcCurrentSTatusTranslated + chr(2) + icCurrentStatus.
when "Modify upto Accepted status":U
then assign vcAllowedDDocStatusUptoActivity = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO} + ",":U +
{&DOCUMENTSTATUS-ACCEPT} + ",":U + icCurrentStatus
vcAllowedDDocStatusUptoForVal = {&DOCUMENTSTATUS-INIT} + ",":U + {&DOCUMENTSTATUS-PORTFOLIO} + ",":U +
{&DOCUMENTSTATUS-ACCEPT}
vcAllowedDDocStatusUptoActTR = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) +
{&DOCUMENTSTATUS-ACCEPT-TR} + chr(2) + vcCurrentSTatusTranslated
ocAllowedStatuses = {&DOCUMENTSTATUS-INIT-TR} + chr(2) + {&DOCUMENTSTATUS-INIT} + chr(2) +
{&DOCUMENTSTATUS-ACCEPT-TR} + chr(2) + {&DOCUMENTSTATUS-ACCEPT} + chr(2) +
{&DOCUMENTSTATUS-PORTFOLIO-TR} + chr(2) + {&DOCUMENTSTATUS-PORTFOLIO} + chr(2) +
vcCurrentSTatusTranslated + chr(2) + icCurrentStatus.
otherwise assign vcAllowedDDocStatusUptoActivity = "":U
vcAllowedDDocStatusUptoActTR = "":U.
end.