project QadFinancials > class BDDocument > method ListAllowedStatusUpto


Parameters


ocAllowedStatusesoutputcharacter
icCurrentStatusinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDDocument.ListAllowedStatus


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.