home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBEEEE.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.3 KB  |  63 lines
  1. <<* SSBCOND.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<procedure GenSBExpr>>
  5. <<begin>>
  6. PARAMETER expr,notes
  7. PRIVATE row,rowTOP,recnum,recnumTOP
  8. PRIVATE newexpr,newnote,PagePaint,skipRECS,exprTOTAL
  9. SELECT H
  10. GOTO BOTTOM
  11. IF EOF()
  12.    exprTOTAL = 0
  13.    recnumTOP = 0
  14. ELSE
  15.    exprTOTAL = RECNO()
  16.    GOTO TOP
  17.    recnumTOP = RECNO()
  18. ENDIF
  19. skipRECS = 18
  20. row = 23
  21. rowTOP = 2
  22. recnum = 0
  23. expr = ""
  24. notes = ""
  25. newexpr = ""
  26. newnote = ""
  27. <<GenColor( 0,'WINDOW' )>>
  28. @ 0,0 CLEAR
  29. <<GenColor( 0,'PROMPT' )>>
  30. @ rowTOP,0 SAY  REPLICATE( "í╓",40 )
  31. @ rowTOP,20 SAY " ╠⌡  ╝■     "
  32. @ rowTOP,57 SAY " ╫ó ╩═ / ▒Ω ╟⌐  "
  33. @ row-1,0 SAY PromptBar
  34. @ rowTOP,0 SAY ""
  35. IF recnumTOP > 0 .AND. RECCOUNT() >= 1
  36.    GOTO recnumTOP
  37. ENDIF
  38.   
  39. * ---Edit CONDITION.
  40. DO GotoRec WITH row,recnum,exprTOTAL
  41. ?? SYS(2002,1)
  42. IF recnum > 0 .AND. CondArea = dbfarea
  43.    recnumTOP = RECNO()
  44.    @ 9,7 CLEAR TO 11,72 
  45.    @ 9,7 TO 11,72
  46.    @ 9,9 SAY ' ╨▐ ╕─ ╠⌡ ╝■    '
  47.    @ 12,19 CLEAR TO 14,60
  48.    @ 12,19 TO 14,60
  49.    @ 12,21 SAY '╨▐ ╕─ ╫ó ╩═ ' 
  50.    @ 10,8 GET CondExpr PICT "@S64"
  51.    @ 13,20 GET CondNote
  52.    READ
  53.    expr = CondExpr
  54.    notes = CondNote
  55. ENDIF
  56. ?? SYS(2002)
  57. expr = TRIM( expr )
  58. notes = TRIM( notes )
  59. SELECT &dbfarea
  60. <<end>><<* GenSBExpr *>>
  61.  
  62. <<* EOF: SSBEXPR.INC *>>
  63.