project QadFinancials > class PMFGPendingVoucher > method CheckOpenGLPeriod

Parameters

Internal usage

program code (program1/pmfgpendingvoucher.p)

if oiReturnStatus = 0 
then assign oiReturnStatus = -98.
    
/* assign the data handles */
assign vhIn    = ?
       vhInOut = dataset tOpenPvoMstrGLPeriod:handle
       vhOut   = ?.

/* Call the API method */
<M-67 run CallService
   (input  vcDefaultMfgProgram (icProgramName), 
    input  'OpenPvoMstrForPeriod':U (icMethodName), 
    input  vhIn (izInput), 
    input-output vhInOut (bzInputOutput), 
    input-output vhOut (bzOutput), 
    input  ? (icAsyncHandler), 
    output viFcReturnSuper (oiReturnStatus)) in PMFGPendingVoucher>
    
if viFcReturnSuper <> 0
then do:
    assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus = -1
    then do:    
        Find tFcMessages where 
             tFcMessages.tcFcType      <> "W":U       and 
             tFcMessages.tcFcType      <> "":U        and 
             tFcMessages.tcFcType      <> ?           and 
             tFcMessages.tcFcMsgNumber  = "BLF-435":U and 
             (tFcMessages.tcFcContext   matches "*QRA-38*":U or
              tFcMessages.tcFcContext   matches "*1562*")
             no-error.
        if available tFcMessages
        then do:
            assign oiReturnStatus = 0.
            Delete tFcMessages.
        end.
    end.
end.    
else do:    
    /* process the temp-table */
    for first tOpenPvoMstrGLPeriod where
              tOpenPvoMstrGLPeriod.tiOpenStatus < 0 and
              tOpenPvoMstrGLPeriod.tiOpenStatus <> -98:
    
        assign oiReturnStatus = -1.
    
    end.  /* for first ... */ 
end.

if oiReturnStatus = -98
then assign oiReturnStatus = 0.

delete object vhInOut.