home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / ssatutor / payrpt.re_ / payrpt.re
Encoding:
Text File  |  1994-12-14  |  5.1 KB  |  82 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\dy15\hr14\min42}{\revtim \yr1994\mo12\dy14\hr8\min16}}
  5. {\*\vrwvern3\vrwsubn0}
  6. \paperw12240 \paperh15840 \margl1440 \margr2160 \margt1440 \margb1440
  7. {\*\vrwcol Details{\col0 0 2070 180 0 0}{\col1 2250 3420 180 0 0}{\col2 5850 2655 180 0 0}}
  8. {\*\hrzpagbrk}{\*\vrwprmnam _parameter}
  9. \sectd \linex0 \pard
  10. {\*\vrwvar {\v0 ADV_ID\colnum7\colnam ADV_ID\len6\txt}
  11. {\v1 ADDRESS\colnum0\colnam ADDRESS\len31\txt}
  12. {\v2 TENDER_ID\colnum2\colnam TENDER_ID\len3\txt}
  13. {\v3 PAY_DATE\colnum3\colnam PAY_DATE\len8\dat}
  14. {\v4 AMOUNT\colnum4\colnam AMOUNT\len8\flt}
  15. {\v5 DETAILS\colnum5\colnam DETAILS\len101\txt}
  16. {\v6 PAID\colnum10\colnam PAID\len8\flt}
  17. {\v7 INV_ID\colnum1\colnam INV_ID\len6\txt}
  18. {\v8 INV_ID_2\colnum1\colnam INV_ID\len6\txt}
  19. {\v9 INV_DATE\colnum9\colnam INV_DATE\len8\dat}
  20. {\v10 PAID_DATE\colnum11\colnam PAID_DATE\len8\dat}
  21. {\v11 SUBMITTED\colnum12\colnam SUBMITTED\len8\flt}
  22. {\v12 REF_NO\colnum13\colnam REF_NO\len6\txt}
  23. {\v13 SUBMITTED_2\colnum12\colnam SUBMITTED\len8\flt}
  24. {\v14 _date{\expcr12 SystemDate()}\dat}
  25. {\v15 _pagenumber{\expcr12 PageNumber()}\flt}
  26. {\v16 _parameter1\colnam Enter the starting date:\prm \dat{\desc Starting date}}
  27. {\v17 _parameter2\colnam Enter the end date:\prm \dat{\desc End date}}
  28. {\v18 MonthGroup{\expcr19 MonthName(PAY_DATE)}\txt}
  29. {\v19 MontlyTotal{\expcr20 Sum(AMOUNT,PAY_DATE)}\flt}
  30. {\*\vrwqry \qrynam QUERY1\inptyp3 {\qry441  select 
  31.     PAYMENT.INV_ID,
  32.     PAYMENT.TENDER_ID,
  33.     PAYMENT.PAY_DATE,
  34.     PAYMENT.AMOUNT,
  35.     PAYMENT.DETAILS,
  36.     PAYMENT.SUBMITTED,
  37.     INVHDR.ADV_ID,
  38.     INVHDR.INV_ID,
  39.     INVHDR.INV_DATE,
  40.     INVHDR.PAID,
  41.     INVHDR.PAID_DATE,
  42.     INVHDR.SUBMITTED,
  43.     INVHDR.REF_NO
  44.  from 
  45.     PAYMENT.DBF,
  46.     INVHDR.DBF
  47.  where 
  48.     PAYMENT.INV_ID = INVHDR.INV_ID
  49.     and (PAYMENT.PAY_DATE >= [_parameter1] and 
  50.     PAYMENT.PAY_DATE <= [_parameter2])
  51.  order by 
  52.     PAYMENT.PAY_DATE} {\map ADV_ID\mapcol ADV_ID\maptbl INVHDR\mapnum7}
  53. {\map ADDRESS\mapcol \maptbl \mapnum0}
  54. {\map TENDER_ID\mapcol TENDER_ID\maptbl PAYMENT\mapnum2}
  55. {\map PAY_DATE\mapcol PAY_DATE\maptbl PAYMENT\mapnum3}
  56. {\map AMOUNT\mapcol AMOUNT\maptbl PAYMENT\mapnum4}
  57. {\map DETAILS\mapcol DETAILS\maptbl PAYMENT\mapnum5}
  58. {\map PAID\mapcol PAID\maptbl INVHDR\mapnum10}
  59. {\map INV_ID\mapcol INV_ID\maptbl PAYMENT\mapnum1}
  60. {\map INV_ID_2\mapcol INV_ID\maptbl PAYMENT\mapnum1}
  61. {\map INV_DATE\mapcol INV_DATE\maptbl INVHDR\mapnum9}
  62. {\map PAID_DATE\mapcol PAID_DATE\maptbl INVHDR\mapnum11}
  63. {\map SUBMITTED\mapcol SUBMITTED\maptbl INVHDR\mapnum12}
  64. {\map REF_NO\mapcol REF_NO\maptbl INVHDR\mapnum13}
  65. {\map SUBMITTED_2\mapcol SUBMITTED\maptbl INVHDR\mapnum12}
  66. }
  67. {\*\vrwsct {\BCK15120 {\sctrct360 360 11880 15480}\nstlev1 }
  68. \pard\plain\ql {\f0\fs20 }
  69. {\*\vrwsct {\PHD2565 {\sctrct1440 1440 10080 4005}\nstlev1 }
  70. \pard\plain\qc {\f0\fs36 Payments by Month}\par\pard\plain\qc {\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}\par\pard\plain\qc {\f0\fs36 }\par\pard\plain\qc {\cf2\f0\fs28 {\*\varref _parameter1\pic mm/dd/yyyy }}{\i\f0\fs28  to }{\cf2\i\f0\fs28 {\*\varref _parameter2\pic mm/dd/yyyy }}{\i\f0\fs28 }
  71. {\*\vrwsct {\GHD1326 {\sctrct1440 4005 10080 5331}\rptbrk \nstlev1 {\grpvbllst PAY_DATE}{\grpby5 0}}
  72. \pard\plain\ql {\f0\fs20 }\par\pard\plain\trowd \trgaph90\trleft-90\cellx2160\cellx5760\cellx8595
  73. {\*\vrwcoldef1}
  74. \intbl \ql {\f0\fs20 }{\*\brdwid20}\box\brdrs\brdrw20\par\pard\plain\intbl \qc {\f0\fs20 Month:  }{\f0\fs20 {\*\varref MonthGroup\trmblk}}{\f0\fs20 }\par\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\row
  75. \pard \intbl \qc {\f0\fs20 Payment Date}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 Invoice #}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs20 Amount Paid}{\*\brdwid20}\brdrt\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\row
  76. {\*\vrwsct {\BDY315 {\sctrct1440 5331 10080 5646}\nstlev1 }
  77. \pard\plain\intbl \qc {\f0\fs20 {\*\varref PAY_DATE\pic mm/dd/yyyy }}{\f0\fs20 }\cell\pard\plain\intbl \qc {\f0\fs20 {\*\varref INV_ID\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref AMOUNT\pic Currency }}{\f0\fs20 }\cell\row
  78. {\*\vrwsct {\GFT251 {\sctrct1440 5646 10080 5897}\txthgt \nstlev1 {\grpvbllst PAY_DATE}{\grpby5 0}}
  79. \pard\plain\intbl \ql {\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 Total for }{\f0\fs20 {\*\varref MonthGroup\trmblk}}{\f0\fs20 }\cell\pard\plain\intbl \qr {\f0\fs20 {\*\varref MontlyTotal\pic Currency }}{\f0\fs20 }{\*\brdwid20}\brdrt\brdcel\brdrs\brdrw20\cell\row
  80. {\*\vrwsct {\PFT315 {\sctrct1440 14085 10080 14400}\nstlev1 }
  81. \pard\plain\qr {\f0\fs20  Page }{\f0\fs20 {\*\varref _pagenumber}}{\f0\fs20 }
  82. }