| あけましておめでとうございます。
新年早々、よろしくご教示いただきますようお願い申し上げます。（お年賀？）
いままで動いていた手続き「住所コード更新」に、キー入力行程を入れました。
それに伴い、今までの処理を二つに分け、各手続きを実行させるようにしましたが、動かなくなりました。
動作確認のために、今までの分「住所コード更新」をそのままコピペして動かしてみましたが、同じところでエラーになるようです。
どこがおかしいのか？？？？
どなたか、教えてください。
＊項目は一部削除してあります。
====動かなくなった手続き=====
（ちなみに、エラーメッセージは”併合のところで表がありません”なる旨がでます。）
変数宣言 固有 , 文字列 { &格納パス名 , &町名表更新日 }
&格納パス名 =#連結( &システムパス名 , "住所コード管理\" )
手続き定義開始 住所コード更新()
変数宣言 自動, 整数{ &OK ,&終了}
変数読み込み "町名表更新日",固有
キー入力 プロンプト="町名コード改正年月日を入力してください。 ", モード=全角, 上書き=しない, 初期値=&マスター更新日, 終了状態=&終了,&マスター更新日
if ( &終了=1 )
変数書き出し "町名表更新日.var", 固有
手続き定義実行 比較表作成()
手続き定義実行 住所コード表整備()
else
end
手続き定義終了
手続き定義開始 比較表作成()
変数宣言 自動, 整数{ &OK ,&終了}
表 #連結( &格納パス名 , "比較表住所コード.tbl"), 終了状態=&OK
条件 ( &OK <>1 ) 確認 , ”比較表住所コード.tblは開けませんでした。”
行削除 *
表整理 余白割合=10
読み込み条件登録 表,条件名="住所コード複写",#連結( &システムパス名 ,"住所コード.tbl"),ファイル名変更=しない,{[町名]･･･]},編集表=しない
読み込み 表,条件名="住所コード複写"
絞り込み [備考]{=#未定義},文字比較方法=自動
置換条件登録 条件名="備考入力",確認=しない,[備考]=#連結( &町名表更新日, "更新実施分", &年月日, "削除")
置換 条件名="備考入力"
終了 表
手続き定義終了
手続き定義開始 住所コード表整備()
表 #連結( &システムパス名 , "住所コード.tbl"), 終了状態=&OK
条件 ( &OK <>1 ) 確認 , ”住所コード.tblは開けませんでした。”
行削除 *
表整理 余白割合=10
読み込み条件登録 テキスト,条件名="町名コード表読込","D:\町名コード表一覧.txt",区切り="09",空白削除=両方,項目名=しない,ファイル名変更=しない,{[町名]････}
読み込み テキスト,条件名="町名コード表読込"
条件 (.NOT #行集計状態 .AND .NOT #絞り込み状態 .AND #整列状態) 整列解除
置換条件登録 条件名="空白除去",確認=しない,[校区]=#TRIM( [校区] , 4 )
置換 条件名="空白除去"
置換条件登録 条件名="住所コード整備",確認=しない,[町名コード]=#STR( #NUM( [町名コード] ) )
置換 条件名="住所コード整備"
併合条件登録 条件名="住所コード併合",#連結( &格納パス名 , "比較表住所コード.tbl"), 挿入,編集表=しない,{[町名コード]照合[町名コード]･･･}
併合 条件名="住所コード併合"
終了 表
メッセージボックス "保存" , "新しい50音順町名コード表を読み込み、\n 住所コード表を更新しました。" , 制御文字展開=する
手続き定義終了
====今まで動いていた一括=====
変数宣言 固有 , 文字列 { &格納パス名 }
&格納パス名 =#連結( &システムパス名 , "住所コード管理\" )
手続き定義開始 住所コード更新()
変数宣言 自動, 整数{ &OK ,&終了}
表 #連結( &格納パス名 , "比較表住所コード.tbl"), 終了状態=&OK
条件 ( &OK <>1 ) 確認 , ”比較表住所コード.tblは開けませんでした。”
行削除 *
表整理 余白割合=10
読み込み条件登録 表,条件名="住所コード複写",#連結( &システムパス名 ,"住所コード.tbl"),ファイル名変更=しない,{[町名][町名],･･･},編集表=しない
読み込み 表,条件名="住所コード複写"
絞り込み [備考]{=#未定義},文字比較方法=自動
置換条件登録 条件名="備考入力",確認=しない,[備考]=#連結(&年月日,"削除")
置換 条件名="備考入力"
終了 表
表 #連結( &システムパス名 , "住所コード.tbl"), 終了状態=&OK
条件 ( &OK <>1 ) 確認 , ”住所コード.tblは開けませんでした。”
行削除 *
表整理 余白割合=10
読み込み条件登録 テキスト,条件名="町名コード表読込","D:\町名コード表一覧.txt",区切り="09",空白削除=両方,項目名=しない,ファイル名変更=しない,{[町名],････[郵便番号]}
読み込み テキスト,条件名="町名コード表読込"
条件 (.NOT #行集計状態 .AND .NOT #絞り込み状態 .AND #整列状態) 整列解除
置換条件登録 条件名="空白除去",確認=しない,[校区]=#TRIM( [校区] , 4 )
置換 条件名="空白除去"
置換条件登録 条件名="住所コード整備",確認=しない,[町名コード]=#STR( #NUM( [町名コード] ) )
置換 条件名="住所コード整備"
併合条件登録 条件名="住所コード併合",#連結( &格納パス名 , "比較表住所コード.tbl"), 挿入,編集表=しない,{[町名コード]照合[町名コード],････
}
併合 条件名="住所コード併合"
終了 表
メッセージボックス "保存" , "新しい50音順町名コード表を読み込み、\n 住所コード表を更新しました。" , 制御文字展開=する
手続き定義終了
======
実行させてみると、比較表住所コードの備考にキー入力が反映された置換されるところまでは完了しています。その後併合のところで、ファイルを探せなくなってしますようです。
ちなみに、置換を行うために比較表住所コード.tblを開くところの行の、ファイル名の部分（表 #連結( &格納パス名 , "比較表住所コード.tbl"), 終了状態=&OK ）の表の記述部分を、併合の表ファイル名のところにコピペして実行してみましたが、同じくエラーでした。
|
