Minimum Balance
- AMMAR.FAIDI
- Topic Author
- Offline
- Elite Member
-
Less
More
- Posts: 266
- Thank you received: 13
12 years 4 months ago #11368
by AMMAR.FAIDI
Minimum Balance was created by AMMAR.FAIDI
hi all
how can i get the minimum balance in T24 during the MONTH
B.R
how can i get the minimum balance in T24 during the MONTH
B.R
Please Log in or Create an account to join the conversation.
- jpb
-
- Offline
- Moderator
-
- retired
Less
More
- Posts: 2856
- Thank you received: 649
12 years 4 months ago #11372
by jpb
Replied by jpb on topic Re: Minimum Balance
Use Fxxx.ACCT.ACTIVITY to get MINIMUM(R.ACCT.ACT<IC.ACT.BALANCE>), key is accout-YYYYMM.
Please Log in or Create an account to join the conversation.
- Valleyman1
- Offline
- Elite Member
-
Less
More
- Posts: 292
- Thank you received: 24
12 years 3 months ago #11412
by Valleyman1
Replied by Valleyman1 on topic Re: Minimum Balance
Check the following routine,you need to manipulate the dates for start so that it will not get data for years which you don't need.It is printing the id and the balance when an activity took place.
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.ACCOUNT
$INSERT I_F.ACCT.ACTIVITY
GOSUB INIT
GOSUB OPENFILES
GOSUB PROCESS
INIT:
*
Y.AC.ID = ''
R.ACCOUNT = ''
Y.ACC.ERR = ''
FS.ACC ='F.ACCT.ACTIVITY'
FS = ''
RETURN
OPENFILES:
CALL OPF(FS.ACC,FS)
RETURN
PROCESS:
*
SEL.CMD = "SELECT ":FS.ACC
BAL = ''
STMT = ''
DEBUG
CALL EB.READLIST(SEL.CMD,SEL.LIST,'',NO.OF.REC,RET.CODE)
LOOP
REMOVE Y.ACC.ID FROM SEL.LIST SETTING POS
WHILE Y.ACC.ID:POS
CALL F.READ(FS.ACC,Y.ACC.ID,R.ACCOUNT,FS,Y.ACC.ERR)
MAX.I = DCOUNT(R.ACCOUNT<IC.ACT.BALANCE>,VM)
FOR I = 1 TO MAX.I
EVENT.BAL = R.ACCOUNT<IC.ACT.BALANCE,I>
IF EVENT.BAL < 150 THEN
I = MAX.I
END
CRT Y.ACC.ID
CRT EVENT.BAL
NEXT I
REPEAT
*
RETURN
END
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.ACCOUNT
$INSERT I_F.ACCT.ACTIVITY
GOSUB INIT
GOSUB OPENFILES
GOSUB PROCESS
INIT:
*
Y.AC.ID = ''
R.ACCOUNT = ''
Y.ACC.ERR = ''
FS.ACC ='F.ACCT.ACTIVITY'
FS = ''
RETURN
OPENFILES:
CALL OPF(FS.ACC,FS)
RETURN
PROCESS:
*
SEL.CMD = "SELECT ":FS.ACC
BAL = ''
STMT = ''
DEBUG
CALL EB.READLIST(SEL.CMD,SEL.LIST,'',NO.OF.REC,RET.CODE)
LOOP
REMOVE Y.ACC.ID FROM SEL.LIST SETTING POS
WHILE Y.ACC.ID:POS
CALL F.READ(FS.ACC,Y.ACC.ID,R.ACCOUNT,FS,Y.ACC.ERR)
MAX.I = DCOUNT(R.ACCOUNT<IC.ACT.BALANCE>,VM)
FOR I = 1 TO MAX.I
EVENT.BAL = R.ACCOUNT<IC.ACT.BALANCE,I>
IF EVENT.BAL < 150 THEN
I = MAX.I
END
CRT Y.ACC.ID
CRT EVENT.BAL
NEXT I
REPEAT
*
RETURN
END
Please Log in or Create an account to join the conversation.
Time to create page: 0.072 seconds