home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws33.arc / MOVE.PRG < prev    next >
Encoding:
Text File  |  1988-11-01  |  2.2 KB  |  104 lines
  1. * Program: Move.prg
  2. * Author:  Don L. Powells
  3. * Version: Clipper Summer '87
  4. * Note(s): Collection of routines that automate the data deposit
  5. *          and withdrawal process.
  6. *
  7. * Copyright (c) 1988 Nantucket Corp.
  8.  
  9.  
  10. * Mempty() - Initialize field variables with empty value.
  11. *
  12. FUNCTION Mempty
  13. IF LEN(ALIAS()) !=0
  14.    FOR i = 1 TO FCOUNT()
  15.       mfield = FIELDNAME(i)
  16.       fieldvar = "m" + mfield
  17.       IF type("&mfield") = "C"
  18.          &fieldvar = SPACE(LEN(&mfield))
  19.       ELSEIF type("&mfield") = "N"
  20.          &fieldvar = 0
  21.       ELSEIF type("&mfield") = "D"
  22.          &fieldvar = CTOD("  /  /  ")
  23.       ELSEIF type("&mfield") = "L"
  24.          &fieldvar = .F.
  25.       ELSEIF type("&mfield") = "M"
  26.          &fieldvar = SPACE(512)
  27.       ENDIF
  28.    NEXT
  29. ELSE
  30.    BEEP("BOZO")
  31.    Err_msg("No database file is open. ")
  32.    BREAK && Abort Add/Edit routine
  33. ENDIF
  34. RETURN(.T.)
  35.  
  36.  
  37. * Fld2mem() - Assign fields to field memory variables.
  38. *
  39. FUNCTION Fld2mem
  40. IF LEN(ALIAS()) != 0
  41.    FOR i = 1 TO FCOUNT()
  42.       mfield = FIELDNAME(i)
  43.       fieldvar = "m" + mfield
  44.       &fieldvar = &mfield
  45.    NEXT
  46. ELSE
  47.    BEEP("BOZO")
  48.    Err_msg("No database file is open. ")
  49. ENDIF
  50. RETURN(.T.)
  51.  
  52.  
  53. * Mem2fld() - Replace fields with field memory variables.
  54. *
  55. FUNCTION Mem2fld
  56. IF LEN(ALIAS()) !=0    && Check for open file.
  57.    FOR i = 1 TO FCOUNT()
  58.       mfield = FIELDNAME(i)
  59.       fieldvar = "m" + mfield
  60.       REPLACE &mfield. WITH &fieldvar.
  61.    NEXT
  62. ELSE
  63.    BEEP("BOZO")
  64.    Err_msg("No database file is open. ")
  65. ENDIF
  66. RETURN(.T.)
  67.  
  68.  
  69. * Beep() - Sounds a tone to get user's attention.
  70. *
  71. * Usage: Beep("NORM")     && Informative information or warning.
  72. *        Beep("BOZO")     && Error beep.
  73. *
  74. FUNCTION Beep
  75. PARAMETER beeptype
  76. IF beep_on
  77.    IF UPPER(beeptype) = "BOZO"
  78.       TONE(87.3,2)
  79.       TONE(40,7)
  80.    ELSE
  81.       TONE(261.7,2)
  82.       TONE(392,7)
  83.    ENDIF
  84. ENDIF
  85. RETURN(.T.)
  86.  
  87.  
  88. * Err_msg() - Prints an error message or warning on row 0.
  89. *
  90. * Usage: Err_msg("Error or warning message")
  91. *
  92. FUNCTION Err_msg
  93. PARAMETER e_msg
  94. @ 0,0
  95. err_scrn = SAVESCREEN(0,0,1,79)
  96. currcolr = SETCOLOR()
  97. SET COLOR TO i
  98. @ 0,0 SAY e_msg + " Press a key to continue."
  99. INKEY(0)
  100. SETCOLOR(currcolr)
  101. @ 0,0
  102. RESTSCREEN(0,0,1,79,err_scrn)
  103. RETURN(.T.)
  104.