home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / billing / help.prg < prev    next >
Encoding:
Text File  |  1986-11-10  |  2.0 KB  |  80 lines
  1. *--[ help.prg ]-- for use by clipper only!
  2. PARAMETERS call_prg,line_num,input_var
  3. SAVE SCREEN
  4. @ 0,0 CLEAR
  5. DO CASE
  6.     CASE input_var="M_CLIENT" .OR. input_var="END_CLT"
  7.         SELECT clt
  8.         IF m_client>0
  9.             SEEK TRIM(STR(m_client,3,0))
  10.         ELSE
  11.             GO TOP
  12.         ENDIF m_client>0
  13.         SET COLOR TO W+
  14.         @ 1,33 SAY "CLIENT LISTING"
  15.         SET COLOR TO W
  16.         ? "                    ========================================"
  17.         ? "                    CODE  CLIENT NAME"
  18.         ? "                    ----  ----------------------------------"
  19.         h_line=5
  20.         DO WHILE .NOT. EOF()
  21.             ? "                    "+STR(c_code,3,0)+"   "
  22.             ?? c_name
  23.             h_line=h_line+1
  24.             SKIP
  25.             IF h_line > 20
  26.                 WAIT "                     PRESS RETURN TO CONTINUE OR <Q> TO END LISTING" TO action
  27.                 IF UPPER(action)="Q"
  28.                     EXIT
  29.                 ENDIF UPPER(action)+"Q"
  30.                 h_line=5
  31.                 @ h_line,0 CLEAR
  32.             ENDIF h_line>20
  33.         ENDDO WHILE .NOT. EOF()
  34.         SET COLOR TO W*+
  35.         WAIT "                    PRESS RETURN AFTER READING LIST"
  36.         SET COLOR TO W
  37.  
  38.     CASE input_var="MC_NAME"
  39.         SELECT clt
  40.         IF LEN(TRIM(mc_name))>0
  41.             SEEK TRIM(mc_name)
  42.             IF .NOT. FOUND()
  43.                 @ 12,15 SAY "CAN'T FIND "+TRIM(mc_name)
  44.                 ?
  45.                 WAIT "                         PRESS RETURN"
  46.                 RESTORE SCREEN
  47.                 RETURN
  48.             ENDIF
  49.         ELSE
  50.             GO TOP
  51.         ENDIF m_client>0
  52.         SET COLOR TO W+
  53.         @ 1,33 SAY "CLIENT LISTING"
  54.         SET COLOR TO W
  55.         ? "                    ========================================"
  56.         ? "                    CODE  CLIENT NAME"
  57.         ? "                    ----  ----------------------------------"
  58.         h_line=5
  59.         DO WHILE .NOT. EOF()
  60.             ? "                    "+STR(clt->c_code,3,0)+"   "
  61.             ?? clt->c_name
  62.             h_line=h_line+1
  63.             SKIP
  64.             IF h_line > 20
  65.                 WAIT "                     PRESS RETURN TO CONTINUE OR <Q> TO END LISTING" TO action
  66.                 IF UPPER(action)="Q"
  67.                     EXIT
  68.                 ENDIF UPPER(action)+"Q"
  69.                 h_line=5
  70.                 @ h_line,0 CLEAR
  71.             ENDIF h_line>20
  72.         ENDDO WHILE .NOT. EOF()
  73.         SET COLOR TO W*+
  74.         WAIT "                    PRESS RETURN AFTER READING LIST"
  75.         SET COLOR TO W
  76. ENDCASE
  77.  
  78. RESTORE SCREEN
  79. RETURN
  80.