お客様宅の緯度経度情報

以前記事にした、AccessVBAからGoogleMAP　APIで住所→緯度経度変換が動かなくなったこともあるのですが、住所から緯度経度に変換できないケースもあり、マップ上で位置をクリックして緯度経度を取得するためのWEBページを作っていました。

似たようなサイトや、サンプルは一杯あり、どれを使うか迷うほどなのですが、サイトを開くときに住所データを渡して緯度経度に変換するコードがなかなか動きませんでした。

JAVAScriptのコード記述法が理解できていないことと、MAP　APIの動きが理解できていないことの両方でしたが、何とか住所情報を渡して緯度経度を得ること、住所から緯度経度が得られない時、位置をクリックして緯度経度を得ることができるWEBページを作ることができました。

本当は、ＩＴわかり隊さんの記事のようにマーカーを動かしたいのですが、うまくいきません。

http://www.anocora.com/home/Simple_Map_5.html?埼玉県川越市上戸91-9

のように住所情報を渡して開き、得られた緯度経度をコピーしてフォームに張り付ける方法が今の限界です。

MAP　APIを使いこなせれば、正確な出張費計算のサイトも作れるかもしれないとちょっと期待が膨らんでいます。

モジュールとメインフロー

確定申告の時期になると、業務管理システムの手直しが始まります。

先日、ご依頼の修理受注データをダブって入力してしまい、重複したデータの削除を見直しました。

今までは、メインのフローの見通しを良くしたいと、モジュールにいろんな条件を詰め込んでいたのですが、手直しに手間取ってしまいましたので、一部ですが、作り直ししました。

メインフローが多少大きくなっても構わないので、作業内容が良く分かるように、モジュールの機能はなるべく最小限で汎用性を高くして、修正がし易いプログラムの作成を目指します。

無事に重複したデータは削除できました。

受注情報の登録パターン

普段は、頭の中でフローを思い浮かべてプログラムに落とし込むのですが、受注情報の登録についてはいろんなパターンが有り、頭の中だけでは整理しきれなくなったので、ちゃんとパターンを視覚化してみました。

取り敢えず、今やろうとしている新規のお客様の登録部分です。

お客様の情報、電話番号やご住所、勤務先、修理場所などを今後の入力や検索などを考えながらテーブルも再構成しました。

頭の中だけで考えていて、整理しきれていなかったようです。

視覚化したことで、新たなプログラム構成が浮かんできました。

懸案は解決しましたが、PCが不調です。

先日来の懸案だった、コンボBOXのリスト外の企業名入力で、振り仮名を取得する案件は、ほぼ解決しました。
後は実装するだけになりました。

解決したので、投稿していたAccess関連の掲示板に、自己解決の投稿をしたと同時にPCが不調になり、この記事はスマホから書いています。
ＰＣは、何度も再起動しましたがアプリが立ち上がりません。
なんとか開くウインドウもあるのでずが今度は、閉じることが出来ません
かなり困った状況です。
スマホのキーボードは、思うように入力できず時間ばかりかかっています。
しばし、ブログもお休みするかも知れませんが、よろしくお願いいたします。

コンボボックスのリスト外入力からの振り仮名取得

お客様の登録画面で、修理場所も同時に入力してます。

修理場所が勤務先の場合、勤務先を法人として登録するのですが、顧客台帳には振り仮名の入力場所が有り、同じ振り仮名で検索して重複が有れば、登録の重複をチェックしています。

法人も顧客台帳に登録するので、振り仮名を入力しないと未入力分がまとめて重複チェックに掛かります。

ＡＣＣＥＳＳの場合、テキストボックスへの入力であれば、振り仮名を自動入力してくれる機能が有るのですが、コンボボックスへの入力の場合、振り仮名の自動入力の機能は働きません。

探していたら、Access Clubの掲示板でぴったりの機能が見つかりました。
「No.5890 コンボボックスに入力した文字列のふりがなを表示するテキストボックス」のしゃくさんのソースです。

ただ、変換して次の言葉を入力すると、仮名が重複して表示されます。

昨日と、今日２日悩んだのですが、未解決です。

当店の緯度経度

小さな家ですが、

川越市上戸91-9で得られる緯度経度
35.9284598,139.4454333

北西角
35°55'42.6"N 139°26'43.5"E
35.928502, 139.445406

北東角
35°55'42.6"N 139°26'43.7"E
35.928501, 139.445477

南西角
35°55'42.4"N 139°26'43.5"E
35.928431, 139.445407

南東角
35°55'42.4"N 139°26'43.7"E
35.928434, 139.445481

35.928,139.445だと

自宅から離れます。

35.9284,139.4454だと

かろうじて庭に入ります。

35.92845,139.44545だと

概ね正しい位置です。

重複チェックは緯度経度の小数点以下4桁までで、行おうと思います。

住所表記で場所を特定できないお客様

今は、スマホのGoogleMapで住所を入力して、ナビ機能を利用することでほとんどのお客様の所に迷わずお伺いできます。

たまにですが、お聞きした住所で、マップがその住所を表示してくれないことが有ります。

殆どが、新築のお宅でまだデータが反映されていないケースですが、どういう訳かお聞きした住所で場所が特定できず、近くまで行き案内をして頂くことが有ります。
場所が分かってから、再度マップで「この場所について」をクリックしても町域までで地番が表示されません。特にアパートに多いような気がします。

このような場合でも、緯度経度を登録すればお客様のお宅に間違えずにお伺いすることが出来ます。
問題は、お客様がご自宅の緯度経度を御存じない点です。
修理訪問後にお客様のご自宅の緯度経度を修正する機能を追加する必要があります。

緯度経度の修正機能を追加して、場所情報のお管理は緯度経度をメインで行おうと考えています。
住所は、緯度経度を見つけるためのラベル扱いです。

緯度経度取得できました。

忘却の達人さんのJSONテキストを使う方法では、上手く動かすことが出来ず、マイナビニュースのExcel VBAでWebサービス - ExcelでGoogleマップを表示しようの記述を基にVBAの参照設定を行って、下記のスクリプトに省略して緯度経度データを取得できました。

-----------------------------------------------
Public Function AddressToLatLng(address As String)

    Dim xhr As New MSXML2.XMLHTTP
    Dim tmp As New MSXML2.DOMDocument
    Dim geo As MSXML2.IXMLDOMNodeList
    Dim loc As MSXML2.IXMLDOMNode
    Dim addr As String
    Dim url As String
    Dim js As Object
   
    Set js = CreateObject("ScriptControl")
    js.Language = "JScript"
    addr = js.CodeObject.encodeURIComponent(address)
    If addr = "undefined" Then Set js = Nothing: Exit Function
    Set js = Nothing
    '(1)URLエンコードした住所から、ジオコーディングのリクエストを送信する
    url = "http://maps.google.com/maps/api/geocode/xml?sensor=false&address=" & addr
    xhr.Open "POST", url, False
    xhr.send
    If xhr.statusText <> "OK" Then Exit Function
    '(2)レスポンスから緯度・経度を取り出し、Sheet2の該当セルに設定する
    tmp.loadXML (xhr.responseText)
    Set geo = tmp.getElementsByTagName("geometry")
    Set loc = geo(0).firstChild
    Set xhr = Nothing
    AddressToLatLng = loc.firstChild.Text & " " & loc.lastChild.Text

End Function
---------------------------------------------------

APIキーを使用せずに動いているのが謎ですが、結果が得られているので深く考えないことにします。

あのこらの出張エリアが表示されていなかった不具合も解消しました。

2019.09.23訂正
APIキーはやはり必要でした。
昨日は、制限なしのAPIキーを取得していたのですが、不要だと思ってキーを削除したら、動かなくなりました。

住所表記の揺れ対策

今日はパンク修理が3件です。
内1件は車椅子のパンク修理です。
マツナガのOASISという車椅子で、12インチのタイヤでしたが、普通にチューブを取り出してパンク修理できました。

本題の業務管理システムでは、お客様の重複登録を避ける方法として

電話番号で検索
名前の重複確認（仮名でチェック）
住所の重複確認

を行っています。

最終的には，電話番号と住所が一致していれば、重複入力と判断しますが、問題になるのは住所表記の揺れです。

例えば「上戸91-9」「上戸９１－９」のような大文字、小文字の表記、ハイフォン（－）か長音記号（－）などは文字変換で統一できますが

大字上戸９１－９や上戸９１番地９などの表記は表記法が多種あるため文字変換ではひとつづつ検証しないといけなくなります。

Google　Ｍａｐには住所⇔緯度・経度変換APIがあり、

http://bougyuusonnin.seesaa.net/article/194905106.html

で忘却の達人さんがVBAからのJavaScriptと呼び出し、APIの利用までVBAのスクリプトを公開して下さっているので、これを使わせて頂くことにします。

一番の利点は、住所表記が変更されても旧住所、新住所の重複がチェックできるところだと思います。

とはいっても、昨年からGoogleのAPIはキー登録をしないと動かなくなっていて、上記サイトのスクリプトも動きません。
関連で気づいたのですが、出張修理サイトの訪問範囲を記載した地図も同じAPIを使っていたので、表示されなくなっていました。

大慌てで、APIの情報収集をしています。

業務管理システム再構築

今日は、予定通りですが、一日雨で開店休業です。

神戸から引き取ってきた両親のお骨の納骨の日取りも涼しくなって来たので決めないといけないのですが、パソコンと向かい合って業務管理システムの再構築中です。

出張修理にとっての最初の手順のお客様の登録で、以前のバージョンでは手抜きで不具合を見て見ぬふりをしていた箇所からやり直しています。

簡単そうに思えるでしょうが、スマホの普及でお客様が複数の電話番号を持たれていたリ、修理先もご自宅、勤務先、出先と様々です。

企業や団体で所有されている自転車も有り、

駐輪場などからの修理のご紹介を頂くことが有ります。

特に悩んでいるのが、同じ企業がお客様になったり、勤務先になるケースの登録です。