home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / ssatutor / invcrpt.re_ / invcrpt.re
Encoding:
Text File  |  1994-12-14  |  9.8 KB  |  163 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\dy14\hr9\min19}{\revtim \yr1994\mo12\dy14\hr8\min13}}
  5. {\*\vrwvern3\vrwsubn0}
  6. \paperw12240 \paperh15840 \margl1440 \margr2205 \margt1440 \margb1440
  7. {\*\vrwcol Items{\col0 0 990 180 0 0}{\col1 1170 3330 180 0 0}{\col2 4680 810 180 0 0}{\col3 5670 1170 180 0 0}{\col4 7020 1485 180 0 0}}
  8. {\*\vrwcol Totals{\col0 0 4545 0 0 0}{\col1 4545 1755 180 0 0}{\col2 6480 315 180 0 0}{\col3 6975 1575 180 0 0}}
  9. {\*\vrwcol InvcIdent{\col0 0 2790 180 0 0}{\col1 2970 2700 180 0 0}{\col2 5850 2610 180 0 0}}
  10. {\*\hrzpagbrk}{\*\vrwprmnam _parameter}
  11. \sectd \linex0 \pard
  12. {\*\vrwvar {\v0 ADV_ID\colnum1\colnam ADV_ID\len6\txt}
  13. {\v1 ITEM_ID\colnum9\colnam ITEM_ID\len6\txt}
  14. {\v2 QTY\colnum10\colnam QTY\len8\flt}
  15. {\v3 CUR_PRICE\colnum11\colnam CUR_PRICE\len8\flt}
  16. {\v4 ADV_ID_2\colnum12\colnam ADV_ID\len6\txt}
  17. {\v5 CUST_ID\colnum13\colnam CUST_ID\len6\txt}
  18. {\v6 EMP_ID\colnum14\colnam EMP_ID\len6\txt}
  19. {\v7 NAME\colnum28\colnam NAME\len41\txt}
  20. {\v8 START_DATE\colnum15\colnam START_DATE\len8\dat}
  21. {\v9 END_DATE\colnum16\colnam END_DATE\len8\dat}
  22. {\v10 CUST_ID_2\colnum17\colnam CUST_ID\len6\txt}
  23. {\v11 FIRST_NAME\colnum18\colnam FIRST_NAME\len21\txt}
  24. {\v12 LAST_NAME\colnum19\colnam LAST_NAME\len21\txt}
  25. {\v13 ADDRESS\colnum20\colnam ADDRESS\len31\txt}
  26. {\v14 CITY\colnum21\colnam CITY\len31\txt}
  27. {\v15 STATE_ID\colnum22\colnam STATE_ID\len3\txt}
  28. {\v16 ZIP\colnum23\colnam ZIP\len11\txt}
  29. {\v17 PHONE\colnum24\colnam PHONE\len11\txt}
  30. {\v18 FAX\colnum25\colnam FAX\len11\txt}
  31. {\v19 ITEM_ID_2\colnum27\colnam ITEM_ID\len6\txt}
  32. {\v20 PRICE\colnum29\colnam PRICE\len8\flt}
  33. {\v21 UNIT\colnum30\colnam UNIT\len6\txt}
  34. {\v22 PAID\colnum4\colnam PAID\len8\flt}
  35. {\v23 INV_ID\colnum2\colnam INV_ID\len6\txt}
  36. {\v24 INV_DATE\colnum3\colnam INV_DATE\len8\dat}
  37. {\v25 PAID_DATE\colnum5\colnam PAID_DATE\len8\dat}
  38. {\v26 SUBMITTED\colnum6\colnam SUBMITTED\len8\flt}
  39. {\v27 INV_ID_2\colnum8\colnam INV_ID\len6\txt}
  40. {\v28 COUNTRY\colnum26\colnam COUNTRY\len21\txt}
  41. {\v29 REF_NO\colnum7\colnam REF_NO\len6\txt}
  42. {\v30 _date{\expcr12 SystemDate()}\dat}
  43. {\v31 _pagenumber{\expcr12 PageNumber()}\flt}
  44. {\v32 CustName{\expcr40 Trim(FIRST_NAME) + " " + Trim(LAST_NAME)}\txt}
  45. {\v33 CustCityProv{\expcr34 Trim(CITY) + ", " + Trim(STATE_ID)}\txt}
  46. {\v34 ExtPrice{\expcr13 QTY*CUR_PRICE}\flt}
  47. {\v35 TotExtPrice{\expcr20 Sum(ExtPrice,INV_ID)}\flt}
  48. {\v36 Tax{\expcr15 TotExtPrice*.07}\flt}
  49. {\v37 TotalPayable{\expcr15 Tax+TotExtPrice}\flt}
  50. {\v38 _parameter1\colnam Enter an invoice #:\prm \txt{\desc Invoice #}}
  51. {\*\vrwqry \qrynam QUERY1\inptyp3 {\qry922  select
  52.     INVHDR.ADV_ID,
  53.     INVHDR.INV_ID,
  54.     INVHDR.INV_DATE,
  55.     INVHDR.PAID,
  56.     INVHDR.PAID_DATE,
  57.     INVHDR.SUBMITTED,
  58.     INVHDR.REF_NO,
  59.     INVDTL.INV_ID,
  60.     INVDTL.ITEM_ID,
  61.     INVDTL.QTY,
  62.     INVDTL.CUR_PRICE,
  63.     ADVHDR.ADV_ID,
  64.     ADVHDR.CUST_ID,
  65.     ADVHDR.EMP_ID,
  66.     ADVHDR.START_DATE,
  67.     ADVHDR.END_DATE,
  68.     CUSTOMER.CUST_ID,
  69.     CUSTOMER.FIRST_NAME,
  70.     CUSTOMER.LAST_NAME,
  71.     CUSTOMER.ADDRESS,
  72.     CUSTOMER.CITY,
  73.     CUSTOMER.STATE_ID,
  74.     CUSTOMER.ZIP,
  75.     CUSTOMER.PHONE,
  76.     CUSTOMER.FAX,
  77.     CUSTOMER.COUNTRY,
  78.     ITEM.ITEM_ID,
  79.     ITEM.NAME,
  80.     ITEM.PRICE,
  81.     ITEM.UNIT
  82.  from
  83.     INVHDR.DBF,
  84.     INVDTL.DBF,
  85.     ADVHDR.DBF,
  86.     CUSTOMER.DBF,
  87.     ITEM.DBF
  88.  where
  89.     INVHDR.INV_ID = INVDTL.INV_ID AND
  90.     INVHDR.ADV_ID = ADVHDR.ADV_ID AND
  91.     INVDTL.ITEM_ID = ITEM.ITEM_ID AND
  92.     ADVHDR.CUST_ID = CUSTOMER.CUST_ID AND
  93.     (((INVHDR.SUBMITTED = .F.) AND
  94.      ('[_parameter1]' = '1')) OR
  95.      (INVHDR.INV_ID = '[_parameter1]'))
  96.  
  97.  order by
  98.     INVHDR.INV_ID,
  99.     INVDTL.ITEM_ID} {\map ADV_ID\mapcol ADV_ID\maptbl INVHDR\mapnum1}
  100. {\map ITEM_ID\mapcol ITEM_ID\maptbl INVDTL\mapnum9}
  101. {\map QTY\mapcol QTY\maptbl INVDTL\mapnum10}
  102. {\map CUR_PRICE\mapcol CUR_PRICE\maptbl INVDTL\mapnum11}
  103. {\map ADV_ID_2\mapcol ADV_ID\maptbl ADVHDR\mapnum12}
  104. {\map CUST_ID\mapcol CUST_ID\maptbl ADVHDR\mapnum13}
  105. {\map EMP_ID\mapcol EMP_ID\maptbl ADVHDR\mapnum14}
  106. {\map NAME\mapcol NAME\maptbl ITEM\mapnum28}
  107. {\map START_DATE\mapcol START_DATE\maptbl ADVHDR\mapnum15}
  108. {\map END_DATE\mapcol END_DATE\maptbl ADVHDR\mapnum16}
  109. {\map CUST_ID_2\mapcol CUST_ID\maptbl CUSTOMER\mapnum17}
  110. {\map FIRST_NAME\mapcol FIRST_NAME\maptbl CUSTOMER\mapnum18}
  111. {\map LAST_NAME\mapcol LAST_NAME\maptbl CUSTOMER\mapnum19}
  112. {\map ADDRESS\mapcol ADDRESS\maptbl CUSTOMER\mapnum20}
  113. {\map CITY\mapcol CITY\maptbl CUSTOMER\mapnum21}
  114. {\map STATE_ID\mapcol STATE_ID\maptbl CUSTOMER\mapnum22}
  115. {\map ZIP\mapcol ZIP\maptbl CUSTOMER\mapnum23}
  116. {\map PHONE\mapcol PHONE\maptbl CUSTOMER\mapnum24}
  117. {\map FAX\mapcol FAX\maptbl CUSTOMER\mapnum25}
  118. {\map ITEM_ID_2\mapcol ITEM_ID\maptbl ITEM\mapnum27}
  119. {\map PRICE\mapcol PRICE\maptbl ITEM\mapnum29}
  120. {\map UNIT\mapcol UNIT\maptbl ITEM\mapnum30}
  121. {\map PAID\mapcol PAID\maptbl INVHDR\mapnum4}
  122. {\map INV_ID\mapcol INV_ID\maptbl INVHDR\mapnum2}
  123. {\map INV_DATE\mapcol INV_DATE\maptbl INVHDR\mapnum3}
  124. {\map PAID_DATE\mapcol PAID_DATE\maptbl INVHDR\mapnum5}
  125. {\map SUBMITTED\mapcol SUBMITTED\maptbl INVHDR\mapnum6}
  126. {\map INV_ID_2\mapcol INV_ID\maptbl INVDTL\mapnum8}
  127. {\map COUNTRY\mapcol COUNTRY\maptbl CUSTOMER\mapnum26}
  128. {\map REF_NO\mapcol REF_NO\maptbl INVHDR\mapnum7}
  129. }
  130. {\*\vrwsct {\BCK15120 {\sctrct360 360 11880 15480}\nstlev1 }
  131. \pard\plain\ql {\cf15\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }
  132. {\*\vrwgrf {\vrwrct 1080 4824 9720 5142 20 0 0 15 0 0 0}}
  133. {\*\vrwgrf {\vrwrct 1080 5535 9720 5808 20 0 0 15 0 0 0}}
  134. {\*\vrwgrf {\vrwrct 1080 5796 9720 11184 20 0 0 15 0 0 0}}
  135. {\*\vrwgrf {\vrwrct 1080 5114 9720 5384 20 0 0 15 0 0 0}}
  136. {\*\vrwgrf {\vrwlin 3947 5385 3947 5130 20 0}}
  137. {\*\vrwgrf {\vrwlin 6826 5370 6826 5115 20 0}}
  138. {\*\vrwgrf {\vrwlin 7988 11171 7988 5790 20 0}}
  139. {\*\vrwgrf {\vrwlin 6638 11171 6638 5790 20 0}}
  140. {\*\vrwgrf {\vrwlin 5648 11171 5648 5805 20 0}}
  141. {\*\vrwgrf {\vrwlin 2139 11171 2139 5790 20 0}}
  142. {\*\vrwsct {\PHD2385 {\sctrct1440 1440 10035 3825}\nstlev1 }
  143. \pard\plain\qc {\f0\fs36 Invoice}\par\pard\plain\ql {\f0\fs20 }\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}\par\pard\plain\qc {\cf1\i\f0\fs20 (555)555-5555}
  144. {\*\vrwsct {\GHD2370 {\sctrct1440 3825 10035 6195}\rptbrk \rstpagno \nstlev1 {\grpvbllst INV_ID}}
  145. \pard\plain\ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 {\*\varref CustName\trmblk}}{\f0\fs20 }\par\pard\plain\ql {\f0\fs20 {\*\varref ADDRESS\trmblk}}{\f0\fs20 }\par\pard\plain\ql {\f0\fs20 {\*\varref CustCityProv\trmblk}}{\f0\fs20 }\par\pard\plain\ql {\f0\fs20 {\*\varref ZIP\trmblk}}{\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\trowd \trgaph90\trleft-90\cellx2880\cellx5760\cellx8550
  146. {\*\vrwcoldef3}
  147. \intbl \qc {\f0\fs24  }{\f0\fs20 Invoice #}\cell\pard\plain\intbl \qc {\f0\fs24  }{\f0\fs20 Date}\cell\pard\plain\intbl \qc {\f0\fs24  }{\f0\fs20 Agent}\cell\pard\plain\row
  148. \pard \intbl \qc {\f0\fs20 {\*\varref INV_ID\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 {\*\varref _date}}{\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 {\*\varref EMP_ID\trmblk}}{\f0\fs20 }\cell\pard\plain\row
  149. \pard \ql {\f0\fs16  }\par\pard\plain\trowd \trgaph90\trleft-90\cellx1080\cellx4590\cellx5580\cellx6930\cellx8595
  150. {\*\vrwcoldef1}
  151. \intbl \qc {\f0\fs20 Item #}\cell\pard\plain\intbl \qc {\f0\fs20 Description}\cell\pard\plain\intbl \qc {\f0\fs20 Quantity}\cell\pard\plain\intbl \qc {\f0\fs20 Price}\cell\pard\plain\intbl \qc {\f0\fs20 Extended Price}\cell\row
  152. {\*\vrwsct {\BDY276 {\sctrct1440 6195 10035 6471}\nstlev1 }
  153. \pard\plain\intbl \qc {\f0\fs20 {\*\varref ITEM_ID\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 {\*\varref NAME\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref QTY}}{\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref CUR_PRICE\pic Currency }}{\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref ExtPrice\pic Currency }}{\f0\fs20 }\cell\row
  154. {\*\vrwsct {\GFT2952 {\sctrct1440 6471 10035 9423}\keptgr \rplpagftr \nstlev1 {\grpvbllst INV_ID}}
  155. \pard\plain\ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\trowd \trgaph0\trleft-0\cellx4545\cellx6480\cellx6975\cellx8550
  156. {\*\vrwcoldef2}
  157. \intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 Total Amount}{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref TotExtPrice\pic Currency }}{\f0\fs20 }{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\row
  158. \pard \intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\row
  159. \pard \intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 Tax (7 %)}{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref Tax\pic Currency }}{\f0\fs20 }{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\row
  160. \pard \intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\row
  161. \pard \intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 Total}{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref TotalPayable\pic Currency }}{\f0\fs20 }{\*\brdwid20}\box\brdcel\brdrs\brdrw20\cell\pard\plain\row
  162. \pard \ql {\f0\fs20 }\par\pard\plain\ql {\f0\fs20 }\par\pard\plain\qc {\cf13\f0\fs20 Thank you and have a GREAT adventure!}\par\pard\plain\qc {\cf13\f0\fs20 }\par\pard\plain\qc {\f0\fs16 * * * Net 30 days on all purchases * * *}
  163. }