home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_8.PRG < prev    next >
Encoding:
Text File  |  1994-01-15  |  3.0 KB  |  120 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP12_8.PRG                                          ⌐ª
  3. *⌐ª     Function: ╩╣╙├ @ ... EDIT ├ⁿ┴ε▒α╝¡▒╕╫ó╫╓╢╬╡─╖╢└².              ⌐ª
  4. *⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK   OFF
  7. SET SAFETY OFF
  8. SET MESSAGE TO 24 CENTER
  9. CLEAR ALL
  10. CLEAR
  11.  
  12. PUBLIC cur_scheme
  13. cur_scheme=SCHEME(17)
  14. ON READERROR DO errmsg WITH VARREAD()
  15. USE CUSTOMER
  16. COPY TO TEST CDX
  17. USE TEST
  18. DO WHILE .T.
  19.    mCNO      = SPACE(LEN(CNO))        &&  Character     5
  20.    mCOMPANY  = SPACE(LEN(company))    &&  Character    35
  21.    mCONTACT  = SPACE(LEN(contact))    &&  Character    20
  22.    mADDRESS  = SPACE(LEN(address))    &&  Character    30
  23.    mCITY     = SPACE(LEN(city))       &&  Character    15
  24.    mZIP      = SPACE(LEN(zip))        &&  Character     5
  25.    mTAXRATE  = 0.00                   &&  Numeric       5
  26.  
  27.    @ 1,10 TO 22,75  " " COLOR /W+
  28.    @ 4,15 SAY "╣½╦╛▒α║┼ : " GET mCNO WHEN choice() ;
  29.               VALID keyin(TRIM(mCNO))
  30.    @ 5,15 SAY "╣½╦╛├√│╞ : " GET mcompany
  31.    @ 6,15 SAY "  ┴¬╧╡╚╦ : " GET mcontact
  32.    @ 7,15 SAY "    ╡╪╓╖ : " GET maddress
  33.    @ 8,15 SAY "    │╟╩╨ : " GET mcity
  34.    @ 9,15 SAY "╙╩╒■▒α┬δ : " GET mzip
  35.    @10,15 SAY "    ╦░┬╩ : " GET mtaxrate
  36.    @12,15 SAY "    ╦╡├≈ : "
  37.    @13,13 EDIT COMMENTS ;
  38.           SIZE 5,60 ;
  39.           MESSAGE "<< ▒╕╫ó╫╓╢╬▒α╝¡╟° >>" ;
  40.           VALID memocheck(COMMENTS) ;
  41.           SCROLL ;
  42.           COLOR SCHEME 17
  43.    READ
  44.    IF LASTKEY()=27
  45.       SET COLOR OF SCHEME 17 TO (cur_scheme)
  46.       CLEAR ALL
  47.       CLEAR
  48.       EXIT
  49.    ENDIF
  50. ENDDO
  51. RETURN
  52.  
  53. FUNCTION CHOICE
  54. PRIVATE myarray
  55. DIMENSION myarray(RECCOUNT())
  56. PRIVATE poisition,sele,I
  57. poisition=RECNO()
  58. GO TOP
  59. FOR I=1 TO ALEN(myarray)
  60.    myarray(I)=CNO
  61.    SKIP
  62. ENDFOR
  63. @ 4,29 MENU myarray,ALEN(myarray),10 TITLE "<< ╤í╘±╝╟┬╝▒α║┼ >>" SHADOW
  64. READ MENU TO sele
  65. IF !EMPTY(sele)
  66.    KEYBOARD myarray(sele)
  67.    GO sele
  68. ELSE
  69.    GO poisition
  70. ENDIF
  71. RETURN .T.
  72.  
  73. FUNCTION keyin
  74. PARAMETER nCNO
  75. PRIVATE nCNO
  76. IF EMPTY(nCNO)
  77.    RETURN .F.
  78. ENDIF
  79. SET ORDER TO TAG CNO
  80. SEEK nCNO
  81. IF FOUND()
  82.    KEYBOARD RTRIM(company)+CHR(13)+RTRIM(contact)+CHR(13)+RTRIM(address)
  83.    KEYBOARD CHR(13)+RTRIM(city)
  84.    KEYBOARD CHR(13)+RTRIM(zip)+STR(taxrate,5,2)
  85.    SET ORDER TO
  86.    RETURN .T.
  87. ELSE
  88.    WAIT "╬▐╖¿╒╥╡╜─π╩Σ╚δ╡─╣½╦╛▒α║┼╩²╛▌, "+;
  89.         "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°╩Σ╚δ╗≥░┤ ESC ╝ⁿ═╦│÷.";
  90.          WINDOW NOWAIT
  91.    SET ORDER TO
  92.    RETURN .F.
  93. ENDIF
  94. RETURN
  95.  
  96. FUNCTION memocheck
  97. PARAMETER receive
  98. PRIVATE receive
  99. IF EMPTY(receive)
  100.    RETURN .F.
  101. ENDIF
  102. RETURN .T.
  103.  
  104.  
  105. PROCEDURE errmsg
  106. PARAMETER mFIELD
  107. PRIVATE mFIELD
  108. DO CASE
  109.    CASE UPPER(mFIELD)="MCNO"
  110.         WAIT  "─π▒╪╨δ╩Σ╚δ╣½╦╛▒α║┼, "+;
  111.               "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°╩Σ╚δ╗≥░┤ ESC ╝ⁿ═╦│÷.";
  112.                WINDOW  NOWAIT
  113.  
  114.    CASE UPPER(mFIELD)="COMMENTS"
  115.         WAIT  "─π▒╪╨δ╩Σ╚δ╩²╛▌, "+;
  116.               "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°╩Σ╚δ╗≥░┤ ESC ╝ⁿ═╦│÷." ;
  117.                WINDOW  NOWAIT
  118. ENDCASE
  119. RETURN
  120.