DLLまたはEXEからのAsprovaプロジェクトオブジェクト取得方法

生産スケジューラー

DLLまたはEXEからのAsprovaプロジェクトオブジェクト取得方法


Asprovaの各テーブルにアクセスするためには、メモリ上に展開されているAsprovaのプロジェクトオブジェクトを通す必要があり、このプロジェクトオブジェクトの取得方法はDLLとEXEでは異なります。DLLの場合は引数argsにASPArgListというプラグインキーに関連のあるオブジェクトのリストをロードしここからプロジェクトオブジェクトを取得しますが、EXEの場合は所定のプロジェクトファイルをロードしたドキュメントオブジェクトからアクティブなプロジェクトを取得します。

拡張プラグイン(DLL)の場合

'(ASPArgList内にあるオブジェクトの定義と取得)
'------------------------------------------------------------------
Public Function AddPersonPlan(args As ASPArgList) As TReturnType

    'APSの各テーブルのオブジェクトにはプロジェクトオブジェクトからアクセスする
    'プロジェクトオブジェクトはargsインターフェイスから取得
    'ASPAgrListオブジェクトからプロジェクトオブジェクトをASBProject型変数に代入することにより引数を受け取る

    Dim project As aslib.ASBProject
    Set project = args.ArgAsObject(kArgProject)

    'プロジェクトオブジェクトからRootObjectをASORootObject型変数に代入
    Dim root As aslib.ASORootObject
    Set root = project.RootObject

    'プロジェクトオブジェクトからRootCalendarオブジェクトをASBCalendar型変数に代入
    Dim calendarRoot As aslib.ASBCalendar
    Set calendarRoot = project.RootCalendar

    'プロジェクトオブジェクトからRootResourceオブジェクトをASBResource型変数に代入
    Dim resourceRoot As aslib.ASBResource
    Set resourceRoot = project.RootResource

    'プロジェクトオブジェクトからorderRootオブジェクトをASBOrder型変数に代入
    Dim orderRoot As aslib.ASBOrder
    Set orderRoot = project.orderRoot

    'プロジェクトオブジェクトからitemRootオブジェクトをASBItem型変数に代入
    Dim itemRoot As aslib.ASBItem
    Set itemRoot = project.itemRoot

    'プロパティIDの格納用変数の定義
    Dim propID1 As Long

'(取得したオブジェクトへのアクセス)
'------------------------------------------------------------------
    'カレンダーオブジェクトの子供の数(レコード数)
    calendarCount1 = calendarRoot.ChildCount

    'ルートオブジェクトを使って資源コードのプロパティIDを取得
    propID1 = root.LookupPropID("Cal_Resource")

    'レコードが終了するまでループ
    'ChildAsCalendarの引数は1から(0は最後のデータを表す)
    For i = 1 To calendarCount1
        'レコードにアクセス
        Set calendar = calendarRoot.ChildAsCalendar(i)

        'GetAsStrメソッドでプロパティの値にアクセス。プロパティが配列値でなければ2番目の引数は1を設定
        res1 = calendar.GetAsStr(propID1, 1)
    Next

End Function

Standard EXEの場合

プラグインや拡張インターフェイスとは異なり、Asprovaの外にあるEXEプログラムからAsprovaのオブジェクトを取得する必要があります。この場合はドキュメントオブジェクトに所定のプロジェクトファイルをロードし、ドキュメントオブジェクトからアクティブなプロジェクトを取得します。

Private Sub Command1_Click()

    '■■■Asprova関連オブジェクト■■■
    'Asprovaプロジェクトオブジェクト定義
    Dim m_pProject As ASBProject
    Dim m_pDoc As ASFDocument

    'アスプローバアプリケーションを取得
    Dim app As ASFApplication
    Set app = New ASFApplication

    'アスプローバドキュメントの名前を指定して開く
    Set m_pDoc = app.Deserialize(CurDir & "\data.aru")

    'アクティブなプロジェクトをドキュメントから取得
    Set m_pProject = m_pDoc.ActiveProject

    '■■■作業テーブルから末端オーダ品目でマッチング■■■
    '作業オブジェクト取得
    Dim operation As ASBOperation
    Dim operationList As ASOObjectList
    Set operationList = m_pProject.GetOperationList(False)

    'ルートオブジェクトの取得
    Dim root As ASORootObject
    Set root = m_pProject.RootObject

    'propIDの取得(rootオブジェクトから取得)
    propID1 = root.LookupPropID("Work_OperationOutMainItemQty")

    'プロジェクト全体の作業を取得して1発マッチング
    operationList.FilterByExprStr ("WorkUser_MostRightOrderItem=='" & Left(Combo1.Text, 7) & "')

    '製造開始日時の昇順でソートする。
    operationList.SortByExprStr ("Work_OperationProductionStartTime,a")

    Do
        'リストのデータを取得
        Set operation = operationList.Object(i)
        '値の取得
        PrdQty = operation.GetAsStr(propID1, 1)
        '値の保存
        operation.SetAsStr propID1, 1, Text1.Text

        i = i + 1

    Loop While i <= operationList.ObjectCount

    '■■■資源テーブルのデータを1件ずつチェック■■■
    '資源オブジェクト定義
    Dim RootResource As AsLib.ASBResource
    Dim resource As AsLib.ASBResource

    '資源ルートオブジェクトの取得
    Set RootResource = m_pProject.RootResource

    'propIDの取得(rootオブジェクトから取得)
    propID2 = root.LookupPropID("Res_Code")

    '資源テーブルのレコード数
    ResourceCount = RootResource.ChildCount

    For i = 1 To ResourceCount
        Set resource = RootResource.ChildAsResource(i)
        ResCode = resource.GetAsStr(propID2, 1)

    Next i

    '■■■品目テーブルから品目コードでマッチング■■■
    '品目オブジェクトの定義
    Dim RootItem As ASBItem
    Dim Item As ASBItem

    '品目ルートオブジェクトの取得
    Set RootItem = m_pProject.RootItem

    '品目オブジェクトの取得
    Set Item = RootItem.FindChild(Left(Combo1.Text, 7))

    '品目テーブルでマッチしたレコード数
    ItemCount=Item.ChildCount
End Sub





おすすめ記事一覧

1

よく会計の世界では「利益と減価償却でキャッシュを作る」と言われ、これは企業のキャッシュの源泉が利益と減価償却の二種類あるという意味なのですが、減価償却費はキャッシュの流出のない費用であり、P/L上の当期利益額よりも実際には減価償却費分だけキャッシュは多く残っているという数字遊びをしているだけで、物理的にキャッシュが生み出されるわけではありません。

2

毎月の生産でいくらコストがかかったかを計算する原価計算(実際原価)業務は、インドネシアではシステム化されている事例は少なく、細かく計算すれば時間がかかり、どんぶり勘定だと見たい情報が見られず、コロナ禍の影響で時間に余裕が出来た今は収益改善という観点から原価計算のやり方を見直す絶好の機会です。

3

ジャカルタでは、2019年4月にMRT地下鉄の第1期区間(総延長15.7km)が正式開通しましたが、コロナ禍の中にあった今年6月に、現在の始発駅であるPlaza Indonesia前のBendaran HI駅から、北ジャカルタのKotaまでの6.3km、西ジャカルタのアンチョールの車両基地までの5.2kmの総延長11.5km(11駅)を第2期区間として工事が開始されました。

4

2014年に誕生したジョコウィ政権は、事あるごとに中国寄りと言われ、2015年に中国と日本が受注合戦を繰り広げ日本の新幹線方式での導入が確実視されていたジャカルタ~バンドゥン高速鉄道案件では、インドネシア政府が手のひら返し中国案に鞍替えし、日本を袖にしたのは記憶に新しいところですが、南シナ海の南方にあるナトゥナ諸島周辺の排他的経済水域(EEZ)は、中国が主権を主張する「九段線」と呼ばれる境界と重複しており、中国漁船が公船を伴って活動する違法漁業問題で中国と対立しています。

大統領選挙で考えたギャップにハマるということ 5

ギャップにキュンとするというのは人間の本能みたいなもので、ジョコウィの私利私欲のない素朴なおじさん像と、その実強力なリーダーシップを発揮する実務派という内面が、一見普通の人だが実はスゴイというギャップ好きのインドネシア人に大ウケして、大衆は一種の集団催眠状態にあるようです。

情報の質のレベル 6

見える化された結果を共有化することで問題点が共通認識されますが、共有化が進むことで情報の持つ希少価値が薄れて困る人間がいる場合、有益な情報を独占することでポジションを高めようという政治力が働きます。

7

日本人がインドネシアに来ると、インドネシア人ののんびり加減にイライラするというのは昔からよく聞く話で、インドネシア在住日本人にとってのバイブル的小説である深田祐介著「ガルーダ商人」の中でも、インドネシア宗教省の高官が日本人とインドネシア人を自宅に招待する際に、インドネシア人向けの招待状には、遅刻することを前提にパーティ開始時間を三十分早く書いておくという記述があるほどです。

宗教によって異なる「死んだらどうなる」の考え方 8

キリスト教もイスラム教もともにユダヤ教から派生した宗教であり、それぞれイエス・キリスト(本人が神)またはアッラーという唯一無二の神を信じます。

株価操作なんてインドネシア株では当たり前 9

株価は売り注文と買い注文により変動し、大量の売り注文を買う注文がたくさん入れば、他の投資家達は「俺も俺も」と続くことで株価が上がります。

心臓に毛が生えたインドネシア人のずうずうしい転職活動を応援してみた 10

インドネシア人は秘密の話は誰かに暴露しないと精神の安定を保てない人が多いため、内緒の話に情報の希少性は少なく信憑性も低いことが多いので、「ここだけの話」という枕詞付きで聞かされる話は話半分に聞いておいたほうがいいかもしれません。

日系企業のインドネシアでの存在意義 11

今のまま日本の人口減が続けば、内需は縮小の一途をたどるわけで、そうなると日本国内市場だけで生き残るのは難しいと判断する国内企業が、海外市場に活路を見出そうとするのは必然です。

チャンスはあるが勝てる分野を見つけるのが難しい 12

実際にインドネシアに住んでみて、自分で動いて人と話しをして、現地の事情を少しずつ理解していくにつれて、インドネシアで起業することが意外と手強いことに気づき、その難しさの原因は、高い送料と関税であったりローカル企業との競争であったり、就労ビザ(IMTA)や外国人技能開発基金(DPKK)などのランニングコストの高さであったりします。

インドネシアのシステムインテグレーション業界 13

先日JETRO(日本貿易振興機構)さんと、インドネシアの中小企業のIT投資について意見交換させていただく機会をいただいたのですが、そこで「システム投資のコストメリットはどのように説明できるのか」という、システムインテグレーターの存在価値にも関わる重要な問題提起がありました。

肉体と精神と心と魂 14

「Body and Soul」といえば、昨日の内閣改造に伴う人事で内閣府政務官に内定した自民党の今井絵理子参議院員がメンバーだったSPEEDのデビュー曲であり、インドネシアの老舗女性ファッションブランド名でもあります。

ジャカルタのラーメン市場 15

僕がインドネシアに初めて来たのが1997年10月、インドネシア語は分からないし、仕事は辛いし、周囲の人間は理不尽だし、一時期日本に帰りたくて仕方がない時期がありましたが、当時自分をかろうじてインドネシアに繋ぎ止める心の支えとなっていたのが、協栄プリンスビル(今のWisma Keiai)の日本食レストラン「五右衛門」であり、ここでキムチラーメンを食べることが唯一の楽しみと言っても過言ではありませんでした。

ブランド力、技術力、資金力の3要素 16

1998年のジャカルタ暴動後、ルピアが暴落し海外からのドル建て債務を抱えた国内企業が利子の支払いに苦しんでいた頃、僕は外貨が獲得できるインドネシアでの新しいビジネスを探していました。

日本とインドネシアの間でのタイムマシン経営が通じなくなっている件 17

先進国と後進国との間にある流行のタイムラグを利用して、先進国での成功例を後進国で実践するビジネスモデルをタイムマシン経営といいますが、インターネットの普及に伴い情報がフラット化してしまい、モノと情報のタイムラグが限りなく小さくなった今、先駆者である中小零細同業他社が乱立し市場が出来上がったところに、後発の大手が参入し先発零細を駆逐していく、という典型的な負けパターンにはまります。

サリナデパートとマクドナルド 18

本日5月10日を最後にインドネシアのマクドナルド第1号店であるサリナデパート店(Sarinah)が閉店になりますが、ジャカルタのショッピングモールが新しいコンセプトでモダンにリニューアルされ続ける中で、僕がインドネシアに来たばかりの20数年前には、若者の待ち合わせ場所の定番でもあったサリナデパートやブロックMのパサラヤ(Pasaraya)などは完全に時代に取り残されてしまいました。

不景気の歴史 19

僕がインドネシアに来てからこれまで何度か経済不況を見てきましたが、今回の新型コロナウィルスの感染拡大により、間違いなく景気後退しますので、数年後にはこれがコロナショックとかコロナ不況とか呼ばれるようになるのかもしれません。

日本のバブル経済崩壊後とインドネシアの通貨危機後 20

自分が大学に入学したのがバブル経済末期の1991年、土地も株価もMAX爆上げして、三菱地所がアメリカの象徴であるロックフェラーセンタービルを買収し、ジュリアナ東京でワンレンボディコン(登美丘高校ダンス部のバブリーダンスみたいなやつ)のお姉さん達が扇子振って踊っている時期でした。

内需と外需の自国経済に及ぼす影響 21

公共事業投資を行っても、お金が企業内や個人の貯蓄に滞留してしまい国内消費が増えないのが日本の状況であり、国内消費は増えても消費材の輸入品比率が高く、国内資産が海外に流出しているのがインドネシアの状況です。

2019年の総選挙を前にインドネシア政治史のおさらい 22

来年の大統領選挙(Pemilu Pilpres Pileg Indonesia 2019)に向けての選挙運動(Kampanye)を解禁するにあたり、投票用紙に印字される順番はジョコウィ現職大統領・マフル副大統領候補組が1番、プラボウォ大統領候補・サンディアガウノ副大統領候補組が2番と決まりました。

コーヒーをもっと楽しくもっと美味しく 23

インドネシアは北回帰線と南回帰線をはさむコーヒーベルトに位置するコーヒー栽培に適した国で、1602年の東インド会社の進出を契機にオランダの植民地支配が300年以上続き、その間アラビカ種のコーヒーが持ち込まれ、気候のいい高原地帯で栽培が開始されました。

インドネシア人の悪魔祓い 24

人間誰しも自分の中に悪魔が潜んでおり、それが何らかのきっかけで表面に出て来るという考え方自体には、背景に宗教が有るか無いかの違いだけで、基本的に理解できる話であり、それを信じるか信じないかは別として、そういう考えがあることを認めることは大切なことだと思います。

-生産スケジューラー

© 2020 バテラハイシステム Powered by STINGER