給与大臣ＮＥのODDSとの連携方法
- このフォーラムに新しいトピックを立てることはできません
- このフォーラムではゲスト投稿が禁止されています
ndn
投稿数: 23
投稿数: 23
お世話になります。
.netでは行えているのですが、magic V10 SP2で
給与大臣ＮＥのODDSとの連携方法が双方のマニュアル等見てもよく解らず困ってます。
何方かご教授できる方いらっしゃいましたらアドバイスの方宜しくお願い致します。
.netでは行えているのですが、magic V10 SP2で
給与大臣ＮＥのODDSとの連携方法が双方のマニュアル等見てもよく解らず困ってます。
何方かご教授できる方いらっしゃいましたらアドバイスの方宜しくお願い致します。
投票数:0
平均点:0.00
ndn
投稿数: 23
投稿数: 23
詳細内容：
ODDSﾏﾆｭｱﾙの「ｲﾝｽﾄｰﾙと前準備(VBﾍﾞｰｽ)」を元に連携を行っており
VBでの記述を⇒に読み替えて設定してみました。
��Dim svr As Object
Set svr = CreateObject(“KyODDS.Application”)
⇒OLE項目のｲﾝｽﾀﾝｽ化：A=自動に設定しているので不要(との認識)
��Dim strDataPath As String
IStatus = svr.SelectData(strDataPath)
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：KyODDS1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：AppliCation
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=SelectDataを設定
ﾊﾟﾗﾒｰﾀに変数：データパス名
��svr.SetCurrentData <データパス名>
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：KyODDS1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：AppliCation
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=SetCurrentDataを設定
ﾊﾟﾗﾒｰﾀに変数：データパス名（�△汎韻犬發痢�
��Dim Shozoku As String
svr.Shain.GetByCode “0001”
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：Kyshain1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：shain
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=GetByCode を設定
ﾊﾟﾗﾒｰﾀに'0001'
��Shozoku = svr.Shain.strShozoku3
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：Kyshain1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：shain
外部ｺｰﾙCOMにてﾌﾟﾛﾊﾟﾃｨの取得=strShozoku3 を設定
� 銑�は動いているのですが、�ぁΝイ�うまく行っておらず
データが返ってこない状況です。
ちなみに� 銑�と�ぁΝイ�OLEは別で変数定義しています。
（1OLE＝1ﾀｲﾌﾟﾗｲﾌﾞﾗﾘの設定しか出来ない為）
記述の誤りの可能性もあるので、経験のある方が居られれば
御教授をお願いします。
ODDSﾏﾆｭｱﾙの「ｲﾝｽﾄｰﾙと前準備(VBﾍﾞｰｽ)」を元に連携を行っており
VBでの記述を⇒に読み替えて設定してみました。
��Dim svr As Object
Set svr = CreateObject(“KyODDS.Application”)
⇒OLE項目のｲﾝｽﾀﾝｽ化：A=自動に設定しているので不要(との認識)
��Dim strDataPath As String
IStatus = svr.SelectData(strDataPath)
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：KyODDS1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：AppliCation
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=SelectDataを設定
ﾊﾟﾗﾒｰﾀに変数：データパス名
��svr.SetCurrentData <データパス名>
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：KyODDS1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：AppliCation
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=SetCurrentDataを設定
ﾊﾟﾗﾒｰﾀに変数：データパス名（�△汎韻犬發痢�
��Dim Shozoku As String
svr.Shain.GetByCode “0001”
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：Kyshain1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：shain
外部ｺｰﾙCOMにてﾒｿｯﾄﾞ呼出=GetByCode を設定
ﾊﾟﾗﾒｰﾀに'0001'
��Shozoku = svr.Shain.strShozoku3
⇒OLE項目のﾀｲﾌﾟﾗｲﾌﾞﾗﾘ：Kyshain1.0ﾀｲﾌﾟﾗｲﾌﾞﾗﾘ
ｵﾌﾞｼﾞｪｸﾄ名：shain
外部ｺｰﾙCOMにてﾌﾟﾛﾊﾟﾃｨの取得=strShozoku3 を設定
� 銑�は動いているのですが、�ぁΝイ�うまく行っておらず
データが返ってこない状況です。
ちなみに� 銑�と�ぁΝイ�OLEは別で変数定義しています。
（1OLE＝1ﾀｲﾌﾟﾗｲﾌﾞﾗﾘの設定しか出来ない為）
記述の誤りの可能性もあるので、経験のある方が居られれば
御教授をお願いします。
投票数:0
平均点:0.00
shhashin
投稿数: 64
投稿数: 64
給与大臣ではないですが販売大臣のODDSとの連携をやったことがあります。
処理の意味は忘れてしまったので、PGの内容を記述します。
「得意先マスタのコードを入力して得意先名を表示するＰＧ」
画面で得意先CDを入力後「実行」イベントにて得意先名を表示するＰＧです。
・データビュー
1.変数 V_Path 文字 50
2.変数 HBODDS OLE
タイプライブラリ=HBODDS1.0タイプライブラリ(Ver1.0)
オブジェクト名=Application
インスタンス化=自動
3.変数 TOKUI OLE
タイプライブラリ=HBOtok1.0タイプライブラリ(Ver1.0)
オブジェクト名=tokui
インスタンス化=なし
4.変数 得意先CD 文字 15
5.変数 得意先名 文字 50
・タスク前
1.外部コール COM オブジェクト=HBODDS
オプション=メソッド呼出
メソッド=SelectData
パラメータ=V_Path
2.外部コール COM オブジェクト=HBODDS
オプション=メソッド呼出
メソッド=SetCurrentData
パラメータ=V_Path
3.外部コール COM オブジェクト=HBODDS
オプション=プロパティ取得
メソッド=tok
戻り値=TOKUI
（ここが必要なのでは？）
・イベント 実行
1.外部コール COM オブジェクト=TOKUI
オプション=メソッド呼出
メソッド=GetByCode
パラメータ=得意先CD
2.外部コール COM オブジェクト=TOKUI
オプション=プロパティの取得
メソッド=strNm1
戻り値=得意先名
ちなみに、伝票形式のデータを連携したかったのですが、テーブルの添え字の処理方法がわからず断念しました。
もし、今後対応方法がわかりましたら教えて下さい。
処理の意味は忘れてしまったので、PGの内容を記述します。
「得意先マスタのコードを入力して得意先名を表示するＰＧ」
画面で得意先CDを入力後「実行」イベントにて得意先名を表示するＰＧです。
・データビュー
1.変数 V_Path 文字 50
2.変数 HBODDS OLE
タイプライブラリ=HBODDS1.0タイプライブラリ(Ver1.0)
オブジェクト名=Application
インスタンス化=自動
3.変数 TOKUI OLE
タイプライブラリ=HBOtok1.0タイプライブラリ(Ver1.0)
オブジェクト名=tokui
インスタンス化=なし
4.変数 得意先CD 文字 15
5.変数 得意先名 文字 50
・タスク前
1.外部コール COM オブジェクト=HBODDS
オプション=メソッド呼出
メソッド=SelectData
パラメータ=V_Path
2.外部コール COM オブジェクト=HBODDS
オプション=メソッド呼出
メソッド=SetCurrentData
パラメータ=V_Path
3.外部コール COM オブジェクト=HBODDS
オプション=プロパティ取得
メソッド=tok
戻り値=TOKUI
（ここが必要なのでは？）
・イベント 実行
1.外部コール COM オブジェクト=TOKUI
オプション=メソッド呼出
メソッド=GetByCode
パラメータ=得意先CD
2.外部コール COM オブジェクト=TOKUI
オプション=プロパティの取得
メソッド=strNm1
戻り値=得意先名
ちなみに、伝票形式のデータを連携したかったのですが、テーブルの添え字の処理方法がわからず断念しました。
もし、今後対応方法がわかりましたら教えて下さい。
投票数:0
平均点:0.00