Thank you for replying...
No, I am not doing any "set skip to" here is what I am doing...
Code Snippet:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
SELECT trAnsfer.bnK_cd, SUBSTR(trAnsfer.bnK_num, 1, 2) AS coDe, ;
trAnsfer.bnK_name, Daily.ddAilydt, trAnsfer.bnK_amount, ;
Daily.ndAilylb, Daily.ndAilycb, Daily.ndAily1d, ;
bkDaily.nsWeep, (CTOD(SUBSTR(trAnsfer.daTe, 5, 2)+'/'+ ;
SUBSTR(trAnsfer.daTe, 7, 2)+'/'+SUBSTR(trAnsfer.daTe, 1, 4))) AS ;
trAndate FROM Transfer, daily WHERE Daily.cbAnkcd= ;
trAnsfer.bnK_cd AND Daily.ddAilydt=trAnsfer.bnK_bal_d AND ;
SUBSTR(ALLTRIM(trAnsfer.bnK_num), 1, 1)='A' AND ;
(CTOD(SUBSTR(trAnsfer.daTe, 5, 2)+'/'+SUBSTR(trAnsfer.daTe, 7, 2)+ ;
'/'+SUBSTR(trAnsfer.daTe, 1, 4)))=M.beGindate ORDER BY ;
Daily.ddAilydt, trAnsfer.bnK_name INTO DBF c:\temp\tran
INDEX ON bnK_cd+DTOS(ddAilydt) TAG bnK_cd
GOTO BOTTOM
IF DOW(trAn.ddAilydt)=1
trAnsdate = trAn.ddAilydt-2
ELSE
trAnsdate = trAn.ddAilydt
ENDIF
SELECT trAnsfer.bnK_cd, SUBSTR(trAnsfer.bnK_num, 1, 2) AS coDe, ;
trAnsfer.bnK_name, Daily.ddAilydt, trAnsfer.bnK_amount, ;
Daily.ndAilylb, Daily.ndAilycb, Daily.ndAily1d, ;
Daily.nsWeep, (CTOD(SUBSTR(trAnsfer.daTe, 5, 2)+'/'+ ;
SUBSTR(trAnsfer.daTe, 7, 2)+'/'+SUBSTR(trAnsfer.daTe, 1, 4))) AS ;
trAndate FROM Transfer, daily WHERE Daily.cbAnkcd= ;
trAnsfer.bnK_cd AND Daily.ddAilydt=trAnsfer.bnK_bal_d AND ;
SUBSTR(ALLTRIM(trAnsfer.bnK_num), 1, 1)='R' AND ;
(CTOD(SUBSTR(trAnsfer.daTe, 5, 2)+'/'+SUBSTR(trAnsfer.daTe, 7, 2)+ ;
'/'+SUBSTR(trAnsfer.daTe, 1, 4)))=M.beGindate ORDER BY ;
Daily.ddAilydt, trAnsfer.bnK_name INTO DBF c:\temp\tran2
INDEX ON bnK_cd+DTOS(ddAilydt) TAG bnK_cd
GOTO TOP
SET DELETED ON
SELECT trAnsfer.* FROM Transfer WHERE (trAnsdate= ;
(CTOD(SUBSTR(trAnsfer.daTe, 5, 2)+'/'+SUBSTR(trAnsfer.daTe, 7, 2)+ ;
'/'+SUBSTR(trAnsfer.daTe, 1, 4))) AND ;
SUBSTR(ALLTRIM(trAnsfer.bnK_num), 1, 1)='A') INTO DBF c:\temp\tran1.dbf
INDEX ON bnK_cd+daTe TAG bnK_cd
SELECT trAn
SELECT Daily
SET ORDER TO daily
SET RELATION TO cbAnkcd+DTOS(ddAilydt) INTO trAn
SET RELATION TO cbAnkcd+DTOS(ddAilydt) INTO trAn1 ADDITIVE
SET RELATION TO cbAnkcd+DTOS(ddAilydt) INTO trAn2 ADDITIVE
IF DOW(trAnsdate)=6
SET FILTER TO ddAilydt=trAnsdate .OR. ddAilydt=trAnsdate+1 .OR. ddAilydt=trAnsdate+2
ELSE
SET FILTER TO ddAilydt=trAnsdate
ENDIF
SELECT Bank
SET ORDER TO cbanknme
SET RELATION TO cbAnkcd INTO Daily
SET FILTER TO csYsid>'008' .AND. drAwdown=2
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
That its!
I apologize for the formatting....
I have filters and relationship
:-)
>Are you doing a "set skip to" on the child table?
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only