Dear All,
*point 2:*
I already tried it and it works. But on previous error because of I
didn't input the amount.fcy, the routine stopped after error and i
can't get the calue of TEXT variable.
*point 3:*
I already include the file layout I_F.STMT.ENTRY in my program,
but there is no
AC.STE.STME.NO in the file layout. I already changed
it to , but there is still 1 warning :
Warning: Variable STMT.ENTRIES.WITH.IDS is never assigned!
Is there something else I must include?
*point 4:*
Ok, so I can initialised V variable with anything (above 7)? Because
I've seen routines just initialized it with number, e.g. V= 11
To Pawel,
I'm trying to explore EB.ACCOUNTING because it is suggested by our
consultant. Because it is a lot faster than OFS. And the only thing I
have to make sure is the entries is balance, is it correct?
For "You should not probably perform additional accounting in AUTH
routine", I quoted this from Temenos consultant :
T24 does not allow mainline subroutine to call EB.ACCOUNTING.
So you can create new Table and in the authorize routine call
EB.ACCOUNTING.
Since you call EB.ACCOUNTING in the Table then
R.NEW always set.
And after I said that we need this to be run on batch, he said that it
is possible and i should try. I don't have any documentations about
EB.ACCOUNTING, and it's hard for me to contact this consultant. That's
why your posts help me a lot.
And I want to ask you , what is the connection between JOURNAL.UPDATE
and EB.ACCOUNTING. I don't use JOURNAL.UPDATE within my routine.
This is EB.ACCOUNTING routine I use to check all the suggestions (If
it is a success in this routine, then I'll combine it with my other
logic and calculations:
SUBROUTINE TRY.EB.ACC
$INCLUDE GLOBUS.BP I_COMMON
$INCLUDE GLOBUS.BP I_EQUATE
$INCLUDE GLOBUS.BP I_F.STMT.ENTRY
GOSUB INIT
GOSUB PREP.STMT
RETURN
INIT:
R.STMT = ''
DL.STMT.ENTRY=''
RETURN
PREP.STMT:
ID.COMPANY = 'ID0010011'
FOR CNT=1 TO 2
DL.STMT.ENTRY<AC.STE.OUR.REFERENCE> = ''
DL.STMT.ENTRY<AC.STE.TRANS.REFERENCE> = 'FT-BATCH'
DL.STMT.ENTRY<
AC.STE.SYSTEM.ID> = 'LD'
DL.STMT.ENTRY<AC.STE.BOOKING.DATE> = TODAY
DL.STMT.ENTRY<AC.STE.VALUE.DATE> = TODAY
DL.STMT.ENTRY<AC.STE.CURRENCY.MARKET> = '1'
DL.STMT.ENTRY<AC.STE.CURRENCY> = 'IDR'
IF CNT =1 THEN ;* DEBIT
DL.STMT.ENTRY<AC.STE.ACCOUNT.NUMBER> = '0000001244'
DL.STMT.ENTRY<
AC.STE.CUSTOMER.ID> = '100100'
DL.STMT.ENTRY<AC.STE.COMPANY.CODE> = ID.COMPANY
DL.STMT.ENTRY<AC.STE.PRODUCT.CATEGORY> = '6000'
DL.STMT.ENTRY<AC.STE.TRANSACTION.CODE> = '14'
DL.STMT.ENTRY<AC.STE.AMOUNT.LCY> = '-213'
END ELSE
DL.STMT.ENTRY<AC.STE.ACCOUNT.NUMBER> = '0000001252'
DL.STMT.ENTRY<
AC.STE.CUSTOMER.ID> = '100100'
DL.STMT.ENTRY<AC.STE.PRODUCT.CATEGORY> = '6000'
DL.STMT.ENTRY<AC.STE.COMPANY.CODE> = ID.COMPANY
DL.STMT.ENTRY<AC.STE.TRANSACTION.CODE> = '64'
DL.STMT.ENTRY<AC.STE.AMOUNT.LCY> = '213'
END
R.STMT<-1>=LOWER(DL.STMT.ENTRY)
NEXT CNT
AC.F = 'SAO'
V= AC.STE.VALUE.DATE
CALL EB.ACCOUNTING('LD',AC.F, R.STMT, '')
RETURN
END
Thank you .
Regards,
Pratiwi W.