{"id":68116,"date":"2011-10-04T22:25:31","date_gmt":"2011-10-04T15:25:31","guid":{"rendered":"https:\/\/bahtera.jp\/com-interface\/"},"modified":"2025-03-20T09:42:21","modified_gmt":"2025-03-20T02:42:21","slug":"com-interface","status":"publish","type":"post","link":"https:\/\/bahtera.jp\/id\/com-interface\/","title":{"rendered":"Perluasan Fungsi Asprova Melalui Antarmuka COM"},"content":{"rendered":"

Penjadwal Produksi Asprova mempublikasikan antarmuka COM, yang memungkinkan perluasan fungsi melalui file EXE atau plugin (DLL). Anda dapat memperoleh objek proyek yang telah dimuat di memori dari file EXE atau DLL, serta mengakses objek tabel bawahan Asprova.
\nAsprova sendiri menyediakan Hook untuk menjalankan plugin pada waktu terjadinya suatu peristiwa, dan kunci plugin yang mewakili akses poin untuk peristiwa ini setara dengan hook do_action atau apply_filters di WordPress.
\n\t\t\t\t\r\n\t\t\t\t

\r\n\t\t\t\t\t\t\t\t\t\t
\r\n\t\t\t\t\t\t
\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\"\u30a4\u30f3\u30c9\u30cd\u30b7\u30a2\u306e\u751f\u7523\u30b9\u30b1\u30b8\u30e5\u30fc\u30e9\u30fc\u307e\u3068\u3081\"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<\/dt>\r\n\t\t\t\t\t\t
\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t

Production Scheduler di Indonesia<\/p>\r\n\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t

\r\n\t\t\t\t\t\t\t\t\t

Di dalam pekerjaan manajemen produksi di pabrik-pabrik massal berbasis perakitan yang banyak ditemukan dalam industri roda dua dan roda empat di Indonesia, rencana produksi dan rencana beban memiliki hubungan yang saling terkait erat. Karena rencana produksi disusun berdasarkan jumlah, maka ada permintaan kuat untuk melihat rencana beban juga berdasarkan jumlah per mesin. Secara umum, rencana produksi dan rencana beban diharapkan disusun dalam satuan hari atau shift. Di dalam pikiran perencana Indonesia, ada pola pikir seperti: \u201cHari ini (atau dalam shift ini), berapa unit yang akan diproduksi oleh mesin ini? Jika ada kelebihan kapasitas sebanyak sekian unit, kapan unit tersebut akan … <\/p>\n\t\t\t\t\t\t\t\t<\/div>\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t

\u7d9a\u304d\u3092\u898b\u308b<\/p>\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t<\/dd>\r\n\t\t\t\t\t<\/dl>\r\n\t\t\t\t<\/div>\r\n\t\t\t\t<\/a>\r\n\t\t\t\t<\/p>\n

Apa itu Antarmuka COM<\/h2>\n

Asprova memiliki mekanisme untuk mempublikasikan data internal dan prosesnya melalui COM (Component Object Model), memungkinkan penambahan fungsi dari plugin (file ActiveX DLL: pemanggilan fungsi dari Asprova) atau klien otomasi (file EXE Standar: akses ke Asprova dari program eksternal).
\nFile DLL ditempatkan di folder yang sama dengan EXE Asprova dan akan dimuat secara otomatis oleh Asprova saat startup.
\nDLL terdaftar sebagai perintah internal Asprova, sehingga dapat dilampirkan ke menu yang ditentukan pengguna untuk memanggil DLL dari Asprova. Namun, dalam kasus EXE, proyek aktif diperoleh dengan membuka file proyek yang ditentukan namanya.<\/p>\n

Lokasi Penempatan DLL<\/h2>\n

DLL harus ditempatkan di lokasi berikut relatif terhadap EXE yang dijalankan:<\/p>\n

\n
\n
    \n
  1. Tempatkan EXE dan DLL di direktori yang sama.<\/li>\n
  2. Jalankan EXE dengan direktori DLL sebagai direktori saat ini.<\/li>\n
  3. Tempatkan DLL di direktori system32.<\/li>\n
  4. Tempatkan DLL di direktori Windows.<\/li>\n
  5. Tetapkan direktori tempat DLL berada ke variabel lingkungan Path.<\/li>\n<\/ol>\n<\/div>\n<\/div>\n

    Pengaturan Referensi Lingkungan Pengembangan (Menggunakan Pustaka Asprova dari Dalam Plugin)<\/h2>\n

    Pengaturan referensi disimpan dalam file proyek (.vbp) untuk memanfaatkan pustaka tipe objek ActiveX tanpa GUI dalam proyek, memungkinkan plugin (DLL yang dikompilasi dari file proyek) mengakses pustaka Asprova melalui antarmuka COM.
    \nDengan pengaturan referensi, Anda dapat menggunakan tipe objek tersebut saat mendeklarasikan variabel Dim atau membuat instance dengan operator new.<\/p>\n

    \n
    \n
      \n
    1. Kelas Proyek Asprova
      \nDim project As aslib.ASBProject<\/li>\n
    2. Daftar objek yang terkait dengan kunci plugin yang digunakan dalam DLL plugin ekstensi
      \nDim ArgList As ASPArgList<\/li>\n
    3. Kelas Item
      \nDim item As ASBItem<\/li>\n<\/ol>\n<\/div>\n<\/div>\n

      Saat mereferensikan pustaka Asprova dari plugin, daftarkan dua pustaka kelas Asprova berikut dari pengaturan referensi lingkungan pengembangan:<\/p>\n

      \n
      \n
        \n
      1. As 1.1 Type Library<\/li>\n
      2. AsPlugInManager 1.0 Type Library<\/li>\n<\/ol>\n<\/div>\n<\/div>\n

        Struktur File Proyek Plugin<\/h2>\n

        Dalam kasus plugin, fungsi yang dipanggil dari Asprova didaftarkan ke metode AutoRegistration pada kelas ASDefault.<\/p>\n

        Jika plugin telah didaftarkan sebagai “informasi plugin” di Asprova, fungsi AutoRegistration akan dipanggil secara otomatis saat Asprova dimulai, dan diimplementasikan dalam objek proyek.<\/p>\n

        \"COM\u30dd\u30fc\u30c82\"<\/p>\n

        Untuk EXE Standar (klien otomasi), kelas ASDefault tidak diperlukan.<\/p>\n

        Plugin didaftarkan dengan meneruskan empat argumen ke metode AddASPlugIn pada pengelola plugin Asprova (fungsi pendaftaran plugin), yang berarti: “Saya adalah proyek bernama Factory, memiliki metode AddOverTime (fungsi masuk) di kelas Overtime, jadi panggil saya pada waktu kunci plugin KeyHookGeneric.”<\/p>\n

        <\/div>\n

        Pemetaan Hook dan Fungsi yang Sesuai dengan Kunci Plugin (Akses Poin)<\/h2>\n

        Asprova menyediakan hook untuk menjalankan plugin pada setiap peristiwa tertentu.
        \nAkses poin yang mewakili setiap peristiwa ini disebut kunci plugin. Misalnya, KeyHookGeneric adalah “penambahan perintah”, yaitu akses poin pada saat perintah yang ditambahkan dijalankan, yang memicu eksekusi plugin dengan menjalankan perintah tersebut.<\/p>\n

        Option Explicit  \r\nPublic Function AutoRegistration(plugInManager As ASPPlugInManager, module As ASPModule) As Boolean  \r\n    'Mengatur komentar untuk modul ini  \r\n    module.Comment = \"APS Extended Functionality PlugIns (VB)\"  \r\n    'Mendefinisikan variabel untuk menyimpan objek plugin  \r\n    Dim plugIn As ASPPlugIn  \r\n    ' ---------------------------------------------------------------------------------------------  \r\n    'Memanggil pengelola plugin untuk mendaftarkan plugin baru. Nama metode yang dipanggil adalah AddASPlugIn  \r\n    ' Param ke-1: Nama tampilan plugin  \r\n    ' Param ke-2: ProgID yang mewakili modul dan kelas tempat plugin diimplementasikan  \r\n    ' Param ke-3: Nama fungsi masuk plugin (nama panggilan)  \r\n    ' Param ke-4: Nama kunci yang mewakili konteks penggunaan plugin  \r\n\r\n    '(1) Menghitung lembur atau kerja Sabtu secara otomatis dan menetapkannya ke tabel kalender  \r\n    Set plugIn = plugInManager.AddASPlugIn(\"Memasukkan lembur ke dalam lembur dan kerja Sabtu\", \"Factory1.OverTime\", \"AddOverTime\", ASPlugInKeyName.KeyHookGeneric)  \r\n    'Mengatur komentar dll. untuk plugin ini.  \r\n\r\n    plugIn.Comment = \"Mengalokasikan lembur menjadi 2 jam lembur di hari kerja dan 2 shift kerja di hari Sabtu.\"  \r\n    'Urutan pemanggilan plugin (untuk kasus beberapa plugin dengan kunci plugin yang sama)  \r\n    plugIn.Order = 1  \r\n    'Mengembalikan True untuk menunjukkan pendaftaran otomatis berhasil.  \r\n    AutoRegistration = True  \r\nEnd Function<\/code><\/pre>\n
        Saat Asprova dimulai dan memuat plugin secara otomatis, “nama tampilan fungsi masuk” (argumen pertama saat memanggil pengelola plugin) akan ditampilkan pada plugin perintah internal.
        \nPlugin didaftarkan dengan memanggil pengelola plugin Asprova dari dalam plugin dan meneruskan empat argumen.
        \n\"COM\u30dd\u30fc\u30c83\"<\/p>\n
        Konsep yang Sama dengan Port COM (Communication Port)<\/h2>\n
        Sekadar informasi, COM pada port COM dan antarmuka COM adalah hal yang berbeda, tetapi dalam arti standar antarmuka eksternal, port COM dan antarmuka COM memiliki kesamaan.
        \nPerangkat lunak atau perangkat keras memiliki antarmuka (port) yang menstandarkan metode pertukaran data untuk input\/output dengan eksternal. Misalnya, port untuk server POP dan SMTP, atau port saat menghubungkan ke DB, semuanya adalah port TCP\/IP.
        \nKomputer standar dilengkapi dengan antarmuka seperti port PS\/2, port USB, dan port LAN (Ethernet) untuk menghubungkan perangkat periferal seperti keyboard.
        \nDalam perangkat lunak, metode standar untuk mengelola pengiriman dan penerimaan data dengan perangkat eksternal atau jaringan komunikasi disediakan oleh OS atau lainnya, dan port digunakan untuk mengidentifikasi mitra komunikasi.
        \nDi Windows, mekanisme “port COM” disediakan untuk memungkinkan aplikasi mengakses modem, printer, atau pemindai gambar dengan cara yang seragam. Aplikasi hanya perlu mengetahui port COM mana yang digunakan oleh perangkat target untuk menangani input\/output dengannya.
        \nMisalnya, saat menghubungkan barcode USB, COM13 mungkin ditetapkan, tetapi karena secara fisik tidak ada 13 antarmuka di PC, port COM13 hanyalah port virtual.
        \nDalam komunikasi jaringan menggunakan TCP\/IP, “nomor port” dari 0 hingga 65535 digunakan sebagai alamat tambahan di bawah alamat IP yang dimiliki perangkat komunikasi atau komputer individu.
        \nIni memungkinkan satu komputer menyediakan beberapa layanan atau berkomunikasi dengan beberapa komputer secara bersamaan. Istilah “port” sering kali merujuk pada nomor port TCP\/IP ini.<\/p>\n
        Memetakan Nilai Field Recordset ke Definisi Field Crystal Report melalui File ttx<\/h2>\n
        Tabel kerja Asprova diekspor ke Access untuk menerbitkan tiket stok.
        \nMeskipun sudah lama, Crystal Report 9 memiliki Parameter Field, jadi saya pikir VB akan mengirimkan parameter, tetapi ternyata cukup melempar Record Set, dan itu akan secara otomatis mengambil nilai dari field, sehingga laporan dapat ditampilkan di dalam Crystal Report Viewer, sebuah komponen ActiveX gratis.<\/p>\n
            CrRep.Database.SetDataSource rs, 3, 1  \r\n    CRViewer91.ReportSource = CrRep  \r\n    CRViewer91.ViewReport<\/code><\/pre>\n
        Bagian ini menunjukkannya. Argumen ketiga, 1, mewakili Nomor Tabel.<\/p>\n
            'Mendapatkan ORDERCOD dari combo yang dipilih  \r\n    result = Combo1.List(Combo1.ListIndex)  \r\n\r\n    'Mengirim parameter dari VB6 ke CR menggunakan CRAXDRT  \r\n    Dim CrApp As CRAXDRT.Application  \r\n    Dim CrRep As CRAXDRT.Report  \r\n\r\n    'Mendapatkan recordset ORDERCOD dari ORDERTBL  \r\n    Dim conn As New ADODB.Connection  \r\n    Dim rs As ADODB.Recordset  \r\n\r\n    Dim mySQL As String  \r\n\r\n    cn.Open _  \r\n        \"Provider = Microsoft.Jet.OLEDB.4.0; \" & _  \r\n            \"Data Source = \" & CurDir & \"\\NNA.mdb\"  \r\n\r\n    Set CrApp = New CRAXDRT.Application  \r\n    Set CrRep = CrApp.OpenReport(App.Path & \"\\reports\\TravelSheet.rpt\", & _  \r\n                    crOpenReportByTempCopy)  \r\n\r\n    CrRep.DiscardSavedData  \r\n\r\n    If result <> \"ALL\" Then  \r\n        mySQL = \"SELECT * FROM OPERATIONTBL WHERE ORDERCOD='\" & _  \r\n            Combo1.Text & \"' ORDER BY ORDERCOD\"  \r\n    Else  \r\n        mySQL = \"SELECT * FROM OPERATIONTBL ORDER BY ORDERCOD\"  \r\n\r\n    End If  \r\n    With rs  \r\n        .ActiveConnection = cn  \r\n        .CursorLocation = adUseServer  \r\n        .CursorType = adOpenKeyset  \r\n        .LockType = adLockOptimistic  \r\n        .Properties(\"IRowsetIdentity\") = True  \r\n\r\n        .Open mySQL  \r\n    End With  \r\n    CrRep.Database.SetDataSource rs, 3, 1  \r\n    CRViewer91.ReportSource = CrRep  \r\n    CRViewer91.ViewReport  \r\n<\/code><\/pre>\n
        Namun, aplikasi pengembangan yang menggunakan komponen non-standar seperti Crystal Report Viewer di Win7 kemungkinan besar bermasalah di XP, dan crviewer9.dll sering menyebabkan masalah di PC lama. Jadi, pertama-tama saya downgrade ke CR8.5 dan mengubah kode seperti di bawah ini.
        \nCR8.5 dibatasi hanya untuk tata letak formulir, jadi definisi field dibuat di file ttx, dan recordset dari VB dilemparkan untuk dipetakan ke formulir sesuai definisi field di file ttx.<\/p>\n
        Dim result As String  \r\n\r\n    'Mendapatkan ORDERCOD dari kotak combo yang dipilih  \r\n    result = Combo1.List(Combo1.ListIndex)  \r\n\r\n    'Mendapatkan recordset ORDERCOD dari ORDERTBL  \r\n    Dim conn As New ADODB.Connection  \r\n    Dim rs As ADODB.Recordset  \r\n\r\n    Dim mySQL As String  \r\n\r\n    cn.Open _  \r\n        \"Provider = Microsoft.Jet.OLEDB.4.0; \" & _  \r\n            \"Data Source = \" & CurDir & \"\\DNN.mdb\"  \r\n\r\n    If result <> \"ALL\" Then  \r\n        mySQL = \"SELECT * FROM OPERATIONTBL WHERE ORDERCOD='\" & _  \r\n                    Combo1.Text & \"' ORDER BY ORDERCOD\"  \r\n\r\n    Else  \r\n        mySQL = \"SELECT * FROM OPERATIONTBL ORDER BY ORDERCOD\"  \r\n\r\n    End If  \r\n\r\n    rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic  \r\n\r\n    With rptControl  \r\n        .WindowTitle = \"Travel Sheet\"  \r\n        .ReportFileName = App.Path & \"\\Reports\\TravelSheet.rpt\"  \r\n\r\n        .SetTablePrivateData 0, 3, rs  \r\n        .WindowShowPrintBtn = True  \r\n        .WindowShowPrintSetupBtn = True  \r\n\r\n        .RetrieveDataFiles  \r\n        .WindowState = crptMaximized  \r\n        .Destination = crptToWindow  \r\n        .Action = 1  \r\n    End With<\/code><\/pre>\n
        Jika Anda menentukan file ttx (rpt.ttx) di Report Expert pada file CR, nilai field dari recordset dalam kode akan secara otomatis dipetakan ke field di file CR.
        \n\"reportexpert\"
        \nMetode mendefinisikan nama field, atribut, dan panjang dalam file ttx dengan pemisah tab mungkin sudah dianggap klasik di Jepang, tetapi di Indonesia masih sangat digunakan.<\/p>\n
        ORDERCOD\tstring\t100  \r\nPROCNO\tnumber  \r\nRESOURCE\tstring\t100  \r\nITEM\tstring\t100  \r\nQTY\tnumber  \r\nSTARTDATE\tstring\t100  \r\nENDDATE\tstring\t100  \r\nWORKTIME\tstring\t100  \r\nPARENTITEM\tstring\t100  \r\nCLASS\tnumber<\/code><\/pre>\n
        Mengakses Jet Database Engine dari VB<\/h2>\n
        Tambahkan “Microsoft ActiveX Data Objects 2.1 Library” dari pengaturan referensi.<\/p>\n
        Dim conn As New ADODB.Connection  \r\nDim rs As New ADODB.Recordset  \r\nconn.Open _\r\n    \"Provider = Microsoft.Jet.OLEDB.4.0; \" & _\r\n\"Data Source = C:\\Users\\Toshiba\\Desktop\\ERP\\VB\\LinkWithERP.mdb\"  \r\n'DELETE\r\nDim query1 As String\r\nquery1 = \"DELETE * FROM ORDER_SOURCE\"\r\nrs.Open query1, cn, adOpenKeyset, adLockOptimistic  \r\n'SELECT\r\nDim query2 As String\r\nquery2 = \"SELECT * FROM ORDER_SOURCE\"\r\nrs.Open query2, cn, adOpenKeyset, adLockOptimistic  \r\nDo Until rs.EOF\r\n    X1 = rs!Order_Code\r\n    X2 = rs!Order_Item\r\n    X3 = rs!Order_Qty  \r\n\r\nrs.MoveNext  \r\n\r\nLoop<\/code><\/pre>\n
        ADO dan ODBC adalah middleware untuk memanfaatkan Jet Database Engine (MDB).
        \nFile MDB dalam format MS-Access sebenarnya adalah file Jet Database Engine (mesin basis data relasional yang dikembangkan oleh Microsoft), yaitu hanya kontainer penyimpanan data, dan terpisah dari aplikasi Microsoft Access yang menyediakan GUI.
        \nIni berarti file MDB dapat digunakan bahkan di lingkungan di mana MS-Access tidak terinstal.
        \nAnda dapat memanipulasi tabel menggunakan ADO di Excel VBA pada PC tanpa MS-Access terinstal, atau mengunduh Runtime dari situs MS untuk membukanya, dan ini tidak melanggar batasan lisensi.
        \nRuntime adalah “program yang mengambil hanya fungsi eksekusi dari perangkat lunak yang memiliki fungsi pengembangan dan eksekusi, dengan fungsi pengembangan dihilangkan.” Dengan kata lain, “lingkungan eksekusi tanpa lingkungan pengembangan.”<\/p>\n
        \n
        \n