project QadFinancials > class BJournalEntry > method DeleteTransPosting

Description

Called to delete Transient Postings


Parameters


icPostingIdinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BCInvoice.ClearMFPosting


program code (program1/bjournalentry.p)

assign oiReturnStatus = -98.
        
   
   
if icPostingid = ? then assign icPostingid = "":U.
  do viCounter = num-entries(icPostingID) to 1 by -1 :
    
    find tPosting where
             tPosting.Posting_ID = INTEGER(entry(viCounter,icPostingID))
             no-error.
        if not available tPosting
        then next.
        
        <M-40 run DeletePosting
           (input  tPosting.tc_Rowid (icPostingRowId), 
            output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>
        
        if viFcReturnSuper <> 0 
        then assign oiReturnStatus = viFcReturnSuper.
        if viFcReturnSuper < 0
        then return.
    
       
  end.
  
 if oiReturnStatus = -98
    then assign oiReturnStatus = 0.