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?
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement