APRLIST ver1-8 : MACRO LIST FOR APR FILE NAME: C:\Aprdump\aussie\tugalong\tugalong.apr
 
DATE: 7/30/2020                                            TIME: 10:43:36 AM
--------------------------------------------------------------------------------
 
 
Author:                 Mark
Title:                  
Description:            
Keywords:               
Creation date:          3/4/1998 time: 6:19 AM
Revision date:          11/10/2005 time: 3:03 PM
Number of Revisions:    135
APR. file size:         222208

--------------------------------------------------------------------------------
                     User privileges & access information
--------------------------------------------------------------------------------
 
 
--------------------------------------------------------------------------------
                     APR DOCUMENT FILE HEADER INFORMATION
--------------------------------------------------------------------------------
Nmr of dbf:             3    Joins:      2
Nmr of views:          20    Macros:    49
Route steps             0    Unkn2:      8
Named finds:           12    Unkn4:      9
Unkn5:                 11    Unkn6:      0
Unkn7:                  0    Unkn8:      0
Unkn9:                  3    Unkn10:     0
Unkn11:                 0    Unkn12:     4
User setup-flags:    1358  = 0000010101001110  Record locking - type:Optimistic
Rpt dwnld/sumry         0  = 0000000000000000  Download before prvw:Y  Rpt summary:Y
Unkn15:                 0    Unkn16:     4
Unkn17:                 7
 
-------------------------------------------------------------------------------
                DATABASE INFORMATION - FILES and FIELDS
-------------------------------------------------------------------------------
 
external name:     C:\aprdump\aussie\tugalong\tugalong.dbf
internal name:     tugalong
nmr of fields:     47
Current file no:   1
File type:         dBase file
DBF descr length:  1620 bytes
GLB.ix: 123
 
     fld: TugalongID                     type: NUM  fld size: 6.0
     fld:                                type: NUM  fld size: 1.2
     fld: Time                           type: TIME fld size:FIXED
     fld: Booking Name                   type: TEXT fld size:35
     fld: Address1                       type: TEXT fld size:30
     fld: Address2                       type: TEXT fld size:30
     fld: City                           type: TEXT fld size:30
     fld: State                          type: TEXT fld size:30
     fld: Country                        type: TEXT fld size:30
     fld: PostCode                       type: TEXT fld size:20
     fld: Telephone                      type: TEXT fld size:30
     fld: Facsimile                      type: TEXT fld size:30
     fld: Email                          type: TEXT fld size:30
     fld: DateFrom                       type: DATE fld size:FIXED
     fld: DateTo                         type: DATE fld size:FIXED
     fld: Tour Size                      type: NUM  fld size: 4.0
     fld: Meals                          type: BOOL fld size:FIXED
     fld: Notes                          type: MEMO fld size:FIXED
     fld: Adults                         type: NUM  fld size: 4.0
     fld: Children                       type: NUM  fld size: 4.0
     fld: Tour Leader                    type: BOOL fld size:FIXED
     fld: Tour Guide                     type: BOOL fld size:FIXED
     fld: No of Days                     type: TEXT fld size:10
     fld: No of Rooms                    type: TEXT fld size:10
     fld: HorseRiding                    type: BOOL fld size:FIXED
     fld: 4WD tour                       type: BOOL fld size:FIXED
     fld: Abseiling                      type: BOOL fld size:FIXED
     fld: NightTour                      type: BOOL fld size:FIXED
     fld: Other                          type: TEXT fld size:25
     fld: ETA                            type: TIME fld size:FIXED
     fld: ETD                            type: TIME fld size:FIXED
     fld: RoomID                         type: NUM  fld size: 5.0
     fld: Contact                        type: TEXT fld size:35
     fld: CreditcardNo                   type: TEXT fld size:20
     fld: Contact Details                type: TEXT fld size:35
     fld: Tour Code                      type: TEXT fld size:10
     fld: Expiry Date                    type: TEXT fld size:10
     fld: Card Holder Name               type: TEXT fld size:35
     fld: Car Registration Number        type: TEXT fld size:15
     fld: Rego State                     type: TEXT fld size:10
     fld: Drivers License Number         type: TEXT fld size:20
     fld: Car Type                       type: TEXT fld size:15
     fld: BookinName1                    type: TEXT fld size:30
     fld: bookingname2                   type: TEXT fld size:30
     fld: Breakfast1                     type: BOOL fld size:FIXED
     fld: Lunch1                         type: BOOL fld size:FIXED
     fld: dinner1                        type: BOOL fld size:FIXED
 
 
          --------------------------------------------------
 
 
external name:     C:\aprdump\aussie\tugalong\Rooms.dbf
internal name:     Rooms
nmr of fields:     6
Current file no:   2
File type:         dBase file
DBF descr length:  266 bytes
GLB.ix: 1737
 
     fld: BookID                         type: TEXT fld size:10
     fld: RoomID                         type: NUM  fld size: 5.0
     fld: RoomNo                         type: NUM  fld size: 5.0
     fld: RoomType                       type: TEXT fld size:10
     fld: Capacity                       type: NUM  fld size: 3.0
     fld: booked                         type: TEXT fld size:10
 
 
          --------------------------------------------------
 
 
external name:     C:\aprdump\aussie\tugalong\ROB.dbf
internal name:     ROB
nmr of fields:     5
Current file no:   3
File type:         dBase file
DBF descr length:  279 bytes
GLB.ix: 1999
 
     fld: TUGID                          type: NUM  fld size: 7.0
     fld: ROBID                          type: NUM  fld size: 7.0
     fld: RoomID                         type: NUM  fld size: 4.0
     fld: Special                        type: NUM  fld size: 7.0
     fld: Spectext                       type: TEXT fld size:10
 
 
          Defined file sort order #1 : ROB.RoomID
-------------------------------------------------------------------------------
                MEMORY FIELDS - Calculated and Variable
-------------------------------------------------------------------------------
 
VAR field#:     1  FindtextVar1
VAR field#:     2  FindNumvar1
VAR field#:     3  FINDDATEVAR1
VAR field#:     4  FINDDATEVAR2
VAR field#:     5  var3
VAR field#:     6  var4
VAR field#:     7  var5
VAR field#:     8  var6
VAR field#:     9  var7
VAR field#:    10  var8
VAR field#:    11  var9
VAR field#:    12  var10
 
CALC fields   {=}formula interpred successfully     {?}-use IDE to verify formula 
 
 
Calc field#:     1  total rooms                     {=} SCount(Rooms.RoomNo)
Calc field#:     2  totalcapacity                   {=} SSum(Rooms.Capacity)
Calc field#:     3  Overall                         {=} Combine('Using current bookings, there are ', total rooms, ' rooms vac
                                                        ant and ', totalcapacity, ' bedspaces available.')
Calc field#:     4  Auto_Sum_of_RoomNo              {=} SSum(Rooms.RoomNo)
Calc field#:     5  fromto                          {=} Combine('List of available rooms from ', FINDDATEVAR1, ' to ', FINDDAT
                                                        EVAR2)
Calc field#:     6  cando                           {=} IF(totalcapacity >=FindNumvar1, Combine('You need ', FindNumvar1, ' be
                                                        d spaces. It appears possible to accommodate this group'), 'It appears
                                                         there are not enough bed spaces available to do this booking')
Calc field#:     7  type1                           {=} IF(Rooms.RoomType='dssss', 'Double bed and four singles as bunks', IF(
                                                        Rooms.RoomType='dss', 'Double bed and two singles as bunks', IF(Rooms.
                                                        RoomType='ss', 'Two single beds only', IF(Rooms.RoomType='ds', 'Double
                                                         bed and a single bed', IF(Rooms.RoomType='ssss', 'Four single beds', 
                                                        IF(Rooms.RoomType='sss', 'Three single beds', ''))))))
Calc field#:     8  _AutoCalc                       {=} SCount(tugalong.Booking Name)
Calc field#:     9  totaltour                       {=} SSum(tugalong.Tour Size)
Calc field#:    10  totaladults                     {=} SSum(tugalong.Adults)
Calc field#:    11  totalkids                       {=} SSum(tugalong.Children)
Calc field#:    12  tourname                        {=} Combine('The following rooms have been allocated to the ', tugalong.Bo
                                                        oking Name, ' Group Tour. We hope you find everything to your satisfac
                                                        tion')
Calc field#:    13  currentlist                     {=} IF(tugalong.BookinName1=1, tugalong.Booking Name, '')
Calc field#:    14  triallist                       {=} IF(tugalong.BookinName1=2, tugalong.Booking Name, '')
Calc field#:    15  Breakfasts                      {=} IF(tugalong.ETA > Time(9, 0, 0, 0)and FINDDATEVAR1=tugalong.DateFrom 0
                                                        , tugalong.ETD, IF(< Time(6, 0, 0, 0)and FINDDATEVAR2=tugalong.DateTo,
                                                         0, tugalong.Tour Size))
Calc field#:    16  Lunch                           {=} IF(tugalong.ETA > Time(13, 0, 0, 0)and FINDDATEVAR1=tugalong.DateFrom 
                                                        0, tugalong.ETD, IF(< Time(12, 0, 0, 0)and FINDDATEVAR2=tugalong.DateT
                                                        o, 0, tugalong.Tour Size))
Calc field#:    17  Dinner                          {=} IF(tugalong.ETA > Time(18, 0, 0, 0)and FINDDATEVAR1=tugalong.DateFrom 
                                                        0, tugalong.ETD, IF(< Time(17, 0, 0, 0)and FINDDATEVAR2=tugalong.DateT
                                                        o, 0, tugalong.Tour Size))
Calc field#:    18  TOTbreak                        {=} SSum(breaky)
Calc field#:    19  TOTLunch                        {=} SSum(Lunchy)
Calc field#:    20  Totdinner                       {=} SSum(Dinny)
Calc field#:    21  Toralmeals                      {=} breaky + Lunchy + Dinny
Calc field#:    22  Mealstotal                      {=} SSum(Toralmeals)
Calc field#:    23  breaky                          {=} IF(tugalong.Meals=1, Breakfasts, IF(tugalong.Breakfast1=1, tugalong.Br
                                                        eakfast1 * tugalong.Tour Size, 0))
Calc field#:    24  Lunchy                          {=} IF(tugalong.Meals=1, Lunch, IF(tugalong.Lunch1=1, tugalong.Lunch1 * tu
                                                        galong.Tour Size, 0))
Calc field#:    25  Dinny                           {=} IF(tugalong.Meals=1, Dinner, IF(tugalong.dinner1=1, tugalong.dinner1 *
                                                         tugalong.Tour Size, 0))
Calc field#:    26  _AutoCalc_2                     {=} SCount(ROB.RoomID)
Calc field#:    27  _AutoCalc_3                     {=} SCount(ROB.RoomID)
Calc field#:    28  _AutoCalc_4                     {=} SCount(tugalong.Booking Name)
 
 
 
-------------------------------------------------------------------------------
           DATABASE FIELD INFORMATION - DEFAULT DATA /VALIDATION
-------------------------------------------------------------------------------
(D)-Default data                  (V)-Validation                    (B)-Both   
 
(D)  tugalong.TugalongID      Serial No from:35  Increment: 0
(D)  tugalong.                Create Time 
(D)  tugalong.Time            Create Time 
(D)  tugalong.Country         A/E data: Australia 
(D)  tugalong.ETA             Create formula: Time(10, 0, 0, 0)
(D)  tugalong.ETD             Create formula: Time(14, 0, 0, 0)
(D)  tugalong.BookinName1     Create formula: 1
(D)  Rooms.RoomID             Serial No from:32  Increment: 1
(D)  ROB.ROBID                Serial No from:154  Increment: 1
 
 
 
-------------------------------------------------------------------------------
                              J O I N S 
-------------------------------------------------------------------------------
Relational options (Rel Optns)
  ADD-If no matching records in joined file, adding a record in this file
      also adds a record in the joined file
  DEL-Deleting a record in this file deletes matching records in joined file
 
 
001  Join File  tugalong                         to ROB                             
     Rel Optns  ADD                                 ADD                             
     Join Key   TugalongID                      ->  TUGID                           
 
002  Join File  Rooms                            to ROB                             
     Rel Optns  ADD                                 ADD                             
     Join Key   RoomNo                          ->  RoomID                          
 
----------------------------------------------------------------------------------------
                                     Named Finds                           
----------------------------------------------------------------------------------------
             ***   use APPROACH IDE to check DUPS/DISTINCT or Qry by BOX   ***
----------------------------------------------------------------------------------------
 
Find#:   1 TYPE :VIEW  -> NAME: Cleaining List                            on: Worksheet 3
           condx #1: Rooms.booked BEGINS WITH 1
 
 
Find#:   2 TYPE :VIEW  -> NAME: Cleaning done                             on: Worksheet 1
           condx #1: Rooms.booked BEGINS WITH 1
 
 
Find#:   3 TYPE :VIEW  -> NAME: datefind                                  on: Worksheet 2
           condx #1: tugalong.DateTo LESS or EQ  the value in FINDDATEVAR2 AND
                   : tugalong.Meals EQUAL TRUE
        OR condx #2: tugalong.DateFrom EQ or GTR  the value in FINDDATEVAR2 AND
                   : tugalong.Meals EQUAL TRUE
 
 
Find#:   4 TYPE :VIEW  -> NAME: Room Cleaning                             on: Worksheet 3
           condx #1: tugalong.DateFrom LESS or EQ  the value in FINDDATEVAR2 AND
                   : tugalong.DateTo EQ or GTR  the value in FINDDATEVAR2
 
 
Find#:   5 TYPE :VIEW  -> NAME: All Current and Future Bookings           on: Worksheet 2
           condx #1: tugalong.DateTo GTR THAN  the value in Today()
 
 
Find#:   6 TYPE :VIEW  -> NAME: Find Current record                       on: Worksheet 2
           condx #1: tugalong.TugalongID EQUAL  the value in FindNumvar1
 
 
Find#:   7 TYPE :VIEW  -> NAME: Find defuntc records                      on: Worksheet 2
           condx #1: tugalong.DateTo LESS THAN  the value in Today()
 
 
Find#:   8 TYPE :VIEW  -> NAME: Activities                                on: Worksheet 2
           condx #1: tugalong.DateFrom LESS or EQ  the value in FINDDATEVAR2 AND
                   : tugalong.DateTo EQ or GTR  the value in FINDDATEVAR2
 
 
Find#:   9 TYPE :VIEW  -> NAME: dailymeals                                on: Worksheet 2
           condx #1: tugalong.DateFrom LESS or EQ  the value in FINDDATEVAR2 AND
                   : tugalong.DateTo EQ or GTR  the value in FINDDATEVAR2
 
 
Find#:  10 TYPE :VIEW  -> NAME: Find Bookings                             on: Worksheet 1
           condx #1: tugalong.DateFrom EQ or GTR  the value in FINDDATEVAR1 
                   : tugalong.DateFrom LESS or EQ  the value in FINDDATEVAR2
        OR condx #2: tugalong.DateTo EQ or GTR  the value in FINDDATEVAR1 
                   : tugalong.DateTo LESS or EQ  the value in FINDDATEVAR2
                   : Rooms.RoomNo GTR THAN 0.000
        OR condx #3: Rooms.RoomNo GTR THAN 0.000
 
 
Find#:  11 TYPE :VIEW  -> NAME: Find a booking                            on: Main Booking details Form
           condx #1: tugalong.Booking Name BEGINS WITH  the value in FindtextVar1
 
 
Find#:  12 TYPE :VIEW  -> NAME: Find vacant rooms                         on: Worksheet 3
           condx #1: Rooms.booked NOT EQUAL 1
 
  
 
 
--------------------------------------------------------------------------------
                               Alphabetic List Of Macros                   
--------------------------------------------------------------------------------
 
 
Macro#: 0038  About 
Macro#: 0029  Activity sheet 
Macro#: 0031  All future books 
Macro#: 0016  Checkcount 
Macro#: 0025  Cleaning Done 
Macro#: 0024  Cleaning Message 
Macro#: 0043  Copy of Find that booki 
Macro#: 0015  Copy of Set to blank 
Macro#: 0039  Copy of Set to blank1 
Macro#: 0019  Copy of aLL ROOMS VACAN 
Macro#: 0008  Create New Booking 
Macro#: 0027  Daily meal requirements 
Macro#: 0030  Daily visitors sheet 
Macro#: 0007  Done 
Macro#: 0036  Exit 
Macro#: 0021  Find that booking 
Macro#: 0020  Go to Find a booking 
Macro#: 0002  Go to additional details 
Macro#: 0045  Go to room copy 
Macro#: 0000  Goto findrooms 
Macro#: 0001  Home 
Macro#: 0033  Invoice development 
Macro#: 0004  List room vacant 
Macro#: 0017  Message check nums 
Macro#: 0041  New Booking 
Macro#: 0032  No records 
Macro#: 0046  Open   <-----------------------------------   N O T E
Macro#: 0047  Open1 
Macro#: 0003  Print 
Macro#: 0037  Rego form 
Macro#: 0040  Remove 
Macro#: 0022  Room Clean List 
Macro#: 0042  Room List for a group 
Macro#: 0044  Room List for a group1 
Macro#: 0048  Room Usage Report 
Macro#: 0028  RoomClean 
Macro#: 0023  Roomcleanlist1 
Macro#: 0013  Select rooms 
Macro#: 0012  Select rooms1 
Macro#: 0005  Set ROB1 
Macro#: 0014  Set selctrooms1 
Macro#: 0009  Set to blank 
Macro#: 0010  Set to blank1 
Macro#: 0034  Stats development 
Macro#: 0006  aLL ROOMS VACANT 
Macro#: 0011  create new booking set 
Macro#: 0018  create1 
Macro#: 0035  development message 
Macro#: 0026  setcleandone 
 
 
 
--------------------------------------------------------------------------------
                               Listing of .APR MACROS                            
--------------------------------------------------------------------------------
 * * *   Verify () grouping in deeply nested expressions in Approach IDE    * * *
--------------------------------------------------------------------------------
 
 
M#:0 name: Goto findrooms  steps: 5   F-KEY: 2
--------------------------------------------------------------------------------
Set            FindNumvar1=''
Set            FINDDATEVAR1=''
Set            FINDDATEVAR2=''
View           Switch to: backgroundgenerl
View           Switch to: Find rooms
 
 
 
M#:1 name: Home  steps: 2   F-KEY: 12
--------------------------------------------------------------------------------
View           Switch to: Tugalong Station
Browse         
 
 
 
M#:2 name: Go to additional details  steps: 4 
--------------------------------------------------------------------------------
Set            FindNumvar1=tugalong.TugalongID
Find           using stored find:(#6): Find Current record
View           Switch to: backgroundgenerl
View           Switch to: Contact details
 
 
 
M#:3 name: Print  steps: 1 
--------------------------------------------------------------------------------
Print          open print dialog and wait for input
 
 
 
M#:4 name: List room vacant  steps: 9 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: aLL ROOMS VACANT when none found
Records        First
Set            Rooms.booked=1
Run            Set ROB1 and return to the next line in this macro
View           Switch to: Worksheet 3
Find           using stored find:(#12): Find vacant rooms
View           Switch to: List vacant rooms
Prnt Preview   
 
 
 
M#:5 name: Set ROB1  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=1
Run            Set ROB1 and return to the next line in this macro
 
 
 
M#:6 name: aLL ROOMS VACANT  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: List vacant rooms
Prnt Preview   
 
 
 
M#:7 name: Done  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: Main Booking details Form
Set            FindNumvar1=''
 
 
 
M#:8 name: Create New Booking  steps: 11 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: create1 when none found
Records        First
Set            Rooms.booked=''
Run            create new booking set and return to the next line in this macro
View           Switch to: Main Booking details Form
Browse         
Records        New
Set            tugalong.DateFrom=FINDDATEVAR1
Set            tugalong.DateTo=FINDDATEVAR2
Set            tugalong.Tour Size=FindNumvar1
 
 
 
M#:9 name: Set to blank  steps: 7 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: Home when none found
Records        First
Set            Rooms.booked=''
Run            Set to blank1 and return to the next line in this macro
View           Switch to: Tugalong Station
Browse         
 
 
 
M#:10 name: Set to blank1  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=''
Run            Set to blank1
 
 
 
M#:11 name: create new booking set  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=''
Run            create new booking set
 
 
 
M#:12 name: Select rooms1  steps: 16   F-KEY: 5
--------------------------------------------------------------------------------
Set            var6=Rooms.RoomNo
View           Switch to: Worksheet 1
Records        New
Set            ROB.RoomID=var6
Set            ROB.TUGID=var9
View           Switch to: Worksheet 2
Run            Copy of Set to blank1 and return to the next line in this macro
Find           using stored find:(#10): Find Bookings
Records        First
Set            Rooms.booked=1
Run            Set selctrooms1 and return to the next line in this macro
View           Switch to: Worksheet 3
Find           using stored find:(#12): Find vacant rooms
View           Switch to: Copy of List vacant rooms 
Records        First
Browse         
 
 
 
M#:13 name: Select rooms  steps: 14   F-KEY: 6
--------------------------------------------------------------------------------
Set            var9=tugalong.TugalongID
Set            FindNumvar1=tugalong.TugalongID
Set            FINDDATEVAR1=tugalong.DateFrom
Set            FINDDATEVAR2=tugalong.DateTo
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: Copy of aLL ROOMS VACAN when none found
Records        First
Set            Rooms.booked=1
Run            Set selctrooms1 and return to the next line in this macro
View           Switch to: Worksheet 3
Find           using stored find:(#12): Find vacant rooms
View           Switch to: Copy of List vacant rooms 
Records        First
Browse         
 
 
 
M#:14 name: Set selctrooms1  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=1
Run            Set selctrooms1
 
 
 
M#:15 name: Copy of Set to blank  steps: 10 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Browse         
Find           using stored find:(#10): Find Bookings and run macro: Home when none found
Records        First
Set            Rooms.booked=''
Run            Set to blank1 and return to the next line in this macro
View           Switch to: Main Booking details Form
Find           using stored find:(#6): Find Current record
Browse         
Sort           ROB.RoomID(A)
 
 
 
M#:16 name: Checkcount  steps: 1 
--------------------------------------------------------------------------------
Run            IF Auto_Sum_of_RoomNo < tugalong.Tour Size is true run macro: Message check nums else  end this macro
 
 
 
M#:17 name: Message check nums  steps: 1 
--------------------------------------------------------------------------------
Message        Number Mismatch,You have too many people attending for the number of rooms you have chosen,OK,Go Back
               *** ACTION on OK : CONTINUE
               *** ACTION on Go Back : STOP
 
 
 
M#:18 name: create1  steps: 6 
--------------------------------------------------------------------------------
View           Switch to: Main Booking details Form
Browse         
Records        New
Set            tugalong.DateFrom=FINDDATEVAR1
Set            tugalong.DateTo=FINDDATEVAR2
Set            tugalong.Tour Size=FindNumvar1
 
 
 
M#:19 name: Copy of aLL ROOMS VACAN  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: Copy of List vacant rooms 
Browse         
 
 
 
M#:20 name: Go to Find a booking  steps: 3 
--------------------------------------------------------------------------------
Set            FindtextVar1=''
View           Switch to: backgroundgenerl
View           Switch to: Find a booking
 
 
 
M#:21 name: Find that booking  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: Main Booking details Form
Find           using stored find:(#11): Find a booking
 
 
 
M#:22 name: Room Clean List  steps: 11 
--------------------------------------------------------------------------------
Set            FINDDATEVAR1=Today()
Set            FINDDATEVAR2=Today()
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: Cleaning Message when none found
Records        First
Set            Rooms.booked=1
Run            Roomcleanlist1 and return to the next line in this macro
View           Switch to: Worksheet 3
Find           using stored find:(#1): Cleaining List
View           Switch to: Daily Room Cleaning List
Prnt Preview   
 
 
 
M#:23 name: Roomcleanlist1  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=1
Run            Roomcleanlist1
 
 
 
M#:24 name: Cleaning Message  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: backgroundgenerl
Message        No Rooms to Clean,There were no rooms listed to clean, you lucky blighter,OK,
               *** ACTION on OK : Home
 
 
 
M#:25 name: Cleaning Done  steps: 6 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Find           using stored find:(#2): Cleaning done
Set            Rooms.booked=''
Run            setcleandone and return to the next line in this macro
View           Switch to: Tugalong Station
Browse         
 
 
 
M#:26 name: setcleandone  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            Rooms.booked=''
Run            setcleandone
 
 
 
M#:27 name: Daily meal requirements  steps: 6 
--------------------------------------------------------------------------------
Set            FINDDATEVAR1=Today()+ 1
Set            FINDDATEVAR2=Today()+ 1
View           Switch to: Worksheet 2
Find           using stored find:(#9): dailymeals and run macro: No records when none found
View           Switch to: Daily Meal Requiremants
Prnt Preview   
 
 
 
M#:28 name: RoomClean  steps: 5   F-KEY: 7
--------------------------------------------------------------------------------
Set            FINDDATEVAR2=Today()+ 1
View           Switch to: Worksheet 3
Find           using stored find:(#4): Room Cleaning and run macro: No records when none found
View           Switch to: Daily Room Cleaning List
Prnt Preview   
 
 
 
M#:29 name: Activity sheet  steps: 5   F-KEY: 8
--------------------------------------------------------------------------------
View           Switch to: Worksheet 2
Set            FINDDATEVAR2=Today()
Find           using stored find:(#8): Activities and run macro: No records when none found
View           Switch to: Activity Sheet For
Prnt Preview   
 
 
 
M#:30 name: Daily visitors sheet  steps: 5 
--------------------------------------------------------------------------------
Set            FINDDATEVAR2=Today()+ 1
View           Switch to: Worksheet 2
Find           using stored find:(#8): Activities and run macro: No records when none found
View           Switch to: Daily Tours and Visitors Report
Prnt Preview   
 
 
 
M#:31 name: All future books  steps: 6 
--------------------------------------------------------------------------------
Set            FINDDATEVAR2=Today()
View           Switch to: Worksheet 2
Find           using stored find:(#5): All Current and Future Bookings and run macro: No records when none found
View           Switch to: Daily Tours and Visitors Report
Sort           tugalong.DateFrom(A)
Prnt Preview   
 
 
 
M#:32 name: No records  steps: 4 
--------------------------------------------------------------------------------
View           Switch to: backgroundgenerl
Message        No records exist,No records exist,OK,
               *** ACTION on OK : CONTINUE
View           Switch to: Tugalong Station
Browse         
 
 
 
M#:33 name: Invoice development  steps: 1 
--------------------------------------------------------------------------------
Message        Under development,When you provide me with the graphics, I will finish this. If you use letter headed paper then that's all I need.,OK,
               *** ACTION on OK : CONTINUE
 
 
 
M#:34 name: Stats development  steps: 1 
--------------------------------------------------------------------------------
Message        Under development,I need some data to do this.,OK,
               *** ACTION on OK : CONTINUE
 
 
 
M#:35 name: development message  steps: 1 
--------------------------------------------------------------------------------
Message        Still to be developed,Give me a go mate!!,OK,
               *** ACTION on OK : CONTINUE
 
 
 
M#:36 name: Exit  steps: 1 
--------------------------------------------------------------------------------
Exit           
 
 
 
M#:37 name: Rego form  steps: 4 
--------------------------------------------------------------------------------
Set            FindNumvar1=tugalong.TugalongID
Find           using stored find:(#6): Find Current record
View           Switch to: Registraion and Arrival Form
Prnt Preview   
 
 
 
M#:38 name: About  steps: 1 
--------------------------------------------------------------------------------
Message        About The program,This program was created by Mark Pearson.
61-7-337110434,OK,
               *** ACTION on OK : CONTINUE
 
 
 
M#:39 name: Copy of Set to blank1  steps: 5 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 1
Find           using stored find:(#10): Find Bookings and run macro: Home when none found
Records        First
Set            Rooms.booked=''
Run            Set to blank1
 
 
 
M#:40 name: Remove  steps: 1 
--------------------------------------------------------------------------------
Delete         
 
 
 
M#:41 name: New Booking  steps: 2 
--------------------------------------------------------------------------------
View           Switch to: Main Booking details Form
Records        New
 
 
 
M#:42 name: Room List for a group  steps: 5 
--------------------------------------------------------------------------------
Set            FindNumvar1=tugalong.TugalongID
Find           using stored find:(#6): Find Current record
View           Switch to: Group Room List
Prnt Preview   
Sort           ROB.RoomID(A)
 
 
 
M#:43 name: Copy of Find that booki  steps: 3 
--------------------------------------------------------------------------------
View           Switch to: Main Booking details Form
Find           using stored find:(#11): Find a booking
Run            Room List for a group1
 
 
 
M#:44 name: Room List for a group1  steps: 3 
--------------------------------------------------------------------------------
View           Switch to: Group Room List
Prnt Preview   
Sort           ROB.RoomID(A)
 
 
 
M#:45 name: Go to room copy  steps: 2 
--------------------------------------------------------------------------------
Set            FindtextVar1=''
View           Switch to: Select Group Room List
 
 
 
M#:46 name: Open  steps: 7 
--------------------------------------------------------------------------------
View           Switch to: Worksheet 2
Find           using stored find:(#7): Find defuntc records and run macro: Home when none found
Records        First
Set            tugalong.BookinName1=2
Run            Open1 and return to the next line in this macro
View           Switch to: Tugalong Station
Browse         
 
 
 
M#:47 name: Open1  steps: 3 
--------------------------------------------------------------------------------
Records        Next
Set            tugalong.BookinName1=2
Run            Open1
 
 
 
M#:48 name: Room Usage Report  steps: 6 
--------------------------------------------------------------------------------
Message        This is just an example,The following stats are based on total usage since commencment of this program. It is intended to have stats based on a query by you.,OK,
               *** ACTION on OK : CONTINUE
View           Switch to: Crosstab 2
Prnt Preview   
Print          open print dialog and wait for input
View           Switch to: Tugalong Station
Browse         
 
 
 
 
 
 
-------------------------------------------------------------------------------
    Variable fields unused by macros - check for use in scripts or on views
-------------------------------------------------------------------------------
 
variable #5 var3                                               : ref count: 0
variable #6 var4                                               : ref count: 0
variable #7 var5                                               : ref count: 0
variable #9 var7                                               : ref count: 0
variable #10 var8                                               : ref count: 0
variable #12 var10                                              : ref count: 0
