method GetListAllowedDocStatus

Description

Returns Allowed DDocument Status

Parameters

icDDocumentType	input	character
icDDocumentStatus	input	character
icGLCode	input	character
ilIsIncSel	input	logical
tExistingDDocTypesStatus	output	temp-table
icActivityCodeChoosen	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program6/bddocument.p)

empty temp-table tExistingDDocTypesStatus.

if icDDocumentType = "":U or
   icDDocumentType = ?
then return.

assign vcActivityDDocCodeChoosen = icActivityCodeChoosen.

<M-4 run ListAllowedStatus (input  icDDocumentStatus (icCurrentStatus), 
                            input  ilIsIncSel (ilIsIncSel), 
                            output vcAllowedStatuses (ocAllowedStatuses), 
                            output viFcReturnSuper (oiReturnStatus)) in BDDocument>

<M-5 run GetListExistingDocStatus (output tExistingDDocTypesStatus (tExistingDDocTypesStatus), 
                                   input  icDDocumentType (icDDocumentType), 
                                   input  icGLCode (icGLCode), 
                                   input  icActivityCodeChoosen (icActivityCodeChoosen), 
                                   output viFcReturnSuper (oiReturnStatus)) in BDDocument>

for each tExistingDDocTypesStatus:
    if lookup(tExistingDDocTypesStatus.tcDocumentStatus, vcAllowedStatuses, chr(2)) = 0
    then delete tExistingDDocTypesStatus.
end.