home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 11.ddi / MAYSALES.FP_ / MAYSALES.bin
Encoding:
Text File  |  1994-03-10  |  1.4 KB  |  55 lines
  1.  
  2. * WIZNAME = WZ_BQUER
  3. * VERSION = .79
  4. * TIMESTAMP = 476774400.0000
  5. * CLIENTSERVER =
  6. * TABLES = C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF
  7. * FIELDS = Invoices.ino;Invoices.idate;Invoices.itotal
  8. * FILTER = 0;0;Invoices.idate;5;5/1/90;0
  9. * FILTER = 0;0;Invoices.idate;2;6/1/90;0
  10. * SORT FIELDS = Invoices.ino
  11. * GROUP = 
  12. * SQL = SQL Select statement for Mailmerge Wizard:
  13. *SELECT Invoices.ino,Invoices.idate,Invoices.itotal ;
  14. *    FROM ;
  15. *         C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF;
  16. *    WHERE (Invoices.idate>={5/1/90}.AND.Invoices.idate<{6/1/90});
  17. *    ORDER BY Invoices.ino;
  18. *    INTO CURSOR Query
  19. IF !USED("Invoices")
  20.     SELECT 0
  21.     USE (LOCFILE("C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF","DBF","Where is Invoices.DBF ?")) AGAIN ALIAS Invoices
  22. ELSE
  23.     SELECT Invoices
  24.     SET RELATION TO
  25.     SET SKIP TO
  26.     SET ORDER TO
  27.     SET FILTER TO
  28. ENDIF
  29. *Sort order
  30. m.i=1
  31. DO WHILE !EMPTY(KEY(m.i))
  32.     IF KEY(m.i)="INO"
  33.         SET ORDER TO m.i ASCENDING
  34.         EXIT
  35.     ENDIF
  36.     m.i=m.i+1
  37. ENDDO
  38. IF EMPTY(SET("ORDER"))
  39.     IF SYS(2011)#"Exclusive"
  40.         USE DBF(ALIAS()) EXCLUSIVE AGAIN ALIAS (ALIAS())
  41.     ENDIF
  42.     INDEX ON ino TAG ino
  43. ENDIF
  44. *Filter
  45. IF EMPTY(SET("FILTER"))
  46.     SET FILTER TO (Invoices.idate>={5/1/90}.AND.Invoices.idate<{6/1/90})
  47. ELSE
  48.     PRIVATE m.mfilt
  49.     m.mfilt=SET("FILTER")
  50.     SET FILTER TO &mfilt AND (Invoices.idate>={5/1/90}.AND.Invoices.idate<{6/1/90})
  51. ENDIF
  52. LOCATE
  53. SET FIELDS GLOBAL
  54. SET FIELDS TO
  55. SET FIELDS TO Invoices.ino,Invoices.idate,Invoices.itotal