Membuat System Inventory Output Sawmill

Industri pengolahan kayu baik yang menggunakan bahan baku dari hutan alam maupun dari hutan tanaman industri tidak lepas dari peran Sawmill sebagai industri hulu. Pencatatan administrasi yang perlu dilakukan adalah pengukuran volume kayu bulat (log) dan hasil produksinya (sawntimber).

Kali ini penulis ingin mengupayakan memberikan contoh coding (program) dalam bahasa Foxpro 2.6 for DOS. Namun dalam prakteknya nanti mohon untuk tidak heran karena masih terdapat beberapa kekurangan yang diharapkan kita dapat sharing untuk penyempurnaan sistemnya. Saya menggunakan bahasa Foxpro for DOS karena mudah dan tidak terlalu rumit sesuai dengan karakter sistem yang akan kita ciptakan.

Coding (program) meliputi : Program Utama, Procedur, dan program-program turunan *.prg. Pada kesempatan ini saya memaksimalkan kemampuan rancang program dan tidak melibatkan rancangan bawaan dari Foxpro sepert create report, create form, dan sebagainya.

* Inventory data output bandsaw *--------------------------------

SET EXCL OFF
SET REFR TO 2
SET REPR TO AUTOMATIC
SET BELL OFF
SET TALK OFF
SET SAFE OFF
SET CENT ON
SET DATE ITAL
SET SCOR OFF
SET CONF ON
SET NOTI OFF
SET DECI TO 4
SET STAT OFF
SET PROC TO PROSEDUR
SET DELE ON
SET MESS TO 24
SET CLOC TO 00,68

STORE 0         TO Br,Pg,mRecNo,mCutT,mSPKNo
STORE 0         TO mT,mL,mP,mPcs,m.Vol,tPcs,tVol
STORE SPACE(01) TO Bts,Klm,Ttp
STORE SPACE(03) TO mRaw
STORE SPACE(06) TO cSPKNo
STORE SPACE(12) TO mTruck
STORE SPACE(15) TO mGroup
STORE CTOD("")  TO mTglAwl,mTglAkh,mTanggal
STORE .T.       TO lBts
*-----------------------------------------

SayColor='Bg+/B,W+/BG,,,BG+/B,W/GR+,,,,W+/BG+'
GetColor='Bg+/B,W+/BG,,,BG+/B,W/GR+,,,,W+/BG+'
BrwColor='BG/W ,BG+/R,W+/G ,GR/G, ,R/W,R/BG,,,'
VieColor='N/W,W+/BG,GR+/BG,W+/BG,,,N/BG,,,'

ON KEY LABEL ALT+U CANCEL

DO LOGO

DEFINE MENU MenuKipa BAR AT LINE 00 COLOR SCHEME 2
   DEFINE PAD PdData OF MenuKipa PROMPT 'Data'    MESSAGE 'Input data output bandsaw ...'
   DEFINE PAD PdPrin OF MenuKipa PROMPT 'Print'   MESSAGE 'Mencetak laporan...'
   DEFINE PAD PdMstr OF MenuKipa PROMPT 'Master'  MESSAGE 'Master database ...'
   DEFINE PAD PdUtil OF MenuKipa PROMPT 'Utility' MESSAGE 'Pemeliharaan data ...'
   DEFINE PAD PdExit OF MenuKipa PROMPT 'Exit'    MESSAGE 'Keluar dari program ...'

   ON PAD PdData OF MenuKipa ACTIVATE POPUP PuData
   ON PAD PdPrin OF MenuKipa ACTIVATE POPUP PuPrin
   ON PAD PdMstr OF MenuKipa ACTIVATE POPUP PuMstr
   ON PAD PdUtil OF MenuKipa ACTIVATE POPUP PuUtil
   ON SELECTION PAD PdExit OF MenuKipa QUIT

   DEFINE POPUP PuData MARGIN RELATIVE SHADOW COLOR SCHEME 2
      DEFINE BAR 1 OF PuData PROMPT "Input" MESSAGE 'Input data hasil gesek...'
      DEFINE BAR 2 OF PuData PROMPT "Edit"  MESSAGE 'Membetulkan data hasil gesek...'

      ON SELECTION BAR 1 OF PuData DO InpKipa
      ON SELECTION BAR 2 OF PuData DO EdiKipa

   DEFINE POPUP PuPrin MARGIN RELATIVE SHADOW COLOR SCHEME 2
      DEFINE BAR  1 OF PuPrin PROMPT "Hasil Gesek"   MESSAGE 'Cetak hasil gesek untuk tagihan borong...'
      DEFINE BAR  2 OF PuPrin PROMPT "Tagihan KIP"   MESSAGE 'Cetak hasil gesek untuk tagihan KIPA...'
      DEFINE BAR  3 OF PuPrin PROMPT "Rekap Truck"   MESSAGE 'Cetak rekap hasil gesek per truck...'
      DEFINE BAR  4 OF PuPrin PROMPT "Insentive SD"  MESSAGE 'Cetak insentive sawdoctor...'
      DEFINE BAR  5 OF PuPrin PROMPT "Tagih Borong"  MESSAGE 'Cetak tagihan upah borong...'

      ON SELECTION BAR  1 OF PuPrin DO HslKipa
      ON SELECTION BAR  2 OF PuPrin DO TghKipa
      ON SELECTION BAR  3 OF PuPrin DO RkpKipa
      ON SELECTION BAR  4 OF PuPrin DO InsKipa
      ON SELECTION BAR  5 OF PuPrin DO ChgBrng

   DEFINE POPUP PuMstr MARGIN RELATIVE SHADOW COLOR SCHEME 2
      DEFINE BAR 1 OF PuMstr PROMPT "SPK BM"  MESSAGE 'Database SPK Barang Masuk...'
      DEFINE BAR 2 OF PuMstr PROMPT "BandSaw" MESSAGE 'Database output Bandsaw...'
      DEFINE BAR 3 OF PuMstr PROMPT "Pemilik" MESSAGE 'Database pemilik...'
      DEFINE BAR 4 OF PuMstr PROMPT "Species" MESSAGE 'Database species...'
      DEFINE BAR 5 OF PuMstr PROMPT "Raw"     MESSAGE 'Database raw material...'

      ON SELECTION BAR 1 OF PuMstr DO DbSPKBM
      ON SELECTION BAR 2 OF PuMstr DO DbKipa
      ON SELECTION BAR 3 OF PuMstr DO Pemilik
      ON SELECTION BAR 4 OF PuMstr DO Species
      ON SELECTION BAR 5 OF PuMstr DO RawMat

   DEFINE POPUP PuUtil MARGIN RELATIVE SHADOW COLOR SCHEME 2
      DEFINE BAR 1 OF PuUtil PROMPT "Index"  MESSAGE 'Mengurutkan record database...'
      DEFINE BAR 2 OF PuUtil PROMPT "Prompt" MESSAGE 'Windows Command...'

      ON SELECTION BAR 1 OF PuUtil DO IndKipa
      ON SELECTION BAR 2 OF PuUtil CANCEL

   DO WHILE .T.
      ACTIVATE MENU MenuKipa
   ENDDO

PROCEDURE Logo
   SET COLOR TO &SayColor
   @ 00,00 CLEAR TO 00,79
   @ 24,00 CLEAR TO 24,79

   SET COLOR TO R+/W ,W/BG,,,BG+/B,W/GR+,,,,W+/BG+
   @ 01,00 CLEA TO 22,79

   @ 09,00 SAY PADC('ÛÛÛÛ  ÛÛÛÛ ÛÛÛÛ    Û ÛÛÛÛ ÛÛÛÛ Û   Û   Û ÛÛ Û ÛÛÛÛ ÛÛÛÛ',80,' ')
   @ 10,00 SAY PADC('Û  Û  Û  Û Û  Û    Û Û  Û Û  Û Û   Û   Û Û  Û Û  Û Û  Û',80,' ')
   @ 11,00 SAY PADC('Û  Û     Û Û  Û    Û Û       Û Û   Û   Û Û  Û Û  Û    Û',80,' ')
   @ 12,00 SAY PADC('ÛÛÛÛÛ ÛÛÛÛ Û  Û ÛÛÛÛ ÛÛÛÛ ÛÛÛÛ Û Û Û   ÛÛÛÛ Û ÛÛÛÛ ÛÛÛÛ',80,' ')
   @ 13,00 SAY PADC('Û   Û Û  Û Û  Û Û  Û    Û Û  Û Û Û Û   Û  Û Û Û    Û  Û',80,' ')
   @ 14,00 SAY PADC('Û   Û Û  Û Û  Û Û  Û Û  Û Û  Û Û Û Û   Û  Û Û Û    Û  Û',80,' ')
   @ 15,00 SAY PADC('ÛÛÛÛÛ ÛÛÛÛ Û  Û ÛÛÛÛ ÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛ   Û  Û Û Û    ÛÛÛÛ',80,' ')

   @ 17,00 SAY PADC('DATA OUTPUT BANDSAW PT KIPA',80,' ')
   SET COLOR TO BR/BG ,W/BG,,,BG+/B,W/GR+,,,,W+/BG+
   @ 23,00 CLEAR TO 23,79
   @ 23,00 SAY PADC('PT. NANDI KENCANA ABADI',80,' ')
   SET COLOR TO &SayColor

   RETURN

Untuk sementara sekian dulu, berhubung kesibukan yang ada. Mudah-mudahan sedikit membantu......walaupun sedikit.