Drop down enquiry based on condition.
Description:
We need to generate different drop downs on a version field based on another version field. We tried to populate the T array of the target field by making it as a Hot field Validation field, but it did not help. So to resolve this we created a Nofile enquiry and attached it to the target field. As this is a Nofile enquiry we can manage what to display in the field.
Below are the details:
There are 2 associated multi value fields and are,
1) THIRD.PARTY - YES or NO Field
2) APPL.TRANS - Normal Field
Version Validation:
IF THIRD.PARTY = NO THEN
ONLY 8 TRANSACTION TYPES SHOULD COME IN DROP DOWN IN THE
TRANSACTION.TYPE FIELD
TRANSACTION.TYPE FIELD
END ELSE
ONLY 3 TRANSACTION TYPES SHOULD COME IN DROP DOWN IN THE
TRANSACTION.TYPE FIELD
TRANSACTION.TYPE FIELD
END
THIRD.PARTY = COMI
IF THIRD.PARTY EQ 'YES' THEN
T (QTC.CBD.APPL.TRANS) <2> = "Withdrawal_Earning _Distribution_Loan Advances"
END ELSE
T (QTC.CBD.APPL.TRANS) <2>
= "All_Deposit_Withdrawal_Interest_Payment_Drawdown_Repayment_Scheduled
_Repayment (DSP)_None_Guarantee_Fees"
= "All_Deposit_Withdrawal_Interest_Payment_Drawdown_Repayment_Scheduled
_Repayment (DSP)_None_Guarantee_Fees"
END
Resolved Steps:
Hence this task is achieved by including one Nofile enquiry and then this enquiry is attached
with the field APPL.TRANS.
SS Record
Version Record
Note: THIRD.PARTY is previous field and THIRD.FLAG is Enquiry Selection Field.
Routine:
$INCLUDE T24.BP I_COMMON
$INCLUDE T24.BP I_EQUATE
$INCLUDE T24.BP I_ENQUIRY.COMMON
$INCLUDE QTC.BP I_F.QTC.CUST.BANK.DTLS
$INCLUDE T24.BP I_EQUATE
$INCLUDE T24.BP I_ENQUIRY.COMMON
$INCLUDE QTC.BP I_F.QTC.CUST.BANK.DTLS
*
GOSUB PROCESS
*
RETURN
*
*--------------------------------------------------------------------------------
PROCESS:
*-----------*
*
*--------------------------------------------------------------------------------
PROCESS:
*-----------*
ENQ.DATA = ''
FN.QTC.CUST.BANK.DTLS = 'F.QTC.CUST.BANK.DTLS'
F.QTC.CUST.BANK.DTLS = ''
F.QTC.CUST.BANK.DTLS = ''
CALL OPF (FN.QTC.CUST.BANK.DTLS, F.QTC.CUST.BANK.DTLS)
THIRD.PARTY = D.RANGE.AND.VALUE<1>
IF THIRD.PARTY EQ 'YES' THEN
ENQ.DATA<-1> = 'Withdrawal*'
ENQ.DATA<-1> = 'Interest Payment (Earning Distribution)*'
ENQ.DATA<-1> = ‘Drawdown (Loan Advances)*'
ENQ.DATA<-1> = 'Interest Payment (Earning Distribution)*'
ENQ.DATA<-1> = ‘Drawdown (Loan Advances)*'
END ELSE
ENQ.DATA<-1> = 'All*'
ENQ.DATA<-1> = 'Deposit*'
ENQ.DATA<-1> = 'Withdrawal*'
ENQ.DATA<-1> = 'Interest Payment*'
ENQ.DATA<-1> = 'Drawdown'
ENQ.DATA<-1> = 'Repayment'
ENQ.DATA<-1> = 'Scheduled Repayment (DSP)*'
ENQ.DATA<-1> = 'None*'
ENQ.DATA<-1> = 'Guarantee*'
ENQ.DATA<-1> = 'Fees*'
ENQ.DATA<-1> = 'Deposit*'
ENQ.DATA<-1> = 'Withdrawal*'
ENQ.DATA<-1> = 'Interest Payment*'
ENQ.DATA<-1> = 'Drawdown'
ENQ.DATA<-1> = 'Repayment'
ENQ.DATA<-1> = 'Scheduled Repayment (DSP)*'
ENQ.DATA<-1> = 'None*'
ENQ.DATA<-1> = 'Guarantee*'
ENQ.DATA<-1> = 'Fees*'
END
RETURN
END
Comments
Post a Comment