Entry Order Penjualan

Screen Shoot

This is code ,

#include “minigui.ch”
#include “inkey.ch”
#include “miniprint.ch”

*** Desain & Program By : Supriadi
*** Dated : april, 2009

#define program “Order Penjualan”

procedure WAROENT()

Local snorut
Local snorek
Local kode := “OP”
local hurufWAROENT := { 255,255,255 }
local warnaWAROENT := {255,255,255 }
Local bColor := { || iif( recno()/2 == int( recno()/2 ) , { 255,255,255 } , { 197,240,240 } ) }
Local cimage := { || iif( recno()/2 == int( recno()/2 ) , ’01.bmp’,’02.bmp’ ) }
Local inputcolor := { 192,197,255 }

if !iswindowactive (AROENT)
set delete on
set browsesync on
set century on
set navigation extended
set date italia

Define window AROENT ;
at 30,40 ;
Width 960 ;
Height 550 ;
title ”;
on init (bukaWAROENT(),aroent2());
child ;
nosysmenu ;
nomaximize;
NOMINIMIZE;
backcolor warnaWAROENT

DEFINE TOOLBAR TOOLBAR_1 BUTTONSIZE 85,40 FLAT BORDER

BUTTON NEW;
picture ‘E:\soalgui\bmp\append.bmp’;
CAPTION ‘&Tambah’;
tooltip ‘Penambahan Data baru ‘;
ACTION newgltran1()

BUTTON SEARCH ;
picture ‘E:\soalgui\bmp\cari.bmp’;
CAPTION ‘&search’;
tooltip ‘Tombol ini berfungsi untuk cari database ‘;
action { playbeep(),carinotaop(),opcar2() }

BUTTON HAPUS ;
picture ‘E:\soalgui\bmp\HAPUS.bmp’;
CAPTION ‘&Delete’;
tooltip ‘Tombol ini berfungsi untuk menghapus database ‘;
action hapusgl()

BUTTON EDIT ;
picture ‘E:\soalgui\bmp\EDIT.bmp’;
CAPTION ‘E D I &I T’;
tooltip ‘Tombol ini berfungsi untuk modifikasi/edit database ‘;
ACTION if(kunci(),aktif(),nil)

BUTTON printer;
picture ‘E:\soalgui\bmp\printer.bmp’;
TOOLTIP ‘Pilihan anda untuk cetak data’ ;
CAPTION ‘&CetakData’;
ACTION printcpv()

BUTTON Keluar;
picture ‘E:\soalgui\bmp\cancel.bmp’;
TOOLTIP ‘Pilihan anda untuk cetak data’ ;
CAPTION ‘&Keluar’ ;
ACTION keluararoent()

END TOOLBAR

@ 68,15 frame AROENT_frm;
caption “Entry Nomer Order Penjualan “;
BACKCOLOR WARNAWAROENT ;
width 950 ;
height 150

@ 225,15 frame AROENT2_frm;
caption “Data Transaksi”;
BACKCOLOR WARNAWAROENT ;
width 950 ;
height 480

@ 90,20 LABEL sKdwil_lbl VALUE ‘Kode Wilayah ‘;
font “arial narrow” size 12 bold;
backcolor warnaWAROENT

@ 90,290 LABEL sNotran_LBL VALUE ‘Nomer Order ‘;
font “arial narrow” size 12 bold ;
backcolor warnaWAROENT

@ 90,680 LABEL sTanggal_lbl VALUE ‘Tanggal ‘;
font “arial narrow” size 12 bold;
backcolor warnaWAROENT

@ 120,20 label sketer_lbl Value ‘Kode Pelanggan’;
font “arial narrow” size 12 bold ;
backcolor warnaWAROENT

@ 120,290 label svat_lbl Value ‘PPN ‘;
font “arial narrow” size 12 bold ;
backcolor warnaWAROENT

@ 120,520 label sterm_lbl Value ‘Term ‘;
font “arial narrow” size 12 bold ;
backcolor warnaWAROENT

@ 120,680 label smata_lbl Value ‘Mata Uang ‘;
font “arial narrow” size 12 bold ;
backcolor warnaWAROENT

@ 590,120 LABEL sdebet_lbl VALUE ‘Nilai Order’;
font “arial narrow” size 13 ;
width 100 ;
backcolor warnaWAROENT ;
bold

@ 590,550 LABEL skredit_lbl VALUE ‘Nilai PPN ‘;
font “arial narrow” size 13 ;
width 100 ;
backcolor warnaWAROENT ;
bold

@ 620,550 LABEL stotal_lbl VALUE ‘Total Nilai ‘;
font “arial narrow” size 13 ;
width 100 ;
backcolor warnaWAROENT ;
bold

Define combobox kd_wil

row 90
col 140
Item {“Accounting”,”Aktiva”,”Finished Goods”,”Raw Material”,”Produksi”,”Packing”,”Lain-lain”}
value 1

end combobox

@ 90,390 textbox snotran_txt font “Time new roman” size 12 ;
WIDTH 150

define datepicker stanggal1
row 90
col 780
backcolor {197,255,197}

end datepicker

@ 120,140 textbox sKDPT_txt ;
font “Time new roman ” size 11 ;
width 80 ;
MAXLENGTH 6

DEFINE IMAGE CUSTOMER
ROW 120
COL 230
WIDTH 20
HEIGHT 30
picture ‘E:\soalgui\bmp\cari.bmp’
on click (playbeep(),listskdpt(),tampilnmpt())
END IMAGE

@ 150,140 textbox sNMPT_txt ;
font “Time new roman ” size 11 ;
FONTCOLOR {255,0,0};
BOLD ;
width 400;
READONLY

@ 180,140 textbox sALAMAT_txt ;
font “Time new roman ” size 11 ;
FONTCOLOR {255,0,0};
width 800;
READONLY

Define combobox sPPN
row 120
col 390
Item {“VAT 10%”,”EPTE”,”Tidak Dipungut”}
value 1
end combobox

@ 120,580 textbox sTERM_txt font “Time new roman” size 12 ;
WIDTH 60;
numeric inputmask “999”

Define combobox smata

row 120
col 780
Item {“Rupiah(IDR)”,”Dollar(USD)”,”Dollar(SGD)”,”EURO”,”YEN”,”YUAN”}
value 1

end combobox

@ 590,250 textbox sDebet_txt ;
width 150 ;
font “Time New Roman” size 12 ;
readonly ;
numeric inputmask “9,999,999,999.99”

@ 590,750 textbox sKredit_txt ;
width 150 ;
font “Time New Roman” size 12 ;
readonly ;
numeric inputmask “9,999,999,999.99”

@ 620,750 textbox sTotal_txt ;
width 150 ;
font “Time New Roman” size 12 ;
readonly ;
numeric inputmask “9,999,999,999.99”

@ 570,670 frame AROENT3_frm;
BACKCOLOR WARNAWAROENT ;
width 260 ;
height 80

Define browse WAROENT_browse
row 250
col 50
width 880
height 300
headers {”,’Kode’,’Nomer Order ‘,’No Urut’,’Kode Barang ‘,’Nama Barang’,’Jumlah Order’,’Harga Barang’}
widths {40,60,150,50,100,250,130,130}
workarea INTRAN2
fields{”,’INTRAN2->kode’,’INTRAN2->nonota’,’intran2->seqno’,’INTRAN2->kdbrg’,’INVTBL->nmbrg’,’Transform(INTRAN2->quantk,”999,999.99″)’,’Transform(intran2->harga,”999,999,999,999.99″)’}
image { ’03.bmp’,’02.bmp’ }
DYNAMICBACKCOLOR { bcolor,bColor, bcolor, bColor, bColor, bColor, bColor,bcolor }
JUSTIFY { BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_RIGHT,BROWSE_JTFY_RIGHT}
lock .T.
allowdelete .t.

END BROWSE

end window
maximize window AROENT
activate window AROENT

Endif

return nil

PROCEDURE BUKAWAROENT

LOCAL SKODE := “OP”
LOCAL STPTRAN := “”

RddSetDefault(“DBFNTX”) //standar clipper-harbour
request dbfntx

IF OPENTABLES(cDRV+”TBLWMAS”,.F.)
SET INDEX TO (cDRV+”TBLWMAS”)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”TBLCMAS”,.F.)
SET INDEX TO (cDRV+”TBLCMAS”),(cDRV+”TBLCMAS1″)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”INVMAS”,.F.)
SET INDEX TO (cDRV+”INVMAS”)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”INVTBL”,.F.)
SET INDEX TO (cDRV+”INVTBL”),(cDRV+”INVTBL1″),(cDRV+”INVTBL2″),(cDRV+”INVTBL4″)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”INTRAN4″,.F.)
SET INDEX TO (cDRV+”INTRAN4″)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”ETA”,.F.)
SET INDEX TO (cDRV+”ETA”),(cDRV+”ETA1″),(cDRV+”ETA2″)
ELSE
RETURN
ENDIF

IF .NOT. OPENTABLES(cDRV+”DINTRAN1″,.F.)
RETURN
ENDIF

IF OPENTABLES(cDRV+”INTRAN3″,.F.)
SET INDEX TO (cDRV+”INTRAN31″),(cDRV+”INTRAN3″)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”INTRAN2″,.F.)
SET INDEX TO (cDRV+”INTRAN2″),(cDRV+”INTRAN21″),(cDRV+”INTRAN23″),(cDRV+”INTRAN22″)
ELSE
RETURN
ENDIF

IF OPENTABLES(cDRV+”INTRAN1″,.F.)
SET INDEX TO (cDRV+”INTRAN1″),(cDRV+”INTRAN11″),(cDRV+”INTRAN12″),(cDRV+”INTRAN1R”),(cDRV+”INTRAN17″),(cDRV+”INTRAN13″),(cDRV+”INTRAN15″),(cDRV+”INTRAN1A”)
ELSE
RETURN
ENDIF

DbSeek(SKODE)

RETURN

procedure keluararoent

LocaL SDEBET := 0
Local SKREDIT := 0

intran1->(dbclosearea())
intran2->(dbclosearea())
intran3->(dbclosearea())
intran4->(dbclosearea())
tblcmas->(dbclosearea())
tblwmas->(dbclosearea())
invmas->(dbclosearea())
invtbl->(dbclosearea())
dintran1->(dbclosearea())
eta->(dbclosearea())
release window aroent

return

Procedure oraaktif

aroent.kd_wil.enabled := .F.
aroent.snotran_txt.enabled := .F.
aroent.stanggal1.enabled := .F.
aroent.skdpt_txt.enabled := .F.
aroent.customer.enabled := .F.
aroent.snmpt_txt.enabled := .F.
aroent.salamat_txt.enabled := .F.
aroent.smata.enabled := .F.
aroent.sppn.enabled := .F.
aroent.sterm_txt.enabled := .F.
aroent.sdebet_txt.enabled := .F.
aroent.skredit_txt.enabled := .F.
aroent.stotal_txt.enabled := .F.

Return

Procedure aktifaroent

aroent.kd_wil.enabled := .T.
aroent.snotran_txt.enabled := .T.
aroent.stanggal1.enabled := .T.
aroent.skdpt_txt.enabled := .T.
aroent.customer.enabled := .T.
aroent.snmpt_txt.enabled := .T.
aroent.salamat_txt.enabled := .T.
aroent.smata.enabled := .T.
aroent.sppn.enabled := .T.
aroent.sterm_txt.enabled := .T.
aroent.sdebet_txt.enabled := .T.
aroent.skredit_txt.enabled := .T.
aroent.stotal_txt.enabled := .T.

Return

Procedure aroent2

Local skode := “OP”
Local stptran := “”

oraaktif()

SELECT INTRAN1
set order to 1
DBSEEK(skode)

SNONOTA := NONOTA
STANGGAL := TANGGAL
sMATA := MATA
STGL_KIRIM := TGL_KIRIM

SMATA := MATA
SKURS := STR(KURS,10,2)
STERM := TERM
SSALES := SALES
SKD_PT := KD_PT
SJTEMPO := JTEMPO
SDISC := STR(DISC,14,2)
tPPN := PPN
SDIGIT := SUBSTR(SKD_PT,5,1)
POINT := RECNO()
SPoCust := POCUST
tRec := recno()

DO CASE

CASE tPPN == 10

aroent.sPPN.value := 1

CASE tPPN == 0

aroent.SPPN.value := 2

CASE tPPN == “”

aroent.SPPN.value := 3

END CASE

DO CASE

CASE sMATA == “I”

aroent.smata.value := 1

CASE sMATA == “D”

aroent.smata.value := 2

CASE sMATA == “S”

aroent.sMATA.value := 3

CASE sMATA == “E”

aroent.sMATA.value := 4

CASE sMATA == “Y”

aroent.sMATA.value := 5

END CASE

aroent.kd_wil.value := 1
aroent.snotran_txt.value := snonota
aroent.stanggal1.value := stanggal
aroent.skdpt_txt.value := skd_pt
aroent.sterm_txt.value := term

SELECT TBLCMAS
SET ORDER TO 1
DBSEEK(“L”+”10″+aroent.skdpt_txt.value)
IF FOUND()
sNMPT := NM_PT
sAlamat1 := ALAMAT1
SAlamat2 := ALAMAT2
sSALES := KD_SAL
sKATEGORI := KATEGORI
sAREA := AREA

aroent.snmpt_txt.value := sNMPT
aroent.salamat_txt.value := Salamat1+” “+(ALLTRIM(sALAMAT2))

endif

SJUMLAH:=SNET:= 0

SELECT INTRAN2
DBSEEK(SKODE+SNONOTA)
set relation to KDBRG into INVTBL
set filter to ((intran2->kode)+(intran2->nonota)) = (“OP”+aroent.snotran_txt.value)
aroent.waroent_browse.value := recno()
aroent.waroent_browse.refresh
aroent.waroent_browse.setfocus

DO WHILE .NOT. EOF() .AND. (SKODE+SNONOTA) = (KODE+NONOTA)
SKDBRG := KDBRG
SELECT INVTBL
SEEK SKDBRG
SNMBRG := NMBRG
SNMJUAL := NMJUAL
SSATUAN := SATUAN
SKEMASAN := KEMASAN
SPACK2 := PACK2
SELECT INTRAN2
XHARGA := (HARGA-KORT)
SNILAI := ((XHARGA)*(QUANTK))+((XHARGA)*(QUANTP)/SPACK2)
SJUMLAH := SJUMLAH + SNILAI
DbSkip()
ENDDO

aroent.sdebet_txt.value := sjumlah

aroent.skredit_txt.value := (tppn * aroent.sdebet_txt.value)
aroent.stotal_txt.value := aroent.sdebet_txt.value + aroent.skredit_txt.value

SELECT INTRAN1
Return

Procedure tampilnmpt

Local skd_wil := “10”

SELECT TBLCMAS
SET ORDER TO 1
DBSEEK(“L”+”10″+aroent.skdpt_txt.value)
IF FOUND()
sNMPT := NM_PT
sAlamat1 := ALAMAT1
SAlamat2 := ALAMAT2
sSALES := KD_SAL
sKATEGORI := KATEGORI
sTERM := STR(TERM,2,0)
sAREA := AREA

aroent.snmpt_txt.value := sNMPT
aroent.salamat_txt.value := Salamat1+” “+(ALLTRIM(sALAMAT2))
aroent.sPPN.setfocus

else
msginfo(“Kode pelanggan tidak diketemukan”,”Konfirmasi pelanggan”)
aroent.skdpt_txt.setfocus
endif

Return

procedure listskdpt
do while .t.
isiCodept(“aroent”,”skdpt_txt”)
exit
enddo
return

Function isiCodept(cForm,cTextBtn)
Local cRegpt := “”

cRegpt := Codept(Getproperty(cForm,cTextBtn,”Value”))
If !empty(cRegpt)
Setproperty(cForm,cTextBtn,”Value”,cRegpt)
EndIf

Return

Function Codept(lValue)
Local cRegpt:= “”, nReg := 1
private cvarnonota := “KODE”
tblcmas->(dbsetorder(2))
set filter to tblcmas->flag == “L”

if !empty(lValue)
lValue := recno()
Seek Alltrim(str(lValue))
if !eof()
nReg := Recno()
endif
endif

DEFINE WINDOW Form_tblcmas;
AT 0,0 ;
WIDTH 500 HEIGHT 460 ;
TITLE ‘List Kode Pelanggan’ ;
MODAL NOSIZE

@300,5 frame pilih_invtbl ;
width 380 ;
height 100

@ 320,10 label cnonota_tblcmas value ‘ Masukan Nama pelanggan yg dicari’;
font “arial” size 16 ;
width 500;
transparent blink;
fontcolor{0,255,0}

@ 350,10 textbox knonota_tblcmas;
width 350 ;
on change {search_tblcmas()};
on enter {search_tblcmas()}

@ 5,5 BROWSE tblcmas_Browse ;
WIDTH 480 ;
HEIGHT 290 ;
HEADERS { ‘kode-pt ‘ , ‘Nama pelanggan’,’alamat ‘ } ;
WIDTHS { 70 ,250,300 } ;
WORKAREA tblcmas ;
FIELDS { ‘tblcmas->kd_pt’,’tblcmas->nm_pt’,’tblcmas->alamat1′} ;
VALUE nReg ;
READONLY {.t.,.t.,.t.} ;
Justify {BROWSE_JTFY_LEFT , BROWSE_JTFY_LEFT} ;
ON DBLCLICK ( cRegpt:=tblcmas->kd_pt, ThisWindow.Release) ;
TOOLTIP “Pilihlah order yang anda inginkan ”

ON KEY ESCAPE ACTION ThisWindow.Release
END WINDOW

CENTER WINDOW Form_tblcmas

ACTIVATE WINDOW Form_tblcmas
Return cRegpt

function search_tblcmas

local cCari:= (“L”+”10″+upper(AllTrim(form_tblcmas.knonota_tblcmas.value)))
local nPanjang := len(ccari)

select tblcmas
set order to 2
dbselectarea(“tblcmas”)
dbseek(cCari)
set order to 1
If found()
form_tblcmas.tblcmas_browse.value := tblcmas->(recno())
Else
MsgExclamation(‘Nama Perusahaan Customer tidak ada’)

EndIf
Return

&& Mencari nomer nota

procedure carinotaop
do while .t.
FindCodeop(“aroent”,”snotran_txt”)
exit
enddo
return

Function FindCodeop(cForm, cTextBtn)
Local cReg := “”

cReg := GetCodeop(Getproperty(cForm,cTextBtn,”Value”))
If !empty(cReg)
Setproperty(cForm,cTextBtn,”Value”,cReg)
EndIf

Return

Function GetCodeop(nValue)
Local cReg:= “”, nReg := 1
private cvarnonota := “KODE+NONOTA”
intran1->(dbsetorder(1))
set filter to intran1->kode == “OP”

if !empty(nValue)
nValue := recno()
Seek Alltrim(str(nValue))
if !eof()
nReg := Recno()
endif
endif

DEFINE WINDOW Form_11;
AT 0,0 ;
WIDTH 400 HEIGHT 460 ;
TITLE ‘List Order Penjualan’ ;
MODAL NOSIZE

@300,5 frame pilih_aroent ;
width 380 ;
height 100

@ 320,10 label cnonota_lbl value ‘ Masukan Nomer order yg dicari’;
font “arial” size 16 ;
width 500;
transparent blink;
fontcolor{0,255,0}

@ 350,10 textbox cnonota_txt;
width 350 ;
on change {search_aroent() };
on enter {search_aroent() }

@ 5,5 BROWSE Browse_1 ;
WIDTH 380 ;
HEIGHT 290 ;
HEADERS { ‘kode’ , ‘Nomer Order’,’Tanggal’ } ;
WIDTHS { 70 ,140,100 } ;
WORKAREA intran1 ;
FIELDS { ‘intran1->kode’,’intran1->nonota’,’intran1->tanggal’} ;
VALUE nReg ;
READONLY {.t.,.t.,.t.} ;
Justify {BROWSE_JTFY_LEFT , BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT} ;
ON DBLCLICK ( cReg:=intran1->nonota, ThisWindow.Release) ;
TOOLTIP “Pilihlah order yang anda inginkan ”

ON KEY ESCAPE ACTION ThisWindow.Release
END WINDOW

CENTER WINDOW Form_11

ACTIVATE WINDOW Form_11

Return cReg

function search_aroent

local cCari:= (“OP”+AllTrim(form_11.cnonota_txt.value))
local nPanjang := len(ccari)

select intran1
set order to 1
dbselectarea(“intran1”)
dbseek(cCari)

If found()

If intran1->(DbSeek(cCari))
form_11.browse_1.value := intran1->(recno())
Else
MsgExclamation(‘Nomer order penjualan tidak ada’)
EndIf
else
msginfo(“nomer yg anda cari bukan order penjualan”,”Konfirmasi bukan nomer order”)

EndIf
Return

Procedure opcar2

Local skode := “OP”
Local stptran := “”
Local tPPN := 0

oraaktif()

SELECT INTRAN1
set order to 1
DBSEEK(SKODE+ALLTRIM(aroent.snotran_txt.value))

STANGGAL := TANGGAL
STGL_KIRIM := TGL_KIRIM

SMATA := MATA
SKURS := STR(KURS,10,2)
STERM := TERM
SSALES := SALES
SKD_PT := KD_PT
SJTEMPO := JTEMPO
SDISC := STR(DISC,14,2)
tPPN := PPN
POINT := RECNO()

DO CASE

CASE tPPN == 10

aroent.sPPN.value := 1

CASE tPPN == 0

aroent.SPPN.value := 2

CASE tPPN == 2

aroent.SPPN.value := 3

END CASE

DO CASE

CASE INTRAN1->MATA == “I”

aroent.smata.value := 1

CASE INTRAN1->MATA == “D”

aroent.smata.value := 2

CASE INTRAN1->MATA == “S”

aroent.sMATA.value := 3

CASE INTRAN1->MATA == “E”

aroent.sMATA.value := 4

CASE INTRAN1->MATA == “Y”

aroent.sMATA.value := 5

END CASE

aroent.kd_wil.value := 1
aroent.stanggal1.value := stanggal
aroent.skdpt_txt.value := skd_pt
aroent.sterm_txt.value := sterm

SELECT TBLCMAS
SET ORDER TO 1
DBSEEK(“L”+”10″+aroent.skdpt_txt.value)
IF FOUND()
sNMPT := NM_PT
sAlamat1 := ALAMAT1
SAlamat2 := ALAMAT2
sSALES := KD_SAL
sKATEGORI := KATEGORI
sTERM := STR(TERM,2,0)
sAREA := AREA

aroent.snmpt_txt.value := sNMPT
aroent.salamat_txt.value := Salamat1+” “+(ALLTRIM(sALAMAT2))

endif

SJUMLAH:=SNET:= 0

SELECT INTRAN2
dbsetorder(1)
DBSEEK(SKODE+AROENT.SNOTRAN_TXT.VALUE)
set relation to KDBRG into INVTBL
set filter to ((intran2->kode)+(intran2->nonota)) = (“OP”+aroent.snotran_txt.value)
aroent.waroent_browse.value := recno()
aroent.waroent_browse.refresh
aroent.waroent_browse.setfocus

DO WHILE .NOT. EOF() .AND. (SKODE+ALLTRIM(AROENT.SNOTRAN_TXT.VALUE)) = (KODE+ALLTRIM(NONOTA))
SKDBRG := KDBRG
SELECT INVTBL
SEEK SKDBRG
SNMBRG := NMBRG
SNMJUAL := NMJUAL
SSATUAN := SATUAN
SKEMASAN := KEMASAN
SPACK2 := PACK2
SELECT INTRAN2
XHARGA := (HARGA-KORT)
SNILAI := ((XHARGA)*(QUANTK))+((XHARGA)*(QUANTP)/SPACK2)
SJUMLAH := SJUMLAH + SNILAI
DbSkip()
ENDDO

aroent.sdebet_txt.value := sjumlah

aroent.skredit_txt.value := ((tppn/100) * aroent.sdebet_txt.value)

aroent.stotal_txt.value := aroent.sdebet_txt.value + aroent.skredit_txt.value

SELECT INTRAN1

Return

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: