Description
delete all budgetlinkactual records depending on the budgetID
Parameters
| icBudgetIDS | input | character | list of BudgetIDs |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program4/bbudgetlinkactual.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-2 run BudgetLinkActualByBudgetID (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input entry(vicounter,icBudgetIDS,chr(2)), (BudgetID)
output dataset tqBudgetLinkActualByBudgetID) in BBudgetLinkActual >
find first tqBudgetLinkActualByBudgetID no-lock no-error.
if not available tqBudgetLinkActualByBudgetID
then return.
/* concatinate all budgetlinkID to load all the data at once*/
for each tqBudgetLinkActualByBudgetID:
assign vcBudgetLinkIDS = (if vcBudgetLinkIDS = "":U
then string(tqBudgetLinkActualByBudgetID.tiBudgetLinkActual_ID)
else vcBudgetLinkIDS + chr(4) + string(tqBudgetLinkActualByBudgetID.tiBudgetLinkActual_ID)).
end.
end.
/* Get all the necessary records with a list of budgetIDS */
<M-6 run DataLoad
(input ? (icRowids),
input vcBudgetLinkIDS (icPkeys),
input ? (icObjectIds),
input '' (icFreeform),
input ? (ilKeepPrevious),
output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkActual>
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 tBudgetLinkActual:
assign tBudgetLinkActual.tc_Status = "D":U.
end.
/* validate the data that will be deleted */
<M-3 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkActual>
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-4 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-5 run DataSave (output viFcReturnSuper (oiReturnStatus)) in BBudgetLinkActual>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.