タイトル | : Re^4: 令和になって…教えて下さい。 |
投稿日 | : 2019/05/18(Sat) 15:23 |
投稿者 | : IMAI 岐阜 <hinoki@giga.ocn.ne.jp> |
西村@豊田様
何度もすみません。
プログラム内を下記のとおり行なってみましたふが、
『入力したオート名はありません。』エラー106と画面
に出ますが、『LET X2=X1-4;』の分の指示ですが、わかりません
ので、教えて頂けますか。
精算書印刷;STOP;
/***********************************************************/
/* V01 出NO */
/* V02 年 */
/* V03 月 */
/* V04 日 */
/* V30 今日の日付 */
/* V31 回数 */
/* X01 WORK7の行番号 */
/* X02 WORK8の頁番号 */
/* X03 印刷枚数(1〜2) */
/* X04 精算書フォームAの行番号 */
/* X05 TABLEの行番号 */
/* X30 TABLE部行数 */
/* X40 左マージン */
/* Z01 検索結果のレコード数 */
/* WORK7,WORK8 */
/***********************************************************/
<市売代金精算書印刷> 【 Ver.01.01 20080811 】
CHGPRT;5;2;LBP3980;
LET X40=1; /*## 左マージン ##*/
LET X30=39; /*## TABLE部行数 ##*/
LET X1=KLEN(V30); /*総文字数 */
LET X2=X1-4; /:年の文字数*/
$年:LET V02=KLEFT$(V30,X2);
$月:LET V03=KMID$(V30,(X2+1),2);
$日:LET V04=KRIGHT$(V30,(X1-X2));
LET V5="令和"+V2+"年"+V3+"月"+V4+"日";
$題字: GOSUB 精算書題字印刷; /*# この頁下 #*/
IF X03=2 THEN GOTO $控;
G;精算書フォーム/1;
LET [4,4]="第"+V31+"回";
RINDEX "SEI",V01,V02=@年 ,V03=@月 ,V04=@日 ;
LET [6,4]=V02+"年"+V03+"月"+V04+"日";
RINDEX "SEI",V01,V05=@郵NO ,V06=@住所 ,V07=@氏名 ;
LET [3,2]=V05;
LET [5,2]=V06;
LET [7,2]=FORM$((V07+" 様"),8);
CJ;P;C;7;2;