No.4008(So-net 1720+ Diary 2288)
2015年Blog Web Diary
機械は壊れる。
NEC PC-9821V13
いまは世の中に普通にはないPCだ。
最近よく壊れる。
まずはスマホが壊れた。
ワイシャツ姿になって胸ポケットからこのスマホをよく落とす。
それも２階から落としたのがまずかった。
Bluetooth が音飛びするようになってしまったのだ。
それだけなので、スマホを買い換えるまでにはならない。
次に工場のボイラー。
もう２０年も使ってるのでいつ止まってもおかしくないのだが
ファンが壊れた。だが水管は丈夫なので、これも修理して使う。
次に営業車。
これも一番古い車のギアが１速、２速が入らないと言ってきた。
もちろんマニュアル車だ。
いま見たら平成１６年１１月が初年度登録だから１２年選手だ。
この車は買い換えるが、夏休みにかかるので代車の入れ替えが
明日の日曜日になってしまい、山に行く予定が狂ってしまった。
しかし問題はこのPCだ。
***********************
* CM110.PRG *
*受注票入力･営業員ｺｰﾄﾞ*
***********************
set color to G
@ 3, 6 say "外交受注票 入力･･･････････[11]"
set color to
select 1
use TRAN
copy structure to &TEMP.TRAN_A
use &TEMP.TRAN_A alias TRAN
select 2
use TRAN index TR_CS_CD alias TRAN_O
select 3
use TRAN_BP
select 4
use EIGYO index EI_EI_CD
select 5
use CUS index CS_CS_CD
select 6
use ITEM index IT_IT_CD
select 7
use NIPO index NP_NP_DT
store " " to CS_CODE
store " " to CS_SIME
store " " to CS_NO
store " " to IT_CODE
store 0 to CM110CT
store " " to CM110PLUS
store 0 to NP_BPKYA
store " " to NP_BP
do CM110_DS
do while .T.
store YY to CM110YY
store MM to CM110MM
store DD to CM110DD
@ 5,46 say WEEK
@ 7, 4
set color to G
@ 7, 4 say "入力日付 [ ]戻る"
set color to
@ 7,14 say "ESC"
?? chr(BELL)
if TYPE="CLEAR"
clear typeahead
endif
@ 5,33 get CM110YY picture "99"
@ 5,37 get CM110MM picture "99"
@ 5,41 get CM110DD picture "99"
read
clear gets
if readkey()=0.or.readkey()=12
close databases
return
endif
if val(CM110MM) <=0 .or. val(CM110MM) >=13 .or. ;
val(CM110DD) <=0 .or. val(CM110DD) >=32
?? chr(7)
loop
endif
store CM110YY+CM110MM+CM110DD to TR_DATE
store left(cdow(ctod(str(val(CM110YY)+1988,4) to WEEK2
@ 5,46 say WEEK2
do while .T.
store 0 to NP_KYAKU
select EIGYO
@ 7, 4
set color to G
@ 7, 4 say "[ ]日付 [ ]終了"
set color to
@ 7, 5 say "ESC"
@ 7,16 say "．"
do while .T.
*******LP100(営業員ｺｰﾄﾞ)**********
?? chr(BELL)
if TYPE="CLEAR"
clear typeahead
endif
store " " to EI_CODE
@ 3,67 get EI_CODE picture "!"
read
clear gets
if EI_CODE="."
close databases
return to master
endif
if val(EI_CODE)<>0
?? chr(7)
loop
endif
if readkey()=0.or.readkey()=12.or.EI_CODE="\"
@ 3,68 say " "
exit
endif
goto top
seek EI_CODE
if eof()
?? chr(7)
if HELP="HELP"
?? chr(BELL)
?? chr(BELL)
locate for left(EIGYO_CODE,1)=EI_CODE
store 0 to CP_CT
do while CP_CT<13.and..not.eof()
store CP_CT+1 to CP_CT
@ 8+CP_CT,62 say EIGYO_CODE
continu
enddo
endif
loop
endif
exit
enddo &&(******LP110********)
if readkey()=0.or.readkey()=12
exit
endif
store EIGYO_NAME to EI_NAME
store EIGYO_BUTU to EI_BUTU
@ 5,67 say EI_NAME
@ 9,62 clear to 21,77
do CM110_1
enddo
if readkey()=0.or.readkey()=12
loop
endif
enddo
|
PC9801とdBASEコンパイラ：IDEA's Gallery 2012-02-17
|
こういうプログラムを１００本近く書いて、１つの請求書発行を行ってる。
だからこうして自分で作ったプログラムなので、自分で言うのも何だが
本当によく出来ていて、このプログラムから離れられないのだ。
壊れた時は大変だった。
１セットだけ残しておいたPC9821を出して、外付けハードディスク経由で
データを出して、ディスプレーの基盤が壊れたので、画面なしで操作して
なんとか無事に元の通りにした。
だが、この最後のPCが壊れたらその時こそ一巻の終わりだ。
会計ソフトもこの古いPCでやってるので、請求書発行業務とともに終わりだ。
代替えのシステムを探したが、どうもいいのがない。
またはシステムが高くて、この金のないときにいまは無駄な出費はしたくない。
しかし幸いにも探すとあるものだ！
NEC PC-9821も外付HDドライブも今でも売っていたのだ！
会社が貧乏だと苦労するな。(苦笑)
コメント 0