home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9101.ZIP / HEAD1.JAN < prev    next >
Encoding:
Text File  |  1990-10-30  |  317 b   |  23 lines
  1.  
  2. @ ... SAY "Enter Customer name -> " ;
  3.       GET CustName  VALID MultiValid(CustName)
  4. .
  5. .
  6. .
  7. FUNCTION MultiValid
  8. PARAMETER CustName
  9.  
  10. IF .NOT. ValidCust(CustName)
  11.    RETURN .F.
  12. ENDIF
  13.  
  14. IF .NOT. NoOpenTrans(CustName)
  15.     RETURN .F.
  16. ENDIF
  17.  
  18. IF .NOT NoUnPaid(CustName)
  19.    RETURN .F.
  20. ENDIF
  21.  
  22. RETURN .T.
  23.