Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Relationships
Message
From
10/02/2003 17:59:52
 
 
To
10/02/2003 16:58:33
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Title:
Miscellaneous
Thread ID:
00751513
Message ID:
00751701
Views:
13
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
Map
View

Click here to load this message in the networking platform