A*%%TS SD 20150410 145737 QTR REL-V6R1M0 5761-WDS A* 91/10/14 21:54:59 QUATTRO REL-R03M00 5728-PW1 A*-----------------------------------------------* A* サブファイル表示 SFLDSPFM * A* A* 振替伝票の入力 A* A*-----------------------------------------------* A* 11:25:43 QUATTRO REL-R06M00 5714-UT1 A*%%EC A DSPSIZ(27 132 *DS4 - A 24 80 *DS3) A *DS4 MSGLOC(27) A *DS3 MSGLOC(24) A PRINT A*-----------------------------------------------* A R DSPHEAD A*-----------------------------------------------* A TEXT(' 初期画面 ') A*%%TS SD 19930612 135725 QUATTRO REL-V3R2M0 5738-PW1 A CF03(03 ' 終了 ') A SETOF(99) A BLINK A CSRLOC(LIN POS) A 1 50' 振替伝票の入力 ' A *DS3 1 27 A DSPATR(RI) A COLOR(PNK) A 2114' 日付 ' A *DS3 2 62 A 2123DATE(*JOB *YY) A EDTCDE(W) A *DS3 2 71 A 3 2' 伝票Y ' A FRDENN R B 3 15REFFLD(FRIKAER/FRDENN QTRFIL/FRI- A KAE) A 3114' 時刻 ' A *DS3 3 62 A 3123TIME A *DS3 3 71 A 4114' システム ' A *DS3 4 62 A 4125SYSNAME A *DS3 4 73 A 11 15' 必要な項目を打鍵して実行キーを押 + A して下さい。 ' A DSPATR(HI) A 23 2'F3= 終了 ' A COLOR(BLU) A LIN 3S 0H A POS 3S 0H A R SFREC01 SFL A*%%TS SD 20150409 172552 QTR REL-V6R1M0 5761-WDS A TEXT(' ＳＦＬ明細行 ') A 20 AO 99 SFLNXTCHG A GYO 4A O 9 2TEXT(' Y ') A 03 DSPATR(UL) A FRKRCD R B 9 7REFFLD(FRIKAER/FRKRCD QTRFIL/FRIKAE) A TEXT('*POPUP KMCODE,KMNAME') A 66 DSPATR(RI PC) A FRKRNM R O 9 14REFFLD(KAMOKUR/KMNAME QTRFIL/KAMOKU) A TEXT(' 科目名 ') A FRKING R B 9 37REFFLD(FRIKAER/FRKING QTRFIL/FRIKAE) A CHECK(RB) A DSPATR(CS) A TEXT(' 金額 ') A FRKSCD R B 9 50REFFLD(FRIKAER/FRKSCD QTRFIL/FRIKAE) A TEXT('*POPUP KMCODE,KMNAME') A 67 DSPATR(RI PC) A FRKSNM R O 9 57REFFLD(KAMOKUR/KMNAME QTRFIL/KAMOKU) A TEXT(' 科目名 ') A FRTEKI R B 9 80REFFLD(FRIKAER/FRTEKI QTRFIL/FRIKA- A E) A *DS3 10 48 A*( 修正のための BACKUP を保存しておく ) A FBKING R H REFFLD(FRIKAER/FRKING QTRFIL/FRIKAE) A R SFCTL01 SFLCTL(SFREC01) A*%%TS SD 20150409 174603 QTR REL-V6R1M0 5761-WDS A SFLSIZ(0011) A *DS3 SFLSIZ(0006) A SFLPAG(0010) A *DS3 SFLPAG(0005) A TEXT(' ＳＦＬ制御見出し ') A OVERLAY A 41 SFLDSPCTL A 42 SFLDSP A 43 SFLINZ A SFLRNA A 44 SFLCLR A 45 SFLEND(*MORE) A 46 SFLDLT A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61) A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62) A 66 SFLMSG(' 借方科目コードの誤りです - A 。 ' 66) A 67 SFLMSG(' 貸方科目コードの誤りです - A 。 ' 67) A ROLLUP(14 ' 次頁 ') A ROLLDOWN(15 ' 前頁 ') A CF03(03 ' 終了 ') A CF10(10 ' 更新 ') A CF23(23 ' 削除 ') A CF12(12 ' 前画面 ') A SETOF(99) A BLINK A*( SFLEND(*MORE)... 続く / 終りの使用のために SFLMSG は A* 使用しません。 ) A DSPREC 4S 0H SFLRCDNBR(CURSOR) A TEXT('SFL 表示 ﾚｺｰﾄﾞ Y ') A LIN 3S 0H TEXT('ｶｰｿﾙ 位置合せ - 行 ') A POS 3S 0H TEXT('ｶｰｿﾙ 位置合せ - 桁 ') A 1 50' 振替伝票の入力 ' A *DS3 1 27 A DSPATR(RI) A COLOR(PNK) A*( 見出しの項目 ) A 2114' 日付 ' A *DS3 2 62 A 2123DATE(*JOB *YY) A EDTCDE(W) A *DS3 2 71 A 3114' 時刻 ' A *DS3 3 62 A 3123TIME A *DS3 3 71 A 4114' システム ' A *DS3 4 62 A 4125SYSNAME A *DS3 4 73 A 3 2' 伝票Y ' A FRDENN R O 3 15REFFLD(FRIKAER/FRDENN QTRFIL/FRIKA- A E) A 4 2' 日付 ' A FRDATE R B 4 15REFFLD(FRIKAER/FRDATE QTRFIL/FRIKAE) A EDTCDE(W) A 63 ERRMSG(' 伝票日付の誤りです。 ' 63) A 5 2' 部門 ' A FRBKCD R B 5 15REFFLD(@BUKAM/BKCODE QTRFIL/BUKAM) A 64 ERRMSG(' 部門コードの誤りです。 ' - A 64) A TEXT('*COMBO *KEY') A BKNAME R O 5 20REFFLD(@BUKAM/BKNAME QTRFIL/BUKAM) A 65 ERRMSG(' 担当者コードの誤りです。 '- A 65) A TEXT('*COMBO *DATA') A 6 2' 担当者 ' A FRTANC R B 6 15REFFLD(@TANTOM/TACODE QTRFIL/TANTOM) A TEXT('*COMBO *KEY') A TTNAMJ R O 6 20REFFLD(@TANTOM/TTNAMJ QTRFIL/TANTOM) A TEXT('*COMBO *DATA') A*( 明細行の桁見出し ) A* *DS3 では「摘要」は TTNAMJ と重なって表示されません。 A 6 22' 摘要 ' A DSPATR(HI) A *DS3 6 48 A 8 2' Y ' A *DS3 7 2 A DSPATR(HI) A 8 7' 借方コード ' A *DS3 7 7 A DSPATR(HI) A 8 20' 科目名 ' A *DS3 7 20 A DSPATR(HI) A 8 39' 金額 ' A *DS3 7 39 A DSPATR(HI) A 8 48' 貸方コード ' A *DS3 7 48 A DSPATR(HI) A 8 62' 科目名 ' A *DS3 7 62 A DSPATR(HI) A* *DS4 では「摘要」は科目名と重なって表示されません。 A 8 82' 摘要 ' A *DS3 7 62 A DSPATR(HI) A R NOREC A TEXT(' ＭＳＧ : レコードなし ') A*%%TS SD 19930612 144015 QUATTRO REL-V2R1M0 5738-PW1 A OVERLAY A CF03(03 ' 終了 ') A 10 5'( 検索されて見つかったレコードが - A ない。 )' A DSPATR(HI) A 16 5' 処理を続けるために実行キーを押し - A なさい。 ' A DSPATR(HI) A R DSPEND01 A*%%TS SD 20150410 145737 QTR REL-V6R1M0 5761-WDS A TEXT(' 機能キーの表示 ') A OVERLAY A CF03(03 ' 終了 ') A 20 27' 合計 ' A DSPATR(RI) A GOKEI R O 20 37REFFLD(FRIKAER/FRKING QTRFIL/FRIKAE) A EDTCDE(J) A TEXT(' 合計金額 ') A 20 50' 円 ' A 23 2'F3= 終了 ' A COLOR(BLU) A 23 34'F10= 更新 ' A COLOR(BLU) A 23 51'F23= 削除 ' A COLOR(BLU) A 23 68'F12= 前画面 ' A COLOR(BLU) A 20 70' ' A* A R ENDOPT A*%%TS SD 19930612 150356 NIK REL-V2R1M0 5738-PW1 A TEXT(' 終了画面 ') A CF03(03 ' 終了 ') A CF12(12 ' 前画面 ') A CSRLOC(LIN POS) A 1 64' 終了 ' A *DS3 1 34 A COLOR(PNK) A DSPATR(HI) A 3 2' 処理されたレコード数 ' A 5 10' 追加 . . . . . :' A ADDREC 5Y 0O 5 35EDTCDE(1) A 6 10' 変更 . . . . . :' A CHGREC 5Y 0O 6 35EDTCDE(1) A 7 10' 削除 . . . . . :' A DLTREC 5Y 0O 7 35EDTCDE(1) A 11 2' 選択項目を打鍵して，実行キーを押 + A してください。 ' A COLOR(BLU) A 13 5' データ入力の終了 . . . . . .' A ANS 1A B 13 39VALUES('Y' 'N') A 13 53'Y=YES, N=NO' A 23 2'F3= 終了 ' A COLOR(BLU) A 23 15'F12= 前画面 ' A COLOR(BLU) A LIN 3S 0H A POS 3S 0H A*( 罫線クリヤー ) A R GRDCLR GRDRCD A GRDCLR A*( 罫線バッファー ) A R GRDREC GRDRCD A GRDATR((*COLOR WHT) (*LINTYP SLD)) A GRDBOX((*POS (*DS3 7 2 12 78) + A (*DS4 8 2 11 111)) + A (*TYPE PLAIN)) A GRDLIN((*POS (*DS3 7 2 78) + A (*DS4 8 2 111)) + A (*TYPE LOWER)) A GRDLIN((*POS (*DS3 8 6 11) + A (*DS4 9 6 10)) + A (*TYPE LEFT)) A*( 縦線 ) A GRDLIN((*POS (*DS3 8 14 11) + A (*DS4 9 14 10)) + A (*TYPE LEFT)) A GRDLIN((*POS (*DS3 8 36 11) + A (*DS4 9 36 10)) + A (*TYPE LEFT))