Clipper Programing

Clipper merupakan bahasa program yang terkenal pada era 1990 dan mungkin saat ini  tidak banyak yang mengenal bahasa clipper.

Saya sengaja menulis mengenai clipper selain untuk bernostalgia dengan clipper juga untuk tidak melupakan sejarah bahwa saya mulai bisa bahasa program yang lainnya setelah mengenal clipper dan clipper adalah basic saya dalam mempelajari bahasa program lainnya seperi Visual Basic, Visual Foxpro, Harbour Minigui Exstended,Visual Xharbour dan bahasa program lainnya

Iklan

40 thoughts on “Clipper Programing

    1. jcsn Penulis Tulisan

      Mas Imam, sebenarnya saya orang yg beruntung karena saya bisa program dari clipper yg kebetulan di beli oleh perusahaaan tempat saya bekerja .
      saya posisinya waktu itu akunting dan finance dan kebetulan orang EDP perusahaan saya sering keluar masuk yg akhirnya menganggu kinerja dari Accounting dan Finance Dept.

      Dari situlah saya mulai masuk ke dalam dunia programing he…he…he..

      Mari kita sama2 diskusi mas karena sebenarnya bahasa program sekarang sudah bagus semua tergantung Bagaimana kita menguasai bahasa program itu sendiri ( KETERBATASAN BAHASA PROGRAM TERGANTUNG PROGRAMERNYA )

      Makasih Mas,

      Btw mas imam dimana

      Balas
  1. Ramlan

    Hallo Mas……

    Mas Perusahaan saya mash pake program clipper…, kemudian saat ini ada kebutuhan…menggunakan Sistem Barcode…….yang sy mau tanya…..bagaimana coding program untuk membaca Barcode……di Clipper….
    Terima Kasih Atas Bantuannya

    Ramlan

    Balas
    1. jcsn Penulis Tulisan

      Dear Mas Ramlan,

      Untuk pemprogaman BARCODE di clipper tidak memerluka perubahan apapun di codingnya karena fungsi dari BARCODE sama dengan fungsi KEYBOARD.

      Yang harus dilakukaan oleh mas ramlan adalah :

      1. Bikin Nomer Barcode dengan standar Barcode
      misalnya IAN 13
      Contoh : 523412345910

      simpan nomer barcode dalam table database
      misalnya :
      Barcode.dbf
      berisi field
      barcode Karakter , 13
      kdbrg karakter , 08

      2. Bikin label BARCODE dengan bantuan SOFWARE BARCODE pada produk anda
      Misalnya
      Produk A = Barcode : 123456789120

      Mudah-mudahn penjelasan saya dpt menjadi ide untuk memecahkan problem mas ramlan

      Makasih atas coretan di blog saya
      Jika masih blm jelas bisa YM saya di priadi_jcsn@yahoo.com

      Balas
      1. sofyan effendi

        Selamat Siang.. Salam Kenal mas.. Saya Sofyan Dari Indramayu, Saya juga banyak membuat aplikasi menggunakan clipper. alhamdulillah saya sudah membantu hampir 700 klien untuk dibuatkan aplikasi di toko, apotek, bengkel dll. terimakasih. salam kenal mas..

  2. imam

    Bos gimana ya caranya dapatkan xharbour linux
    mandriva ato ubuntu ya kalu bisa ya trhird partynya dan builder nyo
    saya pusing tujuh keliling bos cari cari susah dapatnya klu yang windows banyak pirusnya bos
    thanks

    Balas
    1. jcsn Penulis Tulisan

      Dear mas Imam,
      Mas imam , makasih telah berkenan memberi coretan pada blog saya ,

      Mas imam , mohon maaf saat ini saya memang cenderung fokus untuk mempelajari minigui extended dan berbagai turunannya dalam operating system window dan untuk linux memang saya sudah pelajari tapi belum terlalu fokus .

      Untuk window dng harbour saya berani share pengalaman serta sample2 aplikasi yg telah saya bikin dengan minigui extended

      Oh yaaa .. yang mas maksud banyak virusnya adalah Operating System Window atau Xharbournya

      Makasih

      Balas
  3. imam

    makasih boz;
    ya mestinya komputer saya gampang terkena virus jadi kalau sayan belajar compile program sudah jadi yang ber extd exe agak pelan

    Balas
  4. Noviana Dewi

    Hallo, Mas….
    Saya dulu adalah pengguna clipper. Sekarang sedang belajar untuk beralih ke xharbour.
    Kalau boleh tanya, apakah program aplikasi yang dibuat menggunakan xharbour bisa berjalan baik di windows 7.
    Bagaimana dengan networking. Apakah Windows Server bisa digunakan
    Makasih infonya…

    Balas
    1. jcsn Penulis Tulisan

      Hallo juga mbak ,

      Makasih dah mau coret di blog aku ,
      mbak dewi , untuk yg saya tulis saya memakai harbour minigui extended dan bisa berjalan sangat bagus di window 7 baik 64 maupun 32 byte serta server micosof window server 2003 maupun 2008 ,

      smoga bisa bermanfaat ,
      salam
      kalau ada yg perlu di diskusikan bisa email ke priadi_jcsn@yahoo.com

      Balas
  5. Noviana Dewi

    Saya kebetulan sudah mempunyai program aplikasi jadi yang dulu saya buat dengan menggunakan clipper.
    Apakah kalau saya menggunakan harbour minigui extended, source program saya yang lama bisa di compile langsung.
    Kalau dengan xharbour sudah saya coba bisa. Jadi saya hanya perlu mengubah sedikit saja source program saya.
    Makasih untuk keterangannya.

    **Terus terang saya sedang bingung bagaimana untuk migrasi program saya dari DOS ke Windows…

    Balas
    1. jcsn Penulis Tulisan

      Mbak dewi ,

      Kalau sudah bisa xharbour berarti tinggal di edit dan compile ulang aja mbak ….?

      Kalau minigui extende untuk proses laporan 70% coding clipper bisa dipakai tapi kalau untuk entry data cuma 30% yg bisa dipakai ,

      kalau mbak dewi tak keberatan hubungi saya by email

      makasih dan
      Smoga bermanfaat

      Balas
      1. Sofyan FEffendi

        selamat malam, salam kenal, saya sofyan dari indramayu.. boleh saya bertanya tentang clipper program.. makasih.

  6. sulaiman

    saya buat program dengan mengunakan bahasa clipper 5.3 tapi gua ada masalah dengan print faktur penjualan dengan mengunakan ukuran 1/2 continius form, untuk print lembar pertama tidak bermasalah tetapi pada saat print lembaran kedua terjadi pergelangan faktur kosong, apakah ada cara untuk mensetting besaran kertas dengan menggunakan bahasa clipper?

    terima kasih,
    sulaiman

    Balas
    1. jcsn Penulis Tulisan

      Mas sulaiman , Makasih sebelumnya mau berkenan kasih coretan di blog aku ,
      Mas sulaiman , Kalau saya lebih mudah memakai perintah print langsung ( ? ) tinggal nanti kita menentukan berapa batas baris yang ingin kita cetak dan di sesuaikan dengan batas banyaknya kapasitas kertas tersebut .
      ( Misalnya A4 / 2 atau setengah A4 )

      DO WHILE .T.

      SETCOLOR(“R++/B”)
      @ 20,1 CLEAR TO 22,78

      SNONOTA1:=SNONOTA2:=SPACE(15)
      cKe:=” ”
      CSETUJU:=CJABATAN:=CGARIS:=SPACE(20)

      cKet1 := space(45)

      SETCOLOR(“R++/B”)
      @ 20, 2 SAY “No. Srt.Jln. [“+SPACE(15)+”] S/D [“+SPACE(15)+”] Logo Company [ ] [123]”
      SETCOLOR(“W/B”)

      OK := 2
      DO WHILE OK == 2 .or. ok == 0

      LINE2401(“Tekan keluar”,0)

      SELECT INTRAN1
      SNONOTA1 := INP_CHAR(SNONOTA1,20,16,””,1,SKODE,{||NONOTA},{|| DTOC(TANGGAL)},0)
      IF LASTKEY() == 27
      RETURN
      ENDIF
      IF EMPTY(SNONOTA1)
      SNONOTA1 := SNONOTA
      ENDIF
      SETCOLOR(“GR++/B”)
      @ 20,16 SAY SNONOTA1

      SELECT INTRAN1
      SNONOTA2 := INP_CHAR(SNONOTA2,20,38,””,1,SKODE,{||NONOTA},{|| DTOC(TANGGAL)},0)
      IF LASTKEY() == 27
      RETURN
      ENDIF
      IF EMPTY(SNONOTA2)
      SNONOTA2 := SNONOTA1
      ENDIF
      SETCOLOR(“GR++/B”)
      @ 20,38 SAY SNONOTA2

      SETCOLOR(“GR++/B”)

      OK := ALERT(“Data Ok ?”,{“Yes”,”No”},”w+/b”)

      ENDDO

      SET PRINTER ON
      SET DEVICE TO SCREEN

      SELECT INTRAN1
      SET SOFTSEEK ON
      SEEK SKODE+SNONOTA1
      SET SOFTSEEK OFF

      DO WHILE .NOT. EOF() .AND. SKODE == KODE .AND. ;
      NONOTA >= SNONOTA1 .AND. NONOTA NM_PT
      SKETERNG1 := TBLCMAS->ALAMAT1
      SKETERNG2 := TBLCMAS->ALAMAT2
      SKETERNG3 := TBLCMAS->ALAMATL

      SKETERNG4 := TBLCMAS->ALAMAT4
      SKETERNG5 := TBLCMAS->ALAMAT5
      SSUB_MAP := TBLCMAS->SUB_MAP
      SNPWP := TBLCMAS->NPWP

      SELECT TBLWMAS
      SEEK “W”+SKD_WIL
      SNM_WIL := NM_WIL

      SEEK “M”+SSALES
      SNMSALES := NM_WIL

      IF SPPN == 10

      BARIS := 0
      HAL := 1
      ? chr(14)+””+chr(15)
      ? ” “+chr(14)+” SURAT JALAN “+chr(15)
      ? ” “+chr(14)+sNonota+chr(15)
      ? ” No. Order : “+sorder+” ”
      ? ” Kepada: “+sketerng+” Tanggal Order : “+dtoc(stgl_order)+” ”
      ? ” : “+sketerng1+” Tanggal Kirim : “+dtoc(stanggal)+” ”
      ? ” Telp : “+sketerng3+” Tempo Pembayaran: “+trans(sTerm,”999″)+” Hari ”
      ? “ÚÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ”
      ? “³NO.³ NAMA BARANG ³ NOMOR BARANG ³ JUMLAH ³ SATUAN ³ KETERANGAN ³ ”
      ? “³ ³ ³ ³ ³ ³ ³ ”
      ? “ÃÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ”

      // ³123³12345678901234567890123456789012345678901234567890³123456789012345678901234567890³1,999,999 ³Rp.9,999,999 ³Rp. 99,999,999 ³
      // ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
      ELSE

      BARIS := 0
      HAL := 1
      ? chr(14)+”PT.Y K I “+chr(15)
      ? ” “+chr(14)+” SURAT JALAN “+chr(15)
      ? ” “+chr(14)+sNonota+chr(15)
      ? ” Order No : “+sorder+” ”
      ? ” Kepada: “+sketerng+” Tanggal Order : “+dtoc(stgl_order)+” ”
      ? ” : “+sketerng1+” Tanggal Kirim : “+dtoc(stanggal)+” ”
      ? ” Telp : “+sketerng3+” Tempo Pembayaran: “+trans(sTerm,”999″)+” Hari ”
      ? “ÚÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ”
      ? “³NO.³ NAMA BARANG ³ NOMOR BARANG ³ JUMLAH ³ SATUAN ³ KETERANGAN ³ ”
      ? “³ ³ ³ ³ ³ ³ ³ ”
      ? “ÃÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ”

      // ³123³12345678901234567890123456789012345678901234567890³123456789012345678901234567890³1,999,999 ³Rp.9,999,999 ³Rp. 99,999,999 ³
      // ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
      ENDIF
      // Persiapan variabel
      SJUMLAH:=SNET:=NO:= 0

      SELECT INTRAN2
      SEEK SKODE+SNONOTA
      DO WHILE .NOT. EOF() .AND. SKODE+SNONOTA == KODE+NONOTA
      SKDBRG := KDBRG
      SHARGA := HARGA
      IF SHARGA == 0
      SBONUS := ” Bonus Penjualan”
      ELSE
      SBONUS := ” ”
      ENDIF

      SQUANTK := QUANTK-QUANTKR
      SLOT := SUBSTR(LOT,1,10)
      SQUANTP := QUANTP-QUANTPR
      SKORT := KORT // IIF(KORT>100,HARGA/KORT,KORT)
      XKORT := IIF(KORT>100,KORT,HARGA*KORT/100)
      SELECT INVTBL
      SEEK SKDBRG
      SNMBRG := NMBRG
      SSATUAN := SATUAN
      SKEMASAN := KEMASAN
      SPACK2 := PACK2
      SNOPROD := NOPROD

      SELECT INTRAN2
      SQTY := SQUANTK*SPACK2+SQUANTP
      XHARGA := HARGA-KORT
      STOTAL := XHARGA*SQTY
      SJUMLAH := SJUMLAH + STOTAL

      NO++
      BARIS++
      LTEM := .F.
      IF BARIS >= 5 .AND. SKODE+SNONOTA == KODE+NONOTA
      HAL++
      ? “ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      ? ” ”
      LTEM := .T.
      BARIS := 0
      ? chr(14)+””+chr(15)
      ? ” “+chr(14)+”DELIVERY ORDER”+chr(15)
      ? ” “+chr(14)+sNonota+chr(15)
      ? ” Order No : “+sorder+” ”
      ? ” Kepada: “+sketerng+” Tanggal Order : “+dtoc(stgl_order)+” ”
      ? ” : “+sketerng1+” Tanggal Kirim : “+dtoc(stanggal)+” ”
      ? ” Telp : “+sketerng3+” Tempo Pembayaran: “+trans(sTerm,”999″)+” Hari ”
      ? “ÚÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ”
      ? “³NO.³ NAMA BARANG ³ NOMOR BARANG ³ JUMLAH ³ SATUAN ³ KETERANGAN ³ ”
      ? “³ ³ ³ ³ ³ ³ ³ ”
      ? “ÃÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ”

      ENDIF

      ? “³”+TRANS(NO,”999”)+”³ “+;
      sNMBRG+SPACE(19)+”³ “+SNOPROD+SPACE(9)+”³”+TRANS(SqTY,”9,999,999″)+” ³ “+;
      SSATUAN+” ³”+” Lot:”+SLOT+”³”
      // SSATUAN+” ³”+” “+SPACE(11)+”³”

      SELECT INTRAN2
      DbSkip()
      ENDDO
      XST := SJUMLAH-SDISC
      XPPN:= (SPPN/100)*XST
      XTTL:= XST+XPPN

      DO WHILE BARIS < 6
      ? "³ ³ ³ ³ ³ ³ ³ "
      baris++
      ENDDO
      ? "ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
      // 123456789012345678901234567890123456789012345678901234567890
      ? " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
      ? " Di Terima ³ Diketahui ³ Dibuat Oleh ³"
      ? " ³ ³ ³"
      ? " ³ ³ ³"
      ? " ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
      ? " ( ……………. ) ³ Toni Y.P ³ DESSY P.S ³"
      ?" ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
      ?""
      SELECT INTRAN1
      DbSkip()
      ENDDO
      CLEAR
      FRAME()
      SET PRINTER TO LPT1
      SET PRINTER TO LPT2
      Set Printer To
      set printer off
      EXIT
      ENDDO
      RETURN

      Balas
  7. Aromzi

    Halo Mas,
    Kenalan dulu mas, saya Romzi dari Lampung profesi saya juga programar clipper juga, sekaranga ini saya bingun untuk beralih ke visual dan setelah saya analisa bahasa program yang mirip-mirip struktur pmerogramannya sih sepertinya visual foxpro tapi sebelum saya mendalaminya, saya mau minta tolong sama Mas nih bahasa program apasih yang lebih mirip-mirip clipper karena saya udah tua mas untuk belajar, juga otak ini udah lemotsih mas.

    Makasih ya Mas sebelumnya, tolong dibales langsung ke email saya aja sekali lg makasih lagi Mas….

    Balas
    1. jcsn Penulis Tulisan

      Dear mas aromzi ,

      Makasih dah mau mampir ke blog ini ,

      Yup ini bahasa memang turunan dari clipper dan variannya banyak terserah mas amrozi mau pilih yang mana .
      Variant yang saya maksud adalah :

      1. Harbour
      2. xharbour
      3. HMG
      4. HMG extended
      5. OOHG

      atau mas bisa buka di web ini

      http://hmgextended.com/

      di milis inilah saya banyak belajar
      makasih

      Salam

      Balas
    1. jcsn Penulis Tulisan

      Dear Mas Beny ,

      Untuk penomoran dibuatkan sebuah variable misalnya NO
      Pada saat proses mencetak maka lakukan proses loopong dengan menambahkan No:= no +1 sampai data yang akan di cetak habis

      contoh coding ini ,
      DO WHILE .T.

      SETCOLOR(“W/B”)
      @ 3,1 CLEAR TO 22,78

      SKDBRG1:=SKDBRG2:= SPACE(LEN(SKDBRG))

      SETCOLOR(“W+/B”)
      @ 3, 2 SAY “Print Kode Barang ”
      SETCOLOR(“BG/B”)
      @ 5, 2 SAY “Kode Barang [ ] S/D [ ]”
      SETCOLOR(“W/B”)

      OK := 2
      DO WHILE OK == 2

      LINE2401(“Tekan keluar”,0)

      SELECT INVTBL
      SKDBRG1 := INP_CHAR(SKDBRG1,5,15,”XXXXXX”,0,,{||KDBRG},{||NMBRG},0)
      IF LASTKEY() == 27
      RETURN
      ENDIF
      IF EMPTY(SKDBRG1)
      DbGoTop()
      SKDBRG1 := KDBRG
      ENDIF
      SETCOLOR(“R+/B”)
      @ 5,15 SAY SKDBRG1

      SKDBRG2 := INP_CHAR(SKDBRG2,5,30,”XXXXXX”,0,,{||KDBRG},{||NMBRG},0)
      IF LASTKEY() == 27
      RETURN
      ENDIF
      IF EMPTY(SKDBRG2)
      DbGoBottom()
      SKDBRG2 := KDBRG
      ENDIF
      SETCOLOR(“R+/B”)
      @ 5,30 SAY SKDBRG2

      OK := ALERT(“Data Ok ?”,{“Yes”,”No”},”w+/b”)

      ENDDO

      SCRN := ALERT(“Screen atau Printer ?”, {“Screen”,”Printer”},”w+/b”)

      SPRT := ALERT(“Cetak Detail [Y/N] ?”, {“Yes”,”No.”},”w+/b”)

      IF SCRN == 2
      IF ALERT(“Printer sudah siap ?”, {“Yes”,”No”},”w+/b”) == 2
      LOOP
      ENDIF
      ELSE
      SET PRINTER TO (cMAP+”&DFILE2″)
      ENDIF

      IF SPRT == 1
      SELECT INVDET
      SET INDEX TO (cDRV+”INVDET1″)
      REINDEX
      DO INTENTR1
      SELECT INVDET
      SET INDEX TO (cDRV+”INVDET1″)
      SELECT INVTBL
      LOOP
      ENDIF

      AA := “+———————————————————————————————————————+ ”
      BB := “| MINIMUM | ”
      CC := “| NO. KODE NAMA BARANG NAMA ALIAS KEMASAN SATUAN STOCK | ”
      DD := “| —– ——– —————————— —————————— ——- ————– ——— | ”

      LENG := LEN(CC)

      FF := { || “| “+TRANSFORM(NO,”9999.”)+” “+SKDBRG+” “+SNMBRG+” “+SNMALIAS+” “+SKEMASAN+” “+TRANSFORM(SPACK,”99999.99″)+” “+SSATUAN+” “+;
      TRANSFORM(SMINIMUM,”9,999,999″)+” | ” }

      LINE2401(“Sedang proses …”,1)

      HAL:=NO:=KEYPRESS:=0

      SELECT INVTBL
      SET SOFTSEEK ON
      SEEK SKDBRG1
      SET SOFTSEEK OFF

      LINE2401(“Tekan Ctrl-Q to Stop”,0)

      SET DEVICE TO PRINTER

      DO WHILE .NOT. EOF() .AND. KDBRG >= SKDBRG1 .AND. KDBRG <= SKDBRG2

      IF SCRN == 2
      BARIS := 7
      HAL := HAL + 1
      HEADER1 := UPPER(FNAMAGRP)
      HEADER2 := "PRINT KODE BARANG "
      @ 1, 2 SAY HEADER1
      @ 1,LENG-20 SAY "HALAMAN : "+STR(HAL,3,0)
      @ 2, 2 SAY HEADER2
      @ 2,LENG-20 SAY "TANGGAL : "+DTOC(DATE())
      @ 3, 0 SAY AA
      @ 4, 0 SAY BB
      @ 5, 0 SAY CC
      @ 6, 0 SAY DD
      ELSE
      BARIS := 1
      ENDIF

      DO WHILE .NOT. EOF() .AND. BARIS = SKDBRG1 .AND. KDBRG = SKDBRG1 .AND. KDBRG <= SKDBRG2))
      SET PRINTER TO
      SET DEVICE TO SCREEN
      IF USEUDF(cMAP+"&DFILE1",.T.)
      ZAP
      APPEND FROM (cMAP+"&DFILE2") SDF
      A1 := DISP(11,22,LENG,1,2,CC,DD,BB,AA,4)
      ELSE
      RETURN
      ENDIF
      USE
      ENDIF
      SELECT INVTBL
      ENDDO
      SET PRINTER TO
      SET DEVICE TO SCREEN
      set printer to lpt2
      set printer to lpt1
      Set Printer To

      ENDDO
      RETURN

      Balas
  8. Zena

    Salam kenal mas,
    Saya Zena. mau tanya cara import data excel (xls,xlsx) ke .dbf pada clipper. statement seperti apa ya mas.
    makasih atas bantuannya

    Balas
  9. muhamad soleh

    Salam kenal mas….
    nama saya soleh,, saya minta bantuan nya boleh mas……….
    saya dapat program ini dari teman saya, kebetulan di kantor saya masih memakai clipper 5.2 dan Blinker 6.0. tp sy bigung untuk mengkompile program tsb, program ini terdiri dari Main Program dan sub program, tapi setiap sub program nya baris pertama memakai #define clipper52, bgmn supaya sy bisa mengkompilasi program tsb bila ada perubahan…..

    dan satu lagi ya mas…………….bagaimana saya bisa mengadopsi program terbilang ke dalam program saya, misalkan :
    @ PRow()+1,10 Say Trans(nNominal,”@E 9,999,999,999″), bagaimana supaya sy bisa mendapat kan kalimat nominal dr program tersebut.
    demikian mas terimakasih sebelum nya atas bantuan nya

    Balas
  10. Darmadi

    Salam Kenal Mas Supriadi
    Saya memiliki program Administrasi Sekolah yang ditulis menggunakan clipper, bagaimana cara agar data clipper saya (guru dan siswa) dapat menggunakan pas foto (Image)
    terima kasih

    Balas
  11. didi supriadi

    Halo mas, saya salah satu user programing clipper. Saat ini saya bingung ketika program yg saya buat tahun 1990 sampe sekarang msh dipake hanya saja saya pengen program tersebut tampilannya seperti windows. Brgkali Mas bisa bantu software/compilernya. Tks

    Balas
  12. bambang

    proram akuntansi di kantor saya pakai clipper namun sekarang tidak bisa index dan berhenti di bb.dt5 . bagaimana agar program tsb bs normal dan saya bisa dgn tenang dapat kembali kerja… terima kasih atas bantuannya ..

    Balas
  13. aponkz

    pagiiii…
    sampai sekarang saya masih pake vb6.
    saat ini sedang tertarik sama PWCT.
    apa bedanya xharbour dengan PWCT ?
    apa basic yg harus saya pelajari untuk PWCT ?

    makasih untuk jawabannya

    Balas
  14. Pattrick

    halo mas jcsn, saya mahasiswa semester III tahun ini dan bekerja sebagai seorang IT di sebuah perusahaan. perusahaan tempat saya bekerja menggunakan program clipper. dan saya ingin mempelajari ilmu clipper. tetapi saya bingung harus dimulai dari mana. mohon tuntunannya ya mas.
    terima kasih

    Balas
  15. Pattrick

    Halo mas jcsn. Saya seorang mahasiswa TI semester III dan bekerja sebagai IT. di perusahaan tempat saya bekerja menggunakan program clipper. jadi saya ingin mempelajari clipper. tetapi saya tidak tahu harus dimulai dari mana. jadi, mohon petunjuknya.
    thnks

    Balas
  16. halifa

    Salam kenal
    Wah ternyata menyenangkan program clipper lama bisa di-compile harbour 3.2 console dan dihubungkan ke minigui dan hampir semua masalah link ke windows bisa berjalan seperti excel, word, outlook, pdf, sql, ftp dll. bisa terpecahkan.
    thanks jscn.

    Balas
  17. chelseayau

    Salam kenal …
    Saya ada sedikit permasalahan…
    Saya membuat program stok dari clipper 5.2 … dan ingin mencoba untuk mencetak kode barang menjadi barcode dengan cara dicetak barcode nya dengan barcode printer … apakah bisa ya ?

    Maksud saya, apakah barcode printer bisa diperintah oleh program clipper ( tanpa menggunakan software bawaan ) , karena saya akan ambil database barang dari program saya …

    Mohon pencerahan nya … Terima kasih …. 🙂

    Balas
  18. apri

    Salam Kenal Mas..
    saya punya permasalahan di program clipper yang boss saya buat..
    awalnya aplikasinya berjalan normal di tahun 2017…
    ketika boss saya pensiun di awal tahun 2018, program clippernya di lock untuk payroll di bulan ke-3 (maret)..
    setelah kami cari-cari sumber permasalahannya, ada di script ***.prg… yang di dalamnya ada kode untuk mengunci bila dimasukkan bulan 3 tahun 2018… program tersebut tidak akan jalan…

    saya sudah cari2 cara compiler nya utk clipper, tetapi tetap mengalami kebuntuan, selalu tidak terbentuk file ***.exe nya…
    mohon bantuannya mas.

    terima kasih..

    email saya : dietcoke272(at)gmaildotcom

    Balas

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s