tanya ini bikin nya pake software apa?

[Guesuper]

Spoiler for script code:







Code:

#include "minigui.ch"
#include "winprint.ch"

FUNCTION SJ_BHANY(p1,p2,p3)

LOCAL r, i, aSJ:=array(3), nJQty:=0, xSize:=""
LOCAL nX, z, c:=0

// product->Uficode
/*
if RichOpen("product","uficode", hspkany->Uficode )
//MsgInfo(product->Nmrangka)

else

if richOpen("product","Names", hspkany->nama_brg)
MsgInfo(product->Nmrangka)
else
msgInfo("??")
endif
endif
*/

nX:=83

@r+=8,10,r,195 LINE PEN 'P1'

@r,10,nX,10 LINE PEN 'P0'
@r,18,nX,18 LINE PEN 'P0'

//@r,29,nX,29 LINE PEN 'P0'
//@r,38,nX,38 LINE PEN 'P0'

@r,94,nX,94 LINE PEN 'P0'
@r+5,94,r+5,145 LINE PEN 'P0'

//@r+5,1,nX,123 LINE PEN 'P0'


@r+5,119,nX,119 LINE PEN 'P0'
@r,145,nX,145 LINE PEN 'P0'
@r,195,nX,195 LINE PEN 'P1'

@r+=2,11 say "No." TO PRINT
//@r,19 say "Qty" TO PRINT
//@r,31 say "Sat" TO PRINT
@r,43 say "Nama Barang" TO PRINT

@r+3,95 say "Permintaan" TO PRINT
@r-2,117 say "Qty" TO PRINT
@r+3,120 say "Pengambilan" TO PRINT


//@r-2,157 say "Harga" TO PRINT
//@r+2,157 say "Satuan" TO PRINT

@r,160 say "Keterangan" TO PRINT
@r+=8,10,r,195 LINE PEN 'P0'

@r,110,nX,110 LINE PEN 'P0'
@r,135,nX,135 LINE PEN 'P0'

SELECT FONT "A9"

@r+3,11 say " 1." TO PRINT

@r+3 ,146 say product->Nmrangka font "a8" TO PRINT

@r+6 ,146 say "QTY : "+str(hspkany->Qty,5)+" PCS" font "a8" TO PRINT

IF RichOpen("dSpkAny", "idhSpk", hSpkAny->Idhspk, .t. )

DO WHILE DsPKaNY->Idhspk== HSPKANY->Idhspk .AND. !DSPKANY->(EOF())

@r+=3 ,22 say dSpkany->Nmplast TO PRINT
@r,22 say dSpkany->Nmplast TO PRINT
@r,96 say STR(dspkany->Idxtotkg,8,2) TO PRINT
@r,111 say "KGS" TO PRINT

DSPKANY->(DBSKIP())

ENDDO

ENDIF


//@r,96 say STR(HSPKANY->QTY,8) TO PRINT
//@r,111 say "PCS" TO PRINT
//@r,146 say product->Nmplast TO PRINT
//@r+4,146 say product->Nmanyam TO PRINT


//xSize:=alltrim(STR(PRODUCT->W_cm,7,2)) +" Cm x "+ alltrim(STR(PRODUCT->H_cm,7,2))+" Cm x "+ alltrim(STR(PRODUCT->D_cm,7,2))

SELECT FONT "C8"

//@r+=5 ,22 say "SIZE : "+ xSize TO PRINT
//@r+=3.5 ,22 say "BERAT RANGKA : "+ str(product->Br_kgs,6,2)+" KGS" TO PRINT

@r+=10 ,32 say "No.Rangka "+ alltrim(str(hspkany->Dr_norgk,4))+" - "+ alltrim(str(hspkany->Sd_norgk)) TO PRINT

R:=nX

@r,10,r,195 LINE PEN 'P0'


@r, 10 SAY "Cirebon, " + rich_tgln(hSpkany->tglpesan,"H P, D M Y") TO PRINT
@r+=3, 10 SAY "Dikirim dengan kendaraan No.................... Dengan sopir ......................." TO PRINT
@r+=3, 10 SAY "Barang tersebut diatas diterima dengan baik." TO PRINT


//@r,11 say "TOTAL" TO PRINT
//@r,172 say "Rp"+TRANS(HSPKANY->Rp_total,"@ez 999,999,999") FONT "a9b" TO PRINT
//R+=6
//@r,10,r,195 LINE PEN 'P0'

@r+=7,10 SAY "Penerima," TO PRINT
@r, 40 SAY "Sopir," TO PRINT
@r,70 SAY "Hormat Kami," TO PRINT
@r,105 SAY "Kabag" TO PRINT
@r,135 SAY "Manager Produksi," TO PRINT
@r,170 SAY "Security," TO PRINT


R+=20

SELECT FONT "t10"


@r-2,10 SAY hSpkany->Penerima TO PRINT
@r-2,70 SAY hspkany->Ppic TO PRINT
@r-2,105 SAY hspkany->Kabag TO PRINT
@r-2,135 SAY hspkany->Manager TO PRINT



@r,10 SAY "........................" TO PRINT
@r,40-3 SAY "........................" TO PRINT
@r,70-5 SAY "........................" TO PRINT
@r,105-5 SAY "........................" TO PRINT
@r,135-2 SAY "........................" TO PRINT
@r,170-2 SAY "........................" TO PRINT


SELECT FONT "x7"

@r+=6,10 SAY "Lembar 1: Keuangan (Putih)" TO PRINT
@r,50 SAY "Lembar 2: PPIC (Merah)" TO PRINT
@r,85 SAY "Lembar 3: Pengesub (Hijau)" TO PRINT
@r,125 SAY "Lembar 4: Admin Anyam (Biru)" TO PRINT
@r,165 SAY "Lembar 5: Gudang (Kuning)" TO PRINT


/*
Z:=R+10

R:=z

@r, 10 SAY "PT.Universal Furniture Industries" FONT "CSM10" TO PRINT
@r+=3, 10 SAY "Jl.H Resi No.89 Keduanan Plumbon Cirebon" FONT "C8" TO PRINT

@r+=9, 70 SAY "SURAT PERINTAH KERJA" FONT "t16" TO PRINT


SELECT FONT "C10"

@r+10, 140 SAY "Kepada : "+ hspkany->Pengesup TO PRINT

@r+=5, 10 SAY "Nomor SPK : " + hSpkany->no_spk TO PRINT
@r+=4, 10 SAY "Nomor WOC : " + hSpkany->no_woc TO PRINT
@r+=4, 10 SAY "Tgl.Pemesanan : " + d2infstr(hSpkany->tglpesan) TO PRINT
@r+=4, 10 SAY "Tgl.Penyerahan : " + d2infstr(hSpkany->tglserah) TO PRINT
@r+=4, 10 SAY "Bagian : " + hSpkany->bagian TO PRINT


nX:=93

@r+=8,10,r,195 LINE PEN 'P0'

@r,10,nX+6,10 LINE PEN 'P0'
@r,18,nX,18 LINE PEN 'P0'
@r,29,nX,29 LINE PEN 'P0'
@r,38,nX,38 LINE PEN 'P0'

@r,114,nX,114 LINE PEN 'P0'
@r+5,114,r+5,151 LINE PEN 'P0'
@r+5,133,nX,133 LINE PEN 'P0'
@r,151,nX,151 LINE PEN 'P0'

@r,173,nX,173 LINE PEN 'P0'

@r,195,nX+6,195 LINE PEN 'P0'

@r+=2,11 say "No." TO PRINT
@r,19 say "Qty" TO PRINT
@r,31 say "Sat" TO PRINT
@r,45 say "Nama Barang" TO PRINT

@r-2,123 say "Index" TO PRINT

@r+3,115 say "Satuan" TO PRINT
@r+3,135 say "Total" TO PRINT
@r-2,157 say "Harga" TO PRINT
@r+2,157 say "Satuan" TO PRINT

@r,178 say "Jumlah" TO PRINT
@r+=8,10,r,195 LINE PEN 'P0'

@r,126,nX,126 LINE PEN 'P0'
@r,144,nX,144 LINE PEN 'P0'

SELECT FONT "A9"

@r+=3,19 say STR(HSPKANY->Qty,5) TO PRINT

@r, 11 say " 1." TO PRINT
@r ,30 say "PCS" TO PRINT
@r ,39 say ALLTRIM(HSPKANY->Nama_brg) TO PRINT

RichScope("dspkany","idhspk",hspkany->Idhspk, hspkany->Idhspk+"zzzzz")


SELECT FONT "x7"

@r+=5,10 SAY "Lembar 1: Pengesup (Putih)" TO PRINT
@r,40 SAY "Lembar 2: Keuangan (Hijau)" TO PRINT
@r,70 SAY "Lembar 3: Admin QC (Biru)" TO PRINT
@r,100 SAY "Lembar 4: Admin Produksi (Merah)" TO PRINT
@r,138 SAY "Lembar 5: Admin DO (Putih)" TO PRINT
@r,165 SAY "Lembar 6: Admin SPK (Kuning)" TO PRINT

*/


END PAGE

END DOC


dbCloseAll()

RETURN .T.









</div>