From ed1853501eaf2ea80d3a1543f4314eb4097477a5 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Thu, 21 Sep 2000 12:32:36 +0000 Subject: [PATCH] 2000-09-21 16:30 GMT+3 Alexander Kresin --- harbour/ChangeLog | 4 ++++ harbour/source/pp/pptable.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 61e50fb293..b990a492b2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-09-21 16:30 GMT+3 Alexander Kresin + * source/pp/pptable.c + * changed rule for setrelations .... scoped + 2000-09-21 15:23 GMT+3 Alexander Kresin * source/rdd/workarea.c * source/rdd/dbcmd.c diff --git a/harbour/source/pp/pptable.c b/harbour/source/pp/pptable.c index 086e3e9614..7e0d3dfabf 100644 --- a/harbour/source/pp/pptable.c +++ b/harbour/source/pp/pptable.c @@ -312,8 +312,8 @@ void hb_pp_Table( void ) static COMMANDS sC___188 = {0,"LOCATE","[FOR \1A00] [WHILE \1B00] [NEXT \1C00] [RECORD \1D00] [\1E20REST>] [ALL]", "__dbLocate(\1A40,\1B40,\1C00,\1D00,\1E50)",&sC___187 }; static COMMANDS sC___189 = {0,"SET","RELATION TO","dbClearRelation()",&sC___188 }; - static COMMANDS sC___190 = {0,"SET","RELATION [\1A20 ADDITIVE>] [\1B20 SCOPED>] [TO \1C00 INTO \1D40 [,[TO] \1E00 INTO \1F40]]", - "if (!\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1D30,\1C40,\1C20,\1B50 ) [; dbSetRelation(\1F30,\1E40,\1E20,\1B50 )]",&sC___189 }; + static COMMANDS sC___190 = {0,"SET","RELATION [\1A20 ADDITIVE>] [TO \1C00 INTO \1D40 [\1B20 SCOPED>] [,[TO] \1E00 INTO \1F40 [\1G20 SCOPED>]]]", + "if (!\1A50 ) ; dbClearRelation() ; end ; dbSetRelation(\1D30,\1C40,\1C20,\1B50 ) [; dbSetRelation(\1F30,\1E40,\1E20,\1G50 )]",&sC___189 }; static COMMANDS sC___191 = {0,"SET","FILTER TO","dbClearFilter(NIL)",&sC___190 }; static COMMANDS sC___192 = {0,"SET","FILTER TO \1A00","dbSetFilter( \1A40, \1A20 )",&sC___191 }; static COMMANDS sC___193 = {0,"SET","FILTER TO \1A20&>",