home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / FIXSTRU.PRG < prev    next >
Text File  |  1991-12-13  |  2KB  |  73 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: FIXSTRU.PRG       Copyright: EDON Corporation
  4. *   Date Created: 06/14/91           Language: Clipper S'87
  5. *   Time Created: 09:54:23             Author: Ed Phillips
  6. *           Desc:
  7. *.............................................................................
  8. GSAY = .F.
  9.  
  10. USE Scrngets
  11. COPY STRUCTURE EXTENDED TO Temp
  12. COPY TO JUNK.TXT SDF
  13. USE Temp
  14. LOCATE FOR TRIM(FIELD_NAME) = 'G_SAY'
  15. IF FOUND()
  16.    GSAY = .T.
  17. ENDIF                                            && IF FOUND()
  18.  
  19. APPEND BLANK
  20. REPL FIELD_NAME WITH 'G_COLOR', FIELD_TYPE WITH 'C', FIELD_LEN WITH 20
  21. APPEND BLANK
  22. REPL FIELD_NAME WITH 'SAY_COLOR', FIELD_TYPE WITH 'C', FIELD_LEN WITH 20
  23. APPEND BLANK
  24. REPL FIELD_NAME WITH 'SAY_EXP', FIELD_TYPE WITH 'C', FIELD_LEN WITH 40
  25. APPEND BLANK
  26. REPL FIELD_NAME WITH 'G_WHEN', FIELD_TYPE WITH 'C', FIELD_LEN WITH 30
  27. APPEND BLANK
  28. REPL FIELD_NAME WITH 'SAY_PICT', FIELD_TYPE WITH 'C', FIELD_LEN WITH 30
  29. APPEND BLANK
  30. REPL FIELD_NAME WITH 'GS_FLAG', FIELD_TYPE WITH 'C', FIELD_LEN WITH 1
  31. USE
  32. CREATE SCRNGETS FROM TEMP
  33. USE SCRNGETS
  34. APPEND FROM JUNK.TXT SDF
  35. GO TOP
  36. DO WHILE ! EOF()
  37.    IF GSAY
  38.       IF ! G_SAY
  39.          REPL GS_FLAG WITH 'G'
  40.       ELSE
  41.          REPL GS_FLAG WITH 'B'
  42.       ENDIF                                         && IF ! G_SAY
  43.    ELSE
  44.       REPL GS_FLAG WITH 'B'
  45.    ENDIF                                         && IF GSAY
  46.  
  47.    SKIP
  48. ENDDO                                            && DO WHILE ! EOF()
  49. USE TEMP
  50.  
  51. IF GSAY
  52.    LOCATE FOR TRIM(FIELD_NAME) = 'G_SAY'
  53.    DELETE
  54.    PACK
  55. ENDIF                                            && IF GSAY
  56.  
  57. ERASE JUNK.TXT
  58. CREATE JUNK FROM TEMP
  59. USE JUNK
  60. APPEND FROM SCRNGETS FIELDS SCRN_NAME, G_ROW, G_COL, G_PIC, G_VAR, G_VALID, GS_FLAG
  61. USE
  62. ERASE SCRNGETS.DBF
  63. ERASE TEMP.DBF
  64. RENAME JUNK.DBF TO SCRNGETS.DBF
  65. IF FILE('SCRNGETS.NTX')
  66.    ERASE SCRNGETS.NTX
  67. ENDIF                                            && IF FILE('SCRNGETS.NTX')
  68. IF FILE('SGETS.NTX')
  69.    ERASE SGETS.NTX
  70. ENDIF                                            && IF FILE('SGETS.NTX')
  71.  
  72. * EOF: FIXSTRU.PRG
  73.