Plain text

Copy to clipboard

Open code in new window

EnlighterJS 3 Syntax Highlighter

LINESPACING 1.2

// Loop the congregations (A - Z)

LOOP FROM "Congregations" NODATERANGE SORTBY "Congregations"

FONT BOLD

TEXT "***"

EOL

FIELD "Congregations"

EOL

FONT NOBOLD

TEXT "Coordinator:"

TAB =5>

FIELD "Coordinator"

EOL

TEXT "Telephone:"

TAB =5>

FIELD "CoordinatorMemo1"

EOL

TEXT "Email:"

TAB =5>

FIELD "CoordinatorMemo2"

EOL

// List Speakers

LOOP FROM "Congregation Speakers" NODATERANGE WHERE "Congregation" IS CURRENT."Congregations" SORTBY "Speaker"

FONT BOLD

FIELD "Speaker"

FONT NOBOLD

TEXT ": "

// Loop speakers talk numbers

LOOP FROM "Congregation Speaker Talks" NODATERANGE WHERE "congregation" IS CURRENT."Congregation" AND "speaker" IS CURRENT."Speaker" SORTBY "talkno"

IF "$RowNumber" ISMORE "1"

TEXT " ,"

END_IF

FIELD "talkno"

END_LOOP

EOL

END_LOOP

END_LOOP

FONT BOLD

TEXT "***"

EOL

LINESPACING 1.2 // Loop the congregations (A - Z) LOOP FROM "Congregations" NODATERANGE SORTBY "Congregations" FONT BOLD TEXT "***" EOL FIELD "Congregations" EOL FONT NOBOLD TEXT "Coordinator:" TAB =5> FIELD "Coordinator" EOL TEXT "Telephone:" TAB =5> FIELD "CoordinatorMemo1" EOL TEXT "Email:" TAB =5> FIELD "CoordinatorMemo2" EOL // List Speakers LOOP FROM "Congregation Speakers" NODATERANGE WHERE "Congregation" IS CURRENT."Congregations" SORTBY "Speaker" FONT BOLD FIELD "Speaker" FONT NOBOLD TEXT ": " // Loop speakers talk numbers LOOP FROM "Congregation Speaker Talks" NODATERANGE WHERE "congregation" IS CURRENT."Congregation" AND "speaker" IS CURRENT."Speaker" SORTBY "talkno" IF "$RowNumber" ISMORE "1" TEXT " ," END_IF FIELD "talkno" END_LOOP EOL END_LOOP END_LOOP FONT BOLD TEXT "***" EOL

LINESPACING 1.2

// Loop the congregations (A - Z)
LOOP FROM "Congregations" NODATERANGE SORTBY "Congregations"
  FONT BOLD
  TEXT "***"
  EOL

  FIELD "Congregations"
  EOL

  FONT NOBOLD
  TEXT "Coordinator:"
  TAB =5>
  FIELD "Coordinator"
  EOL

  TEXT "Telephone:"
  TAB =5>
  FIELD "CoordinatorMemo1"
  EOL

  TEXT "Email:"
  TAB =5>
  FIELD "CoordinatorMemo2"
  EOL

  // List Speakers
  LOOP FROM "Congregation Speakers" NODATERANGE WHERE "Congregation" IS CURRENT."Congregations" SORTBY "Speaker"
    FONT BOLD
    FIELD "Speaker"
    FONT NOBOLD

    TEXT ": "
    // Loop speakers talk numbers
    LOOP FROM "Congregation Speaker Talks" NODATERANGE WHERE "congregation" IS CURRENT."Congregation" AND "speaker" IS CURRENT."Speaker" SORTBY "talkno"
      IF "$RowNumber" ISMORE "1"
        TEXT " ,"
      END_IF
      FIELD "talkno"
    END_LOOP
    EOL
  END_LOOP
END_LOOP

FONT BOLD
TEXT "***"
EOL

 

Your brother

Andrew

Topic