home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / ssatutor / cadvrpt.re_ / cadvrpt.re
Encoding:
Text File  |  1994-12-14  |  7.4 KB  |  127 lines
  1. {\rtf1\ansi
  2. {\fonttbl{\f0\fswiss Arial;}}
  3. {\colortbl\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue0;\red0\green0\blue128;\red128\green0\blue128;\red0\green128\blue128;\red128\green128\blue128;\red192\green192\blue192;\red255\green0\blue0;\red0\green255\blue0;\red255\green255\blue0;\red0\green0\blue255;\red255\green0\blue255;\red0\green255\blue255;}
  4. {\info{\author David Baker                   }{\creatim \yr1994\mo6\dy16\hr10\min45}{\revtim \yr1994\mo12\dy14\hr8\min11}}
  5. {\*\vrwvern3\vrwsubn0}
  6. \paperw12240 \paperh15840 \margl1440 \margr1440 \margt1440 \margb1440
  7. {\*\vrwcol TABLE1{\col0 0 1350 180 0 0}{\col1 1530 1260 180 0 0}{\col2 2970 1260 180 0 0}{\col3 4410 4860 180 0 0}}
  8. {\*\vrwcol TABLE2{\col0 0 2790 180 0 0}{\col1 2970 6255 180 0 0}}
  9. {\*\hrzpagbrk}{\*\vrwprmnam _parameter}
  10. \sectd \linex0 \pard
  11. {\*\vrwvar {\v0 ADV_ID\colnum11\colnam ADV_ID\len6\txt}
  12. {\v1 CUST_ID\colnum1\colnam CUST_ID\len6\txt}
  13. {\v2 EMP_ID\colnum13\colnam EMP_ID\len6\txt}
  14. {\v3 NAME\colnum18\colnam NAME\len41\txt}
  15. {\v4 START_DATE\colnum14\colnam START_DATE\len8\dat}
  16. {\v5 END_DATE\colnum15\colnam END_DATE\len8\dat}
  17. {\v6 CUST_ID_2\colnum12\colnam CUST_ID\len6\txt}
  18. {\v7 FIRST_NAME\colnum2\colnam FIRST_NAME\len21\txt}
  19. {\v8 LAST_NAME\colnum3\colnam LAST_NAME\len21\txt}
  20. {\v9 ADDRESS\colnum4\colnam ADDRESS\len31\txt}
  21. {\v10 CITY\colnum5\colnam CITY\len31\txt}
  22. {\v11 STATE_ID\colnum6\colnam STATE_ID\len3\txt}
  23. {\v12 ZIP\colnum7\colnam ZIP\len11\txt}
  24. {\v13 PHONE\colnum8\colnam PHONE\len11\txt}
  25. {\v14 FAX\colnum9\colnam FAX\len11\txt}
  26. {\v15 ADV_ID_2\colnum16\colnam ADV_ID\len6\txt}
  27. {\v16 ITEM_ID\colnum17\colnam ITEM_ID\len6\txt}
  28. {\v17 QTY\colnum19\colnam QTY\len8\flt}
  29. {\v18 CUR_PRICE\colnum20\colnam CUR_PRICE\len8\flt}
  30. {\v19 ITEM_ID_2\colnum17\colnam ITEM_ID\len6\txt}
  31. {\v20 PRICE\colnum24\colnam PRICE\len8\flt}
  32. {\v21 UNIT\colnum25\colnam UNIT\len6\txt}
  33. {\v22 COUNTRY\colnum10\colnam COUNTRY\len21\txt}
  34. {\v23 EXT_PRICE\colnum21\colnam EXT_PRICE\len8\flt}
  35. {\v24 NAME_2\colnum23\colnam NAME\len41\txt}
  36. {\v25 _date{\expcr12 SystemDate()}\dat}
  37. {\v26 _pagenumber{\expcr12 PageNumber()}\flt}
  38. {\v27 CustName{\expcr40 Trim(FIRST_NAME) + " " + Trim(LAST_NAME)}\txt}
  39. {\v28 CityState{\expcr34 Trim(CITY) + ", " + Trim(STATE_ID)}\txt}
  40. {\v29 FormattedPhone{\expcr68 "("+Extract(PHONE,1,3)+")"+Extract(PHONE,4,3)+"-"+Extract(PHONE,7,4)}\txt}
  41. {\v30 _parameter1\colnam Enter customer #:\prm \txt}
  42. {\*\vrwqry \qrynam QUERY1\inptyp3 {\qry775  select
  43.     CUSTOMER.CUST_ID,
  44.     CUSTOMER.FIRST_NAME,
  45.     CUSTOMER.LAST_NAME,
  46.     CUSTOMER.ADDRESS,
  47.     CUSTOMER.CITY,
  48.     CUSTOMER.STATE_ID,
  49.     CUSTOMER.ZIP,
  50.     CUSTOMER.PHONE,
  51.     CUSTOMER.FAX,
  52.     CUSTOMER.COUNTRY,
  53.     ADVHDR.ADV_ID,
  54.     ADVHDR.CUST_ID,
  55.     ADVHDR.EMP_ID,
  56.     ADVHDR.START_DATE,
  57.     ADVHDR.END_DATE,
  58.     ADVDTL.ADV_ID,
  59.     ADVDTL.ITEM_ID,
  60.     ADVDTL.NAME,
  61.     ADVDTL.QTY,
  62.     ADVDTL.CUR_PRICE,
  63.     ADVDTL.EXT_PRICE,
  64.     ITEM.ITEM_ID,
  65.     ITEM.NAME,
  66.     ITEM.PRICE,
  67.     ITEM.UNIT
  68.  from
  69.     CUSTOMER.DBF,
  70.     ADVHDR.DBF,
  71.     ADVDTL.DBF,
  72.     ITEM.DBF
  73.  where
  74.     CUSTOMER.CUST_ID = ADVHDR.CUST_ID AND
  75.     ADVHDR.ADV_ID = ADVDTL.ADV_ID AND
  76.     ADVDTL.ITEM_ID = ITEM.ITEM_ID AND
  77.     ((CUSTOMER.CUST_ID = '[_parameter1]') OR
  78.      ('[_parameter1]' IS NULL))
  79.  order by
  80.     CUSTOMER.CUST_ID,
  81.     ADVHDR.START_DATE,
  82.     ADVDTL.ITEM_ID} {\map ADV_ID\mapcol ADV_ID\maptbl ADVHDR\mapnum11}
  83. {\map CUST_ID\mapcol CUST_ID\maptbl CUSTOMER\mapnum1}
  84. {\map EMP_ID\mapcol EMP_ID\maptbl ADVHDR\mapnum13}
  85. {\map NAME\mapcol NAME\maptbl ADVDTL\mapnum18}
  86. {\map START_DATE\mapcol START_DATE\maptbl ADVHDR\mapnum14}
  87. {\map END_DATE\mapcol END_DATE\maptbl ADVHDR\mapnum15}
  88. {\map CUST_ID_2\mapcol CUST_ID\maptbl ADVHDR\mapnum12}
  89. {\map FIRST_NAME\mapcol FIRST_NAME\maptbl CUSTOMER\mapnum2}
  90. {\map LAST_NAME\mapcol LAST_NAME\maptbl CUSTOMER\mapnum3}
  91. {\map ADDRESS\mapcol ADDRESS\maptbl CUSTOMER\mapnum4}
  92. {\map CITY\mapcol CITY\maptbl CUSTOMER\mapnum5}
  93. {\map STATE_ID\mapcol STATE_ID\maptbl CUSTOMER\mapnum6}
  94. {\map ZIP\mapcol ZIP\maptbl CUSTOMER\mapnum7}
  95. {\map PHONE\mapcol PHONE\maptbl CUSTOMER\mapnum8}
  96. {\map FAX\mapcol FAX\maptbl CUSTOMER\mapnum9}
  97. {\map ADV_ID_2\mapcol ADV_ID\maptbl ADVDTL\mapnum16}
  98. {\map ITEM_ID\mapcol ITEM_ID\maptbl ADVDTL\mapnum17}
  99. {\map QTY\mapcol QTY\maptbl ADVDTL\mapnum19}
  100. {\map CUR_PRICE\mapcol CUR_PRICE\maptbl ADVDTL\mapnum20}
  101. {\map ITEM_ID_2\mapcol ITEM_ID\maptbl ADVDTL\mapnum17}
  102. {\map PRICE\mapcol PRICE\maptbl ITEM\mapnum24}
  103. {\map UNIT\mapcol UNIT\maptbl ITEM\mapnum25}
  104. {\map COUNTRY\mapcol COUNTRY\maptbl CUSTOMER\mapnum10}
  105. {\map EXT_PRICE\mapcol EXT_PRICE\maptbl ADVDTL\mapnum21}
  106. {\map NAME_2\mapcol NAME\maptbl ITEM\mapnum23}
  107. }
  108. {\*\vrwsct {\BCK15120 {\sctrct360 360 11880 15480}\nstlev1 }
  109. \pard\plain\ql {\f0\fs20 }
  110. {\*\vrwsct {\PHD1980 {\sctrct1440 1440 10800 3420}\nstlev1 }
  111. \pard\plain\qc {\f0\fs36 Customer Adventures}\par\pard\plain\qc {\cf1\i\f0\fs36 }\par\pard\plain\qc {\cf1\i\f0\fs36 South Seas Adventure Inc.}\par\pard\plain\qc {\cf1\i\f0\fs20 1234 Sea Shore Drive,}\par\pard\plain\qc {\cf1\i\f0\fs20 Montego Bay, Jamaica}
  112. {\*\vrwsct {\GHD1821 {\sctrct1440 3420 10800 5241}\keptgr \txthgt \rptbrk \kepnxt \nstlev1 {\grpvbllst CUST_ID}}
  113. \pard\plain\ql {\f0\fs20 }\par\pard\plain\trowd \trgaph90\trleft-90\cellx2880\cellx9315
  114. {\*\vrwcoldef2}
  115. \intbl \ql {\cf5\i\f0\fs32 {\*\varref CustName\trmblk}}{\cf5\i\f0\fs32 }{\*\brdwid20}\box\brdrs\brdrw20\par\pard\plain\intbl \ql {\f0\fs20 {\*\varref ADDRESS\trmblk}}{\f0\fs20 }\par\pard\plain\intbl \ql {\f0\fs20 {\*\varref CITY\trmblk}}{\f0\fs20 , }{\f0\fs20 {\*\varref STATE_ID\trmblk}}{\f0\fs20 }\par\pard\plain\intbl \ql {\f0\fs20 {\*\varref FormattedPhone\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\row
  116. \pard\plain\trowd \trgaph90\trleft-90\cellx1440\cellx2880\cellx4320\cellx9360
  117. {\*\vrwcoldef1}
  118. \intbl \qc {\f0\fs20 From}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 To}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 Item #}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 Description}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  119. \pard \intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\row
  120. {\*\vrwsct {\BDY231 {\sctrct1440 5241 10800 5472}\txthgt \nstlev1 }
  121. \pard\plain\intbl \qc {\f0\fs20 {\*\varref START_DATE\pic mm/dd/yyyy \oncpergrp}}{\f0\fs20 }{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 {\*\varref END_DATE\pic mm/dd/yyyy \oncpergrp}}{\f0\fs20 }{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 {\*\varref ITEM_ID\trmblk}}{\f0\fs20 }{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 {\*\varref NAME\trmblk}}{\f0\fs20 }{\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\row
  122. {\*\vrwsct {\GFT482 {\sctrct1440 5472 10800 5954}\txthgt \nstlev1 {\grpvbllst CUST_ID}}
  123. \pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  124. \pard \ql {\f0\fs20 }
  125. {\*\vrwsct {\PFT231 {\sctrct1440 14169 10800 14400}\txthgt \nstlev1 }
  126. \pard\plain\qc {\f0\fs20 Page }{\f0\fs20 {\*\varref _pagenumber}}{\f0\fs20 }
  127. }