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

27 Tanggapan

  1. saya juga boss lagi belajar itu dan mao pidah ke xharbour dan minigui

    • 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

  2. 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

    • 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

  3. 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

    • 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

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

  5. 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…

    • 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

  6. 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…

    • 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

  7. 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

    • 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

  8. Pak..perush sy pk soft dos (clipper) apakah bisa migrasi ke visual? kl bisa mekanismenya bgmn? via email ya pak.

  9. 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….

    • 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

  10. pak, ajarin saya b.prgram clipper dari awal donk pak ..?

    klo bisa lewt email ya pak ..:)
    jefrigalunk@ymail.com
    thx y pak

  11. code buad penomoran gmna ?
    jadi setiap print lsg keluar no urut sperti :
    1. Bak mandi
    2. Semen
    3. Cangkul

    • 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

  12. wah, banyak jg penggemar bahasa clipper ver 5.01-5.3,, kalah pamor dgn foxpro 9.0 for windows..

  13. 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

  14. siang mas mohon berkenan kasih bimbingan utk belajar
    xharbour dan minigui, trimakasih

  15. 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

  16. 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

  17. 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

  18. all, silahkan kunjungi http://hmgextended.com/ untuk belajar migrasi dari Dos ke GUI

    Makasih

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 )

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

%d blogger menyukai ini: