- Forum
- T24 Technical Discussions
- T24 Installation & Configuration
- Do NOFILE enquiries work with ENQUIRY.REPORT?
×
Discuss on T24 Installation, Setting up the environment, TC Server, jBOSS, Package & Deployment, etc…
Do NOFILE enquiries work with ENQUIRY.REPORT?
- kareem.magdy
- Topic Author
- Visitor
-
12 years 1 month ago #13942
by kareem.magdy
Do NOFILE enquiries work with ENQUIRY.REPORT? was created by kareem.magdy
Do NOFILE enquiries work with ENQUIRY.REPORT?
I've tried once but it's not fetching any records while it's fetching all the records from the application. please advise.
I've tried once but it's not fetching any records while it's fetching all the records from the application. please advise.
Please Log in or Create an account to join the conversation.
- jpb
-
- Offline
- Moderator
-
- retired . . . ¯\_(ツ)_/¯
Less
More
- Posts: 2859
- Thank you received: 650
12 years 1 month ago #13943
by jpb
Replied by jpb on topic Do NOFILE enquiries work with ENQUIRY.REPORT?
Normally it makes no difference if it's a nofile or not, both behave identical as ENQUIRY.REPORT
Anything special in your build routine, e.g. using a common that might not be set ?
Anything special in your build routine, e.g. using a common that might not be set ?
Please Log in or Create an account to join the conversation.
- kareem.magdy
- Topic Author
- Visitor
-
12 years 1 month ago #13944
by kareem.magdy
Replied by kareem.magdy on topic Do NOFILE enquiries work with ENQUIRY.REPORT?
I don't think so, here's the code:
SUBROUTINE PDC.LIST(ALL.DATA)
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
$INSERT I_F.PDC.REGISTER
FN.PR = 'F.PDC.REGISTER'
F.PR = ''
CALL OPF(FN.PR,F.PR)
ENQDATA = ''
TOT.AMT = '0'
FLDS.NO = DCOUNT(ENQ.SELECTION,FM)
FOR FLD.IND = 2 TO FLDS.NO
IF (ENQ.SELECTION<FLD.IND>) THEN
SFLDS.NO = DCOUNT(ENQ.SELECTION<FLD.IND>,VM)
FOR SBM = 1 TO SFLDS.NO
ENQDATA<-1> = ENQ.SELECTION<FLD.IND,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 1,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 2,SBM>
ENQDATA<-1> = "AND"
NEXT SBM
END
FLD.IND = FLD.IND + 3
NEXT FLD.IND
IF ENQDATA THEN
DEL.IND = DCOUNT(ENQDATA,FM)
ENQDATA<DEL.IND> = ""
CONVERT @FM TO " " IN ENQDATA
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING AND ":ENQDATA
*:"CHQ.AMOUNT"
END
ELSE
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING"
END
CALL EB.READLIST(CMD,CMD.LIST,'',NO.OF.RECS,CMD.ERR)
* TOT.AMT = SUM(CMD.LIST)
* O.DATA = NO.OF.RECS:"|":TOT.AMT
FOR REC.IND = 1 TO NO.OF.RECS
CALL F.READ(FN.PR,CMD.LIST<REC.IND>,R.PR,F.PR,PR.ERR)
TOT.AMT = TOT.AMT + R.PR<REG.CHQ.AMOUNT>
CHQ.NO = FIELD(CMD.LIST<REC.IND>,'-',2)
DRAWER.ID = FIELD(CMD.LIST<REC.IND>,'-',3)
BC.CODE = FIELD(CMD.LIST<REC.IND>,'-',1)
IF NO.OF.RECS = REC.IND THEN
ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
FOR ARR.IND = 1 TO NO.OF.RECS
ALL.DATA<ARR.IND> = NO.OF.RECS:'|':TOT.AMT:ALL.DATA<ARR.IND>
NEXT ARR.IND
END
ELSE
ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
END
NEXT REC.IND
RETURN
END
SUBROUTINE PDC.LIST(ALL.DATA)
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
$INSERT I_F.PDC.REGISTER
FN.PR = 'F.PDC.REGISTER'
F.PR = ''
CALL OPF(FN.PR,F.PR)
ENQDATA = ''
TOT.AMT = '0'
FLDS.NO = DCOUNT(ENQ.SELECTION,FM)
FOR FLD.IND = 2 TO FLDS.NO
IF (ENQ.SELECTION<FLD.IND>) THEN
SFLDS.NO = DCOUNT(ENQ.SELECTION<FLD.IND>,VM)
FOR SBM = 1 TO SFLDS.NO
ENQDATA<-1> = ENQ.SELECTION<FLD.IND,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 1,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 2,SBM>
ENQDATA<-1> = "AND"
NEXT SBM
END
FLD.IND = FLD.IND + 3
NEXT FLD.IND
IF ENQDATA THEN
DEL.IND = DCOUNT(ENQDATA,FM)
ENQDATA<DEL.IND> = ""
CONVERT @FM TO " " IN ENQDATA
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING AND ":ENQDATA
*:"CHQ.AMOUNT"
END
ELSE
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING"
END
CALL EB.READLIST(CMD,CMD.LIST,'',NO.OF.RECS,CMD.ERR)
* TOT.AMT = SUM(CMD.LIST)
* O.DATA = NO.OF.RECS:"|":TOT.AMT
FOR REC.IND = 1 TO NO.OF.RECS
CALL F.READ(FN.PR,CMD.LIST<REC.IND>,R.PR,F.PR,PR.ERR)
TOT.AMT = TOT.AMT + R.PR<REG.CHQ.AMOUNT>
CHQ.NO = FIELD(CMD.LIST<REC.IND>,'-',2)
DRAWER.ID = FIELD(CMD.LIST<REC.IND>,'-',3)
BC.CODE = FIELD(CMD.LIST<REC.IND>,'-',1)
IF NO.OF.RECS = REC.IND THEN
ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
FOR ARR.IND = 1 TO NO.OF.RECS
ALL.DATA<ARR.IND> = NO.OF.RECS:'|':TOT.AMT:ALL.DATA<ARR.IND>
NEXT ARR.IND
END
ELSE
ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
END
NEXT REC.IND
RETURN
END
Please Log in or Create an account to join the conversation.
- jpb
-
- Offline
- Moderator
-
- retired . . . ¯\_(ツ)_/¯
Less
More
- Posts: 2859
- Thank you received: 650
12 years 1 month ago #13945
by jpb
Replied by jpb on topic Do NOFILE enquiries work with ENQUIRY.REPORT?
Do you use selection in ENQUIRY.REPORT or a RG operator?
Check your concatinated CMD before the CALL EB.READLIST , e.g. TEXT = CMD ; CALL REM
Check your concatinated CMD before the CALL EB.READLIST , e.g. TEXT = CMD ; CALL REM
The following user(s) said Thank You: kareem.magdy
Please Log in or Create an account to join the conversation.
- Forum
- T24 Technical Discussions
- T24 Installation & Configuration
- Do NOFILE enquiries work with ENQUIRY.REPORT?
Time to create page: 0.035 seconds