method DeleteBudgetLinkAccByBudgetID

Description

This method will delete all BudgetlinkAcc records dependent on the BudgetID

Parameters

icBudgetIDS	input	character	Budget ID
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program4/bbudgetlinkacc.p)

/* first check if the paramters contain some values */
if icBudgetIDS = "":U or icBudgetIDS = ?
then return.

/* Get all BudgetLinks with the BudgetID                                  */
/* pay attention that the parameter icBudgetIDS can contain several IDs ! */
do viCounter= 1 to num-entries(icBudgetIDS,chr(2)):

    /* read the correct Budgetlink record with the budgetID */
    
    <Q-1 run BudgetLinkAccByBudgetID (all) (Read) (NoCache)
          (input entry(viCounter, icBudgetIDS, chr(2)), (Budget_ID)
           output dataset tqBudgetLinkAccByBudgetID) in BBudgetLinkAcc >
    
    find first tqBudgetLinkAccByBudgetID no-lock no-error.
    if not available tqBudgetLinkAccByBudgetID
    then return.

    /* concatinate all budgetlinkID to load all the data at once*/
    for each tqBudgetLinkAccByBudgetID:
         assign vcBudgetLinkIDS = (if vcBudgetLinkIDS = "":U
                                  then string(tqBudgetLinkAccByBudgetID.tiBudgetLinkAcc_ID)
                                  else vcBudgetLinkIDS + chr(4) + string(tqBudgetLinkAccByBudgetID.tiBudgetLinkAcc_ID)).
    end.
end.

/* Get all the necessary records with a list of budgetIDS */
 <M-2 run DataLoad (input  ? (icRowids), 
                   input  vcBudgetLinkIDS (icPkeys), 
                   input  ? (icObjectIds), 
                   input  ? (icFreeform), 
                   input  ? (ilKeepPrevious), 
                   output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkAcc>

if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 
then return.

/* set all the records that are read to status D(eleted) */
for each tBudgetLinkAcc:
    assign tBudgetLinkAcc.tc_Status = "D":U.
end.

/* validate the data that will be deleted */
<M-3 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkAcc>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 
then return.

/*
/* do some additional/external updates if necessary */
<M-? run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkActual>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 
then return.
*/

/* commit everything to the Database */
<M-4 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkAcc>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 
then return.