home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / MYB_203.ZIP / MYB_203.EXE / REPORT2.MRG < prev    next >
Encoding:
Text File  |  1993-05-04  |  2.9 KB  |  87 lines
  1. <*
  2.    REPORT2.MRG - Sample merge print file for CONTACT database.
  3.    ~~~~~~~~~~~
  4.    Print a report of all customers which need to be followed-up within
  5.    the next 4 weeks.
  6.  
  7.    This report will print four customers per page.
  8.  
  9.    NOTE: The statement below which begins with the hash mark (#) is only
  10.    evaluated ONCE! However, since the result of this function is assigned
  11.    to a memory variable, "_Date", it may be used later without needing to
  12.    re-evaluate the entire function (much faster).
  13.  
  14. >
  15. <# _Date := CMONTH(DATE()) +" "+ ALLTRIM(STR(DAY(DATE()))) +","+ STR(YEAR(DATE()))
  16. >
  17. < LOCATE( "FOLLOW_UP < DATE()+28 .AND. !EMPTY(FOLLOW_UP)" ) >
  18. XYZ Company Inc.
  19. List of customers to follow up in next 4 weeks
  20. Date of report: < _Date >
  21. --------------------------------------------------------------------------------
  22.  
  23. < TRIMLINES (
  24.      TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
  25.      TITLE     + _LF +
  26.      DEPARTMENT+ _LF +
  27.      COMPANY   + _LF +
  28.      ADDRESS_1 + _LF +
  29.      ADDRESS_2 + _LF +
  30.      TRIM (CITY)+ ", " + STATE + _LF +
  31.      ZIP_CODE  + _LF )
  32. >
  33. Phone: < PHONE_NO > Fax: < FAX_NO >
  34. Date of last fax: < LAST_FAX >  Last call: < LAST_CALL >  Follow up: < FOLLOW_UP >
  35. Rank: < RANK >  Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
  36.  
  37. --------------------------------------------
  38. < CONTINUE() ><* skip to next record >
  39. < TRIMLINES (
  40.      TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
  41.      TITLE     + _LF +
  42.      DEPARTMENT+ _LF +
  43.      COMPANY   + _LF +
  44.      ADDRESS_1 + _LF +
  45.      ADDRESS_2 + _LF +
  46.      TRIM (CITY)+ ", " + STATE + _LF +
  47.      ZIP_CODE  + _LF )
  48. >
  49. Phone: < PHONE_NO > Fax: < FAX_NO >
  50. Date of last fax: < LAST_FAX >  Last call: < LAST_CALL >  Follow up: < FOLLOW_UP >
  51. Rank: < RANK >  Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
  52.  
  53. --------------------------------------------
  54. < CONTINUE() ><* skip to next record >
  55. < TRIMLINES (
  56.      TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
  57.      TITLE     + _LF +
  58.      DEPARTMENT+ _LF +
  59.      COMPANY   + _LF +
  60.      ADDRESS_1 + _LF +
  61.      ADDRESS_2 + _LF +
  62.      TRIM (CITY)+ ", " + STATE + _LF +
  63.      ZIP_CODE  + _LF )
  64. >
  65. Phone: < PHONE_NO > Fax: < FAX_NO >
  66. Date of last fax: < LAST_FAX >  Last call: < LAST_CALL >  Follow up: < FOLLOW_UP >
  67. Rank: < RANK >  Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
  68.  
  69. --------------------------------------------
  70. < CONTINUE() ><* skip to next record >
  71. < TRIMLINES (
  72.      TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
  73.      TITLE     + _LF +
  74.      DEPARTMENT+ _LF +
  75.      COMPANY   + _LF +
  76.      ADDRESS_1 + _LF +
  77.      ADDRESS_2 + _LF +
  78.      TRIM (CITY)+ ", " + STATE + _LF +
  79.      ZIP_CODE  + _LF )
  80. >
  81. Phone: < PHONE_NO > Fax: < FAX_NO >
  82. Date of last fax: < LAST_FAX >  Last call: < LAST_CALL >  Follow up: < FOLLOW_UP >
  83. Rank: < RANK >  Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
  84.  
  85. --------------------------------------------
  86.  
  87.