home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / ERR_PROC.PRG < prev    next >
Encoding:
Text File  |  1994-05-10  |  1.8 KB  |  37 lines
  1. @ 22,35 GET CUR_COND PICT '@B'
  2.                 READ
  3.                 IF FIELD_TYPE='N'
  4.                    CUR_VAL=TRIM(FIELD_NAME)+REALTYPE&RUN_CHR+LTRIM(STR(VAL(CUR_COND),FIELD_LEN))
  5.                 ELSE
  6.                    CUR_VAL=TRIM(FIELD_NAME)+REALTYPE&RUN_CHR+"CTOD('"+DTOC(CUR_COND)+"')"
  7.                 ENDIF
  8.                 COND_CTC=COND_CTC+1
  9.                 EXIT
  10.             ENDCASE
  11.          ENDDO
  12.           ELSE
  13.          CUR_COND=SPACE(30)
  14.          SET COLOR TO W+/B
  15.          @ 22,10 SAY '╟δ╩Σ╚δ╠⌡╝■╛▀╠σ╓╡:'
  16.          @ 22,35 GET CUR_COND
  17.          READ
  18.          CUR_VAL="AT('"+TRIM(CUR_COND)+"',TRIM("+TRIM(LTRIM(FIELD_NAME))+"))<>0"
  19.          COND_CTC=COND_CTC+1
  20.           ENDIF
  21.           IF CURR_KEY<>27.AND.COND_CTC>1
  22.          SET COLOR TO W+/B
  23.          @ 21, 5 CLEAR TO 22,75
  24.          @ 21, 6 SAY '╡▒╟░╠⌡╝■╩╟: '+CUR_VAL
  25.          SET COLOR TO W+/B
  26.          @ 22, 4 SAY '╟δ╤í╘±╡▒╟░╠⌡╝■╙δ─π╟░├µ╢¿╥σ╠⌡╝■╡─┬▀╝¡╘╦╦π╣╪╧╡: '
  27.                 SET COLOR TO W+/R
  28.          @ 24, 0 SAY SPACE(79)
  29.          @ 24,20 SAY 'í√ í· ╫≤╙╥╥╞╢»╣Γ┤°   Return ╤í╘±'
  30.          ??CHR(7)
  31.          SET COLOR TO W+/B
  32.          @ 22,50 SAY '═¼╩▒┬·╫π       ┬·╫π╞Σ╓╨╓«╥╗'
  33.          REL_CTC=1
  34.          DO WHILE .T.
  35.             RELα■Σ$~≡ $x¼░  P,P╩êå    α■Σ$~≡■@bÅä ≡D ■ 0α■Σ$~≡≡ö ■ ≡ └l<α■Σ$~≡     ≡PÉP≡" ;ó"";₧ä?■"?ⁿ"'8*╓2!"@$ÇIBçⁿä?■"?ⁿ&8+V2É?≡ Ç/° Ç_°@éÇé■ä?■"?ⁿ"'8*V2É' !└"O°Báäÿ    ê?ⁿ$@?°$H?°(@/x(D/<  '°D D"ä"?■$@?°$H?°*P,d/| 0'└ ê_ⁿBᣣÇ?ⁿ$@?°$H?°(@/x(D/< ê?ⁿ@ÇO°ÇÇ?■?ⁿ$@?°$H?°(@/x(D/<$É"á_ⁿBᣣÇH
  36. HⁿTHTHxUHUHxDHUH^■T_Höå?ⁿ$@?°$H?°*P,d.╝!@'≡8ÄO°DÉéáⁿ?ⁿ$@?°$H?°*P,d/<$/ê<■JêO¿äê9ÿ
  37. TT■TTUUHHD■U(^¿T^_HöêáÉ0ⁿ_@É2≡0P≡?° ■$êBD ~ U$U$}$U$Uⁿ|  }$$ $$½$½ⁿ~ÉTÉTö}>UTW╘|öö|ö T╘¬$¬$L ~ T$W■| T(Uⁿ||ⁿê■êê¬ê¬°ê ~ T|Tä}HT0T`}É>|B─ (¬ ¬@Ç ~ T@Tê}ⁿTêU~é°|êê■P ¬P¬Ä ~(UⁿT | W■TÆ|T|ö■ⁿ  ¬X¬å>D~■ñ$*THê≡0P≡?° ■$HDD@~ TW■|T°Tê|êê|° ■¿&¬"¬á@ ~@TêUⁿ| T$W■|Pÿ}&╚■0─¬¬`Ç@~(UⁿT|êTPW■|ⁿ|êê■°