home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / CARET / CUTIBANK.RET < prev    next >
Encoding:
Text File  |  1993-08-31  |  11.5 KB  |  107 lines
  1. {\rtf1\ansi
  2. {\*\demo}
  3. {\fonttbl{\f0\fswiss Arial;}{\f1\froman Times New Roman;}}
  4. {\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;}
  5. {\info{\author CA-RET}{\title Report title}}
  6. {\*\vrwvern1}
  7. \paperw12240 \paperh15840 \margl2610 \margr2610 \margt1080 \margb1440
  8. {\*\vrwcol table1{\col0 0 1710 180}{\col1 1890 900 180}{\col2 2970 810 180}{\col3 3960 900 180}{\col4 5040 900 180}{\col5 6120 900 180}}
  9. {\*\vrwcol table2{\col0 0 1170 180}{\col1 1350 1710 180}{\col2 3240 2700 180}{\col3 6120 900 180}}
  10. {\*\vrwcol table3{\col0 0 2160 180}{\col1 2340 4680 180}}
  11. {\*\vrwcol table4{\col0 0 3780 180}{\col1 3960 3060 180}}
  12. {\*\ctrcol}
  13. \sectd \linex0 \pard
  14. {\*\vrwvar {\v0 _date\exp SystemDate()\dat}
  15. {\v1 _pagenumber\exp PageNumber()\int}
  16. {\v2 ACCT\colnum1\colnam ACCT\len21\txt}
  17. {\v3 PAST_DUE\colnum2\colnam PAST_DUE\len8\flt}
  18. {\v4 DUE_DATE\colnum3\colnam DUE_DATE\len8\dat}
  19. {\v5 NAME\colnum4\colnam NAME\len14\txt}
  20. {\v6 ADDRESS\colnum5\colnam ADDRESS\len15\txt}
  21. {\v7 CITY\colnum6\colnam CITY\len8\txt}
  22. {\v8 ST\colnum7\colnam ST\len3\txt}
  23. {\v9 ZIP\colnum8\colnam ZIP\len8\flt}
  24. {\v10 LINE\colnum15\colnam LINE\len8\flt}
  25. {\v11 DATE\colnum9\colnam DATE\len8\dat}
  26. {\v12 TRANS_DATE\colnum10\colnam TRANS_DATE\len8\dat}
  27. {\v13 REF\colnum11\colnam REF\len16\txt}
  28. {\v14 MERCHANT\colnum12\colnam MERCHANT\len31\txt}
  29. {\v15 AMOUNT\colnum13\colnam AMOUNT\len8\flt}
  30. {\v16 balance\exp PAST_DUE + Sum( AMOUNT, ACCT) + fin_charge + ADVANCES\flt}
  31. {\v17 mindue\exp Round( .05*balance, 1)\flt}
  32. {\v18 credit\exp LINE-balance\flt}
  33. {\v19 purchases\exp Sum( AMOUNT, ACCT ) - payments\flt}
  34. {\v20 fin_charge\exp Round( 0.18 * PAST_DUE, 2 )\flt}
  35. {\v21 payment\exp IF( AMOUNT < 0, AMOUNT, 0)\flt}
  36. {\v22 payments\exp Sum( payment, ACCT )\flt}
  37. {\v23 due\exp DUE_DATE\dat}
  38. {\v24 ADVANCES\colnum14\colnam ADVANCES\len8\flt}
  39. {\*\vrwqry \qrynam QUERY1\inptyp3 {\*\qrytbl SAMPLES\\CARET\CUTIBANK.DBF}
  40. {\*\qrycol ACCT 0 }
  41. {\*\qrycol PAST_DUE 0 }
  42. {\*\qrycol DUE_DATE 0 }
  43. {\*\qrycol NAME 0 }
  44. {\*\qrycol ADDRESS 0 }
  45. {\*\qrycol CITY 0 }
  46. {\*\qrycol ST 0 }
  47. {\*\qrycol ZIP 0 }
  48. {\*\qrycol DATE 0 }
  49. {\*\qrycol TRANS_DATE 0 }
  50. {\*\qrycol REF 0 }
  51. {\*\qrycol MERCHANT 0 }
  52. {\*\qrycol AMOUNT 0 }
  53. {\*\qrycol ADVANCES 0 }
  54. {\*\qrycol LINE 0 }
  55. {\*\qryord ACCT 0 0 }
  56. {\*\qryord TRANS_DATE 0 0 }
  57. {\map ACCT\mapcol ACCT\maptbl CUTIBANK\mapnum1}
  58. {\map PAST_DUE\mapcol PAST_DUE\maptbl CUTIBANK\mapnum2}
  59. {\map DUE_DATE\mapcol DUE_DATE\maptbl CUTIBANK\mapnum3}
  60. {\map NAME\mapcol NAME\maptbl CUTIBANK\mapnum4}
  61. {\map ADDRESS\mapcol ADDRESS\maptbl CUTIBANK\mapnum5}
  62. {\map CITY\mapcol CITY\maptbl CUTIBANK\mapnum6}
  63. {\map ST\mapcol ST\maptbl CUTIBANK\mapnum7}
  64. {\map ZIP\mapcol ZIP\maptbl CUTIBANK\mapnum8}
  65. {\map LINE\mapcol LINE\maptbl CUTIBANK\mapnum15}
  66. {\map DATE\mapcol DATE\maptbl CUTIBANK\mapnum9}
  67. {\map TRANS_DATE\mapcol TRANS_DATE\maptbl CUTIBANK\mapnum10}
  68. {\map REF\mapcol REF\maptbl CUTIBANK\mapnum11}
  69. {\map MERCHANT\mapcol MERCHANT\maptbl CUTIBANK\mapnum12}
  70. {\map AMOUNT\mapcol AMOUNT\maptbl CUTIBANK\mapnum13}
  71. {\map ADVANCES\mapcol ADVANCES\maptbl CUTIBANK\mapnum14}
  72. }
  73. {\*\vrwsct {\BCK15840 \nstlev1 }
  74. \pard\plain\ql {\f0\fs24  }
  75. {\*\vrwsct {\GHD4320 \keptgr \txthgt \rptbrk \nstlev1 {\grpvbllst ACCT}}
  76. \pard\plain\trowd \trgaph90\trleft-90\cellx3870\cellx7110
  77. {\*\vrwcoldef4}
  78. \intbl \ql {\cf9\b\f1\fs36 CardMember Statement}{\*\brdwid80}\brdrb\brdrs\brdrw80\cell\pard\plain\intbl \qr {\cf9\b\f1\fs36 CutiBank, USA}{\*\brdwid80}\brdrb\brdrs\brdrw80\cell\pard\plain\row
  79. \pard \ql \par\pard\plain\trowd \trgaph90\trleft-90\cellx1800\cellx2880\cellx3870\cellx4950\cellx6030\cellx7110
  80. {\*\vrwcoldef1}
  81. \intbl \qc {\cf4\f0\fs16 Account Number}{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\par\pard\plain\intbl \qc {\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Past Due Amount}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 New Balance}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\cf4\f0\fs16 Due Date}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\par\pard\plain\intbl \qc {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Minimum Due}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\cf4\f0\fs16 Write Amount Paid}{\f0\fs16  }{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  82. \pard \intbl \qc {\f0\fs18 {\*\varref ACCT\trmblk}}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref PAST_DUE\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref balance\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs18 {\*\varref due\pic d-Mmm }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref mindue\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs18  }{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  83. \pard \ql \par\pard\plain\ql \par\pard\plain\trowd \trgaph90\trleft-90\cellx2250\cellx7110
  84. {\*\vrwcoldef3}
  85. \intbl \ql {\cf4\f1\fs20 CUTICARD USA}\par\pard\plain\intbl \ql {\cf4\f1\fs20 Box 7401}\par\pard\plain\intbl \ql {\cf4\f1\fs20 Atlanta, GA  30374-0114}\cell\pard\plain\intbl \ql {\f0\fs20 {\*\varref NAME\trmblk}}\par\pard\plain\intbl \ql {\f0\fs20 {\*\varref ADDRESS\trmblk}}\par\pard\plain\intbl \ql {\f0\fs20 {\*\varref CITY\trmblk}}{\f0\fs20 , }{\f0\fs20 {\*\varref ST\trmblk}}{\f0\fs20  }{\f0\fs20 {\*\varref ZIP}}\cell\pard\plain\row
  86. \pard \ql \par\pard\plain\ql \par\pard\plain\trowd \trgaph90\trleft-90\cellx1800\cellx2880\cellx3870\cellx4950\cellx6030\cellx7110
  87. {\*\vrwcoldef1}
  88. \intbl \qc {\cf4\f0\fs16 Account Number}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\par\pard\plain\intbl \qc {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Total Credit Line}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Available Credit}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\cf4\f0\fs16 Statement Date}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\cf4\f0\fs16 Payment Due}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Minimum Payment}{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  89. \pard \intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  90. \pard \intbl \qc {\f0\fs18 {\*\varref ACCT\trmblk}}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref LINE\pic $#,##0 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref credit\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs18 {\*\varref _date\pic d-Mmm-yy }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qc {\f0\fs18 {\*\varref due\pic d-Mmm }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref mindue\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\row
  91. \pard\plain\trowd \trgaph90\trleft-90\cellx1260\cellx3150\cellx6030\cellx7110
  92. {\*\vrwcoldef2}
  93. \intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  94. \pard \intbl \qc {\cf4\f0\fs16 Transaction date}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\cf4\f0\fs16 Reference number}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\cf4\f0\fs16 Merchant Name}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 Amount}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\row
  95. {\*\vrwsct {\BDY216 \keptgr \txthgt \nstlev1 }
  96. \pard\plain\intbl \qc {\f0\fs18 {\*\varref TRANS_DATE\pic d-Mmm-yy }}{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\f0\fs18 {\*\varref REF\trmblk}}{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\i\f0\fs18 {\*\varref MERCHANT\trmblk}}{\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref AMOUNT\pic #,##0.00;-#,##0.00 }}{\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\row
  97. {\*\vrwsct {\GFT1003 \keptgr \pagbrk \txthgt \nstlev1 {\grpvbllst ACCT}}
  98. \pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\row
  99. \pard\plain\trowd \trgaph90\trleft-90\cellx1800\cellx2880\cellx3870\cellx4950\cellx6030\cellx7110
  100. {\*\vrwcoldef1}
  101. \intbl \qr {\cf4\f0\fs16 Previous Balance}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\par\pard\plain\intbl \qr {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 +Purchases, Fees}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 +Cash Advances}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 +Finance Charges}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 -Payments}{\*\brdwid20}\brdrt\brdrl\brdrs\brdrw20\par\pard\plain\intbl \qr {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\cf4\f0\fs16 New Balance}{\*\brdwid20}\brdrt\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  102. \pard \intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \ql {\*\brdwid20}\brdrl\brdrr\brdrs\brdrw20\cell\pard\plain\row
  103. \pard \intbl \qr {\f0\fs18 {\*\varref PAST_DUE\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref purchases\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18  }{\f0\fs18 {\*\varref ADVANCES\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref fin_charge\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref payments\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrs\brdrw20\cell\pard\plain\intbl \qr {\f0\fs18 {\*\varref balance\pic #,##0.00 }}{\*\brdwid20}\brdrb\brdrl\brdrr\brdrs\brdrw20\cell\row
  104. {\*\vrwsct {\PFT1468 \keptgr \txthgt \nstlev1 }
  105. \pard\plain\qc {\f1\fs20 Welcome to the privileges of CutiCard USA!}{\*\brdwid28}\brdrt\brdrl\brdrr\brdrs\brdrw28\par\pard\plain\qc {\f1\fs20 Now, most of your purchases are protected by purchase assurance}{\*\brdwid28}\brdrl\brdrr\brdrs\brdrw28\par\pard\plain\qc {\f1\fs20 for 90 days against loss, theft, or damages and by extended}{\*\brdwid28}\brdrl\brdrr\brdrs\brdrw28\par\pard\plain\qc {\f1\fs20 warranty which doubles the original US manufacturers' }{\*\brdwid28}\brdrl\brdrr\brdrs\brdrw28\par\pard\plain\qc {\f1\fs20 warranty up to one additional year.  For more information, call}{\*\brdwid28}\brdrl\brdrr\brdrs\brdrw28\par\pard\plain\qc {\b\f1\fs20 1-800-CUTIUSA}{\*\brdwid28}\brdrb\brdrl\brdrr\brdrs\brdrw28
  106. }
  107.