Description
Releases the old voucher and gets a new voucher for the new year/journal code.
Parameters
iiCompanyId | input | integer | Company id |
iiPostingID | input | integer | |
iiNewPostingYear | input | integer | New Year |
icNewJournalCode | input | character | New Journal |
oiNewVoucher | output | integer | New Voucher |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program5/bcashbox.p)
MAIN_BLOCK:
do on error undo, leave:
assign oiReturnStatus = -98
viLocalReturn = 0.
if viBJournalEntryBEID = ? or
viBJournalEntryBEID = 0
then leave MAIN_BLOCK.
/* ================================================================= */
/* Execute method in BJournalEntry component to supply new posting */
/* daybook */
/* ================================================================= */
if not valid-handle(vhBJournalEntryBEInst)
then do:
<I-24 {bFcOpenInstance
&CLASS = "BJournalEntry"}>
end.
<M-55 run UpdateYearJournal
(input iiPostingID (iiPostingID),
input ? (icPostingRowId),
input iiNewPostingYear (iiNewPostingYear),
input icNewJournalCode (icNewJournalCode),
input true (ilIsReleaseOriginalVoucher),
output oiNewVoucher (oiNewVoucherNumber),
output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>
if viFcReturnSuper < 0 or viFcReturnSuper > 0 and viLocalReturn = 0 then assign viLocalReturn = viFcReturnSuper.
if viLocalReturn < 0 then leave MAIN_BLOCK.
end. /* MAIN_BLOCK */
/* Close communication with openeed components */
if valid-handle(vhBJournalEntryBEInst)
then do:
<I-56 {bFcCloseInstance
&CLASS = "BJournalEntry"}>
end.
/* Return values */
assign oiReturnStatus = viLocalReturn.