home *** CD-ROM | disk | FTP | other *** search
/ BUG 4 / BUGCD1997_05.BIN / aplic / clip4win / clip4win.exe / C4W30E.HUF / SOURCE / FORMDOS.PRG < prev    next >
Text File  |  1996-06-18  |  2KB  |  49 lines
  1.  
  2. FUNCTION contact_a   //   add a contact
  3. local    GetList
  4.  
  5. local    mName      := SPACE(35)
  6. local    mFTName    := SPACE(35)
  7. local    mAddr_1    := SPACE(35)
  8. local    mAddr_2    := SPACE(20)
  9. local    mAddr_3    := SPACE(20)
  10. local    mAddr_4    := SPACE(15)
  11. local    mAddr_5    := SPACE(10)
  12. local    mContact   := SPACE(25)
  13. local    mTelephone := SPACE(15)
  14. local    mFax       := SPACE(15)
  15.  
  16. DO WHILE .T.
  17.    CLEAR GETS
  18.    CLS
  19.    @  3,55 SAY "[ Add Contact ]"
  20.    @  5,13 SAY    "Name        : " GET mName      PICTURE '@!' valid genval(!empty(mName),"Need a Name Please")
  21.    @  6,13 SAY    "Address 1   : " GET mAddr_1    PICTURE '@!' valid genval(!empty(mAddr_1),"Need an Address Please")
  22.    @  7,13 SAY    "Address 2   : " GET mAddr_2    PICTURE '@!' valid genval(!empty(mAddr_2),"Need an Address Please")
  23.    @  8,13 SAY    "Address 3   : " GET mAddr_3    PICTURE '@!' valid genval(!empty(mAddr_3),"Need an Address Please")
  24.    @  9,13 SAY    "Address 4   : " GET mAddr_4    PICTURE '@!'
  25.    @ 10,13 SAY    "Post Code   : " GET mAddr_5    PICTURE '@!'
  26.    @ 11,13 SAY    "Contact     : " GET mContact   PICTURE '@!' valid genval(!empty(mContact),"Need a Contact Please")
  27.    @ 12,13 SAY    "Telephone   : " GET mTelephone PICTURE '@!' valid genval(!empty(mTelephone),"Need a Telephone Number Please")
  28.    @ 13,13 SAY    "Fax No      : " GET mFax       PICTURE '@!'
  29.    @ 14,13 SAY    "FT Name     : " GET mFTName    PICTURE '@!' valid genval(!empty(mFTName),"Need a Name for Financial Transactions Please")
  30.    READ
  31.    if lastkey() == 27
  32.       EXIT
  33.    ENDIF
  34.  
  35.    // update ...
  36. ENDDO
  37.  
  38. RETURN NIL
  39.  
  40.  
  41. static function genval(lOk, cMsg)
  42. if !lOk
  43.     @ 24,10 CLEAR TO 24,70
  44.     @ 24,10 SAY cMsg
  45.     tone(523.3,0.5)
  46. endif
  47. return lOk
  48.  
  49.